Boşlukları doldurma makrosu

[gertt]

Merhaba.
Kritere uygun boş hücrelere nasıl "B" harfini yazdırabilirim?
Örnek bir dosya ekledim.
Teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Bosluk_Doldur()
 
    Dim sut As Byte, i As Byte
 
    sut = Cells(7, 16).End(xlToLeft).Column
 
    Range("E8:P23").Replace "B", ""
    
    For i = 8 To 23
        If Not Cells(i, "D") = "" Then
            Range(Cells(i, 5), Cells(i, sut)). _
                SpecialCells(xlCellTypeBlanks).Value = "B"
        End If
    Next i
 
End Sub

.

 

[gertt]

Ömer Bey, elinize sağlık.Teşekkür eder,hayırlı geceler dilerim...

 

[gertt]

Merhaba.
Ömer Bey'in yazmış olduğu kodlamada, satırda en az bir tane boş bir hücre varsa kod çalışmakta.Eğer herhangi satırın birinde boş bir hücre yoksa kod çalışmamaktadır.Bu durumu nasıl düzeltebilirim?
Teşekkürler.

 

[tahsinanarat]

ömer beyin kodlarının başına
On Error Resume Next
ilave ediniz.