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

• Mutt senior tag

  2018-06-24 21:01:01 #38401

  Új Válasz

  Ú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

  

  Mutt

  senior tag

  válasz Prancz üzenetére #38390

  Kommentelve és kibővítve az eredeti makró:

  Sub csere()
Dim cv As Range, talalat
'a rövidités elnevezésű tartomány elemein végig megyünk
For Each cv In Range("rövidités")
'fkeres/vlookup segítségével megkeressük a teljes elnevezésű tartományban az ehhez az értékhez tartozó nevet
talalat = Application.VLookup(cv, Range("teljes"), 2, 0)

'ha a keresés nem adott eredményt, akkor megpróbálkozunk egy típuskonverzióval
If IsError(talalat) Then
'ha számot keresünk, akkor lehet hogy szövegként van tárolva, alakítsuk számmá fkeresnél
If IsNumeric(cv) Then
talalat = Application.VLookup(cv * 1, Range("teljes"), 2, 0)
End If
End If

'ha van eredmányünk akkor írjuk felül vele a keresett értéket, különben hagyjuk meg
If Not IsError(talalat) Then
Range(cv.Address) = talalat
End If
Next
End Sub

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