60 satırda bir, 9 satır silmek için makro.

[gencog]

Merhaba,

enteresan bir durumdan dolayı 307. satırdan 315.satır da dahil olmak üzere, 60 satır da bir bu satırları silmem gerekiyor. 12000 kayıt var manuel silmeden bir makro oluşturulabilir mi?
307-315
367-357
427-475.... şeklinde 12000. satıra kadar, bu satırları silmem lazım.

Teşekürrler...

Genco

 

[dEdE]

Merhaba,
Satır silme işlemlerinde en sondan başlamak gerekiyor. 12000. satırdan itibaren geriye doğru s,lmek için hangi satırların silineceğine ilişkin birkaç örnek verebilir misiniz? Ayrıca yukarıda 367-357 demişsiniz. Bir önceki ve bir sonraki örneğinizle uyuşmuyor. Makro ile silebilmek için kurallar belli olmalı. Örneğinizde ikinci sütunda yazılan sayılarda belli bir kural göremedim.

 

[gencog]

Örneğinizde ikinci sütunda yazılan sayılarda belli bir kural göremedim.

Merhaba yazım hatası olmuş.

Sıra şu şekilde olmalı;

307-315
367-375
427-435
487-495

Kural,60 atlayarak gidiyor ve 307ile 315 de dahil 9 satır silmesi gerekiyor.

En son silinmesi gereken :

11827-11835, geriye gidersek;
11767-11775
11707-11715 şeklinde
.
.
.
307-315'e kadar belirtilen aralıkları silmesi geride kalanları tutması gerekiyor.

veya tersten azalan şekilde yazmak gerekiyorsa;

11835-11827 arasındaki satırlar,
11775-11767 " "
11715-11707
.
.
315-307 satırında son bulmalı.

Teşekkürler.

Genco

 

[Necdet]

Merhaba,

Aşağıdaki kodları dosyanızın kopyasını aldıktan sonra dener misiniz.

A sütununun dolu olduğu varsayılmıştır.

Sub SatSil()
 
    Dim i   As Long
    
    i = 307
    
    Do
        Rows(i & ":" & i + 9).Delete
        i = i + 50
    Loop While Cells(i, "A") > ""
    
End Sub

 

[gencog]

Makro için çok teşekkür ederim küçük bir hatayla çalışıyordu, bir satır fazla siliyordu.

i + 8

i = i + 51


şekinde düzelttim sorunsuz çalıştı.

Sağolun, sorun çözüldü.

 

[Necdet]

Makro için çok teşekkür ederim küçük bir hatayla çalışıyordu, bir satır fazla siliyordu.

i + 8

i = i + 51


şekinde düzelttim sorunsuz çalıştı.

Sağolun, sorun çözüldü.

Pek fazla denememiştim kendimde örnek dosya hazırlamaya üşendim, hatayı da bulduğunuza göre güle güle kullanınız.