Saladsamurai
11-16-2009, 11:23 AM
Is there a way to do this? I want to loop through a worksheet and test the value in each cell. Is it is a number then I write an "r" to another worksheet like so:
Sub Test()
Dim i as Long
Dim j as Long
For i = 1 to 100
For j = 1 to 100
Select Case Worksheets(1).Cells(i, j)
Case "PDX"
Worksheets(2).Cells(i, j) = Worksheets(1).Cells(i, j)
Case IsNumber
Worksheets(2).Cells(i, j) = "r"
End Select
Next j
Next i
End Sub
Sub Test()
Dim i as Long
Dim j as Long
For i = 1 to 100
For j = 1 to 100
Select Case Worksheets(1).Cells(i, j)
Case "PDX"
Worksheets(2).Cells(i, j) = Worksheets(1).Cells(i, j)
Case IsNumber
Worksheets(2).Cells(i, j) = "r"
End Select
Next j
Next i
End Sub