[Yardım]  Listbox eğer varsa listeleme (düşeyara)

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Listbox eğer varsa listeleme (düşeyara)

İleti#1)  veyselozkan » 20 Kas 2020 16:28

Merhaba,

2 adet listbox kullandığım userform ekranım var. listboxların birisine çift tıkladığımda geçerli değeri bir sayfaya kaydediyor ve diğer listboxt bu ürünleri listeliyor. Daha önce eklediğim bir veriyi eklemek istemiyorum, aynı ürün seçildiği zaman hata mesajı ile bu ürünü zaten seçtin dedirtmek istiyorum ama çıkamadım işin için.

Örnek dosya ektedir.

yardım.zip
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
veyselozkan
 
Kayıt: 02 Haz 2020 10:18
Meslek: Cost Controller
Yaş: 34
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova

Cevap: Listbox eğer varsa listeleme (düşeyara)

İleti#2)  Erkan Akayay » 20 Kas 2020 20:23

Kodu şöyle değiştir hemşerim.

Kod: Tümünü seç
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False
satir = WorksheetFunction.CountA(Sheets("spr").Range("A1:A65536")) + 1
If WorksheetFunction.CountIf(Sheets("spr").Range("A1:A65536"), ListBox2.List(ListBox2.ListIndex, 0)) > 0 Then
MsgBox ("Aynı malzeme kaydı yapılamaz")
Exit Sub
End If
Sheets("spr").Cells(satir, 1) = ListBox2.List(ListBox2.ListIndex, 0)
Sheets("spr").Cells(satir, 2) = ListBox2.List(ListBox2.ListIndex, 1)
Application.ScreenUpdating = True

End Sub
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4131
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Listbox eğer varsa listeleme (düşeyara)

İleti#3)  veyselozkan » 21 Kas 2020 08:31

Çok teşekkür ederim, sayenizde bir stresten kurtuldum. Kaç gündür uğraşıyorum, ters düşünüyor muşum
Kullanıcı avatarı
veyselozkan
 
Kayıt: 02 Haz 2020 10:18
Meslek: Cost Controller
Yaş: 34
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe