AccessTr.neT
Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma (/konu-excel-userformda-vba-ile-gunun-tarihinden-siparis-numarasi-olusturma.html)

Sayfalar: 1 2 3 4 5

RE: Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma - feraz - 21/03/2021 

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)


RE: Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma - feraz - 21/03/2021

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


RE: Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma - Oğuz Türkyılmaz - 21/03/2021

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

RE: Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma - feraz - 21/03/2021

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

RE: Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma - Oğuz Türkyılmaz - 21/03/2021

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

RE: Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma - feraz - 21/03/2021

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