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

• #18957 Delila_1 veterán #05304832 #18955

  Új Válasz 2013-09-12 18:12:54 #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