Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #18957 Delila_1 veterán #05304832 #18955
    Új Válasz #18957
    Ú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 #05304832 #18955 üzenetére

    Nálam a másik tábla a Munka2 lapon van. Ez kétszer szerepel a makróban, írd át a saját lapod nevére. Segédoszlopként a Munka2 lap Z oszlopát használja, amit a másolás után töröl. Ha ezt az oszlopot használod, írd át a makróban mind a 4 helyen.

    A módosítások után kijelölöd az első lap B oszlopban a másolandókat, és indítod a makrót.

    Sub mm()
    Dim elso As Long, utolso As Long

    utolso = Sheets("Munka2").Range("C" & Rows.Count).End(xlUp).Row + 1
    If utolso = 2 Then utolso = 12
    Selection.Copy Sheets("Munka2").Range("Z" & utolso)
    Sheets("Munka2").Select
    elso = utolso: utolso = Range("Z" & Rows.Count).End(xlUp).Row
    Range("C" & elso & ":C" & utolso) = "=VLOOKUP(Z" & elso & ",Munka1!B:D,3,0)"
    Range("C12:C" & utolso).Copy
    Range("C12").Select
    Selection.PasteSpecial Paste:=xlValues
    Columns("Z").Delete
    End Sub

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