Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Macro / Compile Error / Duplicate Declaration
I am trying to modify my macro to perform the same operations twice - I am
trying to do this by copying/paste the macro and making some changes to the copied macro. When I try and run the macro, I get a compiler error "Duplicate Declaration In Current Scope" - the macro stops at the line marketed with *** below. Is there a way to modify the macro to get it to work ? Thank you in advance 'find engine 2 part A Sheets("A").Select Dim rng As Range Set rng = _ Columns(7).Find(What:="1", After:=Cells(Rows.Count, "g"), _ LookIn:=xlFormulas, LookAt:=xlWhole, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ MatchCase:=False) If Not rng Is Nothing Then rng.Select Else MsgBox "1 not found" End If 'cut engine 2 ' Range("G12816").Select (old code) rng.Offset(1, 0).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Sheets("2").Select Range("A1").Select ActiveSheet.Paste Sheets("A").Select Range("H1:I1").Select Selection.Copy Sheets("2").Select Range("H1").Select ActiveSheet.Paste Range("F1:G1").Select Range("G1").Activate Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.ClearContents Sheets("A").Select Range("F1:G1").Select Range("G1").Activate Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Sheets("A").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Range("A1:I11496").Select Selection.Cut Sheets("1").Select Range("A1").Select ActiveSheet.Paste 'find engine 2 part B Sheets("B").Select **** Dim rng As Range **** Set rng = _ Columns(7).Find(What:="1", After:=Cells(Rows.Count, "g"), _ LookIn:=xlFormulas, LookAt:=xlWhole, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ MatchCase:=False) If Not rng Is Nothing Then rng.Select Else MsgBox "1 not found" End If 'cut engine 2 ' Range("G12816").Select (old code) rng.Offset(1, 0).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Sheets("2").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste. |
#2
|
|||
|
|||
Good evening Carl The problem is that you're DIMming the variable rng twice and that's not allowed. That's not to say you can't load rng twice with two different values in the same routine - obviously, providing the first value you load in there is no longer needed.But only DIM it once. If you want two distinct values you could call the second rng variable rng1, and remember to change subsequent lines to make sure that they call the right variable. HTH DominicB -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=383269 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with macro looping and color query function | Excel Discussion (Misc queries) | |||
Playing a macro from another workbook | Excel Discussion (Misc queries) | |||
Date macro | Excel Discussion (Misc queries) | |||
Macro and If Statement | Excel Discussion (Misc queries) | |||
Macro Formula revision? | Excel Worksheet Functions |