Új hozzászólás Aktív témák

• #46657 tomi_x tag

  Új Válasz 2021-05-11 22:32:12 #46657

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  tomi_x

  tag

  Sziasztok !

  Az alábbi kódom van, ami nem akar működni:

      Dim a As Range
   For i = 6 To 60
   With Worksheets("Adatok").Range("a1:a100”)
        Set a = .Find(What:=Worksheets("Számla lista").Cells(i, 3).Value, LookIn:=xlValues)
        If a = Worksheets("Számla lista").Cells(i, 3) Then
            MsgBox "van  "
        Else
            MsgBox "nincs   "
        End If
    End With
    Next

  Ha az If feltétel igaz akkor jó, de ha hamis akkor az alábbi hibát kapom:

  vba runtime error 91 object variable or with block variable not set

  Mit rontottam el ?
  Előre is köszi a segítséget.

Új hozzászólás Aktív témák