Aynı Değerle Boş Hücreleri Doldurma

[mschumi]

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.

 

[AS3434]

İstediğiniz konu daha 1 saat önce gündemdeydi. Soru sormadan önce lütfen ARAMA yapın.

http://www.excel.web.tr/showthread.php?p=167661#post167661

 

[Ali]

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.

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

=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.

 

[mschumi]

Ali Bey gerçekten çok teşekkür ederim. mükemmel olmuş. Artık zaman kaybetmeyeceğim.

 

[AS3434]

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]

Hatırlatma babından, aradım ama kendi mesajımı bulamadım.