1 sayfadan 1. sayfa

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

İletiTarih: 20 Kas 2020 16:28
veyselozkan
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

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

İletiTarih: 20 Kas 2020 20:23
Erkan Akayay
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

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

İletiTarih: 21 Kas 2020 08:31
veyselozkan
Çok teşekkür ederim, sayenizde bir stresten kurtuldum. Kaç gündür uğraşıyorum, ters düşünüyor muşum