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

• #22051 Delila_1 veterán Prancz #22050

  Új Válasz 2014-06-18 09:42:47 #22051

  Ú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

  

  Delila_1

  veterán

  válasz Prancz #22050 üzenetére

  Nevezd el a rövidítéseket tartalmazó tartományt rövidítésre, a magyarázatok 2 oszloposát pedig teljesre. A makrót lefuttatva megkapod az eredményt.

  Sub csere()
  Dim cv As Object
  For Each cv In Range("rövidítés")
  Range(cv.Address) = Application.VLookup(cv, Range("teljes"), 2, 0)
  Next
  End Sub

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