BOŞ SATIRLARI ÜSTTEKİ VERİ İLE DOLDURMA

[ihsanettin]

Selamlar Ekli şekilde dosyam var,

Bir satıda yazı var ve altında boş satırlar var
xxxxxxxx

yyyyyyyy

aradaki satırlara üstteki yazının aynısı ile otomatik tamamlasın istiyorum,

Nasıl yapabilirim.

 

[yanginci34]

Denermisiniz.

 

[turist]

Makro kodu ile çözüm isterseniz; aşağıdaki kodu deneyin.

Sub doldur()
Dim i, son As Long: son = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To son
If Cells(i, 1) = "" Then
Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
Next i
End Sub

 

[Ömer BARAN]

Merhaba.

-- önce ilk veri hücresinden son doldurulması gereken hücreye kadarki alanı seçin,
---F5 tuşuna basın veya GİRİŞ menüsündeki BUL ve SEÇ dğmesine tıkladığınızda açılacak küçük ekranda BOŞLUKLARı seçip TAMAMa tıklayın,
(aralardaki boş hücreler seçili hale gelecektir)
-- formül çubuğuna fareyle tıklayıp ilk dolu hücrenin adresini kullanarak =A2 gibi formül yazın ve
CTRL tuşu basılı durumdayken ENTER tuşuna basın.

İstenilen işlem gerçekeşecektir.
.

 

[hamitcan]

Ben arama yaparken Ömer Bey çözümü göndermiş.
Aşağıdaki linkte Necdet Bey'in çözümü de aynı.
https://www.excel.web.tr/threads/bosluk-doldur.77728/

 

[Korhan Ayhan]

F5 tuşu olması gerekiyor.

 

[Ömer BARAN]

Evet haklısınız Sayın AYHAN. 4 numaralı cevapta gerekli düzeltmeyi yaptım.

 

[ihsanettin]

teşekkürler,