Excel de satır sayıp sildirmek ...

[karapardus23]

Uzun bir Excel listem var. A1 sutundaki verileri 30 satır sayıp silmesini 31. satırı atlamasını(silmesin) ve tekrar 30 satır sayıp silmesi 31. satırı silmesin bu şekilde 15000 satıra kadar devam etmesini istiyorum veya 31 satır sayıp 31.satırı b1, 2. 31 satırı b2, 3. 31 satırı b3 aktarmak için ne yapmalıyım?

 

[Orion1]

B sütununa atar.

Sub satır()
Dim i As Long, sat As Long
Application.ScreenUpdating = False
Range("B:B").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row Step 31
    sat = sat + 1
    Cells(sat, "B").Value = Cells(i, "A").Value
    sat = sat + 1
    Cells(sat, "B").Value = Cells(i, "A").Value
    sat = sat + 1
    Cells(sat, "B").Value = Cells(i, "A").Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[karapardus23]

Yanıtın için teşekkürler ama çalışmadı, işlem tamam diyor ama B sutuna
31.satırlar yazılmıyor.
Nerede hata var anlayamadım

 

[Orion1]

Yanıtın için teşekkürler ama çalışmadı, işlem tamam diyor ama B sutuna
31.satırlar yazılmıyor.
Nerede hata var anlayamadım

örnek dosyayı ekleyin.

 

[Orion1]

ilgili satırı aşağıdaki ile değiştiriniz.

For i = 31 To Cells(65536, "A").End(xlUp).Row Step 31

 

[karapardus23]

Evren bey ilginize teşekkürler.
İşlem başarı ile sonuçlandı.
tekrar teşekkürler

 

[Orion1]

Evren bey ilginize teşekkürler.
İşlem başarı ile sonuçlandı.
tekrar teşekkürler

Rica ederim.
İyi çalışmalar.