#1
|
|||
|
|||
VB Error
Hi All,
I'm trying to get my revised sheet to calculate prices and cannot see why it won't work. My original had a macro with the following code that worked just fine: Public Function DisneyStampListings(pRange1 As Range, pRange2 As Range) As Double 'Update 20140210 Application.Volatile Dim rng As Range Dim xTotal As Double xTotal = 0 For Each rng In pRange1 If rng.Font.Color = pRange2.Font.Color Then xTotal = xTotal + rng.Value End If Next DisneyStampListings = xTotal End Function Now all I have done is copy the code over to my revised sheet and I get 'Expected end of statement' error which I can't resolve. Public Fuction Disney_Stamp_Listings_2022 (pRange1 as Range, pRange2 as Range) As Double Application.Volatile Dim rng As Range Dim xTotal As Double xTotal = 0 For Each rng In Range1 If rng.Font.Color = p2Range.Font.Color Then xTotal = xTotal + rng.Value End If Next Disney_Stamp_Listings_2022 = xTotal End Function Any ideas |
#2
|
||||
|
||||
Perhaps post in the VBA subforum instead of here?
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post |
#3
|
||||
|
||||
Typo - it's Function, not Fuction. Also, what is Range1? I think you meant pRange1
|
#4
|
|||
|
|||
Problems highlighted in Red.
Public Function Disney_Stamp_Listings_2022 (pRange1 as Range, pRange2 as Range) As Double Application.Volatile Dim rng As Range Dim xTotal As Double xTotal = 0 For Each rng In pRange1 If rng.Font.Color = p2Range.Font.Color Then xTotal = xTotal + rng.Value End If Next Disney_Stamp_Listings_2022 = xTotal End Function |
#5
|
|||
|
|||
Hi croberts,
I don't believe it, I just don't believe it!! Debaser pointed this out before and I still didn't get it, gonna have to get my eyes tested that for sure. |
#6
|
|||
|
|||
No problem friend. It happens. It can happen to an aging brain, or when I'm on too many cough meds. I thought the red might help you out since I didn't see a reply from you after Debaser's reply.
|
#7
|
|||
|
|||
Hi croberts,
Ha ha, I like it. I often go to my local chemist called Dan Murphy's for some cough medicines Best Rgds, Dave R. |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
error handler: inserting building blocks when multiple cells in a table are selected creates error | LSLSLS | Word VBA | 2 | 01-07-2022 05:46 AM |
Suddenly having trouble using .Refresh BackgroundQuery. Error 1004, General ODBC Error | PLSBRYDOBOY | Excel Programming | 0 | 08-30-2019 12:17 PM |
Automation error Unknown error" message once they open the Excel file | hlina | Excel | 1 | 10-08-2013 09:14 PM |
Microsoft office 2010 error 2908 and error 1935 !!!!!!heeeeellpppp!!!!!!!!! | bennypryde | Office | 1 | 01-05-2012 03:33 PM |
Runtime error 5487 - Word cannot complete the save to to file permission error | franferns | Word | 0 | 11-25-2009 05:35 AM |