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

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

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