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

Příspěvky uživatele

@AL
Prečo blbosť? Uzol za hodinu je predsa zrýchlenie. Aj keď netuším, načo mu to bude. Možno čuchol k niečomu inému.

Sub knot()
Dim bunka As Range
On Error Resume Next
For Each bunka In Selection
If bunka <> "" Then bunka = bunka * 1.852
Next
End Sub
Toto ti prípadne prepočíta aj dátum na km/hod. Predpokladám, že sám vieš na čo sa pýtaš. A tiež vieš ako priradiť k tlačítku makro.

námorná míľa=1,852km
anglická míľa=1,609344 km
rímska míľa ≈ 1,480 km
rakúsko-uhorská míľa ≈ 7,586 km

uzol=námorná míľa /hodina ?????

Tak som to aj ja upravil.

@jiri-komarek

Ďakujem, ale ja som si už excel kúpil od microsoftu

A čo tak zlúčiť bunky A1 a A2 do jednej?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target,Range("b13:o199"))Is Nothing Then
Targetl.Interior.ColorIndex = 5
End If
End Sub

Googel
"makra v excelu"
určite si niečo vyberieš.
A tiež
"funkcie excel česky"

@xlnc
No pomaly ma už nebaví každému druhému opakovať, že má dať prílohu. Niekedy tá príloha aj tak odporuje pôvodnému zadaniu. A v tomto prípade tá príloha bola pridaná až neskôr.
K tomu C7:A350. Zistil som, že VBA cyklus funguje aj s takouto oblasťou. Ale Podľa prílohy asi malo byť C7:C350.
A rada typu "Vemte mu ten počítač" je niekedy síce lákavá, ale jej časté opakovanie je skôr na škodu.

No mne to na tomto ide.

@Pavlus
No myslím, že excel2003 sa nekamaráti s COUNTIFS. Súdim podľa prílohy *.xls.

No snáď takto
Sub VytvorList()
Dim tentolist As String
tentolist = ActiveSheet.Name
For Each bunka In Range("c1:c350")
If bunka <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=bunka, Address:="", SubAddress:= _
bunka & "!A1", TextToDisplay:=bunka.Value
Next bunka
For Each bunka In Range("c1:c350")
If bunka <> "" Then
On Error Resume Next
Sheets(2).Copy After:=Worksheets(Sheets.Count): ActiveSheet.Name = bunka: Range("C3") = bunka
On Error GoTo 0
End If
Next bunka
Sheets(tentolist).Activate
End Sub

Dúfam, že viac už nebudeš vymýšľať.

A čo je to kliknutie na určitú bunku?

Skús tento kód
Sub VytvorList()
Dim tento As String
tento = ActiveSheet.Name
For Each bunka In Range("C7:A350")
If bunka <> "" Then
On Error Resume Next
Sheets.Add After:=Worksheets(Sheets.Count): ActiveSheet.Name = bunka
On Error GoTo 0
End If
Next bunka
Sheets(tento).Activate
End Sub
Ale ak tam už taký list bude, tak čo sa má urobiť?

C7:A350 ?????
To potrebuješ vytvoriť prípadne aj 1000 nových listov?
To akože v exceli?

No lúštiť kód nemienim.
Ale xlnc dal dostatočný návod ako to urobiť.
Aj elninoslov bod č.3 je dobrý. A nielen ten bod ale všetko.
Možno ešte pred ukončením procedúra by bolo vhodné dať to ešte prepočítať. Ale to nemienim stopovať.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje