Dear all,
ситуация такая:
есть данные на нескольких листах. С листов Ru,Ua, CEE данные надо перенести на общий лист. (количество строк каждый раз разное).
В макросах почти ничего не смыслю, поэтому с напсанием возникли трудности. Помогите найти ошибку. (или может, предложите что-то другое) Спасибо.
Sub MacroCube()
'DATA base aanmaken
Dim CountA
I = 2 'I is row counter for DATA sheet
'J=sheet counter
For J = 8 To 10
For K = 4 To 5000
'K = row counter
Sheets(J).Select
Count = Cells(K, 1) + Cells(K, 2) + Cells(K, 3) + Cells(K, 4) + Cells(K, 5) + Cells(K, 6) + Cells(K, 7) + Cells(K, 8) + Cells(K, 9) + Cells(K, 10) + Cells(K, 11) + Cells(K, 12) + Cells(K, 13)
If Count <> 0 Then Range(Cells(K, 1), Cells(K, 13)).Select Else GoTo 100
Selection.Copy
Sheets("DATA").Select
Cells(I, 1).Select
ActiveSheet.Paste
100 Next K
Next J
End Sub