2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #25459 m.zmrzlina senior tag
    Új Válasz #25459
    Ú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

    m.zmrzlina

    senior tag

    Adott egy tartomány (pl C2:C120) amiben kb 100 darab elem (szöveg) van. A 100 elem 5 különböző értéket vehet fel, vannak üres cellák és értelemszerűen az 5 féle elem mindegyike többször is előfordul.

    Az a feladat, hogy le kell cserélni minden elemet egy számra, azonos szöveget azonos számra.
    Ezt eddig így csináltam:

    For Each rngCella In wsKabelo.Range("C2:C129")
    If rngCella.Value <> "" Then
    If UCase(rngCella.Value) = "ALMA" Then
    rngCella.Value = 1
    ElseIf UCase(rngCella.Value) = "KORTE" Then
    rngCella.Value = 2
    ElseIf UCase(rngCella.Value) = "BANÁN" Then
    rngCella.Value = 3
    ElseIf UCase(rngCella.Value) = "NARANCS" Then
    rngCella.Value = 4
    ElseIf UCase(rngCella.Value) = "CITROM" Then
    rngCella.Value = 5
    End If
    End If
    Next

    Ez rendben működik de több ilyen lista van amelyek ráadásul folyamatosan változnak, tehát nem a legjobb ötlet beleírni a kódba fixen a neveket és a csereértékeket.

    Felvittem az összes listát egy másik munkafüzetbe két oszlopból álló tartományokba, majd elneveztem ezeket a tartományokat a Névkezelővel. Ezekben a tartományokban szeretnék keresni makróból a VLOOKUP() fv-nyel a következőképpen:

    For Each rngCella In wsKabelo.Range("C2:C129")
    If rngCella.Value <> "" Then
    rngCella.Value = Application.WorksheetFunction.VLookup(rngCella.Value, _
    Workbooks("forrásadatok.xlsx").Names("gyümölcsök"), 2, 0)
    End If
    Next

    esetleg így:

    Set rng_gyümölcsök = Workbooks("forrásadatok.xlsx").Names("gyümölcsök")
    Set wsKabelo = ActiveSheet

    For Each rngCella In wsKabelo.Range("C2:C129")
    If rngCella.Value <> "" Then
    rngCella.Value = Application.WorksheetFunction.VLookup(rngCella.Value, _
    rng_gyümölcsök, 2, 0)
    End If
    Next

    Sajnos egyik sem működik. Mit szúrok el?

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