Aynı Değerle Boş Hücreleri Doldurma

Katılım
5 Şubat 2007
Mesajlar
86
Excel Vers. ve Dili
office 2010
Arkadaşlar Merhaba;

Ekte göndermiş olduğum dosyada A sütununda doldurulmasını istediğim hücreler var. doldurulmasını istediğim hücreleri tek işlemle nasıl yapabilirim?

Doldurma kutucuğu işime yaramıyor. çünkü aşağıya doğru uzayıp giden bir listem var. Bir sonraki veriye kadar çek, sonra başkası, sonra başkası şeklinde olabilir ama bu benim istediğim değil çok zaman kaybediyorum.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sn AS3434 sanırım arkadaş boşlukları bir sonraki veriye kadar aynısı ile doldurmak istiyor.

Eğer doğru anladım ise;

Aşağıdaki kodları bir modül içerisine ekleyiniz.


Kod:
Sub boşlukları_doldur()
Dim sayfa As Worksheet
Dim aralik As Range
Dim sonsatir As Long
Dim col As Long
Set sayfa = ActiveSheet
With sayfa
   col = ActiveCell.Column
   Set aralik = .UsedRange
   sonsatir = .Cells.SpecialCells(xlCellTypeLastCell).Row
   Set aralik = Nothing
   On Error Resume Next
   Set aralik = .Range(.Cells(2, col), .Cells(sonsatir, col)) _
                  .Cells.SpecialCells(xlCellTypeBlanks)
   On Error GoTo 0
   If aralik Is Nothing Then
       MsgBox "Boş Hücre yok"
       Exit Sub
   Else
       aralik.FormulaR1C1 = "=R[-1]C"
   End If
   With .Cells(1, col).EntireColumn
       .Value = .Value
   End With
End With
End Sub
Daha sonra A sütununuzu seçip bu makroyu çalıştırınız.


Formül ile isterseniz

B1 hücresine

Kod:
=EĞER(A1="";KAYDIR(B1;-1;0);A1)
yazıp aşağı doğru çekiniz. B sütunundaki değerleri kopyalayıp A sütununa yapıştırınız.
 
Katılım
5 Şubat 2007
Mesajlar
86
Excel Vers. ve Dili
office 2010
Ali Bey gerçekten çok teşekkür ederim. mükemmel olmuş. Artık zaman kaybetmeyeceğim.
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Sn AS3434 sanırım arkadaş boşlukları bir sonraki veriye kadar aynısı ile doldurmak istiyor.
Sayın Ali , haklısınız. Başka işlerle uğraşırken,arada bir de foruma bakmaya kalkınca, bazen soruları tam süzemiyorum.

Sayın mschumi
Sayın Ali, kod ve formülasyonla çözüm sunmuş ama alternatif olması açısından Başka bir kod da ben yazayım.

Sub bos()
For i = 2 To [b65536].End(3).Row
If Cells(i, 1) = "" Then
Cells(i, 1) = Cells(i - 1, 1)
End If
Next
End Sub
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Hatırlatma babından, aradım ama kendi mesajımı bulamadım.
 
Üst