Userform ile Sayfalar Arasında Geçiş Yapma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Lotus2024

Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,
Bir konuda yardımınızı rica ediyorum.
DİYELİM Kİ 5 ADET USERFORM'UM VAR. ÇALIŞMA KİTABINI AÇTIĞIMDA ÜZERİNDE ŞİFRELİ GİRİŞE İZİN VEREN USERFORM1 AÇILSIN DİREKT. SONRA ANAUSERFORM OLAN USERFORM2 ÜZERİNDEKİ COMMANDBUTTON1'E TIKLADIĞIMDA USERFORM2 KAPANIP USERFORM3 AÇILSIN, USERFORM3 ÜZERİNDEKİ COMMANDBUTTON1'E TIKLADIĞIMDA USERFORM3 KAPANIP USERFORM4 AÇILSIN. AYRICA USERFORM2 ÜZERİNDEKİ COMMANDBUTTON2'YE TIKLADIĞIMDA "SHEET1" SAYFASINA GİTSIN. "SHEET1" SAYFASI ÜZERİNDEKİ BUTON"A TIKLADIĞIMDA İSE "SHEET1" AKIŞ SAYFASI KAPANIP USERFORM2 AÇILSIN. USERFORM3 İÇİN" SHEET2", USERFORM4 İÇİN "SHEET3" ŞEKLİNDE OLSUN.
DENEDİĞİM KODLARDA YA USERFORM GEÇİŞLERİNDE YENİ USERFORM AÇILDIĞINDA MEVCUT USERFORM DA AÇIK KALIYOR, YA DA USERFORM AÇIKKEN ÇALIŞMA SAYFASI VEYA KOD SAYFASI AÇIK KALIYOR. ÖZETLE İLK USERFORM'U AÇTIĞIMDA ÇALIŞMAMA USERFORMLARLA DEVAM EDEYİM. SEÇTİĞİM ÇALIŞMA SAYFASINA GİTMEM GEREKTİĞİNDE, ÇALIŞMA SAYFASI İLE İLGİLİ İŞİM BİTTİĞİNDE TEKRAR BİR BUTONLA ANA USERFORM'A DÖNÜP USERFORMLARLA İŞİMİ SÜRDÜREYİM İSTİYORUM.
 
Çalışma Sayfalarını Kendi İçinde Gruplama
Banka Ekstrelerini Karşılaştırma
Tarihe göre sırala Oylamaya göre sırala
Öncelikle, mesajlarınızda lütfen tamamı büyük harf kullanmayınız.
www.exceldepo.com

Kullanım ve Şartlar

Bu sayfada, Platformumuza kayıt sürecinde üyelerimiz tarafından kabul edilen Şartlar ve Kurallara ilişkin bilgi ve detayları bulabilirsiniz.
www.exceldepo.com www.exceldepo.com

Sorunuza gelecek olursak:
VBA ile belirtilen işlemleri gerçekleştirmek için aşağıdaki adımları izleyebilirsiniz:
Çalışma Kitabı Açıldığında UserForm1'in Açılması:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)
UserForm2'deki CommandButton1'e Tıklandığında UserForm3'ün Açılması:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
UserForm3'teki CommandButton1'e Tıklandığında UserForm4'ün Açılması:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
UserForm2'deki CommandButton2'ye Tıklandığında Sheet1'e Gitmek:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
Sheet1'deki Butona Tıklandığında UserForm2'nin Açılması:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)
UserForm3 için Sheet2'ye Gitmek ve Geri Dönmek:
UserForm3'teki CommandButton2'ye Tıklandığında Sheet2'ye Gitmek:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
Sheet2'deki Butona Tıklandığında UserForm3'ün Açılması:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)
UserForm4 için Sheet3'e Gitmek ve Geri Dönmek:
UserForm4'teki CommandButton2'ye Tıklandığında Sheet3'e Gitmek:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
Sheet3'teki Butona Tıklandığında UserForm4'ün Açılması:
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

Açıklamalar:​

  • Workbook_Open olayı çalışma kitabı açıldığında UserForm1'in açılmasını sağlar.
  • UserForm2'deki CommandButton1_Click olayı, UserForm2'yi gizler ve UserForm3'ü açar.
  • UserForm3'teki CommandButton1_Click olayı, UserForm3'ü gizler ve UserForm4'ü açar.
  • UserForm2'deki CommandButton2_Click olayı, UserForm2'yi gizler ve Sheet1'i aktif hale getirir.
  • Sheet1'deki butona tıklandığında UserForm2'yi tekrar açar.
  • Benzer şekilde, UserForm3 ve UserForm4 için de benzer işlemler uygulanır.
Bu kodları kullanarak, UserForm'lar arasında geçiş yapabilir ve çalışma sayfalarına gidip geri dönebilirsiniz. Her UserForm ve Sheet için benzer kodları kullanarak işlemleri gerçekleştirebilirsiniz.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst