AccessTr.neT

Bul · 21/03/2021, 22:18

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)

Bul · 21/03/2021, 22:30

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

[Resim: do.php?img=10833]


Application.AutoCorrect.AutoExpandListRange = True

Bul · 21/03/2021, 22:33

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

Bul · 21/03/2021, 22:42

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ı Img-cray

Bul · 21/03/2021, 22:52

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

Bul · 21/03/2021, 23:16

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

AccessTr.neT

Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma

Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri