Göster_Gizle

[mgcaglayan]

Selamlar;
Ekli dosyada Sayın Leventm tarafından hazırlanan bir çalışmadan kopyala yapıştır yöntemiyle alınmış bir çalışma mevcut. Sayın Leventm'in hazırlamış olduğu çalışmada çok çok iyi çalışmasına rağmen burada kısmen hatalı. Evet hatanın düzeltilmesi nasıl mümkün olur. Þimdiden Teşekkürler.

 

[Levent Menteşoğlu]

Kodlar eksikti aşağıdaki gibi deneyin.

[vb:1:63202943a4]Dim c As Integer
Private Sub CommandButton1_Click()
If c = 1 Then
Application.Visible = False
CommandButton1.Caption = "EXCELİ GÃ?STER"
c = 0
CommandButton1.ForeColor = 16711680
Exit Sub
End If
Application.Visible = True
CommandButton1.Caption = "EXCELİ GİZLE"
CommandButton1.ForeColor = 255
c = 1
End Sub[/vb:1:63202943a4]

 

[mgcaglayan]

Teşekkürler, anlaşıldı