Boş olan hücreye boş yazdırma

[iaslan517]

Merhabalar, I Sütununda boş olan hücrelere en son dolu satırdan önceki olanlara YOK yazdırabilirmiyiz? Yardımlarınızı rica ediyorum.

 

[iaslan517]

Sekmelerdeli listeyi tabloya aktarma

üstteki konudan bağımsız konu açmaya çalıştım fakat hata oldu herkesten özür dilerim

 

[mahmut011]

I sütununu seçin F5 e basın -> Özel ->Boşluklar ->Tamam a tıklayın. Boşluklar seçili hale gelecek. Klavyeden YOK yazıp CTRL + Enter a tuşlayın. denedim.o sütundaki en son dolu olana kadar değilde sayfada son dolu hücrenin hizasına kadar YOK yazdırıyor. Ancak I sütunun tümünü değilde yazdırmak istediğiniz alanı seçerseniz istediğiniz tam olur.(I1:I100 aralığı gibi)

Bu uygulama Sayın Necdet Yeşertener in imzasında bulunuyor.

Özelden sonraki seçeneklere baktığınızda seçtiğiniz alandaki metinleri, sayıları, hataları vb.. seçebiliyorsunuz.

 

[iaslan517]

I sütununu seçin F5 e basın -> Özel ->Boşluklar ->Tamam a tıklayın. Boşluklar seçili hale gelecek. Klavyeden YOK yazıp CTRL + Enter a tuşlayın. denedim.o sütundaki en son dolu olana kadar değilde sayfada son dolu hücrenin hizasına kadar YOK yazdırıyor. Ancak I sütunun tümünü değilde yazdırmak istediğiniz alanı seçerseniz istediğiniz tam olur.(I1:I100 aralığı gibi)

Bu uygulama Sayın Necdet Yeşertener in imzasında bulunuyor.

Özelden sonraki seçeneklere baktığınızda seçtiğiniz alandaki metinleri, sayıları, hataları vb.. seçebiliyorsunuz.

Mahmut bey öncelikle teşekkür ederim bunu makro bloguna eklicemde makro ile yapılabilir mi?

 

[mahmut011]

makro konusunda bilgim yok.

 

[iaslan517]

Makro konusunda yardimlarinizi rica ediyorum

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Makro kaydet yoluyla oluşturup düzenledim:

Sub boş()
    son = Cells(Rows.Count, "I").End(3).Row
    Range("I1:I" & son).SpecialCells(xlCellTypeBlanks) = "boş"
End Sub

 

[iaslan517]

hocam çok teşekkür ederim çalıştı