P
pauluk
What do i need to change in this piece of code so it copies the whol
row and not just the first column of the row?
Sub movedata()
Dim i As Integer
Dim x As Integer
Dim mySheet As Integer
Dim mySheetRow As Integer
i = 1
While Cells(i, 1) > ""
x = Cells(i, 1).Row Mod 8
If x = 1 Then
mySheet = 1
mySheetRow = mySheetRow + 1
If mySheetRow = 0 Then mySheetRow = 8
Else
mySheet = mySheet + 1
End If
Worksheets(mySheet + 1).Cells(mySheetRow, 1) = Cells(i, 1)
i = i + 1
Wend
End Su
row and not just the first column of the row?
Sub movedata()
Dim i As Integer
Dim x As Integer
Dim mySheet As Integer
Dim mySheetRow As Integer
i = 1
While Cells(i, 1) > ""
x = Cells(i, 1).Row Mod 8
If x = 1 Then
mySheet = 1
mySheetRow = mySheetRow + 1
If mySheetRow = 0 Then mySheetRow = 8
Else
mySheet = mySheet + 1
End If
Worksheets(mySheet + 1).Cells(mySheetRow, 1) = Cells(i, 1)
i = i + 1
Wend
End Su