ListBox farklı sayfa listeliyor

[igultekin2000]

iyi günler; çok userForm'lu çalışma kitabım var. Diğerlerinde sorun yaşamıyorum ancak

Private Sub CommandButton1_Click()
Sheets("KDV_TAKIP").Select
Sheets("KDV_TAKIP").Range("A65536").End(xlUp).Offset(1) = TextBox1.Text
KDV.ListBox1.RowSource = "A2:A" & Cells(Rows.Count, "A").End(3).Row
MsgBox "Veri Girişi Yapıldı.", vbOKOnly
TextBox1 = Empty
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
FORM_GIRIS.Show
End Sub
Private Sub CommandButton3_Click()
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sat = ListBox1.ListIndex + 2
ListBox1.RowSource = vbNullString
Range("A" & sat).Interior.ColorIndex = 25
Range("A" & sat & ":A" & sat).Delete
UserForm_Initialize
MsgBox "SEÇİLEN VERİ SİLİNMİŞTİR"
TextBox1.Text = ""
KDV.ListBox1.RowSource = "A2:A" & Cells(Rows.Count, "A").End(3).Row

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
    KDV.ListBox1.RowSource = "A2:A" & Cells(Rows.Count, "A").End(3).Row
End Sub

bu Userformda sorun yaşıyorum. Excel hangi çalışma sayfasındaysa onun A sütününü listeliyor olması. çalışma olarak excel çalışma sayfasını gizleyip Formlaral işlem yapıyorum.

 

[fireman64]

KDV.ListBox1.RowSource = "[COLOR="Red"]KDV_TAKIP![/COLOR]A2:A" & Cells(Rows.Count, "A").End(3).Row

 

[igultekin2000]

KDV.ListBox1.RowSource = "[COLOR="Red"]KDV_TAKIP![/COLOR]A2:A" & Cells(Rows.Count, "A").End(3).Row

teşekkürler, başka formlarda da bu tür sorun yaşadığımdan form oluşturma şeklini değiştirmiştim.