vba formula

this is the code i have so far for converting my "Email" hyperlinks all in column G into the actual email address text. Sub AAshowHyperlink() Range("G1").Activate Do Until IsEmpty(ActiveCell) If ActiveCell.Hyperlinks.Count <> 0 Then ActiveCell.Value =...

I have written arrays to populate the following information: 1) the number in the 1st cell in the range containing a NUMBER to F5: {=INDEX(N5:AR5,MATCH(TRUE,ISNUMBER(N5:AR5),0))} 2) the number in the cell at the top of the page that corresponds with the cell found by this array to E5...

Well I am running some code and it keeps saying block if! how do u make a block if function cus i cant seem to correct it thx for ur help in advance

I just did a VBA course however I am having trouble getting started on this one. I have a spreadsheet which I use do a rec each month. There are multiple tabs with the data (but the inputs vary) and instead of going through all of the tabs and copy pasting the table from the prior month below...

Ok- so have another tough one. I have two workbooks, one is called Projections, one is report. Using VBA, I want to compare column A in Report with Column A in Projection. If they are the same then I want Column C from Projection to fill in Column G in Report. These are two different...

Can someone please assist with writing this formula in VBA: =IF(RIGHT(TEXT(C2,"mm/dd/yy hh:mm:ss"),2)>"30",LEFT(C2,14)+0.000694,C2) This is what I have so far, but I am receiving a type mismatch error. Please be aware this is a test Sub that I am using via a command button on a sheet...

Hi, I have values that I want to color code in my table. Originally I was tagging them as numbers, but instead I need them as colors. Function conversion(pVal As Double) If pVal > 0.05 Then conversion = "1" ElseIf pVal > 0.001 Then conversion = "2" ElseIf pVal >...

I'm using the following code in a worksheet change event but it wont return the Target Offset value. However if I delete the linked value and type in Sun or any other day it finds it. If Not Intersect(Target, Range("D8:D38")) Is Nothing Then If Target.Value = Range("P40").Value Then If...

Hi, How to 'convert' this formula to work in VBA code: In cell H4, the formula is: =IF(OR(B4=0,C4=0,D4=0,E4=0,F4=0,G4=0),"Incomplete Invoice", IF(C4>E4,"D.O.Date>Invoice Date?", C4+G4)) How to write this formula in VBA module? (Note: H4 is date) Thanks!

Hi, I would llike to set a cell to a formula but am having a bit of difficulty. here's my code: Range("D33").Formula = "=IF(OR(C3="F 18-65", C3="M & F 18-65"),"35% 18-34, 35% 35-49, 30% 50-65", "see description below" ) " I get a compile error, expected end of statement at the first F. I...