• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

No zrejme záleží, čo si predstavujeme pod pojmom "posledná bunka".

V prílohe je tá žltá bunka ako posledná. Ale v tvojom prípade nie.

Možno aj výška riadku je "posledná použitá bunka". Ale pri zmene šírky stlpca to nefunguje rovnako.

Máš pravdu, je tu trochu nezrovnalosť medzi formátovaním bunky, formátovaním riadkov a formátovaním stlpcov.

Asi bude záležať, čo chceme vlastne dosiahnuť.

V prílohe sú oba spôsoby.
Výsledok je rovnaký. Neviem v akých prípadoch by to nemalo fungovať.

Nemôžeš priložiť súbor?
Stlpec "L" má poradové číslo 12.

@agnusxx
To preto lebo nemáš pomenovaný hárok "vysledok"
Keby si priložil tvoj súbor, tak by som to napasoval na tvoj.

Možno kopírovať aj takto.

Sub KopírujList()
Set rng = ActiveSheet.UsedRange 'tento list sa kopíruje
Set rng2 = Worksheets("Vysledok").UsedRange ' sem sa kopíruje
riadok = rng2.Cells(1, 1).Row + rng2.Rows.Count - 1
rng.Copy Worksheets("Vysledok").Cells(rng.Row + riadok, rng.Column)
End Sub

Sub KopirujList()
Set rng = ActiveSheet.UsedRange
Set rng2 = Worksheets("vysledok").UsedRange
riadok = rng2.Cells(1, 1).Row + rng2.Rows.Count - 1
rng.Copy Worksheets("vysledok").Cells(rng.Row + riadok, rng.Column)
End Sub

Toto skopíruje aj formáty. Netestujem prázdny list, skopíruje sa prázdny riadok.
Do cyklu si to už hodíš sám
Asi som to nemal písať sem, ale riadok je posledný použitý riadok. Podobne sa určí aj stlpec.

No mohlo by to byť takto
=IFERROR(INDEX($C$1:$C$5;MATCH(A1;$B$1:$B$5;0);1);"")
Ale neviem ako mám niečo priradiť k číslu, ktoré neexistuje.

Ako zobrazené?
To sa majú ostatné bunky (teda riadky, alebo stlpce)skryť?

Daj si do pomocného stlpca vzorec
=OR(A2="a";A2="b";A2="c")
=NEBO(A2="a";A2="b";A2="c")
A vyfiltruj si to podľa toho.
Stlpec môžeš potom skryť.

Poki ani sa ti nedivím.
Aj pre mňa je to v cudzej reči.
Pochopil som z toho iba jedno. Iba zadávateľ presne vie čo chce.

Alebo
IF Weekday(Cells(i, "A") - 1) >5 then Cells(i, "A").Interior.ColorIndex = 4

cesta="C:\Documents and Settings\jan\Dokumenty\"

for i=1 to 10

jmeno=cesta & "sešit" & i & ".xls" 'Alebo jmeno=cesta & cells(i,1)
ActiveWorkbook.SaveAs Filename:= jmeno
next i

Jakub
Prosím ťa, vymaž si aspoň tie
ActiveWindow.ScrollRow
v úvodnom príspevku.
Nedá sa na to pozerať.
Ď.

Ak si dáš zaznamenať makro a potom dáš uložiť súbor. Tak po ukončení záznamu makra by si tam mal mať niečo takéto.

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\jan\Dokumenty\Zošit1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Ešte som to upravil aby tam nebolo násobenie nulou.

Niečo takéto?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje