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

Příspěvky uživatele

Už si to nejako upravíš. Alebo skry ten stĺpec

jmeno = Range("H5") & ("-Dopis")
ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

No neviem, čo by som mal k tomu povedať.
Ja by som možno nesortoval prvý stĺpec a dal by som tam niečo takéto.
Alebo
Range(Cells(2,2),Cells(9,ActiveSheet.UsedRange.Rows.Count)).Select
Private Sub CommandButton1_Click()
volba = 0
ActiveSheet.Unprotect "Heslo"
If O1 = True Then volba = 2
If O2 = True Then volba = 3
If O3 = True Then volba = 4
If O4 = True Then volba = 5
If O5 = True Then volba = 6
If O6 = True Then volba = 7
If O7 = True Then volba = 8
If O8 = True Then volba = 9

If volba = 0 Then GoTo konec1

Range("b2:i200").Select
Selection.Sort Key1:=Range(Cells(2, volba), Cells(2, volba)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

konec1:
Cells(1, 1).Select
ActiveSheet.Protect "Heslo"
Unload Me

End Sub

http://wall.cz/index.php?m=topic&id=8247

Veď si daj jednoducho zaznamenať makro, a potom urob ako ti napísali vyššie.
Dostaneš niečo takéto.
Sub Makro1()
Rows("11:11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
End Sub

Veľmi som to nelúštil, niečo som vyhodil, niečo upravil.

A sumu slovom nájdeš aj tu.
http://www.pc-prog.eu/phpBB3/viewtopic.php?f=5&t=11

A keď to budeš mať všetko urobené, tak si to daj zoskupiť do jedného objektu. Aby sa ti to náhodou nepoposúvalo.

Že by takto?
Na karte VLOŽIT > Textové pole.
V prílohe si to prispôsob.

@misocko:
Jasné, bez súboru môžem iba tipovať, o čo ide.
Ale aspoň mu dám aj iné možnosti. Možno sa mu to hodí niekde inde.
Niekedy je ťažké vydolovať súbor, a niekedy ani ten veľa neobjasní.

Ten kód máš predsa v module makier. A ak dáš exportovať modul, tak ti to vyexportuje čistý kód do súboru *.bas

ALT+F11
nastav sa do makra
File > export

Sub compare()
With ActiveSheet
rw = 1
Do While Not IsEmpty(Cells(rw, 1).Value)
rw2 = 1
Do While Not IsEmpty(Cells(rw2, 2).Value)
If Cells(rw, 1).Value = Cells(rw2, 2).Value Then Cells(rw, 1).Interior.ColorIndex = 3
Cells(rw2, 2).Interior.ColorIndex = 3
End If
rw2 = rw2 + 1
Loop
rw = rw + 1
Loop
End With
End Sub

Tak asi si chcel takéto niečo.
Je to trochu také neučesané, ale snáď to bude stačiť.

Private Sub Nahoru_Click()
Cells(Selection.Row, 1).Select
Selection.Offset(-1, 0).EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(1, 0).EntireRow.Copy Selection.Offset(-1, 0)
Selection.Offset(1, 0).EntireRow.Delete Shift:=xlUp
Selection.Offset(-1, 0).Select
End Sub
Private Sub Dolu_Click()
Cells(Selection.Row, 1).Select
Selection.Offset(2, 0).EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Copy Selection.Offset(2, 0)
Selection.EntireRow.Delete Shift:=xlUp
Selection.Offset(1, 0).Select
End Sub

No v tom dlhom vzorci mám chybu, nechce sa mi to opravovať. Ale makro a aj pomenované vzorce to riešia.

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse