Verileri otomatik doldurma

[Werther]

Merhaba arkadaşlar.
Bir konu hakkında yardımlarınızı rica edecektim.Dosya ektedir.
Yapmak istediğim alttoplam almak.fakat listedeki firma adı kısmındaki boşlukları doldurmam gerekiyor.Yani faturaların yanına ilgili firmaların ünvanlarını doldurmam gerekiyor.Fakat 12.000 satır olduğu için bu epey zor.Makro ile bu yapılabilirmi?
Saygılarımla..

 

[Merhum İdris SERDAR]

1. A3:a599 aralığını seçiniz F5 yada Ctrl+G Tuşlarına basarak Go (Git) kutusundan Special (Özel) i ve sonra çıkan menüden spaces (boşluklar&#305 seçiniz.

2. Formül Çubuğundan =A2 yazınız ve Ctrl+Enter Tuşuna Basınız.

A sütunudaki boşluklar dolacak.

Alt toplam almak için aşağıdaki kodları kullanın;

Sub AltToplamAL()

toplam = 0
For Each alan In Columns("d").SpecialCells(xlConstants, xlNumbers).Areas

SumAdres = alan.Address(False, False)
toplam = WorksheetFunction.Sum(Range(SumAdres))
alan.Offset(alan.Count, 0).Resize(1, 1) = toplam
toplam = 0

Next alan

End Sub

 

[Werther]

yurttas eline sağlık.tam olarak istediğim bu idi.çok teşekkür ederim.

 

[oborahan]

Selamlar Yurttas,

Hodjam gercekten cok teşekkürler. Sayende cok ciddi bir problemden kurtuldum.