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

Příspěvky uživatele

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.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje