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

• #16859 Bishop1 tag Bishop1 #16858

  Új Válasz 2013-02-23 13:59:56 #16859

  Ú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 Bishop1 #16858 üzenetére

  Erre jutottam végül kis segítséggel, de ez nem számlálja az oldalakat, vagyis ha aznap még egy munkalapot nyitnék akkor hibaüzenetet ad az azonos munkalap nevek miatt. Ezt továbbgondolva, mi a módja hogy ha ilyenkor nyitáskor azonos munkalap nevet talál felülírja a frissebbel?

  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:=3, Criteria1:="<>"
  Selection.Copy
  Sheets.Add(After:=Worksheets(Sheets.Count)).Name = Date
  Columns("A:A").ColumnWidth = 24
  ActiveSheet.Paste
  Range("A1").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "2/23/2013"
  Sheets("t").Select
  Selection.AutoFilter
  Sheets("napi").Select
  Range("O8").Select
  End Sub

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