Run-time Error '1004' Hata
#1
Visual Basic
  1. Private Sub ListBox2_Change()
  2.  Dim d As Range, dicc As Object
  3.  Set dicc = CreateObject("Scripting.Dictionary")
  4.    For Each d In sh.Range("B3", sh.Range("B" & Rows.Count).End(xlUp))
  5.    If d.Value = ListBox2.Value Then
  6.      dicc(d.Offset(0, 3).Value) = Empty
  7.    End If
  8.  Next
  9.  ListBox2.List = dicc.keys
  10.  TextBox1.Value = WorksheetFunction.VLookup(ListBox2, Sheets("Personel").Range("B:N"), 2, 0)
  11. 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



  Alıntı
Bu mesajı beğenenler:
#2
sh deişkeninizi nerede tanımladınız, ben göremedim?



  Alıntı
Bu mesajı beğenenler:


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi