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

• #38401 Mutt senior tag Prancz #38390

  Új Válasz 2018-06-24 21:01:01 #38401

  Ú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

  

  Mutt

  senior tag

  válasz Prancz #38390 üzenetére

  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