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

• #38390 Prancz csendes tag

  Új Válasz 2018-06-23 15:01:45 #38390

  Ú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

  

  Prancz

  csendes tag

  Sziasztok!

  Oszlopok tartalmának cseréjével szenvedek, ebben kérnék segítséget.

  A feladat egy számokból és betűkből álló tartalmú oszlop (a makróban "rövidítés") cellatartalmának cseréje volt, mivel az adott kódok nem értelmezhetőek önmagukban. Ehhez megvan a "kódszótár" (a makróban "teljes"). Tehát annyit kellene tenni, hogy végigmegy az eredeti oszlopon és nézi, hogy a "kódszótárban" milyen tartalom szerepel, majd ennek megfelelően lecseréli.

  Erre a feladatra az alábbi makrót használom:
  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

  Eddig teljesen jól működött, bár mindig a can't perform requested operation üzenetet írta ki.

  Az újabb feladat egy híváslistában a 36201234567 formátumú telefonszámok nevekre történő cseréje lenne, vagyis felírom az ismert számokhoz tartozó neveket, majd az akár több ezer soros táblázatban kellene lecserélni az ismert számokat nevekre (mert így könnyebb vele dolgozni). Gondoltam erre is jó a fenti makró, csak egy a telefonszámokat és a neveket tartalmazó "kódszótárra" kell a makrót ráengedni. Valamiért még sem megy. Mivel a fenti makrókódot is úgy kaptam, fogalmam sincs mit jelent, így hálás lennék, ha valaki tudna segíteni.

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