O Kadar Yapamadım Ki Başlık Bile Bulamadım

[NoiR_DeSiRe]

Ekteki örnekte görüleceği üzere süz veya özet tabloya uygun data oluşturabilmek için uzun kopyala/yapıştırın pratik bir çözümünü arıyorum.Şimdiden Teşekkür Ederim

 

[Necdet]

Sayın NoiR_DeSiRe,

Ekteki dosyayı inceleyiniz, yıllar önce açıklamıştım ama server değişince kendi yazdığım mesajı bile bulamadım.

 

[Seceren]

"kopyala/yapıştırın pratik bir çözümünü arıyorum."

Şeklinde başlık yazabilirsiniz.

Sorunuz için:

Biçim boyacısını kullanın (Sarı renkli fırça)

 

[NoiR_DeSiRe]

bilmek lanetlenmektir,cehalet erdemdir demiş adamın bir nede sallamış...
Necdet Bey sonsuz teşşekkür inanılmaz faydalı bir o kadar çözümü ilginç bir durum çok saolun

 

[N.Ziya Hiçdurmaz]

Makrolu çözüm.
Sub test()
For i = 6 To [b65536].End(3).Row
If Range("b" & i) = "" Then
[b1].Copy
Range("b" & i).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub