Makronun otomatik çalışması

[Battall]

Merhaba üstatlar,
A1 hücresine veri girdiğimde herhangi bir butona basmadan C1 ile D500 arasında düşeyara yapacak ve sonucu A2 hücresine yazacak.
A1 hücresi her değiştiğinde bu işlemi tekrar edecek.
Sizin için basit benim için zor olan bu konu hakkında yardım rica ederim.

 

[Korhan Ayhan]

Merhaba,

İlgili sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    With Range("A2")
        .Formula = "=IF(A1="""","""",IFERROR(VLOOKUP(A1,C1:D500,2,0),""Bulunamadı!""))"
        .Value = .Value
    End With
End Sub

 

[Battall]

Teşekkür ederim Korhan Hocam. Elinize, Bilginize sağlık

 

[Battall]

Korhan Hocam,
Eğer sıkıntı olmazsa bir husus daha soracaktım.
Eğer A1 hücresi 0 ise Excel sayfasındaki Düğme 1 aktif olsun değilse Pasif olsun. Bu mümkünmüdür.

 

[Mrtolga14]

Korhan Hocam,
Eğer sıkıntı olmazsa bir husus daha soracaktım.
Eğer A1 hücresi 0 ise Excel sayfasındaki Düğme 1 aktif olsun değilse Pasif olsun. Bu mümkünmüdür.

Aktif pasiften kastınız görünüp görünmemesi mi ?

 

[Battall]

Evet Doğrudur Görünüp görünmemesi.
A1 0 ise görünecek değilse kaç olursa olsun görünmeyecek.

 

[Mrtolga14]

Evet Doğrudur Görünüp görünmemesi.
A1 0 ise görünecek değilse kaç olursa olsun görünmeyecek.

If Range("A1") = 0 Then
butonadı.visible = False
else
Butonadı.visible = True
Exit Sub
End If

Şeklinde dener misiniz ?

 

[Battall]

Merhabalar
vermiş olduğunuz kodu 2. mesajdaki kodun End With ten sonraki satıra ekliyorum fakat butonadı tanımlanamıyor.
Benim düğme excelin üzerinde ve tıklayınca Düğme1 olarak gözüküyür