AccessTr.neT

Set bul = Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)

Yukardaki koda nokta eklemeyi unutmuşsunuz alttaki gibi

Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)

Alttaki kod heralde tabloyu genişletmeti aktif ediyor ilgili yerlere ekleyip  deneyebilirsiniz abey.
Dosyanın son hali ekte.

Application.AutoCorrect.AutoExpandListRange = True

Feraz Hocam Noktayı koydum diğer hatalar devam ediyor. Dosyanın Son şeklini yüklüyorum

Tablo olduğu için 7.satırdan itibaren silip deneyiniz ve önceki mesajda eklediğim kodu ekleyiniz.Ben tablolarla çalışmıyorum normalde bundan dolayı

Tamamdir Feraz Hocam Şu an normal çalışıyor. Akşam akşam yordum sizi. Çok Teşekkür ederim.

ilgili kodu alttaki gibi değiştirin abey önceki kodda bul diye kod yazmıştım gereksiz olmuş zayen countif ile şart aranıyor.

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