Makro ile boşlukları doldurmak

[bmutlu966]

Ekteki dosyadaki gibi A kolonunda bazı metinler var. Ancak bu metinlerin altında aynı metinle dolması gereken boşluklar var. detay ekli dosyada...

 

[Mahmut Kök]

Aşağıdaki kodları kullanabilirsiniz.

Sub doldur()
For t = 1 To 42000
If Cells(t, "a") <> Empty Then deger = Cells(t, "a")
If Cells(t, "a") = Empty Then Cells(t, "a") = deger
Next
End Sub

 

[bmutlu966]

Çok Teşekkürler.

 

[tahsinanarat]

Hangi sutunda boşluk dolduracaksanız imleç o zununda bulunsun
aşağıda kodları denermisiniz (evvece bu siteden temin ettiğim kodlar, kim yazmışsa eline sağlık)

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