Koşullu Aktif - Pasif Yapmak ?

[Efkan.]

Sayfa1deki E15 hücresinde Dinamik yazıyor ise Sayfa2deki Düğme 1 butonum aktif olsun istiyorum.

E15 te Statik yazıyor ise Düğme 2 butonum aktif olsun.

nasıl yapabilirim ?

 

[Emir Hüseyin Çoban]

. . .

CommandButton özellikleri isteğinizi yapmak için daha uygun. Buton olarak bu nesneyi kullanın.
Kodları boş bir modüle yapıştırın ve tablonuzu kaydedip, kapatın.
Yeniden açtığınızda istediğiniz işlemi gerçekleştirir.

Sub auto_open()

    Sayfa1.CommandButton1.Enabled = False
    Sayfa2.CommandButton1.Enabled = False

    If Sayfa1.Range("E15") = "Dinamik" Then
        Sayfa2.CommandButton1.Enabled = True
    Else
        Sayfa2.CommandButton1.Enabled = False
    End If

    If Sayfa1.Range("E15") = "Statik" Then
        Sayfa1.CommandButton1.Enabled = True
    Else
        Sayfa1.CommandButton1.Enabled = False
    End If

End Sub

. . .

 

[uzmanamele]

Merhaba

Sayfa2'nin kod bölümüne yazarak deneyiniz.

Private Sub Worksheet_Activate()
If Sheets("sayfa1").Range("E15").Text = "Dinamik" Then
CommandButton1.Visible = False
CommandButton2.Visible = True
End If
If Sheets("sayfa1").Range("E15").Text = "Statik" Then
CommandButton1.Visible = True
CommandButton2.Visible = False
End If
End Sub

 

[Efkan.]

teşekkür ederim ikisini birleştirince istediğim gibi oldu.
"Visible" yapınca buton görünmez oluyordu.
Diğerinde ise statik değişip dinamik olduğu halde butonlarda değişme olmuyordu.
tekrar çalıştırmak gerekiyordu, yani run dedikten sonra değişme oluyordu.
ben de ikisini birleştirdim

bu arada hücre kaymış onu değiştirdim o yüzden E9

Private Sub Worksheet_Activate()
If Sheets("Sayfa1").Range("E9").Text = "Statik" Then
CommandButton1.Enabled = True
CommandButton2.Enabled = False
End If
If Sheets("Sayfa1").Range("E9").Text = "Dinamik" Then
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If

End Sub