skaan
Altın Üye
- Katılım
- 11 Mart 2005
- Mesajlar
- 261
- Excel Vers. ve Dili
- Microsoft 365
- Altın Üyelik Bitiş Tarihi
- 12-11-2025
User Form Aktif Ãken Excelde Nasıl Islem Ypılabılınır
Merhaba,
Excel Sayfasında bir userform olusturdum ve bu form uzerınde sayfalara ulasmak ıcın Command Buton olusturdum. Buraya kadar hersey ıyı ancak sayfada bu userformu cagırdıgım zaman user fırm ekranda ıken sayfada herhangi bir degısıklık yapamıyorum. Ben ekranda userform gozukurkende sayfada degısıklık yapmak istıyorum. Yazdıgım kodları asagıda belırttım.. Acaba bunu ıcın ne yapmam gerekli . Yardımcı olabılırsenız cok sevınırım. Tesekkurler..Hayırlı Gunler dilerım..
Merhaba,
Excel Sayfasında bir userform olusturdum ve bu form uzerınde sayfalara ulasmak ıcın Command Buton olusturdum. Buraya kadar hersey ıyı ancak sayfada bu userformu cagırdıgım zaman user fırm ekranda ıken sayfada herhangi bir degısıklık yapamıyorum. Ben ekranda userform gozukurkende sayfada degısıklık yapmak istıyorum. Yazdıgım kodları asagıda belırttım.. Acaba bunu ıcın ne yapmam gerekli . Yardımcı olabılırsenız cok sevınırım. Tesekkurler..Hayırlı Gunler dilerım..
Kod:
Private Sub CommandButton1_Click()
Sheets("KDV_1").Select
Range("a1").Select
End Sub
Private Sub CommandButton10_Click()
Sheets("Madde24 Stopaj").Select
Range("a1").Select
End Sub
Private Sub CommandButton11_Click()
If UserForm1.Height = 208 Then
UserForm1.Height = 50
CommandButton11.Caption = "Göster"
Else
UserForm1.Height = 208
CommandButton11.Caption = "Gizle"
End If
End Sub
Private Sub CommandButton2_Click()
Sheets("Muhtasar").Select
Range("a1").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("KDV_2").Select
Range("a1").Select
End Sub
Private Sub CommandButton4_Click()
Sheets("Ankara SSK").Select
Range("a1").Select
End Sub
Private Sub CommandButton5_Click()
Sheets("Ankara Emekli SSK").Select
Range("a1").Select
End Sub
Private Sub CommandButton6_Click()
Sheets("Merkez Emekli SSK").Select
Range("a1").Select
End Sub
Private Sub CommandButton7_Click()
Sheets("Merkez SSK").Select
Range("a1").Select
End Sub
Private Sub CommandButton8_Click()
Sheets("İzmir SSK").Select
Range("a1").Select
End Sub