21/03/2021, 22:18 #19 Uzman feraz Bul Uzman Adı Soyadı: Za.... Yaşı: 48 Konum: - Ofis Versiyonu: Diğer Son Oturumu: 28/07/2024,00:46 Yorumları: 3.642 Konuları: 95 Kayıt Tarihi: 30/03/2013 Teşekkür Puanı: 316 Set bul = Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)Kodu SeçKodu Kopyala Yukardaki koda nokta eklemeyi unutmuşsunuz alttaki gibi Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)Kodu SeçKodu Kopyala Cevapla Cevapla
21/03/2021, 22:30 #20 Uzman feraz Bul Uzman Adı Soyadı: Za.... Yaşı: 48 Konum: - Ofis Versiyonu: Diğer Son Oturumu: 28/07/2024,00:46 Yorumları: 3.642 Konuları: 95 Kayıt Tarihi: 30/03/2013 Teşekkür Puanı: 316 Alttaki kod heralde tabloyu genişletmeti aktif ediyor ilgili yerlere ekleyip deneyebilirsiniz abey. Dosyanın son hali ekte. Application.AutoCorrect.AutoExpandListRange = TrueKodu SeçKodu Kopyala WİNPERAX.rar (Dosya Boyutu: 94,09 KB | İndirme Sayısı: 2) Cevapla Cevapla
21/03/2021, 22:33 #21 Aktif Üye Oğuz Türkyılmaz Bul Aktif Üye Adı Soyadı: Oğ.... Tü.... Yaşı: 57 Konum: Antalya Ofis Versiyonu: Ofis 2019 64 Bit Son Oturumu: 19/05/2025,13:59 Yorumları: 1.596 Konuları: 267 Kayıt Tarihi: 08/02/2018 Teşekkür Puanı: 0 Mesleğiniz: İşletmeci Feraz Hocam Noktayı koydum diğer hatalar devam ediyor. Dosyanın Son şeklini yüklüyorum WİNPERAX.rar (Dosya Boyutu: 99,23 KB | İndirme Sayısı: 2) Access Çekirgesi Cevapla Cevapla
21/03/2021, 22:42 #22 Uzman feraz Bul Uzman Adı Soyadı: Za.... Yaşı: 48 Konum: - Ofis Versiyonu: Diğer Son Oturumu: 28/07/2024,00:46 Yorumları: 3.642 Konuları: 95 Kayıt Tarihi: 30/03/2013 Teşekkür Puanı: 316 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ı Cevapla Cevapla
21/03/2021, 22:52 #23 Aktif Üye Oğuz Türkyılmaz Bul Aktif Üye Adı Soyadı: Oğ.... Tü.... Yaşı: 57 Konum: Antalya Ofis Versiyonu: Ofis 2019 64 Bit Son Oturumu: 19/05/2025,13:59 Yorumları: 1.596 Konuları: 267 Kayıt Tarihi: 08/02/2018 Teşekkür Puanı: 0 Mesleğiniz: İşletmeci Tamamdir Feraz Hocam Şu an normal çalışıyor. Akşam akşam yordum sizi. Çok Teşekkür ederim. Access Çekirgesi Cevapla Cevapla
21/03/2021, 23:16 #24 Uzman feraz Bul Uzman Adı Soyadı: Za.... Yaşı: 48 Konum: - Ofis Versiyonu: Diğer Son Oturumu: 28/07/2024,00:46 Yorumları: 3.642 Konuları: 95 Kayıt Tarihi: 30/03/2013 Teşekkür Puanı: 316 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 SubKodu SeçKodu Kopyala Cevapla Cevapla