Boş Satırları Aradan çıkarma

[YusufTure]

İlgili dosyam Ektedir.

İlginiz için Şimdiden Teşekkürler

 

[Murat OSMA]

Deneyiniz...

Sub Emre()
    Dim i As Integer
    For i = Range("D100").End(3).Row To 2 Step -1
        If Cells(i, "D") = "" Then
            Rows(i).Delete
        End If
    Next i
    i = Empty
End Sub

 

[YusufTure]

Bu Kodu Nereye Koyacağım konusunda bilgi verirmisiniz ? yada uygulanmışını yapabilirmisniz dosyada

ilginiz için teşkkürler.

 

[Murat OSMA]

Sayfadayken ALT + F11 tuşlarına basın. Karşınıza VBE Penceresi gelecek. Üstteki File - Edit - View - Insert menülerinden Insert'i seçin ve açılan menüden de Module'yi tıklayın.
Karşınızı boş beyaz bir sayfa gelecek. Verdiğim kodu oraya yapıştırın ve F5 tuşuna basın. Şu an makro çalıştı ve istediğiniz işlemler gerçekleşmiş olması gerekiyor.
Şimdi sayfaya dönün ve Ekle menüsündeki Şekiller'den sayfaya herhangi bir şekil ekleyin. O şekil üzerinde sağ tıklayın ve açılan Menüden Makro Ata'yı seçtikten sonra karşınıza makroların listelendiği bir pencere gelecek, oradan makro adını (Emre) seçip Tamam butonuna basın...

 

[YusufTure]

Dediklerini yaptım ama tek seferliğine oluyor galiba ama tam da anlamadım...

ben size bir format göndereyim uygulamasını yaparsanız çok sevinirim.

 

[Murat OSMA]

Söylediğinizi tam olarak anlamadım..

Dosyayı ekliyorum. Düğmeye Makro nasıl atanır, onu önceki mesajımda belirttim. Aklınızda bulunsun..