(21/03/2021, 18:30)Oğuz Türkyılmaz yazdı: Yılın son iki rakamıda numaraya eklenebilir. Eğer dosya çok şişmezse her sene için yeni dosya açmaya gerek kalmaz ama bilemedim acaba sadece ilk düşündüğüm gibi SP-00001 den başlatıp devam mı ettirilse hiç tarihi bulaştırmadan ne dersiniz. Amacım sipariş numarasına baktığımda hangi tarih de verildiğini anlamaktı.

Dosya şişmez yıl ekleyince zaten abey.
Bence daha iyi olur.

Dosyayı bir inceleyiniz.Formun açılış koduna neden sayfaya ekleme kodlarını eklediniz bu arada!!!!!!

Sub siparisKod()

    Dim txt As String, bul As Range

    Dim say As Long, txt2 As String, x As String

    txt = Format(Date, "ddmmyyyy")

    txt2 = "SP-" & txt

    With ThisWorkbook.Worksheets("ORDER_LIST")

        Set bul = .Range("H:H").Find(txt2 & "*", , xlValues, 1)

        say = WorksheetFunction.CountIf(.Range("H:H"), txt2 & "*")

        Select Case Len(say)

            Case 1 To 9: x = "00"

        End Select

        If Not bul Is Nothing Then

            TextBox_SiparisKodu.Value = txt2 & Format(say + 1, x)

        Else

            TextBox_SiparisKodu.Value = txt2 & "01"

        End If

    End With

    Set bul = Nothing

End Sub

(21/03/2021, 20:52)feraz yazdı: Format(Date, "ddmmyyyy")

Burdakl yyyy silinirse yıl olayı devre dışı olur abey.

Feraz Hocam Form Yüklendiğinde sipariş numarası +1 artmadan yine SP-2103202101şeklinde geliyor.

(21/03/2021, 21:31)Oğuz Türkyılmaz yazdı: Feraz Hocam Form Yüklendiğinde sipariş numarası +1 artmadan yine SP-2103202101şeklinde geliyor.

Ötle gelmesi normai zaten ekteki yerde SP-2203202101 olarak kod var.
SP-2103202101 olursa 02olarak gelmesi gerek.

(21/03/2021, 20:52)feraz yazdı: Dosyayı bir inceleyiniz.Formun açılış koduna neden sayfaya ekleme kodlarını eklediniz bu arada!!!!!!

Sub siparisKod()

    Dim txt As String, bul As Range

    Dim say As Long, txt2 As String, x As String

    txt = Format(Date, "ddmmyyyy")

    txt2 = "SP-" & txt

    With ThisWorkbook.Worksheets("ORDER_LIST")

        Set bul = .Range("H:H").Find(txt2 & "*", , xlValues, 1)

        say = WorksheetFunction.CountIf(.Range("H:H"), txt2 & "*")

        Select Case Len(say)

            Case 1 To 9: x = "00"

        End Select

        If Not bul Is Nothing Then

            TextBox_SiparisKodu.Value = txt2 & Format(say + 1, x)

        Else

            TextBox_SiparisKodu.Value = txt2 & "01"

        End If

    End With

    Set bul = Nothing

End Sub

WorksheetFunction.CountIf demek exceldeki eğersay formülünün kod karşılığıdır.
txt2 & "*" böyle yapıncada ile başlayan demektir ve SP- ve bugünün tarihinin ddmmyyy olarak format karşılığı sipariş kod varsa bulur ve sayar varsa 1 artırır yoksa 1 yazar abey.