(21/03/2021, 20:52)feraz yazdı: Dosyayı bir inceleyiniz.Formun açılış koduna neden sayfaya ekleme kodlarını eklediniz bu arada!!!!!!WorksheetFunction.CountIf demek exceldeki eğersay formülünün kod karşılığıdır.
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
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.