< návrat zpět

MS Excel


Téma: VBA - Automatické přidání a pojmenování listů rss

Zaslal/a 4.8.2017 14:16

Dobrý den,
mohla bych poprosit o radu?
Mám v jednom listu (C7:A350) hodnoty (jsou tam i prázdné buňky) a chtěla bych ke každé této hodnotě vytvořit nový list s odpovídajícím názvem. Tedy hodnota v buňce=název listu + po kliknutí na určitou buňku by se zobrazil odpovídající list.
Existuje na to nějaký postup?
Děkuji.
MO Professional Plus 2010

Příloha: zip37118_sesit1.zip (32kB, staženo 44x)
Zaslat odpověď >

Strana:  1 2 3   další »
#037123
avatar
C7:A350 ?????
To potrebuješ vytvoriť prípadne aj 1000 nových listov?
To akože v exceli?citovat
#037124
avatar
Anocitovat
#037126
avatar
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ť?citovat
#037127
avatar
A čo je to kliknutie na určitú bunku?citovat
#037128
avatar
Děkuji.
Když tam ten list bude, tak
- by se měla do všech listů umístit tabulka (viz 2. list v příloze)
- do sloučených buněk C-G 3 by se měl umíst stejný název listu
- kliknutí na určitou buňku znamená, že se na prvním listu na každou buňku v sloupci C vloží hypertextový odkaz. Po kliknutí na tento odkaz se přesunu na stejně pojmenovaný list.citovat
#037131
avatar
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ť.citovat
#037134
avatar
Omlouvám se, ale bohužel to nejde spustit.
v 5 a 6 řádeku je někde chyba.citovat
#037135
avatar
No mne to na tomto ide.
Příloha: zip37135_sesit1.zip (22kB, staženo 51x)
citovat
#037143
elninoslov
Pri kopírovaní kódu z fóra do VBA, vznikajú medzi riadkami nadbytočné prázdne riadky, čo robí galibu ak je riadok kódu rozhodený na viac riadkov pomocou " _" na konci - riešenie je zmazať nadbytočné riadky.citovat
#037160
avatar
C7:A350 ... první indicie
1000 listů ... druhá indicie

Proč tu není nikdo schopen se zeptat, k čemu tomu všechno, když víte, že zadání na pytel = řešení na pytel??? Mrd ho sem s nějakým kódem, o kterém je podle indicií jasné, že uživatelka nebude schopna ho pochopit/ aplikovat/upravit, protože nějaké povědomí o Excelu je (bez urážky) dost bídné? Ale za arogantního parchanta tu budu já :-) Čemu pak říkáte pomoc... Ano, marjankaj se sice zeptá, ale vzápětí sem i přes pochybnosti nacpe kus (i když nejspíš solidního) kódu.

A hups, místo upřesnění původního zadání vzniká nové (nejasné) :-)

"Když tam ten list bude, tak
- by se měla do všech listů umístit tabulka (viz 2. list v příloze)"

Fakt už tu jen chybí řešení přes PowerCokoliv od mepexg. Ach jo.citovat

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse