11-09-2020, 11:42
Visual Basic
- Private Sub ListBox2_Change()
- Dim d As Range, dicc As Object
- Set dicc = CreateObject("Scripting.Dictionary")
- For Each d In sh.Range("B3", sh.Range("B" & Rows.Count).End(xlUp))
- If d.Value = ListBox2.Value Then
- dicc(d.Offset(0, 3).Value) = Empty
- End If
- Next
- ListBox2.List = dicc.keys
- TextBox1.Value = WorksheetFunction.VLookup(ListBox2, Sheets("Personel").Range("B:N"), 2, 0)
- End Sub
Yukarıda ki kodu çalıştırdığım zaman aşağıda ki hatayı alıyorum. Rica ertsem yardımcı olabilir misiniz?
Run-time error '1004': Application-defined or object-defined error