(18/02/2021, 18:53)feraz yazdı: Kayıt ekledeki else ile end if arasını alttaki gibi değiştirip deneyiniz.
Max functionu ile yaptım sadece id kısmını.Birde sıralatma kodu ekledim.

    Else

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = WorksheetFunction.Max(Worksheets("Ana Sayfa").Range("A2:A" & Rows.Count)) + 1

            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi.Value

            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = Com_Firma.Value

            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo.Value

            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = Com_MasrafTuru.Value

            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Acýklama.Value

            Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_Tutar)

            Worksheets("Ana Sayfa").Range("A2").Sort Worksheets("Ana Sayfa").Range("A2"), xlDescending, , , , , , xlNo

    End If

Sn. Feraz hocam ne kadar teşekkür etsem azdır. Bu kod sayesinde girişi yapılan kaydın kontrolü çok kolaylaştı. Allah ne muradınız varsa versin. List boxda sadece Tutar alanında yazan sayısal değerleri sağa yanaştırmanın, dayamanın bir yolu var mıdır. Yoksa da canınız sağolsun. Çok teşekkürler.