a yazan hücrenin üzerindeki hücreye b yazsın

[sunkid]

H sütununda boş hücreler ve a yazan hücreler var. istiyorum ki H sütünun da a yazan hücrenin bir üst hücreye b yazsın. bu mümkün mü üstadlar

 

[Korhan Ayhan]

Deneyiniz.

Kod büyük-küçük harf duyarı değildir.

Sub B_DOLDUR()
    For Each Veri In Range("H:H").SpecialCells(xlCellTypeBlanks)
        If UCase(Veri.Offset(1, 0)) = "A" Then
            Veri.Value = "B"
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub