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

• #47924 Fferi50 Topikgazda eszgé100 #47923

  Új Válasz 2021-12-01 20:43:17 #47924

  Ú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

  

  Fferi50

  Topikgazda

  válasz eszgé100 #47923 üzenetére

  Szia!
  Szerintem először nézd meg a Manual Update értékét.
  If Not manualcheck Then
Set scrange=ws.UsedRange.Columns("D").SpecialCells(xlCellTypeVisible).Find(what:=sPath, after:=Range("D" & counter))
If scrange.Row <= counter Then Excel.Workbooks(fileName).Close SaveChanges:=True
End If
  Sőt, tulajdonképpen a keresési eredményt közvetlenül is lehet használni:
  If ws.UsedRange.Columns("D").SpecialCells(xlCellTypeVisible).Find(what:=sPath, after:=Range("D" & counter)).Row <= counter Then Excel.Workbooks(fileName).Close SaveChanges:=True
  mivel legalább az adott sorban levő tételt meg fogja találni, tehát hibát nem okozhat a találat hiánya.
  Üdv.

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