Userform ile Sayfalar Arasında Geçiş Yapma

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

Kısa Açıklama

Userform ile Sayfalar Arasında Geçiş Yapma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
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.
 
Öncelikle, mesajlarınızda lütfen tamamı büyük harf kullanmayınız.

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:
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)
UserForm2'deki CommandButton1'e Tıklandığında UserForm3'ün Açılması:
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
UserForm3'teki CommandButton1'e Tıklandığında UserForm4'ün Açılması:
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
UserForm2'deki CommandButton2'ye Tıklandığında Sheet1'e Gitmek:
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
Sheet1'deki Butona Tıklandığında UserForm2'nin Açılması:
VBA:
Görüntülemek 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:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
Sheet2'deki Butona Tıklandığında UserForm3'ün Açılması:
VBA:
Görüntülemek 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:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
Sheet3'teki Butona Tıklandığında UserForm4'ün Açılması:
VBA:
Görüntülemek 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.
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst