ExcelBanter - If sheet exists and it is named run this code

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - If sheet exists and it is named run this code (https://www.excelbanter.com/excel-programming/434517-if-sheet-exists-named-run-code.html)

If sheet exists and it is named run this code

I would like to do the following. Can you assist?

If sheet exists and it is named 01,02,03,04,05,05a, then run this code

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
End If
lngRow = lngRow + 1
Loop

If sheet exists and it is named
06,07,07a,08,09,10,10a,11,12,12a,13,13a,14,15,15a, then run this code

Dim dateRow As Long, emptInsert As Boolean
dateRow = 2
Do While dateRow <= Cells(Rows.Count, "G").End(xlUp).Row
emptInsert = Not emptInsert
If emptInsert Then
Rows(dateRow).Insert
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End If
dateRow = dateRow + 1
Loop

If sheet exists and it is named run this code

Jazz, try the below

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Select Case ActiveSheet.Name
Case "01", "02", "03", "04", "05", "05a", "06", _
"07", "07a", "08", "09", "10", "10a", "11", _
"12", "12a", "13", "13a", "14", "15", "15a"
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Select Case ActiveSheet.Name
Case "01", "02", "03", "04", "05", "05a"
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
Case "06", "07", "07a", "08", "09", "10", "10a", "11", _
"12", "12a", "13", "13a", "14", "15", "15a"
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End Select
End If
lngRow = lngRow + 1
Loop
End Select

If this post helps click Yes
---------------
Jacob Skaria

"Jazz" wrote:

I would like to do the following. Can you assist?

If sheet exists and it is named 01,02,03,04,05,05a, then run this code

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
End If
lngRow = lngRow + 1
Loop

If sheet exists and it is named
06,07,07a,08,09,10,10a,11,12,12a,13,13a,14,15,15a, then run this code

Dim dateRow As Long, emptInsert As Boolean
dateRow = 2
Do While dateRow <= Cells(Rows.Count, "G").End(xlUp).Row
emptInsert = Not emptInsert
If emptInsert Then
Rows(dateRow).Insert
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End If
dateRow = dateRow + 1
Loop

If sheet exists and it is named run this code

Hi,

Here's on way

Sub Sonic()
Dim V As Variant
Dim S As String
Dim ws As Worksheet
'Change the next line to your worksheet names
S = "aaa,bbb,ccc,ddd,eee,fff,ggg,hhh"
V = Split(S, ",")
For Each ws In ActiveWorkbook.Worksheets
If Not IsError(Application.Match(CStr(ws.Name), V, 0)) Then

'your code goes here

End If
Next
End Sub

Mike

"Jazz" wrote:

I would like to do the following. Can you assist?

If sheet exists and it is named 01,02,03,04,05,05a, then run this code

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
End If
lngRow = lngRow + 1
Loop

If sheet exists and it is named
06,07,07a,08,09,10,10a,11,12,12a,13,13a,14,15,15a, then run this code

Dim dateRow As Long, emptInsert As Boolean
dateRow = 2
Do While dateRow <= Cells(Rows.Count, "G").End(xlUp).Row
emptInsert = Not emptInsert
If emptInsert Then
Rows(dateRow).Insert
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End If
dateRow = dateRow + 1
Loop

If sheet exists and it is named run this code

Thank you. I am thankful for your help.

"Jacob Skaria" wrote:

Jazz, try the below

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Select Case ActiveSheet.Name
Case "01", "02", "03", "04", "05", "05a", "06", _
"07", "07a", "08", "09", "10", "10a", "11", _
"12", "12a", "13", "13a", "14", "15", "15a"
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Select Case ActiveSheet.Name
Case "01", "02", "03", "04", "05", "05a"
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
Case "06", "07", "07a", "08", "09", "10", "10a", "11", _
"12", "12a", "13", "13a", "14", "15", "15a"
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End Select
End If
lngRow = lngRow + 1
Loop
End Select

If this post helps click Yes
---------------
Jacob Skaria

"Jazz" wrote:

I would like to do the following. Can you assist?

If sheet exists and it is named 01,02,03,04,05,05a, then run this code

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
End If
lngRow = lngRow + 1
Loop

If sheet exists and it is named
06,07,07a,08,09,10,10a,11,12,12a,13,13a,14,15,15a, then run this code

Dim dateRow As Long, emptInsert As Boolean
dateRow = 2
Do While dateRow <= Cells(Rows.Count, "G").End(xlUp).Row
emptInsert = Not emptInsert
If emptInsert Then
Rows(dateRow).Insert
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End If
dateRow = dateRow + 1
Loop

If sheet exists and it is named run this code

Your instruction is very much appreciated. Thank you a lot!

"Mike H" wrote:

Hi,

Here's on way

Sub Sonic()
Dim V As Variant
Dim S As String
Dim ws As Worksheet
'Change the next line to your worksheet names
S = "aaa,bbb,ccc,ddd,eee,fff,ggg,hhh"
V = Split(S, ",")
For Each ws In ActiveWorkbook.Worksheets
If Not IsError(Application.Match(CStr(ws.Name), V, 0)) Then

'your code goes here

End If
Next
End Sub

Mike

"Jazz" wrote:

I would like to do the following. Can you assist?

If sheet exists and it is named 01,02,03,04,05,05a, then run this code

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
End If
lngRow = lngRow + 1
Loop

If sheet exists and it is named
06,07,07a,08,09,10,10a,11,12,12a,13,13a,14,15,15a, then run this code

Dim dateRow As Long, emptInsert As Boolean
dateRow = 2
Do While dateRow <= Cells(Rows.Count, "G").End(xlUp).Row
emptInsert = Not emptInsert
If emptInsert Then
Rows(dateRow).Insert
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End If
dateRow = dateRow + 1
Loop