Userformda multipage 2.Sayfası aktif olunca listview1 pasif

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Userformda multipage 2.Sayfası aktif olunca listview1 pasif

İleti#1)  Cengizhantr » 14 Kas 2020 14:23

Detay adlı forumda MP adında multipage var ve multipagede sayfa 1 adı pg0
Pg0 adlı sayfaya basınca listview1ve listview2 visiblesi pasif olacak nasıl yapabilirim
Kullanıcı avatarı
Cengizhantr
Yeni Başlamış
 
Kayıt: 10 Haz 2020 21:52
Meslek: Market
Yaş: 38
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/şereflikoçhisar

Cevap: Userformda multipage 2.Sayfası aktif olunca listview1

İleti#2)  Ömer BARAN » 15 Kas 2020 23:45

Merhabalar.

Aşağıdaki gibi bir yapı düşünülebilir.

Multipage nesnesindeki aktif sayfanın (sayfa numarasının) hangisi olduğuna göre işlem yapılabilir.
Multipage nesnesinde sayfa numaraları 0 'dan (sıfır) başlayarak devam eder.

Örneğin aşağıdaki koda göre;
Multipage'in 1'inci sayfanın adına tıklandığında Listview1 isimli nesne görünmez hale gelir,
başka sayfa aktif hale getirilmek üzere ilgili sayfanın adına tıklandığında ise Listview1 nesnesi görünür.

Kod: Tümünü seç
Private Sub MultiPage1_Change()
If MultiPage1.Value = 0 Then
    Me.ListView1.Visible = False
Else
    Me.ListView1.Visible = True
End If
End Sub

.
☾✭ İnadına TÜRKÇE ✭☽

Sorularınızı bana https://www.ExcelDestek.Com 'dan da sorabilirsiniz.




.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 16:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 56
İleti: 250
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

Cevap: Userformda multipage 2.Sayfası aktif olunca listview1

İleti#3)  NECDET KURT » 17 Kas 2020 02:08

Ömer Hocamın müsaadesiyle.
Alternatif olarak kendinize uyarlayınız.

Private Sub MultiPage1_Change()
Select Case MultiPage1.SelectedItem.Caption

Case "X MODÜLÜ"
Application.ScreenUpdating = False
Call CreateCmdBar
frmPlaka.Visible = True
frmİslemler.Visible = True
frmRapor.Visible = False
frmRaporT.Visible = False
frmRaporV.Visible = False

Case "Y MODÜLÜ"
Application.ScreenUpdating = False
frmPlaka.Visible = False
frmİslemler.Visible = False
frmRapor.Visible = False
frmRaporT.Visible = False
frmRaporV.Visible = False
Application.ScreenUpdating = True
frmİgeYeni.Visible = False

End Select
End Sub
Kullanıcı avatarı
NECDET KURT
Yeni Başlamış
 
Kayıt: 16 Tem 2018 21:34
Meslek: Finans
Yaş: 27
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL / BAYRAMPAŞA

Cevap: Cevap: Userformda multipage 2.Sayfası aktif olunca li

İleti#4)  Cengizhantr » 17 Kas 2020 12:36

Ömer BARAN yazdı:Merhabalar.

Aşağıdaki gibi bir yapı düşünülebilir.

Multipage nesnesindeki aktif sayfanın (sayfa numarasının) hangisi olduğuna göre işlem yapılabilir.
Multipage nesnesinde sayfa numaraları 0 'dan (sıfır) başlayarak devam eder.

Örneğin aşağıdaki koda göre;
Multipage'in 1'inci sayfanın adına tıklandığında Listview1 isimli nesne görünmez hale gelir,
başka sayfa aktif hale getirilmek üzere ilgili sayfanın adına tıklandığında ise Listview1 nesnesi görünür.

Kod: Tümünü seç
Private Sub MultiPage1_Change()
If MultiPage1.Value = 0 Then
    Me.ListView1.Visible = False
Else
    Me.ListView1.Visible = True
End If
End Sub

.

Ömer Bey tm çok teşekkür ederim tam iyi oldu işiniz rast gelsin
Kullanıcı avatarı
Cengizhantr
Yeni Başlamış
 
Kayıt: 10 Haz 2020 21:52
Meslek: Market
Yaş: 38
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/şereflikoçhisar

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Userformda multipage 2.Sayfası aktif olunca li

İleti#5)  Cengizhantr » 17 Kas 2020 12:39

NECDET KURT yazdı:Ömer Hocamın müsaadesiyle.
Alternatif olarak kendinize uyarlayınız.

Private Sub MultiPage1_Change()
Select Case MultiPage1.SelectedItem.Caption

Case "X MODÜLÜ"
Application.ScreenUpdating = False
Call CreateCmdBar
frmPlaka.Visible = True
frmİslemler.Visible = True
frmRapor.Visible = False
frmRaporT.Visible = False
frmRaporV.Visible = False

Case "Y MODÜLÜ"
Application.ScreenUpdating = False
frmPlaka.Visible = False
frmİslemler.Visible = False
frmRapor.Visible = False
frmRaporT.Visible = False
frmRaporV.Visible = False
Application.ScreenUpdating = True
frmİgeYeni.Visible = False

End Select
End Sub

Necdet Bey buda tam oldu çok teşekkür ederim ilginiz için ☺️
Kullanıcı avatarı
Cengizhantr
Yeni Başlamış
 
Kayıt: 10 Haz 2020 21:52
Meslek: Market
Yaş: 38
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/şereflikoçhisar


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 4 misafir

Bumerang - Yazarkafe