Butona tıklayınca hata alıyorum

[plas1211]

Merhaba,
bir butonum var ve butona basınca hata alıyorum. Kodlarım;

Private Sub CommandButton1_Click()

    If Not (Target.Column = 4) Then Exit Sub
    On Error Resume Next
    
    If Target.Value Like "*excel*" Then
        Target.Offset(0, -2).Value = "Office"
        
    End If
    
    
End Sub

D sütununa girilen "excel" kelimesini gördüğün zaman "B" sütununun ilgili satırına "Office" kelimesini yazdırmaya çalışıyorum.

Yardımcı olursanız sevinirim.

 

[Orion1]

target.column yerine activecell.column kullanınız.