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

• #16863 Delila_1 veterán Bishop1 #16858

  Új Válasz 2013-02-23 17:29:03 #16863

  Ú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

  

  Delila_1

  veterán

  válasz Bishop1 #16858 üzenetére

  Figyelmesebben átolvasva azt szeretnéd, ha az új, dátum nevű lapokon a"t "lap címsora (A1:D1 tartomány) jelenne meg a második sorban, az A1 cellában pedig a dátum. Ha jól értem, nincs szükség az autoszűrő ki-bekapcsolására, csak a felső sort kell másolni.

  Javaslom, hogy a bővítménykezelőben kapcsold be az Analysis ToolPak és az Analysis ToolPak -VBA bővítményeket, mert valószínű, hogy ezeknek a hiánya miatt futott hibára az előző verzió. Ezekkel kapsz egy halom hasznos új függvényt.

  Sub Gomb80_Kattintás()
  Dim lap As Integer, szam, ujnev
  Sheets(1).Select
  lap = Worksheets.Count
  If Left(Sheets(lap).Name, 10) = CDate(Date) And Len(Sheets(lap).Name) > 11 Then
  szam = Right(Sheets(lap).Name, Len(Sheets(lap).Name) - 12)
  ujnev = szam + 1
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_" & ujnev
  Else
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_1"
  End If
  
  Sheets("t").Range("A1:D1").Copy Sheets(lap + 1).Range("A2")
  Sheets(lap + 1).Select
  Range("A1") = Date
  Columns("A:A").ColumnWidth = 24
  Sheets("napi").Select
  End Sub

• #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