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.
Kod:
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