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

Příspěvky uživatele

Veď to iba skopíruješ.

No takto by to stačilo?
V riadku 32 sú tie vzorce
a riadok 31 musí zostať prázdny.

Aké vzorce?

No asi takto nejako.
Sub Makro1()
Selection.EntireRow.Copy
Sheets("Hárok2").Select
Range("A1000000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hárok1").Select
End Sub

Asi takto by to mohlo byť?
Je tam zmena nastavenia. Po ENTER sa kurzor neposúva.
Kliknutím na MAKRO sa posun obnoví.

Mám kratší "vzorček"
=IF(ISERR(FIND(" ";C4));PROPER(C4);PROPER(LEFT(C4;FIND(" ";C4)-1))&LOWER(RIGHT(C4;LEN(C4)-FIND(" ";C4)+1)))

V excel 2003 klikneš na tú značku v bunke C5 a vyberieš si "vlastné" a doplníš kritériá.
A môžeš si to nahrať aj ako makro.

Sub Makro1()
Selection.AutoFilter Field:=2, Criteria1:=">=1500000", Operator:=xlAnd
End Sub

Použi funkciu COUNTIF

Načo pomocné stĺpce?
Klikni na to celkom(bunka C5) a vyber si položku filter
Väčsie alebo rovné 1500000

Snáď to ide aj v Excel 2003

No išlo by to takto nejako.

najmenšia => =MIN(ABS(List1!$A$1:$A$5))

Pri toľkých riadkoch to asi bude problém 9000 krát spustiť hľadanie riešenia niečo trvá. Paralelne to asi nepôjde. Je to dosť zložitý vzorec.
Nešlo by to skrátiť? neskúmal som o čo tam ide. Ale vyhodnocovať toľko výsledkov je makačka. Neviem na čo to slúži.

Možno by sa dalo skúsiť toto, ale asi úspora nebude veľká. Záleží aké sú dáta.

If bunka.Offset(0, -8) <> 0 Then bunka.GoalSeek Goal:=0, ChangingCell:=bunka.Offset(0, 1)

Asi som to dobre nepochopil.
Ale tie zmeny nemusíš vracať naspäť. Stačí ak ten súbor po vytvorení pdf proste neuložíš.

Neviem, či som to dobre pochopil.
skús toto makro


Sub reseni()
For Each bunka In Range("ad4:ad27")
bunka.GoalSeek Goal:=0, ChangingCell:=bunka.Offset(0, 1)
Next
End Sub

Nemám tu excel 2007.
Skús toto

Sheets(Array("Hárok1", "Hárok3", "Hárok2")).Select
ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\tisk.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

=LOOKUP(A1;{-99999;0;1235};{"nie";"ano";"nie"})

poprípade aj takto
=LOOKUP(C1;A1:A3;{"nie";"ano";"nie"})
A1=-9999999
A2=0
A3=1235

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje