ajay_gajree
Well-known Member
- Joined
- Jul 16, 2011
- Messages
- 518
Hi
I have the below code at the start of a Module,The entire code is a Macro that formats a sheet that I create each day called "Unmatched '+ Todays Date'). So Todays sheet was "Unmatched 1108", which I created and then added my Raw Data to.
I am able to use the rest of the macro (Copied into a separate Module) and run it from the newly created sheet by going to Tools, Macro, etc.
I would like to automate this from a Macro sheet using a Macro Button.
I think I need the below code adapted so that it knows how to select the newly created sheet.
I hope this makes some sense!
Sub process()
Sheets("macro").Select
found = False
found2 = False
b = "xxx"
c = "xxx"
a = ActiveSheet.Index
Do Until found = True And found2 = True
If UCase(Mid(ActiveSheet.Name, 1, 9)) = "UNMATCHED" Then
If found = True Then c = ActiveSheet.Name
found = True
If b = "xxx" Then b = ActiveSheet.Name
a = a - 1
Sheets(a).Select
Else
a = a - 1
Sheets(a).Select
End If
If c <> "xxx" Then found2 = True
Loop
Sheets(b).Select
I have the below code at the start of a Module,The entire code is a Macro that formats a sheet that I create each day called "Unmatched '+ Todays Date'). So Todays sheet was "Unmatched 1108", which I created and then added my Raw Data to.
I am able to use the rest of the macro (Copied into a separate Module) and run it from the newly created sheet by going to Tools, Macro, etc.
I would like to automate this from a Macro sheet using a Macro Button.
I think I need the below code adapted so that it knows how to select the newly created sheet.
I hope this makes some sense!
Sub process()
Sheets("macro").Select
found = False
found2 = False
b = "xxx"
c = "xxx"
a = ActiveSheet.Index
Do Until found = True And found2 = True
If UCase(Mid(ActiveSheet.Name, 1, 9)) = "UNMATCHED" Then
If found = True Then c = ActiveSheet.Name
found = True
If b = "xxx" Then b = ActiveSheet.Name
a = a - 1
Sheets(a).Select
Else
a = a - 1
Sheets(a).Select
End If
If c <> "xxx" Then found2 = True
Loop
Sheets(b).Select