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

Příspěvky uživatele

Ak kopíruješ iba jeden stlpec (A), tak asi takto.

Sub hyperlink()
Application.ScreenUpdating = False
'kód
Application.ScreenUpdating = true
End Sub

Alebo skús toto
Sub hyperlink()
a = 61
r = 4
Set ws1 = Worksheets("objednávky")
Set ws2 = Worksheets("objednávky s materiálem")

' tady to muséme přepnout na druhý list, aby se vložil odkaz, jináč mi to zatím nejde :)
ws2.Activate

Do While ws1.Cells(r, 2) <> ""
Do While ws2.Cells(a, 10) <> ""
If ws1.Cells(r, 2) = ws2.Cells(a, 1) Then
ws1.Hyperlinks.Add Anchor:=Cells(r, 22), Address:="", SubAddress:= _
"'objednávky s materiálem'!B" & a, TextToDisplay:=ws1.Cells(r, 2).Text

ws2.Hyperlinks.Add Anchor:=Cells(a, 2), Address:="", SubAddress:="'objednávky'!V" & r, TextToDisplay:=ws1.Cells(r, 2).Text

Exit Do
End If
a = a + 1
Loop
a = 61
r = r + 1
Loop
' a zase zpět na původní list
ws1.Activate
End Sub

A ako by si to riešil matematicky?
Daj postup a v exceli ti to podľa toho urobím.

V nápovede som našiel toto:

Zmena oddeľovača vo všetkých textových súboroch .csv
1.V systéme Microsoft Windows kliknite na tlačidlo Štart a potom kliknite na položku Ovládací panel.
2.Otvorte dialógové okno na zmenu miestnych a jazykových nastavení.
3.Do poľa Oddeľovač zoznamu zadajte nový oddeľovač.
4.Kliknite dvakrát na tlačidlo OK.
Poznámka Po zmene znaku oddeľovača zoznamu pre daný počítač budú všetky programy používať nový znak ako oddeľovač zoznamu. Nastavenie znaku môžete rovnakým postupom vrátiť na predvolený znak.

kp57:
To máš pravdu, takto by to išlo spustiť. Otázka je, aký kód dať na tie tlačítka PAUZA a STOP. A čo by som počas tej PAUZY mal urobiť? Upraviť niečo v liste?

Vo funkcii SVYHLEDAT to nejde. Pozri si nápovedu po stlačení F1. To číslovanie nie je v žiadnom stlpci. Musel by si si to číslovanie skopírovať napríklad do stlpca "A".
Bez toho pomocného stlpca to ide ako som už uviedol.

Netuším načo by mali slúžiť tlačítka PAUSE a KONEC. Za behu makra sa aj tak stlačiť nedajú.
Možno bude stačiť CTRL+BREAK a potom sa rozhodneš, či prerušiť alebo skončiť.

Skopíroval som to do 2010 a potom naspäť do 2003.
Skús, či to funguje. Ja tu nemám excel 2003.

Skús to vytvoriť znovu skopíruj si to z toho fungujúceho hárku a uprav. Ten nefungujúci vymaž. To bude asi najrýchlejšie.

V 2003 to blbne tak ako bolo popísané.
V 2010 to funguje tak ako to fungovať má.

Pri zabezpečení hárka by si mal mať aspoň toto jedno zaškrtnuté.

V bunke C1 je hodnota 13
=OFFSET(A1;C1-1;1) - odkaz na bunku B13
=INDIRECT("B"&C1) - odkaz na bunku B13

OFFSET=POSUN
INDIRECT=Nepřímý.odkaz

Jasné. Aj tak sa dá.

Tak potom takto.

Sub Makro1()
a = Array("B4:B16", "B20:B34") ' doplň si to do konca
b = Array("L5A", "L5A") ' aj tu si to doplň, počet musí byť rovnaký.

For i = LBound(a) To UBound(a)
Sheets("shift_1").Range(a(i)).Copy
Sheets(b(i)).Range(a(i)).PasteSpecial Paste:=xlPasteValues
Next i
Application.CutCopyMode = False
End Sub

'L5A assy
sheets("shift_1").Select
Range("B4:B16").Select
Selection.Copy
sheets("L5A").Select
Range("B4:B16").Select
Selection.PasteSpecial Paste:=xlPasteValues
Toto nahraď takto. Skopíruje ti to aj vzorce.

'L5A assy
sheets("shift_1").Range("B4:B16").Copy sheets("L5A").Range("B4:B16")

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje