ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[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

[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

[veyselozkan]

Çok teşekkür ederim, sayenizde bir stresten kurtuldum. Kaç gündür uğraşıyorum, ters düşünüyor muşum