Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • 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

  • #20125 the radish senior tag
    Új Válasz #20125
    Ú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

    the radish

    senior tag

    Sziasztok!

    Szeretnék egy makrót úgy átalakítani, hogy ha tegyük fel az A1 cella üres, akkor lépjen tovább és a következő része fusson le, de ha mondjuk 1, akkor fusson le az adott rész is.

    Ide kéne valami, ha 0, akkor a következő fusson, ha 1, akkor ez is.
    Sheets("00").Select
    Range("S7,U7:V7").Select
    Range("U7").Activate
    Selection.Copy
    Sheets("Vágólap").Select
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Windows("Csekk.xls").Visible = True
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.Visible = False
    Sheets("00").Select
    Range("A6:C6").Select
    ActiveWorkbook.Save

    Ide kéne valami, ha 0, akkor a következő fusson, ha 1, akkor ez is.
    Sheets("00").Select
    Range("S8,U8:V8").Select
    Range("U8").Activate
    Selection.Copy
    Sheets("Vágólap").Select
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Windows("Csekk.xls").Visible = True
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.Visible = False
    Sheets("00").Select
    Range("A6:C6").Select
    ActiveWorkbook.Save

    Ide kéne valami, ha 0, akkor a következő fusson, ha 1, akkor ez is.
    Sheets("00").Select
    Range("S10,U10:V10").Select
    Range("U10").Activate
    Selection.Copy
    Sheets("Vágólap").Select
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Windows("Csekk.xls").Visible = True
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.Visible = False
    Sheets("00").Select
    Range("A6:C6").Select
    ActiveWorkbook.Save
    ...

    Köszi előre is.

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