Makroda Çakışma

[atakansefa]

selamlar,

ekli dosyamda minimize ve form gizle göster makrolarını aynanda kullanamıyorum.dosya donuyor ve herhangi bir hata mesajı vermiyor ama iki makroda ayrı olarak çalışıyor.yardımınıza ihtiyacım var arkadaşlar iki makroyuda çakışma olmadan nasıl kullanabilirm ?

 

[fedeal]

Private Sub CommandButton1_Click()
[COLOR="Red"]'UserForm_Initialize[/COLOR]
If UserForm1.Height = 300 Then
    UserForm1.Height = 200
    CommandButton1.Caption = "Göster"
Else
    UserForm1.Height = 300
    CommandButton1.Caption = "Gizle"
End If
End Sub

kırmızı satırı silip deneyin, iyi çalışmalar.

 

[atakansefa]

tekrar teşekkürler fedeal,iyi çalışmalar.

 

[fedeal]

tekrar teşekkürler fedeal,iyi çalışmalar.

ricaederim,iyiçalışmalar.