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

• #16852 Bishop1 tag Delila_1 #16830

  Új Válasz 2013-02-23 01:07:26 #16852

  Ú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

  

  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