Düğmeyi Pasif-Aktif Yapmak

[1Al2Ver]

Merhaba,

Sayfanın koduna kayıtlı, aşağıdaki koda ilave yapmak istiyorum,

Sub_Hesapla()
....................
...................
MsgBox H_H1 & "  Grubu ve  " & H_H2 & "  Hazırlandı", vbInformation, "1Al2Ver"
sor = MsgBox("DİKKAT ! Liste Aktarılacak! Eminmisiniz?", 52, "Uyarı !")
If sor = vbNo Then Exit Sub

Call Aktar_Çıkış

MsgBox "İşlem TAMAM.", vbInformation
End Sub

Şöyle ki ;

Call Aktar_Çıkış öncesi, cevap EVET ise, Pasif_Yap devreye girsin ve 138 nolu düğmeyi pasif yapsın,

Cevap HAYIR ise, 138 nolu düğmeyi aktif yapsın,

Teşekkür ederim.

Sub Pasif_Yap()
Set b1 = ActiveSheet.Buttons("Düğme 138")
  b1.Enabled = False
b1.Font.ColorIndex = 15
End Sub

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub Hesapla()
'....................
'...................
MsgBox H_H1 & "  Grubu ve  " & H_H2 & "  Hazırlandı", vbInformation, "1Al2Ver"
sor = MsgBox("DİKKAT ! Liste Aktarılacak! Eminmisiniz?", 52, "Uyarı !")

If sor = vbYes Then
    Call Pasif_Yap
    Call Aktar_Çıkış
    MsgBox "İşlem TAMAM.", vbInformation
Else
    ActiveSheet.Buttons("Düğme 138").Enabled = True
End If
End Sub

 

[Muzaffer Ali]

Merhaba.
Ben de böyle anladım.

Sub Hesapla()

    MsgBox H_H1 & "  Grubu ve  " & H_H2 & "  Hazırlandı", vbInformation, "1Al2Ver"
    sor = MsgBox("DİKKAT ! Liste Aktarılacak! Eminmisiniz?", 52, "Uyarı !")
    If sor = vbNo Then
        ActiveSheet.Buttons("Düğme 138").Enabled = True
    Else
        Pasif_Yap
        ActiveSheet.Buttons("Düğme 138").Enabled = False
    End If
    Call Aktar_Çıkış
    MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[1Al2Ver]

Ömer bey merhaba,

İlginiz için teşekkür ederim,

HAYIR seçeneğinde ve İşlem Sonlandığında, Düğme 138'in fontunun eski haline gelmesini nasıl sağlaya biliriz ?

Tekrar teşekkür ederim.

 

[1Al2Ver]

Sayın Muzaffer Ali,

İlginiz için teşekkür ederim,

HAYIR seçeneğinde ve İşlem Sonlandığında, Düğme 138'in fontunun eski haline gelmesini nasıl sağlaya biliriz ?

Teşekkür ederim.

 

[1Al2Ver]

Sayın Ömer, Sayın Muzaffer Ali, tekrar merhaba,

Biraz uğraş, deneme-yanılma ile sonuç aldım,

Teşekkür ederim,

Saygılarımla.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.