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

• #44348 bela85 aktív tag

  Új Válasz 2020-06-24 14:51:22 #44348

  Ú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

  

  bela85

  aktív tag

  Egy újabb kérdés.. mivel makróban nem vagyok teljesen otthon...

  Adott egy excelben levő nyomtatvány a munka1 lapon.. a B3 mezőbe szeretném a nevet írni, de úgy, hogy makróval a másik lapról a B2-tól ameddig van töltve az oszlop.

  Makrórögzítővel elkezdtem (mivel leprogramozni nem tudom), frankón működik, de kéne bele egy for ciklus ami végigmegy a munka2 lap B2 cellájrától, hogy meddig van töltve a B oszlop.. és ismétli a makrot.

  Tudna valaki segíteni benne?

  Köszönöm előre is!

      Sheets("Munka1").Select
    Range("B3").Select
    Selection.ClearContents
    Sheets("Munka2").Select
    Range("B2").Select
    Selection.Copy
    Sheets("Munka1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
    Sheets("Munka1").Select
    Range("B3").Select
    Selection.ClearContents
    Sheets("Munka2").Select
    Range("B3").Select
    Selection.Copy
    Sheets("Munka1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

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