7 satırdan başla 2 satır atla bir satır sil

[a_self_lion]

Arkadaşlar benim bir taplom var

a1 b1,2 c1,2 d1,2 yazılar var bu böyel
a2 ......
a3 boşluk
a4 ....
a5 .....
a6 boşluk...
...
....
yani böyle 2 satır dolu bir satır boş şeklinde devam ediyor
a1000 a1500 e kadar benim burda yapmam gereken şu fornext döngülerinini kullanarak 7 satırdan başlasın silsin 2 atlasın bir silsin şeklinde taki a1500 e gelene kadar böyle devam etsin ki
o boş olan satırları silebileyim böyle bir makroyu yaparsanız çok minnetter kalacağım teşekkürler şimdiden....

 

[danersin]

Aşağıdaki kod son dolu hücreden başlayarak a sütunundaki hücre boş ise tüm satırı silerek 200. satıra kadar gelir.

Sub Makro1()
Application.ScreenUpdating = False
sonsat = Cells(65536, 1).End(xlUp).Row
For i = sonsat To 200 Step -1
If Cells(i, 1) = "" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub

 

[TRABLUS]

Burada şunuda yapabilirsiniz. Sırasıyla
Araçlar > Makro > Yeni Makro kaydet, dedikten sonra listenizde veri süz işlemi yapın ve silmek istediğiniz sütunda boş hücreleri seçin, çıkan bütün boş satırları komple bloklayıp, satır sil işlemini yapın ve makro kaydını durdurun.
Bundan sonraki listenizde de kaydettiğiniz bu makroyu sürekli kullanabilirsiniz.

 

[a_self_lion]

arkadaş olmadı yaa ben anlatamadım galiba bak şimdi sana
örnek gönderiyorum ekte bir tane ona göre bakarsan çok daha iyi
olur şimdiden eşkkürler...

 

[TRABLUS]

Bir tane rastgele yeni makro kaydedin (Araçlar>makrolar>yeni makro kaydet), tekrar araçlar>makrolar>biraz önce kaydettiğiniz makronuzu secin ve adımla deyin içine aşağıda ki kodları yazın, ve çalıştır deyin.

    Columns("A:C").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="="
    Rows("7:1500").Select
    Selection.Delete Shift:=xlUp

 

[a_self_lion]

arkadaşım hepsini siliverdiya bu
sanırım öyle olmayacak
mesala bir döngü yapmaliyız ilk başlayacak satır 7 olacak ve 2 atlayacak bir silecek bu döngü 1000 defa falan dönecek
böyle bir kod yazmalıyız bence ama nasıl yazılacağını bilmiyorum
daha önce bir arkadaş yapmıştı bilgisayarım çökünce bulamıyorum şimdi
:arkadas:

 

[danersin]

Benim verdiğim kod örnek dosyanızda gayet güzel çalışıyor ve sarı ile boyadığınız boş satırları siliyor. Tabi kodda 200 olan satır sayısını ihtiyaca göre değiştirirseniz. onu bir yapıp deneyin.

 

[Necdet]

Sayın a_self_lion,
Bunu yapmak için formüle, VBA ya gerek yokki.

Dosyanızın tamamını seçin, Ctrl+G yada F5 e basın, çıkan menüden Special (Ã?zel) i seçin, Ordan Blanks(Boşluk) seçin ve Fareyle Sağ tıklayıp delete(sil) i seçin, size bir menü daha gelir Cell Up (hücre yukarı sanırım) ı seçtimi işlem tamam.
İyi Çalışmalar

 

[keniken]

Sn. Necdet Yesertener

Söylediğiniz güzel bi özellikmiş..Teşekkürler k::

 

[Necdet]

Rica ederim Sayın keniken,

 

[TRABLUS]

Sayın Necdet_Yesertener,
Verdiğiniz örnek çok güzel ama burada atladığınız bir konu var, diyelim ki;
A23 dolu,B23 dolu, C23 boş ozaman hücreleri yukarı sürükleyince, C24'ün verisi A23 ve B23'ün karşılığına gelir ki, buda önceki verilerin kaymasına neden olabilir.
Edit; soruda istenen satır silme işi, sizin verdiğiniz örnek boş hücre silmede bayağı yararlı olur.

 

[Necdet]

Sayın TRABLUS, o tehlike var ama arkadaşın dosyasında yoktu, o yüzden bu yöntemi önerdim. Ve Haklısınız tabiki

 

[a_self_lion]

arkadaşlar teşkkür ederim sayın Trablus dediği gibi hüçrelerde boşluklarda var
onun için o işlem olmaz çünkü onu da denedim teşekkürler

 

[a_self_lion]

Columns("A:C").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="="
Rows("7:1500").Select
Selection.Delete Shift:=xlUp

SAYIN arkadaşım yalnız bunu deneyince hepsini siliyor :arkadas:

 

[SGM020]

Ekteki dosyayı deneyin

 

[a_self_lion]

ARKADAÞIM TEÞEKKÜLER İÞİME YARADI ÇOK SAÐOLASIN :arkadas: