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

• #48116 morgusz csendes tag

  Új Válasz 2021-12-25 00:04:25 #48116

  Ú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

  

  morgusz

  csendes tag

  Sziasztok!
  Beérkező hibás adatok cseréjével harcolok.
  Egy A:H oszlopokból álló tartomány D oszlopában vannak hibás adatok, amit az O1:P20 (valószínű hogy ez lista bővülni fog) tartomány adatai alapján, (O a hibás, P a jó adat) kellene javítani. Találtam itt egy makrót, amit alkalmazva a D oszlopban a rosszat kicseréli ugyan, de a jók helyett és az üres cellákban meg "#hiányzik" eredményt produkál.
  Sub csere()
  Dim cv As Object
  For Each cv In Range("A1:H10000")
  Range(cv.Address) = Application.VLookup(cv, Range("O1:P20"), 2, 0)
  Next
  End Sub
  Ha valaki tud, és ráér, kérem segítsen!
  Köszönöm!

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