Excelde Boş Satırı Sildirme

[netwin]

Arkadaslar Ekteki Dosyada Gördüğünüz Gibi Listemde Boş Şatırlar Var.Ben Bu Bos Satırları Sildirmek İstiyorum.
Bu Konuda Bana Yardımcı Olurmusunuz.

 

[Huseyinkis]

Ekli kodları denermisiniz.

Sub boşluk()
For i = Range("A63335").End(3).Row To 1 Step -1
If Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next
End Sub

 

[serqet]

1- Klavyeden F5 tuşuna basın
2- “Özel” butonuna tıklayın açılan pencerede “Boşluklar” seçeneğini işaretleyin
3-”Düzen” mesünüden “Sil” komutunu tıklayın, açılan pencerede “Tüm satır” seçeneğini işaretleyip “Tamam” butonuna tıklayın

 

[netwin]

İlginiz İçin Çok Teşekkür Ederim.Çalıştı Kod.
Peki Outlookda Mesela Mail Attırma İşlemini Otomatik Yaptırıyorum.Ama Yazı Olarak Bir Excelden Bir Değeri Alıp Yazması Lazım.
Bunu Nasıl Yapabilirim.?

 

[Huseyinkis]

İlginiz İçin Çok Teşekkür Ederim.Çalıştı Kod.
Peki Outlookda Mesela Mail Attırma İşlemini Otomatik Yaptırıyorum.Ama Yazı Olarak Bir Excelden Bir Değeri Alıp Yazması Lazım.
Bunu Nasıl Yapabilirim.?

dosyanın bir örneğini ve outlukta nereye nerden ne yazdırmak istiyorsanız detalı bir açıklama ile yeni konu açarsanız yardımcı olmaya çalışırım.

 

[netwin]

Normalde Outlookda kime,ekler mesaj vs...Yaptım.Tek Kalan Kısım Excelden a sheet a7 hücresini Mesaja Yazsın.