2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #26982 Árnymester tag Cifu #26981
    Új Válasz #26982
    Ú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

    Árnymester

    tag

    válasz Cifu #26981 üzenetére

    Lehet nem a legelegánsabb megoldás...

    Sub Szetszed()
    Dim MyWs As Worksheet
    Set MyWs = ActiveSheet
    'Az első másolandó sor száma
    r = 1
    Do Until Not IsEmpty(MyWs.Cells(r, 1)) 'Ide olyan oszlopot adj meg, ami minden sorban tartalmaz adatot!
    ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
    'Ide jönnek az oszlopok, a c1-c5-ök helyére a forrás(MyWs) értékes oszlopait kell beírni.
    'Címsor másolása
    ActiveSheet.Cells(1, 1).Value = MyWs.Cells(1, c1)
    ActiveSheet.Cells(1, 2).Value = MyWs.Cells(1, c2)
    ActiveSheet.Cells(1, 3).Value = MyWs.Cells(1, c3)
    ActiveSheet.Cells(1, 4).Value = MyWs.Cells(1, c4)
    ActiveSheet.Cells(1, 5).Value = MyWs.Cells(1, c5)
    'Adatok másolása
    ActiveSheet.Cells(1, 1).Value = MyWs.Cells(r, c1)
    ActiveSheet.Cells(1, 2).Value = MyWs.Cells(r, c2)
    ActiveSheet.Cells(1, 3).Value = MyWs.Cells(r, c3)
    ActiveSheet.Cells(1, 4).Value = MyWs.Cells(r, c4)
    ActiveSheet.Cells(1, 5).Value = MyWs.Cells(r, c5)
    r = r + 1
    Loop
    End Sub

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