meleklerim
Altın Üye
- Katılım
- 2 Ekim 2013
- Mesajlar
- 330
- Excel Vers. ve Dili
-
ofis 2019 türkçe
windows 10 pro türkçe
- Altın Üyelik Bitiş Tarihi
- 23-07-2025
Arkadaşlar hepinizin bildiği gibi aşağıda yazdığımız kodla A sütununa 1 den başlayarak benzersiz bir kayıt numarası (ID) getirebiliyoruz.
Private Sub Kaydet_Click()
Dim sonsatır, ID As Integer
sonsatır = WorksheetFunction.CountA(Worksheets("Ana").Range("A:A")) + 1
ID = WorksheetFunction.Max(Worksheets("Ana").Range("A:A")) + 1
Benim sorum bu ID lerin 1 yerine "100000" den ya da atıyorum "XBF" gibi bir koddan başlamasını istersek nasıl yapıyoruz?
100001-100002-100003 ya da XBF1-XBF2-XBF3 gibi artmasını istiyorum
Private Sub Kaydet_Click()
Dim sonsatır, ID As Integer
sonsatır = WorksheetFunction.CountA(Worksheets("Ana").Range("A:A")) + 1
ID = WorksheetFunction.Max(Worksheets("Ana").Range("A:A")) + 1
Benim sorum bu ID lerin 1 yerine "100000" den ya da atıyorum "XBF" gibi bir koddan başlamasını istersek nasıl yapıyoruz?
100001-100002-100003 ya da XBF1-XBF2-XBF3 gibi artmasını istiyorum
Son düzenleme: