Hello
on sheet1 i have 24 columns 12 of which represent the months of the
year with the adjacent column containg containing either a letter D or
N, denoting wether a day or night shift is worked on particular date.
how can i best represent this in VBA so that i can 'loop' thru each day
of each month and look across to the adjacent column to see what shift
is worked.
regards
San

maybe something like this. i assumed jan was in a and jan 1st - 31 was in row
2 - 32

Sub test()
Dim i As Long, z As Long
z = 1
For i = 1 To 24 Step 2
For z = 2 To 32
If UCase(Cells(z, i).Offset(, 1).Value) = "N" Then
MsgBox "found N"
ElseIf UCase(Cells(z, i).Offset(, 1).Value) = "D" Then
MsgBox "found D"

End If

Next
Next
z = z + 1
End Sub

--


Gary


wrote in message
oups.com...
Hello
on sheet1 i have 24 columns 12 of which represent the months of the
year with the adjacent column containg containing either a letter D or
N, denoting wether a day or night shift is worked on particular date.
how can i best represent this in VBA so that i can 'loop' thru each day
of each month and look across to the adjacent column to see what shift
is worked.
regards
San

Gary Keramidas wrote:
maybe something like this. i assumed jan was in a and jan 1st - 31 was in row
2 - 32

Sub test()
Dim i As Long, z As Long
z = 1
For i = 1 To 24 Step 2
For z = 2 To 32
If UCase(Cells(z, i).Offset(, 1).Value) = "N" Then
MsgBox "found N"
ElseIf UCase(Cells(z, i).Offset(, 1).Value) = "D" Then
MsgBox "found D"

End If

Next
Next
z = z + 1
End Sub

--


Gary


wrote in message
oups.com...
Hello
on sheet1 i have 24 columns 12 of which represent the months of the
year with the adjacent column containg containing either a letter D or
N, denoting wether a day or night shift is worked on particular date.
how can i best represent this in VBA so that i can 'loop' thru each day
of each month and look across to the adjacent column to see what shift
is worked.
regards
San


Thanks Gary
worked perfectly
San

you're welcome, glad it did what you needed. had an extraneous z=1 in my code,
but it shouldn't hurt anything

--


Gary


wrote in message
ups.com...

Gary Keramidas wrote:
maybe something like this. i assumed jan was in a and jan 1st - 31 was in row
2 - 32

Sub test()
Dim i As Long, z As Long
z = 1
For i = 1 To 24 Step 2
For z = 2 To 32
If UCase(Cells(z, i).Offset(, 1).Value) = "N" Then
MsgBox "found N"
ElseIf UCase(Cells(z, i).Offset(, 1).Value) = "D" Then
MsgBox "found D"

End If

Next
Next
z = z + 1
End Sub

--


Gary


wrote in message
oups.com...
Hello
on sheet1 i have 24 columns 12 of which represent the months of the
year with the adjacent column containg containing either a letter D or
N, denoting wether a day or night shift is worked on particular date.
how can i best represent this in VBA so that i can 'loop' thru each day
of each month and look across to the adjacent column to see what shift
is worked.
regards
San


Thanks Gary
worked perfectly
San