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

• #29474 szatocs1981 aktív tag Roxy27 #29473

  Új Válasz 2015-11-12 12:09:03 #29474

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

  Közben átírtam, mert nem volt jó:

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

  Page1- lapra "rámész" és futtatod a makrót!

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