Zavrieť

Porady

Kopírovanie buniek z viacerych harkov do jedneho

Potreboval by som v ramci jedneho zosita (prilozeny subor), zkopirovat (alebo nejak inak dostat) hodnoty buniek z jednotlivych harkov do spolocneho. Vytvoril som aj makro, ktore to urobi. Problem vsak pride vtedy, ked pridam v hocktorom harku dalsi riadok (výdaj). Makro mi tento riadok uz nezoberie. Treba mysliet na to, ze prilozeny subor je iba ukazkovy. Potreboval by som to do suboru, v ktorom mam 7 harkov a kazdy harok ma stovky zapisanych riadkov. V makre som pouzil aj funkciu "end" s ktorym si vyznacim vsetky riadky, ale kopiruje iba tie, ktore boli zapisane v case vytvorenia makra.
Dakujem za pomoc.

(prilohu som nedal, lebo som teraz pri pridani zistil, ze *.xlsm nejde uploadnut. mozem poslat mailom)
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    Ako na to si použil už pre jednotlivé listy.

    Pri návrate na list "Spolocny" som kód doplnil o nasledovný riadok:
    Code:
    Range("A2").End(xlDown).Offset(1, 0).Select
    Doporucujem na zaciatku staré hodnoty premazat. Napr. takto:


    Code:
    Sub naskor_zmazat_vsetko()
    
        Sheets("spolocny").Select
        Range("A2").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.ClearContents
    
    End Sub
    P.

    TIP:
    End(xlDown) ide len po neprázdnu bunku v stĺpci, nie na poslednú.
    Ak treba ísť na poslednú vyplnenú bunku v stĺpci, je lepšie použiť "skok zo spodu", napr. podobnú funkciu:

    Code:
    Sub AccessLastCellInClumn()
        Dim a As Range, lastcell As Range
        
        Set a = Columns(ActiveCell.Column)
        Set lastcell = a.Cells(a.Cells.Count).End(xlUp)
        lastcell.Offset(1, 0).Activate
    End Sub
    Naposledy upravil PaloPa : 19.10.10 at 14:35

    Kopírovanie buniek z viacerych harkov do jedneho

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.