I'm using the following UDF to extract URLs from hyperlinks on a sheet, so that people can click the hyperlinks, but the URLs for all the links also appear (in the cells with formula =GetUrl), but in a place where they're accessible but out of view:
View 2 RepliesHerewith I attached a sample excel file.
Structure file which i attached herewith include all the cost center details. normally it is a big file contain more than 1000 cost center details. Structure File.xlsx If i want a cost center name for some cost center code, i have to open this file and find a specific name.
What i plan is develop a macro function called "CC".
If I type =CC("D232") I need to print cost center name for D232.
But the problem is i don't want to open the structure file, without open that file, when i type this function i need a result.
I am having a slight problem copying hyperlinks. I have written some code that sorts data by date and then creates a simple diary. It originally placed the name of the event in the new diary sheet. What I would like to do is instead of copying the name into this new sheet copy a hyperlink that I have created to the company's website for that event.
I can create the hyperlink using hyperlink(B1,A1) where A1 is the company name and B1 is the web address but since the new sheet will not have the underlying data I need to actually copy the values and format of the hyperlink rather than the formula.
Not sure if anybody has been succesful or not in the following but I am writing a macro to check that each hyperlink in my report is operational. My situation is as follows:
Cell A1 has the following hyperlink formula: =hyperlink(Worksheet1!B1,Worksheet1!B2)
I am attempting a workaround to capture the cell reference (B1) where the path and filename is stored and directing the macro to open the link. But when I try to send the hyperlink formula (Cell A1) to a string variable in vba, the result is the contents of Worksheet1!B2 instead of the entire formula.
I have dates & times in column A1:A20. In B1:B20 I have the corresponding temperatures for each date. I have set up the following dynamic ranges to refer to these ranges.
DateRange refers to A1:A20
TempRange refers to B1:B20
I have also made a user defined function that will determine if a date/time is between two times. Eg., If 21/05/06 07:30 is between "07:00" and "17:00". This function isn't concerned with the date, just if the time falls between the start and end times.
Function BetweenTimes(dDate As String, dStartTime As String, dEndTime As String) As Boolean
dDate = CDate(dDate)
dStartTime = CDate(dStartTime)
dEndTime = CDate(dEndTime)
BetweenTimes = False
'If the end time is before the start time, see if date/time falls between start and end..........
Cell A1 contains 012345678 ** Customer of 987654321 **
Cell B2 contains 087654321
My formula =MID(A1,FIND("of",A1)+2,10) works perfect if it has a "customer of...". How to revise my formula that when it gets to cell B2 and if there is no "** Customer of ..." it would leave it blank or zero rather than #Value!?
I'm trying to enter a series of formulas into a worksheet using vba. However, this code is giving me Run time error '1004', along with the description in the title. This is the first formula (they're all relatively similar).
View 2 Replies View RelatedSo on my Excel spreadsheet I can select cell B2 of Sheet1 and using the name box give that cell a name such as "Important_Cell". I know using VBA I can access the cell using the name, such as:
View 4 Replies View RelatedFunction Haversine has correct value in debugger but in cell it has the same value as Haversine2. Is this a known bug?
Public Function Haversine(lat1 As Double, long1 As Double, lat2 As Double, long2 As Double) As Double
Dim temp As Double
[Code]....
I need the code to extract the hyperlink address from a certain cell, without using the hyperlink count, i.e. hyperlinks(1), as the hyperlink in that cell is not necessarily number 1 in the count order. Something like this:
View 6 Replies View RelatedAnother interesting dilemma to solve. Using this formula:
View 2 Replies View Relatedwhen you type in a builtin function in the formula bar such as =DAY(), a small callout box appears below telling you the syntax - in this case "DAY(serial_number)". Is it possible to achieve this for a user defined function?
I have hyperlink on sheet1 from A4:Z500, I want to extract the hyperlink address of .pdf files from them to new sheet in column 'A'.
VB:
Sub ExtractHL_AdjacentCell()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
I'm using this macro with no problems in another workbook. However after inserting the same code into another workbook, I get an errorfor sub/function not definded. Looking at the code it seems its highlighting what's in red below.
I've inserted the top section of the code, where I'm getting the error.
I am building this code to calculate the expected move of a stock.
I am getting a Sub or Function Not Defined message. What should I fix.
Sub Expected_Move()
Dim Stock_Price As Double
Dim Impl_Vol As Double
Dim Time_Period As Double
Dim Square As Single
Dim IV_Adjust As Single
[Code] .......
I'm trying to calculate a gaussian random number given a mean and standard deviation. I then want to throw away any numbers beyond the min or max, and replace it with a new one that fits. I have made the macro below:
Public Function RANDGAUSS(mean As Double, stndv As Double, min As Double, max As Double) As Double
Dim x As Double
x = NormInv(rand(), mean, stndv)
Do While x < min Or x > max
x = NormInv(rand(), mean, stndv)
Loop
RANDGAUSS = x
End Function
I'm new to macros, but what I did was simply tools>macros>visual basic editor, and pasted the above code in.
When I enter the formula into a cell, it brings up the Visual Basic Editor and gives a warning:
"Complie Error: Sub or Function not defined" and the first rand is highlighted.
I am getting "Sub or Function not defined" error in the below place of my coding. I have highiglided the code which system did and this was given by one of our commite member only
[Code start here]
Windows(Fname).Activate
If Not WorksheetExists(Date1) Then GoTo ABC
Else
[Code]....
I have a sheet called 'frontsheet' where users complete a number of fields and a second sheet called 'table'
When the frontsheet is complete, users press a button to submit the data to the table, it checks the fields are complete and submits the data - all this works fine.
However I would like to add a mechanism to check the first entered piece of data (asset number) against all the asset numbers already entered on the 'table' sheet.
I thought I could use a dcount to do this but after trying a multitude of methods I get the same error "sub or function not defined"
Code:
Private Sub CommandButton1_Click()
'Dim ta As Worksheet
'Set ta = Worksheets("Table")
'Dim fs As Worksheet
'Set fs = Worksheets("Frontsheet")
[Code] ........
As you can see I've tried a few ways and have a few 'remmed'* out lines. I'm starting to suspect the problem lies elsewhere, should I have the dcount happen without the need to click a button and how would I do that?
Sub print_recap()
PrintOut Copies:=1
End Sub
this returns a "sub or function not defined" on the printout line
Sub print_All_recaps()
Set ws = Worksheets("Employees")
If UCase(InputBox("Enter y to print ALL the records")) <> "Y" Then Exit Sub
For n = 2 To ws. Range("A65536").End(xlUp).Row
Cells(2, 2) = ws.Cells(n, 1)
PrintOut Copies:=1
Next
End Sub
If I remove the PrintOut line I do not get an error.
Trring to use function edate() in VBA macro, I've activated atpvbaen.xls in Tools/Register but get compile error:"Sub or function not defined".
View 5 Replies View RelatedHave two worksheets in same workbook. First worksheet is "ReArrangedAddr" Which basically has a command button to click to run a "Sub" behind the second worksheet "Orig SH Register". When I click on button on first worksheet, I get error "Compile Error: Sub or Function not defined"
* * * * * code behind command button * * * * *
I am trying to create a function using the functions of IF and "And", but for any reason I don't know how to add the Add function
My function written in excel will looks like =IF(AND(A80="00",C80<>"8300"),"yes","no")
LOB Cost Center
00 1000
00 2000
00 8300
01 5000
02 8300
Function Allocation(LOB As Integer, CostCenter as Integer) As String
If LOB = 00 And CostCenter <> 8300 Then
Allocation = "Yes"
ElseIf LOB = 1, 2, 3, 4, 5 Then
Allocation = "No"
End If
End Function
I have created a custom add-in with custom functions and am trying to make it user friendly for other users. By running the following macro I can add functions to different categories, but I was wondering if there was a way to do this automatically so that anyone that adds this add-in will have the functions show up in the proper category without having to manually run this macro.
View 6 Replies View RelatedI can't get a simple function to work. I attached a screen shot of my function. It's very simple -- adds two numbers.
View 4 Replies View RelatedI have a two set of Macros in a workbook. One is to create a command button on a sheet and other macro will run onece the created commond button is clicked.
Macro runs fine. Command button gets created, but when I click the command button to run another macro it gives error "Compile Error: Sub or Function not defined" highlighting the code "Call Add" at the code entered for sheet. This code is added by macro in the sheet1. I am attaching a sample file as well as codes.
Sub CreateButton()
Dim Obj As Object
Dim Code As String
Sheets("Sheet1").Select
'create button
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=600, Top:=30, Width:=100, Height:=35)
Obj.Name = "InsertInvoiceButton"
'buttonn text
[code]....
I am trying to write a function which return the difference of sum of range A and sum or range B. But I keep getting error with my codes.
Code:
Function deltaPipeline(YTDPplComm As Range, LastYearPpln As Range)
deltaPipeline = Sum(YTDPplComm) - Sum(LastYearPpln)
End Function
I have a user defined function that somehow keeps interfering with my other module. I use f8 to step through module 1, but halfway through the process it skips to module 2 where I have the below user defined function...
View 9 Replies View RelatedI am stepping through a sub in module one that for some reason keeps jumping to a user defined function in another module. I've checked and and the function isn't being called.
View 9 Replies View RelatedI'm coding an UDF.
The main thing is, that if in the choosen cell are a specify value, than in another cell the interior color should change.
I don't know how can I change the interior color in function.
The code, buit it's not working:
Function Alerting(rCell As Range, tCell As Range)
If rCell.Value >= 5 Then
Alerting = " alert"
Cells(tCell.Row, tCell.Column).Interior.ColorIndex = 3
End If
End Function
Can someone explain the concept of defining the "Sub" to me.
View 5 Replies View Related