Ú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

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