Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
24
1904

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

#19
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)
Cevapla
#20
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
.rar WİNPERAX.rar (Dosya Boyutu: 94,09 KB | İndirme Sayısı: 1)
Cevapla
#21
Feraz Hocam Noktayı koydum diğer hatalar devam ediyor. Dosyanın Son şeklini yüklüyorum
.rar WİNPERAX.rar (Dosya Boyutu: 99,23 KB | İndirme Sayısı: 2)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#22
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
Cevapla
#23
Tamamdir Feraz Hocam Şu an normal çalışıyor. Akşam akşam yordum sizi. Çok Teşekkür ederim.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#24
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da