belirli aralıklarla satır silmek

[ahmetyasar]

merhaba 125 sayfalık bir dosyam var ve belirli aralıktaki satırları temizlemem gerekiyor.açıklamalar dosyanın içindedir.yardımcı olabilirmisiniz.

 

[Orion1]

Dosyanız ektedir.

Sub temizle()
Dim say As Byte, i As Long, satir As Collection
Set satir = New Collection
say = 1
Application.ScreenUpdating = False
    For i = 50 To Cells(65536, "A").End(xlUp).Row
        If say <= 12 Then satir.Add i
        If say = 50 Then
            say = 1
            Else
            say = say + 1
        End If
    Next i
    Application.ScreenUpdating = True
    For i = satir.Count To 1 Step -1
        Rows(satir.Item(i)).Delete (xlUp)
    Next
    MsgBox "İşlem tamam"

End Sub

 

[ahmetyasar]

evren bey tesekürler ama sadece hücreleri boşaltmayacak tüm satırı silecekti(yukarı sürükleme gibi)birde yanlız "A" sütunu için düşündünüz sanırım "I" sütununa kadar veri var.kendi düzeltme çabalarım boşa çıktı

 

[Orion1]

evren bey tesekürler ama sadece hücreleri boşaltmayacak tüm satırı silecekti(yukarı sürükleme gibi)birde yanlız "A" sütunu için düşündünüz sanırım "I" sütununa kadar veri var.kendi düzeltme çabalarım boşa çıktı

Tüm satırımı silecek?
Ama bir yöndende I sütununa kadar veri var diyorsunuz.Bu durumda isteğiniz üzre ben tüm satırı silerim.Bir dahada geri dönmem,Haberiniz ola.

 

[ahmetyasar]

sütun kavramını unutalım,olay karışacak.belirttiğim peryotta tüm satırı silip yukarı öteleyecek.Kodu önce başka bir kopyada test edeceğim.merak etmeyin.saygılar.

 

[leumruk]

Merhaba,
Aşağıdaki kodu deneyin: A ve I sütunu aralığını siler.

Sub Sil()
For x = 50 To [a65536].End(3).Row Step 38
Range(Cells(x, "a"), Cells(x + 11, "ı")).Delete Shift:=xlUp
Next
MsgBox "İşlem tamam."
End Sub

 

[Orion1]

sütun kavramını unutalım,olay karışacak.belirttiğim peryotta tüm satırı silip yukarı öteleyecek.Kodu önce başka bir kopyada test edeceğim.merak etmeyin.saygılar.

Dosyayı 2 numaralı mesajda güncelledim.
Oradan deneyebilirsiniz.

 

[ahmetyasar]

leumruk ve evren teşekkürler.yarın şirkette deneyebileceğim.

 

[ahmetyasar]

evren bey.elinize sağlık .saygılar...