evalute error
Tom Ogilvy kindly helps me with the code to evalute for a report. I now have
a new related problem. In the following code, the first case statement works, but when I select the second, if fails with runtime error 424. In debug, it highlights the line "Set rng = Evaluate(s)" for the second case. The definition popup states "Cannot jump to "Evaluate" because it is hidden. It actually captures the first c and places in the Report sheet. Do I need to reset something? Am complete novice in excel VBA. Select Case ComboBox1.Value Case "GSOP_0286" Set refrange = Sheets("Sheet2").Range("A3:A20") i = 0 For Each c In refrange If c.Value = "" Then End Else s = Replace(c.Formula, "=", "") Set rng = Evaluate(s) rng.EntireRow.Copy Sheets("Report").Range("A4") _ .Offset(i, 0) _ .PasteSpecial Paste:= _ xlPasteAll, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False i = i + 1 End If Next c Case "GSOP_0287" Set refrange = Sheets("Sheet2").Range("B3:B20") i = 0 For Each c In refrange If c.Value = "" Then End Else s = Replace(c.Formula, "=", "") Set rng = Evaluate(s) rng.EntireRow.Copy Sheets("Report").Range("A4") _ .Offset(i, 0) _ .PasteSpecial Paste:= _ xlPasteAll, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False i = i + 1 End If Next c Thanks, -- Brian McCaffery |
evalute error
Please ignore - The error was due to me.
I will write out a hundred time, "Always check you data" Thanks, -- Brian McCaffery "Brian" wrote: Tom Ogilvy kindly helps me with the code to evalute for a report. I now have a new related problem. In the following code, the first case statement works, but when I select the second, if fails with runtime error 424. In debug, it highlights the line "Set rng = Evaluate(s)" for the second case. The definition popup states "Cannot jump to "Evaluate" because it is hidden. It actually captures the first c and places in the Report sheet. Do I need to reset something? Am complete novice in excel VBA. Select Case ComboBox1.Value Case "GSOP_0286" Set refrange = Sheets("Sheet2").Range("A3:A20") i = 0 For Each c In refrange If c.Value = "" Then End Else s = Replace(c.Formula, "=", "") Set rng = Evaluate(s) rng.EntireRow.Copy Sheets("Report").Range("A4") _ .Offset(i, 0) _ .PasteSpecial Paste:= _ xlPasteAll, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False i = i + 1 End If Next c Case "GSOP_0287" Set refrange = Sheets("Sheet2").Range("B3:B20") i = 0 For Each c In refrange If c.Value = "" Then End Else s = Replace(c.Formula, "=", "") Set rng = Evaluate(s) rng.EntireRow.Copy Sheets("Report").Range("A4") _ .Offset(i, 0) _ .PasteSpecial Paste:= _ xlPasteAll, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False i = i + 1 End If Next c Thanks, -- Brian McCaffery |
All times are GMT +1. The time now is 06:35 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com