listbox veri çekmiyor

[sinemomec]

oluşturduğum userformu çalıştırıp gelen evrak kısmını çalıştırdığım zaman listbox verileri göstemezken verileri eklediğim gelen evrak excel sayfasında açtığım zaman gösteriyor. acaba nerde hata yaptım. şimdiden teşekkürler.

Dim wsGELENEVRAK, wsGİDENEVRAK, wsMEMURÖNTANIM, wsDESİMALDOSYA As Worksheet
Dim sonsatır As Long
Dim konrol As Byte
Private Sub CmdKaydet_Click()
sonsatır = WorksheetFunction.CountA(Worksheets("GELENEVRAK").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("GELENEVRAK").Cells(sonsatır, 1) = 1
Worksheets("GELENEVRAK").Cells(sonsatır, 2) = Cbgeldiğikurum.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 4) = Tbevrakno.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 5) = tbek.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 6) = Cbtakılacakdosyano.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 7) = Cbkonu.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 8) = Cbhavaleedilenmemur.Value
Else
Worksheets("GELENEVRAK").Cells(sonsatır, 1) = Worksheets("GELENEVRAK").Cells(sonsatır - 1, 1) + 1
Worksheets("GELENEVRAK").Cells(sonsatır, 2) = Cbgeldiğikurum.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 4) = Tbevrakno.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 5) = tbek.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 6) = Cbtakılacakdosyano.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 7) = Cbkonu.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 8) = Cbhavaleedilenmemur.Value
End If
End Sub

Private Sub userform_initialize()
Dim x As Long
For x = 1 To 1000000
If Range("A" & x).Value <> " " Then
x = x + 1
Else
Exit For
End If
Next
Lstgelenevrak.ColumnCount = 8
Lstgelenevrak.RowSource = "A2" & ":" & "H" & x
End Sub

 

[YUSUF44]

Böyle konularda örnek dosya olması işi kolaylaştırır.

Lstgelenevrak.RowSource = "A2" & ":" & "H" & x

Bu satır listbox verilerinin alınacağı yeri gösteriyor. Burda sayfa adı belirtmediğiniz için o an açık olan sayfanın A2:Hx aralığından veri alıyor.

Lstgelenevrak.RowSource ="GELENEVRAK!$A2:H$" & x

olarak deneyin.

 

[sinemomec]

teşekkür ederim.