Check value on another sheet
Brad,
The variable TheCol is not defined/initialized. Try:
Do Until Worksheets("qcust").Cells(TheRow, 1) = ""
--
Hope that helps.
Vergel Adriano
"Brad" wrote:
Thanks for taking the time to read my question.
I have 2 sheets and am on the first one. The Second one "qcust" has my data
on it and I want to go through it row by row until there is no data left.
Why can't I do this? It gives me an application error
Do Until Worksheets("qcust").Cells(TheRow, TheCol) = ""
Here is the full code.
Sub MergeAndPrint()
Dim TheRow As Integer
TheRow = 2
Worksheets("qcust").Select
Do Until Worksheets("qcust").Cells(TheRow, TheCol) = ""
Range("D3") = Sheets("qcust").Cells(TheRow, 2).Value
Range("D4") = Sheets("qcust").Cells(TheRow, 3).Value
Range("D8") = Sheets("qcust").Cells(TheRow, 1).Value
TheRow = TheRow + 1
Loop
MsgBox "Complete"
End Sub
Thanks,
Brad
|