Set bul = Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)
Yukardaki koda nokta eklemeyi unutmuşsunuz alttaki gibiSet bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)
Set bul = Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)
Yukardaki koda nokta eklemeyi unutmuşsunuz alttaki gibiSet bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)
Application.AutoCorrect.AutoExpandListRange = True
Sub siparisKod()
Dim txt As String
Dim say As Long, txt2 As String, x As String
txt = Format(Date, "ddmmyyyy")
txt2 = "SP-" & txt
With ThisWorkbook.Worksheets("ORDER_LIST")
say = WorksheetFunction.CountIf(.Range("H:H"), txt2 & "*")
Select Case Len(say)
Case 1 To 9: x = "00"
End Select
If say > 0 Then
TextBox_SiparisKodu.Value = txt2 & Format(say + 1, x)
Else
TextBox_SiparisKodu.Value = txt2 & "01"
End If
End With
End Sub