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

• #25440 Delila_1 veterán Treb #25439

  Új Válasz 2015-02-13 11:11:49 #25440

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

  Szívesen.

• #25438 Delila_1 veterán Treb #25437

  Új Válasz 2015-02-13 11:01:52 #25438

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

  A próbálkozások között törölnöd kellett volna a Havi lap kigyűjtött adatait.
  Beírtam a makróba, hogy tegye ezt meg.

  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")
  usor = WSH.Range("A" & WSH.Rows.Count).End(xlUp).Row
  WSH.Range("A2:K" & usor).ClearContents
  
  For lap = 2 To Worksheets.Count
  With Sheets(lap)
  .Range("A100:K200").Copy WSH.Range("A" & WF.CountA(WSH.Columns(1)) + 1)
  End With
  Next
  End Sub

• #25434 Delila_1 veterán Treb #25433

  Új Válasz 2015-02-13 10:28:47 #25434

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

  A
  .Rows("2:" & usor).Copy WSH.Range("A" & WF.CountA(WSH.Columns(1)) + 1)

  sorban a félkövér helyére

  Range("A100:K200")-at írj.

  Az usor = .Range("A" & .Rows.Count).End(xlUp).Row sor nem kell.

  Még a Dim kezdetű sorból is kimaradhat az usor As Long, de nem szükséges kitörölni, nem árt semmit.

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