Doğruysa Buton gözüksün Değilse Gözükmesin

[morphey]

Merhaba ;
Arkadaşlar satır sonuna verileri girdikten sonra örneğin bir hücrede evet yazarsam o satırın sonunda bir buton veya yazı gözüksün hayır yazarsam bir buton gözüksün buton şart değil ben o butona tıklayınca veya yazıya aynı klasördeki word açılsın istiyorum yardımcı olursanız müteşekkür kalırım.
Hemen bir örnek koyuyum daha iyi anlaşılması için

 

[hamitcan]

Sayfa içine bir adet CommanButton nesnesi eklemeyi unutmayın.

Private Sub CommandButton1_Click()
'Referanslardan Microsoft Word XX.0 Object Library eklemeyi unutmayın.
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns("l")) Is Nothing Then Exit Sub
    If Target.Text = "EVET" Or Target.Text = "HAYIR" Then
    CommandButton1.Visible = True
    Else
    CommandButton1.Visible = False
    End If
End Sub

 

[morphey]

Hamitcan hocam ;
Gerçekten çok emek vermişsiniz ne kadar teşekkür etsem azdır. Ancak Bir türlü çalıştırmayı başaramıdım hata alıyorum şimdi buton ekliyorum ona sağ kilik yapıp makro ata diyorum kod bölümü açılıyor orda ki varsayılan iki kodların arasına yapıştırıyorum çalıştırınca "Sub kopyala() " bu alanı sarıya boyuyor ne yapmam gerek. Beceriksizliğim ve amatörlüğüm için özür diliyorum.
Olmasada emeğiniz gerçekten takdire şayan çok teşekkür ediyorum gerçekten.

 

[hamitcan]

Kodları, ilgili sayfanın kod bölümüne eklemeniz gerekiyor.