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

• #26670 huliganboy addikt Delila_1 #26668

  Új Válasz 2015-04-24 10:59:00 #26670

  Ú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

  

  huliganboy

  addikt

  válasz Delila_1 #26668 üzenetére

  Szia!

  A pár nappal ezelőtti makrót amit készítettél az egyik barátommal továbbvittük kicsit....
  A kérdése maz lenn, hogy az üres sorokat, hogyan tudnánk kiszedni.....

  Köszönöm!

  Sub ido()
  Dim sorInnen As Long, sorIde As Long, oszlop As Integer
  Dim usor As Long
  
  Sheets("Munka2").Select
  sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
  
  For sorInnen = 3 To usor Step 2
  For oszlop = 2 To 8
  Sheets("Munka5").Cells(sorIde, 3) = Left(Cells(sorInnen, oszlop), 5)
  Sheets("Munka5").Cells(sorIde, 5) = Right(Cells(sorInnen, oszlop), 5)
  sorIde = sorIde + 1
  Next
  
  Next
  Sheets("Munka5").Select
  Call helyszin
  End Sub
  
  Sub helyszin()
  Dim sorInnen As Long, sorIde As Long, oszlop As Integer
  Dim usor As Long
  
  Sheets("Munka2").Select
  sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
  For sorInnen = 4 To usor Step 2
  For oszlop = 2 To 8
  Sheets("Munka5").Cells(sorIde, 7) = Cells(sorInnen, oszlop)
  sorIde = sorIde + 1
  Next
  Next
  
  Sheets("Munka5").Select
  Call nap
  End Sub
  
  Sub nap()
  Dim sorInnen As Long, sorIde As Long, oszlop As Integer
  Dim usor As Long
  Dim hossz As Long
  
  Sheets("Munka2").Select
  sorInnen = 1: sorIde = 2: usor = Range("b" & Rows.Count).End(xlUp).Row
  For sorInenn = 3 To usor Step 2
  For oszlop = 2 To 8
  Sheets("Munka5").Cells(sorIde, 2) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde, 4) = Cells(sorInnen, oszlop)
  sorIde = sorIde + 1
  Next
  Next
  Call edzo
  End Sub
  
  Sub edzo()
  
  
  Dim sorInnen As Long, sorIde As Long, oszlop As Integer
  Dim usor As Long
  
  Sheets("Munka2").Select
  sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
  
  
  For sorInnen = 3 To usor Step 4
  For oszlop = 1 To 1
  Sheets("Munka5").Cells(sorIde, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 1, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 2, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 3, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 4, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 5, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 6, 1) = Cells(sorInnen, oszlop)
  Next
  For oszlop = 1 To 1
  Sheets("Munka5").Cells(sorIde + 7, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 8, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 9, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 10, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 11, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 12, 1) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 13, 1) = Cells(sorInnen, oszlop)
  Next
  For oszlop = 2 To 8
  sorIde = sorIde + 1
  Next
  For oszlop = 2 To 8
  sorIde = sorIde + 1
  
  
  Next
  Next
  Call korosztaly
  End Sub
  
  Sub korosztaly()
  
  
  Dim sorInnen As Long, sorIde As Long, oszlop As Integer
  Dim usor As Long
  
  Sheets("Munka2").Select
  sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
  
  
  For sorInnen = 5 To usor Step 4
  For oszlop = 1 To 1
  Sheets("Munka5").Cells(sorIde, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 1, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 2, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 3, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 4, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 5, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 6, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 7, 6) = Cells(sorInnen, oszlop)
  Next
  For oszlop = 1 To 1
  Sheets("Munka5").Cells(sorIde + 7, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 8, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 9, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 10, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 11, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 12, 6) = Cells(sorInnen, oszlop)
  Sheets("Munka5").Cells(sorIde + 13, 6) = Cells(sorInnen, oszlop)
  Next
  For oszlop = 2 To 8
  sorIde = sorIde + 1
  Next
  
  
  For oszlop = 2 To 8
  sorIde = sorIde + 1
  
  
  Next
  Next
  Sheets("Munka5").Select
  End Sub

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