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

• #16854 Delila_1 veterán Bishop1 #16852

  Új Válasz 2013-02-23 09:40:52 #16854

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

  Második kérdés. A Gyűjtő nevű lap C:D oszlopába gyűjti ki a 20-szal kezdődő nevű napok C1:D1 cellájának az adatait.

  Sub C1D1()
  Dim usor As Integer, lap As Integer
  For lap = 1 To Worksheets.Count
  If Left(Sheets(lap).Name, 2) = "20" Then
  usor = Sheets("Gyűjtő").Cells(Rows.Count, "C").End(xlUp).Row + 1
  Sheets(lap).Range("C1:D1").Copy Sheets("Gyűjtő").Range("C" & usor)
  End If
  Next
  End Sub

• #16853 Delila_1 veterán Bishop1 #16852

  Új Válasz 2013-02-23 09:27:55 #16853

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

  Az első kérdésre a makró:

  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(1).Select
  Range("A1").Select
  Selection.CurrentRegion.Select
  lap = Worksheets.Count
  Selection.Copy Sheets(lap).Range("A1")
  Sheets(lap).Select
  Selection.AutoFilter
  Columns("A:A").ColumnWidth = 24
  End Sub

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