özet tablo boşluk doldurma

[muzzymania]

İyi Günler ekteki gibi her özet tablo alışımda verilerin altı boş gelioyr bu boşluğu dolduracak bir macro istiyorum , formul işe yaramıyor çünkü çok büyük bir data , macrosunu nasıl yapabiliriz önerilerinizi bekliyorum saolun

151 5
6
153 4
7
9

 

[Merhum İdris SERDAR]

.

Deneyin.

Sub Macro1()

    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Range("A2").Select
End Sub

.

Makrosuz:


1. A:A alanını seçin.
2. Ctrl+G tuşlarına basarak yada F5 tuşuna basarak GoTo / Git dialog kutusunu açın.
3. Dialog kutusunda Special /Özel), Blanks /Boşluklar seçeneğini işaretleyip, OK'ye basın.
4. Formül çubuğuna =A2 yazıp, Ctrl+Enter tuşlarına aynı anda basın.




.

 

[Necdet]

İyi Günler ekteki gibi her özet tablo alışımda verilerin altı boş gelioyr bu boşluğu dolduracak bir macro istiyorum , formul işe yaramıyor çünkü çok büyük bir data , macrosunu nasıl yapabiliriz önerilerinizi bekliyorum saolun

151 5
6
153 4
7
9

Sayın yurttaş yanıtlamış aşağıdaki linkte de (Excel Dersanesi) detay var

Boş Hücreleri Kendinden Önceki Hücre İle Doldurmak

 

[muzzymania]

cevaplarınız için çok teşekkür ederim fakat bu 145 000 satır olduğu için çalışmıyor hata veriyor ekte tüm veriyi gönderiyorum.Diğer f5 li anlatımı yapmıştım olmamıştı macrosuda olmadı malesef daha önce macrosunu yapmıştık forumda ama bulamıyorum birtürlü...yardımcı olursanız çok sevinirim

for döngüsü kullanmıştık daha önceki çalışmada

 

[muzzymania]

dosya ektedir

 

[Necdet]

Merhaba,

Seçimin fazla olduğu hakkında verdiği hata için çalışmıyor, aşağıdaki kodları kullanabilirsiniz.

Sub Doldur()
Dim i As Long
Application.ScreenUpdating = False
For i = 3 To [A1048576].End(3).Row
    If Cells(i, "A") = "" Then Cells(i, "A") = Cells(i - 1, "A")
Next i
Application.ScreenUpdating = True
End Sub

 

[muzzymania]

çokk teşekkür ederim ilginize bu işimi gördü, herkes faydalanabilir

 

[sscey]

Teşekkürler çok işime yaradı...