D
dkenebre
How do I update the following code to perform the same
task column 63 in 91 (in addition for column 64 in 92,
65 in 93, 67 in 94, 68 in 95, 69 in 96, 73 in 97, 74 in 98,
76 in 99 and 77 in 100)
Sub hashbrown()
Dim holdvar
Dim COUNTERVAR
COUNTERVAR = 510
For CELLCOUNTER = 495 To 2000
If Cells(CELLCOUNTER, 63).Text = "#" And holdvar <> "" Then
Cells(COUNTERVAR, 91).Value = holdvar
COUNTERVAR = COUNTERVAR + 1
holdvar = ""
ElseIf Len(Cells(CELLCOUNTER, 63).Value) > 0 Then
holdvar = Cells(CELLCOUNTER, 63).Value
End If
Next
End Su
task column 63 in 91 (in addition for column 64 in 92,
65 in 93, 67 in 94, 68 in 95, 69 in 96, 73 in 97, 74 in 98,
76 in 99 and 77 in 100)
Sub hashbrown()
Dim holdvar
Dim COUNTERVAR
COUNTERVAR = 510
For CELLCOUNTER = 495 To 2000
If Cells(CELLCOUNTER, 63).Text = "#" And holdvar <> "" Then
Cells(COUNTERVAR, 91).Value = holdvar
COUNTERVAR = COUNTERVAR + 1
holdvar = ""
ElseIf Len(Cells(CELLCOUNTER, 63).Value) > 0 Then
holdvar = Cells(CELLCOUNTER, 63).Value
End If
Next
End Su