Klopot z petla

[lala222]

Witam,

Dzisiaj sie zabralem za pierwszy skrypt VBA i mam kłopot z pętlą while, chce aby sprawdzała czy komórka jest pusta. Jeśli tak, to ma wkleić zaznaczony obszar. Jeśli nie to ma sprawdzić następny wiersz poniżej. Pętla ma się zamknąc po wklejeniu. Nie jestem doświadczony w pisaniu skryptow, wiec prosze o pomoc.

 

Skrypt wyglada tak:

 

Dodam jeszcze,ze 1 petla dziala prawidlowo (co dla mnie jest duzym sukcesem) potrzebuje jedynie naprawic te druga

 

 

Sub macro3()

Dim wiersze, i As Integer

For wiersze = 1 To 2

i = wiersze * 20

Range("A1").Select

Selection.Offset(wiersze, 0).Resize(Selection.Rows.Count, _

Selection.Columns.Count + 11).Select

Selection.Cut

Range("A1").Select

ActiveCell.Offset(1, i).Select

Do While ActiveSheet.Paste

If ActiveCell.Value = 0 Then

ActiveSheet.Paste

Else

ActiveCell.Offset(1, 0).Select

End If

Loop

Next wiersze

End Sub

[lala222]

spoko udalo mi sie to zrobic juz samemu, temat do zamkniecia