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

Příspěvky uživatele

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?

Najlepšie by bolo to podmienené formátovanie vyhodiť a nahradiť to vyfarbením bunky podľa toho stlpca G. To sa dá jednoducho makrom, podľa hodnôt priradí farbu .interior.colorindex=(0-56), niečo si vyberieš.

Potom zase tvojím makrom prenesieš aj farbu
Pridáš si tam ešte riadok.
List2.Cells(rd2, sl) = Cells(rd1, 6)
List2.Cells(rd2, sl).interior.colorindex = Cells(rd1, 6).interior colorindex

Asi najlepšie bude ísť na to odzadu

Sub KillPrazdnyList()
Dim ws As Worksheet
Dim i As Long, j As Long, c As Integer
c = ThisWorkbook.Worksheets.Count
Application.DisplayAlerts = False
On Error GoTo konec
For i = c To 1 Step -1
Set ws = Worksheets(i)
ws.Activate
'Debug.Print ws.Name
If ws.UsedRange.Cells.Count = 1 Then
If ws.UsedRange.Value = "" Then ws.Delete
End If
Next i
GoTo finito
konec: MsgBox " Tento list už nemôže byť zrušený"
finito: Application.DisplayAlerts = True
End Sub

Ešte dva príklady. Na každom liste jeden.
Je použitý cyklus FOR. Je rýchlejší ako DO WHILE.

TARGET (cieľ)je bunka alebo oblasť(RANGE), ktorej sa udalosť týka. Napríklad pri udalosti CHANGE je to bunka, ktorá je menená.
Ďalšie formáty si môžeš doplniť do bloku WITH.

Tu je to ešte raz kompletné.
Samozrejme namiesto COLORINDEX môžeš použiť aj COLOR. Je to lepšie.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje