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

• #29486 szatocs1981 aktív tag szatocs1981 #29482

  Új Válasz 2015-11-13 06:36:41 #29486

  Ú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

  

  szatocs1981

  aktív tag

  válasz szatocs1981 #29482 üzenetére

  Fejléccel:

  Sub Makro1()
  
  Worksheets(1).Select
  Sheets.Add
  Worksheets(1).Name = "Végeredmény"
  
  WS_Count = ActiveWorkbook.Worksheets.Count
  
  Call TiliToli("A", "E", 2, 0)
  Call TiliToli("C", "F", WS_Count, 40)
  
  End Sub
  
  Sub TiliToli(Spalte1, Spalte2, ettol, eddig)
  
  For i = 2 To ettol
  
  utolso = Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
  
  For szorzo = 0 To eddig Step 8
  
  For sor = 1 To 8
  
  ujsor = sor + szorzo
  Worksheets(1).Cells(utolso + 1, sor) = Worksheets(i).Cells(ujsor, Spalte1).Value
  
  If sor <> 1 Then
  Worksheets(1).Cells(utolso + 1, sor + 7) = Worksheets(i).Cells(ujsor, Spalte2).Value
  End If
  
  Next sor
  
  utolso = utolso + 1
  
  Next szorzo
  
  Next i
  
  End Sub

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