Loop vil ikke stoppe, selvom cellen er tom
Hej eksperter,har flg. VBA kode:
Sub From_SelectedStocks_to_Calculator()
Worksheets("Calculator").Activate
n = 1
p = 1
Do While Cells(p, 1).Value <> ""
Cells(p, 1).Select
Selection.Copy
Worksheets("Calculator").Activate
n = n + 12
Cells(n, 2).Select
ActiveSheet.Paste
p = 1 + 1
Loop
End Sub
_________________________
Jeg ønsker at den stopper med at kopier den næste værdi, når værdien er tom, men den bliver ved med at kopier den sidste værdi i kolonne a flere gange - indtil excel crasher.
Kan nogen hjælpe?
