Hirdetés

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

  • Bishop1

    tag

    válasz Delila_1 #16830 üzenetére

    Köszönöm, közben megoldódott.
    Érdekes hogy egy másik gépen szintén nem sikerült vízszintes léptető nyilat húzni, egy harmadikon meg igen...
    Közben új kérdések merültek fel.
    Hogy tudnám a következő makrót úgy módosítani hogy a megnyitott új munkalap neve az aktuális dátum legyen? Sokat bonyolítana hogy ha többször nyit új munkalapot egy nap akkor egy számlálóval a végére beszúrjon egy számot?

    Sub Gomb80_Kattintás()
    '
    ' Gomb80_Kattintás Makró
    '

    '
    Sheets("t").Select
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$D$66").AutoFilter Field:=4, Criteria1:="<>"
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Columns("A:A").ColumnWidth = 24
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Sheets("t").Select
    Selection.AutoFilter
    Sheets("napi").Select
    End Sub

    Illetve a másik kérdésem hogy meg lehet megoldani hogy minden 20-al kezdődő nevű munkalap adott két celláját (pl c1 és d1) egy munkalapon visszakapjam egymás alá listázva?

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