ListBox Initialize de Aktif Sayfa Sorunu

[Mustafa MUTLU]

Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.BackColor = vbYellow
.ColumnCount = 4
.ColumnWidths = "40;70;70;70"
.ForeColor = vbRed
If Sheets("Sayfa1").Range("a2") = Empty Then
.RowSource = Empty
Else
.RowSource = "Sayfa1!a2:d" & [Sayfa1!a65536].End(3).Row
End If
End With

Kırmızı Renle yazdığım Sayfa1 yerine AKTİF SAYFA yazmak istiyorum.

Yani hangi sayfada açarsam UserForm u o sayfadaki verileri görmek istiyorum ListBox ta.

Bu kod şart değil işimi görecek farklı bir kod da olabilir.

Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde deneyiniz.

.RowSource = ActiveSheet.Name & "!A2:D" & [A65536].End(3).Row

 

[Mustafa MUTLU]

If Sheets("Sayfa1").Range("a2") = Empty Then
.RowSource = Empty
Else
.RowSource = ActiveSheet.Name & "!A2" & [A65536].End(3).Row (bu koz sizin verdiğiniz kod)
End If

Kırmızı ile belirttiğim bölümü nasıl değiştireceğim.

 

[hamitcan]

Sayfa1 yerine bir şey yazmayın.

 

[Mustafa MUTLU]

Sayfa1 yerine bir şey yazmayın.

If Sheets.Range("a2") = Empty Then

Böyle yazdığımda hata veriyor..

 

[Mustafa MUTLU]

Kodu aşağıdaki gibi yazdım çalışıyor.

With UserForm1.ListBox1
.BackColor = vbYellow
.ColumnCount = 4
.ColumnWidths = "40;70;70;70"
.ForeColor = vbRed
.RowSource = ActiveSheet.Name & "!A2" & [A65536].End(3).Row
End With

Ancak sayfa1 den sayfa2 ye geçtiğimde hala sayfa1 deki verileri göösteriyor.
Listbox a tıkladığımda ise sayfa2 deki verileri text lere alıyor.
Kaydet yada değiştir tuşlarından birine tıkladığımda Sayfa2 deki verileri görüyorum.

Sayfa2 ye geçerken Userformu kapat aç komutu koydum yine olmadı..
UserForm1.Hide
Worksheets("Sayfa2").Select
UserForm1.Show

 

[halit3]

kodun başına bunu ekleyip denermisiniz.

ListBox1.RowSource = ""

 

[esrefilvan]

Kodu aşağıdaki gibi yazdım çalışıyor.

Sayfa2 ye geçerken Userformu kapat aç komutu koydum yine olmadı..
UserForm1.Hide

aşağıdaki gibi değiştirin

Unload UserForm1

 

[Mustafa MUTLU]

aşağıdaki gibi değiştirin

Unload UserForm1

Bu işimi gördü
Teşekkürler...