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

• #25432 Delila_1 veterán Treb #25430

  Új Válasz 2015-02-13 09:51:15 #25432

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

  Első lapnak betettem egy Havi nevűt, ahova bemásoltam a többi lap címsorát. Minden lapon az első a címsor.

  Az összegző makró:

  Sub Kigyujtes()
  Dim usor As Long, sor As Long, lap As Integer, WSH As Worksheet
  Dim WF As WorksheetFunction
  
  Set WF = Application.WorksheetFunction
  Set WSH = Sheets("Havi")
  
  For lap = 2 To Worksheets.Count
  With Sheets(lap)
  usor = .Range("A" & .Rows.Count).End(xlUp).Row
  .Rows("2:" & usor).Copy WSH.Range("A" & WF.CountA(WSH.Columns(1)) + 1)
  End With
  Next
  End Sub

  Szerk.: eddig nem szórta szét a fórummotor ilyen randán a sorokat.

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