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

• #48117 Fferi50 Topikgazda morgusz #48116

  Új Válasz 2021-12-25 08:40:37 #48117

  Ú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 morgusz #48116 üzenetére

  Szia!
  Az értékadás előtt meg kell vizsgálni az eredményt, pl. így:
  Sub csere()
Dim cv As Object, eredm
For Each cv In Range("A1:H10000")
eredm=Application.VLookup(cv, Range("O1:P20"), 2, 0)
If Not isError(eredm) Then Range(cv.Address) =eredm
Next
End Sub
  Üdv.

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