x yazılan satırın 5 sutun yanına buton ile x yazdırma

[kneehot]

Arkadaşlar yapmak istediğim yazdır sütunuda x koyduğum satırdaki durum sütununa butona tıkladığım zaman x yazması. Anlaşılır olabilmesi için örnek ekledim. Şimdiden yardımlarınız için çok teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub xyaz()
For i = 5 To Cells(Rows.Count, "E").End(3).Row
    If Cells(i, "E") = "X" Or Cells(i, "E") = "x" Then
        Cells(i, "E") = "X"
        Cells(i, "j") = "X"
    End If
Next
End Sub

 

[kneehot]

Çok teşekkür ederim.