Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #26670 huliganboy addikt Delila_1 #26668
    Új Válasz #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! :R

    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