Bergi
19.10.10,12:49
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)
Dakujem za pomoc.
(prilohu som nedal, lebo som teraz pri pridani zistil, ze *.xlsm nejde uploadnut. mozem poslat mailom)
PaloPa
19.10.10,11:59
XLSM treba najskôr skomprimovať-zozipovať (WinZip (http://downloads.zoznam.sk/program/winzip-44), WinRar (http://www.winrar.sk/index.php?cast=prevzatie), 7-zip (http://downloads.zoznam.sk/program/7-zip-44)) a až potom pripnúť na Poradu.
P.
P.
Bergi
19.10.10,12:05
dik. teda v prilohe je *.xlsm
PaloPa
19.10.10,12:20
Ako na to si použil už pre jednotlivé listy.
Pri návrate na list "Spolocny" som kód doplnil o nasledovný riadok:
Range("A2").End(xlDown).Offset(1, 0).SelectDoporucujem na zaciatku staré hodnoty premazat. Napr. takto:
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:
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
Pri návrate na list "Spolocny" som kód doplnil o nasledovný riadok:
Range("A2").End(xlDown).Offset(1, 0).SelectDoporucujem na zaciatku staré hodnoty premazat. Napr. takto:
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:
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