Ú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

• #22053 pigster senior tag Prancz #22050

  Új Válasz 2014-06-18 10:29:17 #22053

  Ú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

  

  pigster

  senior tag

  válasz Prancz #22050 üzenetére

  Ez egy sima FKERES függvénnyel is megoldható. Igaz kell hozzá plusz oszlop, de utána a függvénnyel kikeresett értékeket kimásolod, majd beilleszted csak az értékeket (irányított beillesztés vagy beillesztés után jobb oldalt kis gomb "123")

• #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