Listbox Başka Sayfada Açılmıyor.

[sait2020]

Merhaba Arkadaşlar,
Ben Sayfa ismi Sayfa1 de userformu açıyorum ve listboxda verileri görebiliyorum ancak sayfa2 de aynı userformu açtığımda userform açılıyor ancak listboxda veriler görünmüyor.ActiveCell yerine Sheets("Sayfa1") denedim ancak yine olmadı. Bu konuda yardımlarınızı bekliyorum.



Private Sub ListBox1_Click()
Dim SUT As Integer
For SUT = 2 To Cells(65536, "B").End(3).Row
If Cells(SUT, "B") = ListBox1.Column(1) And Cells(SUT, "C") = ListBox1.Column(2) Then
Cells(SUT, "B").Select
End If
Next
TextBox1 = ActiveCell
TextBox2 = ActiveCell.Offset(0, 1)
ComboBox2 = ActiveCell.Offset(0, 2)
ComboBox3 = ActiveCell.Offset(0, 3)
ComboBox4 = ActiveCell.Offset(0, 4)
ComboBox5 = ActiveCell.Offset(0, 5)
ComboBox6 = ActiveCell.Offset(0, 6)
TextBox8 = ActiveCell.Offset(0, 7)
TextBox9.Value = ActiveCell.Offset(0, 8)


End Sub

 

[PLİNT]

Merhaba Arkadaşlar,
Ben Sayfa ismi Sayfa1 de userformu açıyorum ve listboxda verileri görebiliyorum ancak sayfa2 de aynı userformu açtığımda userform açılıyor ancak listboxda veriler görünmüyor.

Merhaba
"Userform" un kod sayfasındaki
Şu başlık altındaki kodları düzenlemelisiniz;

Private Sub UserForm_Initialize()

veya

Private Sub UserForm_Activate()

Listeye veri ekleyen hangisi varsa yazarmısınız?

 

[sait2020]

Merhaba
Dosyayı ekledim.

 

[PLİNT]

Merhaba
Dosyayı ekledim.

Merhaba
Örneğinizi burayada ekleyip adres verirmisiniz?
veya buraya http://s6.dosya.tc/

 

[sait2020]

Merhaba
İstediğiniz link aşağıdadır.
http://dosya.co/og8vv0la5v3u/Personel.xlsm.html

 

[PLİNT]

Ek dosyayı deneyin
http://dosya.co/vy6tqin6hfzs/Personel.zip.html


Örneğinizde "Sayfa2" 2. satırdan itibaren veri yok,
"Sayfa2" açıkken userformun 1. sayfayı açmaması için kırmızı bölümü silin

Private Sub UserForm_Activate()
[COLOR="Red"]'Sheets("Sayfa1").Select[/COLOR]
SON = ActiveSheet.Cells(65536, "A").End(3).Row
Label14.Caption = WorksheetFunction.CountA(ActiveSheet.Range("a2:a" & [COLOR="Blue"]SON[/COLOR]))

End Sub