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

• #29482 szatocs1981 aktív tag Roxy27 #29481

  Új Válasz 2015-11-12 16:05:17 #29482

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

  Fejléc és hibakezelés még nincs benne, próbáld ki:
  Töröld a "Végeredmény" nevü fület, mielött futtatod a makrót!

  A makró létrehoz az elsö helyen egy "Végeredmény" nevü lapot, majd oda bemásolja az összes többi létezö lapról az adatokat, a megadot szabály szerint!

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

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