Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: plas1211 - 29 Mart 2016, 11:46:33

Başlık: Butona tıklayınca hata alıyorum - Yardım
Gönderen: plas1211 - 29 Mart 2016, 11:46:33

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

Kod: [Seç]

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.