(20/02/2021, 15:03)Oğuz Türkyılmaz yazdı:

(20/02/2021, 14:54)feraz yazdı:

(20/02/2021, 14:45)Oğuz Türkyılmaz yazdı:

(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.

Rica ederim.Sizdende Allah razı olsun.
Tam olarak emin değilim yinede yazayım eğer Tutar sütunundaki veriler sağa yaslı ise Rowsource ile alınırsa Listboxttada sağa yaslı gelir biliyorum.Emin değilim yinede.

Bütün hücreler sola yaslı şekilde rowsource ile geliyor tabloda ise Tutar hücreleri sağa yaslı ama listbox da ne hikmetse sola yaslı oluyor. Google amcada da listbox da kayda değer olayı çözen bir sonuç vermedi.

Birazdan bir deneyeyim.Listview ile oluyor listbox ile ise dediğim gibi biliyordum abey.