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

Příspěvky uživatele

No takto by to išlo
Sub Makro1()
Dim f, subor As String
f = FreeFile
subor = "text.tex"
Open subor For Output As f
data = Range("A1").Value
Print #f, data
Close #f
End Sub
Ale neviem načo takto vymýšľať, keď v editore VBA je možnosť exportu.

nastav sa na tú bunku, alebo vyznač celý text.
CTRL+C
Otvor si WORD alebo Notepad a
CTRL+V

Private Sub Dolu_Click()
Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Call CB1_Click
End Sub

Private Sub Nahoru_Click()
Selection.EntireRow.Delete Shift:=xlUp
End Sub

No skúsim uhádnuť. Asi ide o numerológiu.
Sú tam tri možnosti odlíšené farbou.

Treba ten súbor skomprimovať, alebo iba zmeň príponu a napíš to aj do komentára.

No ja to skladám takto nejako v bunkách E4, E2 a E3 je text a ten skombinujem.
ChDir "X:\TEMP"
ttt = "X:\TEMP\aaaaa.xls"
ttt = Replace(ttt, "aaaaa", Cells(4, 5) & "-" & Cells(2, 5) & "-" & Cells(3, 5))

ActiveWorkbook.SaveAs Filename:=ttt, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Tak si zmeň zvýraznený riadok.
Nabudúce prilep tvoj súbor, nech nemusíme vymýšľať.

Sub Makro1()
Selection.EntireRow.Copy
Sheets("Hárok2").Select
Range("A9").End(xlDown).Offset(1, 0).Select
If ActiveCell.Row >= 31 Then
ActiveCell.Insert
End If
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hárok1").Select
End Sub

Asi som aj ja "natvrdlej"

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje