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