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

    IT café

    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

  • #15598 Delila_1 Topikgazda gurabli #15595
    Új Válasz #15598
    Ú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

    Delila_1

    Topikgazda

    válasz gurabli #15595 üzenetére

    Minden feladatra van több megoldás. Lappy válasza is biztosan jó, én mást agyaltam ki.

    Úgy látom a csatolt képen, hogy azon a lapon, ahonnan másolni kell, az N oszlopban folyamatosan vannak adatok, ezért ebből az oszlopból veszem az utolsó sort.
    A két Set kezdetű sorban írd át a lapok nevét.

    Sub Tizenhat()
    Dim sorIN%, sorID%, usorIN%, WSIN As Worksheet, WSID As Worksheet
    Set WSIN = Sheets("Innen")
    Set WSID = Sheets("Ide")
    usorIN% = WSIN.Cells(Rows.Count, "N").End(xlUp).Row 'utolsó sor az Innen lapon

    sorID% = 10
    Do
    For sorIN% = 2 To usorIN%
    WSID.Cells(sorID%, "G") = WSIN.Cells(sorIN%, "N")
    sorID% = sorID% + 6
    Next
    Loop While sorIN% < usorIN%
    End Sub

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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