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