son yapılan kaydın gösterilmesi

[aptillah]

arkadaşlar dönderdiğim dosyada bir öğrenci kayıt programı var yardım istediğim konu userformda son kayıt diye bi bölüm açtım .. burda yaptıgım son kayıdın numarasını görebilirmiyim numara sırasına göre gitmemiz gerekiyor ve her seferinde son kaldıgım numarayı bulmak zorunda kalıyorum .. çalışma kitabında en son yapılan kaydın numarasını görmek istiyorum. yardımlarınızı bekliyorum

 

[serqet]

İstediğiniz böyle bir şeymi?

 

[aptillah]

seqet hocam istediğim gibi olmuş fakat programı kapatıp açınca boş gözüküyor sadece kayıt yapınca yazıyor yani program açıldıgında boş gözüküyor.

 

[Ömer]

Merhaba,

İlaveleri kırmızı ile işaretledim.

Private Sub ListBox2_Change()
    On Error Resume Next
    Sheets(ListBox2.Value).Activate
    With ListBox1
        .ColumnCount = 2
        .Clear
        .RowSource = ""
        .RowSource = IIf(Range("C7") = "", "", "B7:C" & _
                    Cells(Rows.Count, 3).End(3).Row)
         Label32 = .ListCount
    End With
    [COLOR=red]Label36 = Range("A" & Cells(Rows.Count, "A").End(xlUp).Row)
[/COLOR]End Sub

Private Sub UserForm_Activate()
    For i = 1 To Worksheets.Count
        ListBox2.AddItem Worksheets(i).Name
    Next i
    
    [COLOR=red]Label36 = Range("A" & Cells(Rows.Count, "A").End(xlUp).Row)[/COLOR]
End Sub

.