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

Příspěvky uživatele

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ť.

Takže až keď zlyhajú všetky možnosti, tak treba vložiť prílohu?

@veny
Máš pravdu aj v anglickom exceli je to rovnako.
No vloudila se chybička.

A keď si tam zadáš hodnotu 100, tak ti to má vytvoriť 100 riadkov s hodnotou "Tužka"?
To dáva zmysel.

Potrebuješ list tabuľky? Tak si ho vytvor. Tu to nikto za teba neurobí.

No zabudol som povedať, že keď to všetko urobíš, tak ten stlpec B môžeš vymazať.
Filtrovať alebo zoraďovať tie zoznamy môžeš hocikedy.

Že by vymazať tú procedúru?

Do B1 dáš vzorec
=IF(COUNTIF(A1;C:C)=0;NA();"ok")
a skopíruješ do konca

Potom stlač
F5
vyber špeciálne > vzorce
zaškrtni iba chyby
a dáš odstrániť riadky.
Teda ak ti nevadí aj odstránenie stlpca C. Pre istotu si ho skopíruj na iný hárok.

Stačí takýto návod?

@Matus
A ty si porozumel tomu tvojmu zadaniu bez toho aby si sa pozeral na tie tvoje súbory?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje