CommandButton

[HaRaMi]

Selamlar,
Siteden aldığım kodlarla ekli dosyayı hazırladım, ancak CommandButton5 çalışmadı.
Nerde hata yaptığımı bir türlü bulamadım. Yardımlarınızı bekliyorum.
Şimdiden teşekkürler.

NOT: Sayfa koruma şifresi 11

 

[halit3]

hata virgülden kaynaklanıyor oysa noktalı virgül koyacaktınız

bunu
.ColumnWidths = "20,45,120,10,110,50,50,50"

bununla değiştirin

.ColumnWidths = "20;45;120;10;110;50;50;50"

 

[HaRaMi]

Teşekkürler;
Ancak sorun orda değil, sorun CommandButton5 (excel'i göster-gizle) butonunda, bir türlü safyayı gizlemiyor. Başka bir deyişle buton aktif değil.

 

[Orion1]

Bu iş için en iyi yöntem togglebutton kullanmaktadır.Bununla yaptım.Dosyanız ektedir.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Application.Visible = False
    ToggleButton1.Caption = "EXCELİ GÖSTER"
    ToggleButton1.BackColor = vbGreen
    Else
    Application.Visible = True
    ToggleButton1.Caption = "EXCELİ GİZLE"
    ToggleButton1.BackColor = vbYellow
End If
End Sub

 

[HaRaMi]

Sayın Halit bey, harika
Çok olmaz ise bir şey daha rica edeceğim.
Açılışta excel'i görünmeyecek hale getirebilirmiyiz.

 

[Orion1]

Sayın Halit bey, harika
Çok olmaz ise bir şey daha rica edeceğim.
Açılışta excel'i görünmeyecek hale getirebilirmiyiz.

Eğer bana diyorsanız benim adım halit değil Evren.

 

[HaRaMi]

Özürlerimi lütfen kabul edin

 

[Orion1]

Dosyanız ekte.

Sub Auto_Open()
UserForm1.ToggleButton1.Value = True
UserForm1.Show
End Sub