İki Veri arasındaki boş satırları doldurmak.

[unur]

Günaydın Arkadaşlar;

Bu soru çalışmamda kullanmak için bana yol gösterecek

A sütünunda çeşitli satırlarda rakamlar var.Örn: A3 hücresinde 2012; A7 hücresinde 1992; A10 hücresinde 2007 gibi rakamlar var.

Yapmak istediğim; A3 hücresindeki 2012 yi sonraki dolu hücre olan A7 ye kadar yazması, A7 hücresindeki 1992 yi sonraki dolu hücre olan A10'a kadar yaynası. bu şekilde A5000 hücresine kadar gitmesi.

Yardımlarınız için Teşekkürler.

 

[Huseyinkis]

ekli codları denermisiniz.

Sub doldur()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
If Cells(i, 1).Value <> "" Then
aaa = Cells(i, 1).Value
Else
Cells(i, 1).Value = aaa
End If
Next
End Sub

 

[hamitcan]

1-A3 hücresine "=A2" formülünü girin.
2-A3 hücresini kopyalayın.
3-A sütünunu seçin, Bul ve Seç menüsünden Özel Git seçeneği içinden Boşlukları seçin.
4-Özel Yapıştır içinden Formüller seçeneğini işaretleyin.

 

[baydeniro]

Sayın Huseyinkis çok teşekkürler, zaman zaman gereksinim duyulan bir konu.

 

[unur]

Teşekkürler Hüseyin bey; elinize sağlık.
Hamitcan hocam sizede teşekkürler. Cahilliğime bağışlayın
3-A sütünunu seçin, Bul ve Seç menüsünden Özel Git seçeneği içinden Boşlukları seçin.
Bunu bulamadım yardımcı olurmusunuz? hangi menünün altında?
teşekkürler.

 

[hamitcan]

Galiba Düzen menüsü içindeydi.

 

[unur]

Arkadaşlar emekleriniz için teşekkürler.
Aşağıdaki linkte Necdet Bey olayı çok güzel açıklamış.
http://www.excel.web.tr/f60/bo-hucreleri-kendinden-nceki-hucre-le-doldurmak-t35705.html

 

[Murat OSMA]

Alternatif:

Sub Emre()
    Dim i As Integer
        For i = 2 To Range("A65536").End(3).Row
            If Cells(i, 1) = "" Then
                Cells(i, 1).FillDown
            End If
        Next i
    i = Empty
End Sub

 

[unur]

Murat Bey İlginiz için teşekkürler.
Zamanınız olursa kodların açıklamasını yapabilirmisiniz? Hangi kod ne işe yarıyor, en azından kodlar hakkında fikir sahibi olmamızı sağlarsınız biz bilemyenler için.
Teşekkürler.