• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Hata kodu anlamı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Yamahato

Yeni Üye
Katılım
20 Haz 2020
Mesajlar
17
En iyi yanıt
0
Puanları
1
Yaş
46
Konum
Balçova
Ad Soyad
Yusuf DOĞAN
Office Vers.
Profesyonel plus 2010
Yardımlarınız için çok ama çok teşekkür ederim.
Ufak bir sorun daha çıktı.
söyle anlatayım.
userbox 1 herhangi bir verinin ilk harfini girince, yazılan kod
sahibinden sayfasında arama yapıp bulduğu eşleşmelerin A sutununda ki VH LA BAŞLAYAN kodu veya kodlarını ListBox1 de gösteriyor.
Örnek olarak 3 rakamını TextBox 1 girdiniz.
Listbox1 de 2 tane vh kodu çıkıyor.. Bu vh kodlarına tıkayınca da o vh kodunun malzeme ismi TextBox 2 de çıkıyor.

Sorun burada başlıyor.
3 rakamını girdiniz 2 tane vh kodu geldi. bu kodlar hangi malzeme diye baktınız. istediğiniz malzeme o değil.
tekrar veri girmek için ya da silmek için arama motoruna(TextBox1) tıkladınız.
Silme yaptınız yada 1 harf veya rakam daha girdiniz hop aşağıda ekte bulunan resimlerde ki hata kodunu veriyor
Nasıl çözerim bu sorunu?
Hata Resimler 1.jpg
 

Ekli dosyalar

  • ÖRNEK.xlsm
    47.8 KB · Görüntüleme: 6

Muratboz06

Yeni Üye
Katılım
13 Haz 2019
Mesajlar
3
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
Ankara
Ad Soyad
Murat boz
Deneyiniz, çalışacaktır.
Kod:
Private Sub ListBox1_Change()
    On Error Resume Next
    Set s1 = Sheets("SAHİBİNDEN")
    son = s1.Cells(Rows.Count, "A").End(3).Row
    sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
    TextBox2.Text = s1.Cells(sat, "B")
End Sub
 

Yamahato

Yeni Üye
Katılım
20 Haz 2020
Mesajlar
17
En iyi yanıt
0
Puanları
1
Yaş
46
Konum
Balçova
Ad Soyad
Yusuf DOĞAN
Office Vers.
Profesyonel plus 2010
teşekkürler sağolun.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt