excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA - Automatické přidání a pojmenování listů
MS Excel
Téma: VBA - Automatické přidání a pojmenování listů 
Zaslal/a Anicka 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: 
37118_sesit1.zip (32kB, staženo 52x)
37118_sesit1.zip (32kB, staženo 52x)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
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
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
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
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
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
Omlouvám se, ale bohužel to nejde spustit.
v 5 a 6 řádeku je někde chyba.citovat
v 5 a 6 řádeku je někde chyba.citovat
No mne to na tomto ide.
Příloha: 37135_sesit1.zip (22kB, staženo 75x)
citovat37135_sesit1.zip (22kB, staženo 75x)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
(6.8.2017 12:00)#037160
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články