try this
Sub new_macros()
Dim wk As Worksheet
Dim shtnms
Dim i As Integer
Application.DisplayAlerts = False
shtnms = Array("T1 < 30", "T1 > 30", "T2 < 30", "T2 > 30", "TC")
'del exisitng sheets except sheet1
For Each wk In ThisWorkbook.Sheets
If UCase(wk.Name) <> UCase("Sheet1") Then
Wow! Thank you, much quicker and more elegant than my code. One last
question with it. If i want both TY Code (column X) 'TC' and 'TJ' to map
to the TC sheet, how would i change the code to do it? I wasn't able to by
adding "or "TJ"" to the first Case "TC". or making a new case and adding
i
hi Geff,
I have made few changes in the macro. Try this updated one see if it helps
Sub new_macros()
Dim wk As Worksheet
Dim shtnms
Dim i As Integer
Application.DisplayAlerts = False
shtnms = Array("T1 < 30", "T1 > 30", "T2 < 30", "T2 > 30", "TC", "TM", "TJ")
'del exisitng sheets except sheet1
I made a sample file with hypothetical information since i can't give out
real addresses and donation history. In this example, i have 2 without a
last name and it only skips the first one, again not sure why. I've also
attached the code i'm using to run the macro. Thanks for the help!
On Mo
Can u share a sample file
On Mon, Aug 5, 2013 at 10:50 PM, Geoff wrote:
> Hi,
>
> I have a macro written that will check if a value in column X matches a
> specified value, if it does the row gets copied onto another tab and then
> the macro keeps looping to evaluate all the rows. However, whe
Hi,
I have a macro written that will check if a value in column X matches a
specified value, if it does the row gets copied onto another tab and then
the macro keeps looping to evaluate all the rows. However, when cell A# is
blank, but there's data in the rest of the cells in that row the macr
