Excel VBA nový list Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Zbygi
nováček
Příspěvky: 5
Registrován: květen 15
Pohlaví: Muž
Stav:
Offline

Excel VBA nový list

Příspěvekod Zbygi » 24 kvě 2015 11:18

Ahoj, trochu jsem se začal vrtat v programování VBA a když jsem přes VBA vytvořil nový list kde název je generován jako číslo Uložené v buňce A1. Nemůžu rozchodit odkaz na nový list přes buńku A1 - prosím o pomoc a radu...
Sheets("A1").Select

nebo celý kód

Sub stůl1a()
If Cells(1, 1).Value = 0 Then
uctenka = Cells(1, 50) + 1
Cells(1, 50) = uctenka
Cells(1, 1) = uctenka
Sheets.Add(After:=Sheets(Sheets.Count)).Name = uctenka
Cells(2, 1) = uctenka
End If
uctenka = Cells(1, 1)
NazevListu = Cells(1, 1)
Sheets("objednat").Cells(1, 7) = uctenka
Sheets("objednat").Cells(2, 7) = "1a"
Sheets("start").Select
Sheets(a1).Select

End Sub

Reklama
Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Excel VBA nový list

Příspěvekod Azuzula » 24 kvě 2015 12:46

Ahoj a vítej na PC-HELPu.

Odkazuj se na název v buňce přes range, nebo cells takhle:

Kód: Vybrat vše

Sheets(range("a1").value).Select
'nebo
Sheets(cells(1,1).value).Select


Tvůj zápis odkazuje na list jménem A1.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.

Zbygi
nováček
Příspěvky: 5
Registrován: květen 15
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA nový list

Příspěvekod Zbygi » 24 kvě 2015 23:16

Ahoj, a děkuji za přivítání, ale bohužel pořád to nefunguje a problém přetrvává
Přílohy
help.xls
přikládám soubor s problémem
(73 KiB) Staženo 32 x

lubo.
Level 2
Level 2
Příspěvky: 192
Registrován: červen 13
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA nový list

Příspěvekod lubo. » 25 kvě 2015 01:45

Musíš vědět, co je v buňce. V tomto případě tam máš číslo a hledáš list s indexem. V tomto případě je třeba obsah buňky nějak převést na text. Např.:

Sheets(""&cells(1,1).value).Select

Zbygi
nováček
Příspěvky: 5
Registrován: květen 15
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA nový list  Vyřešeno

Příspěvekod Zbygi » 26 kvě 2015 11:01

Ok, moc děkuju. To je přesně to co jsem potřeboval.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - filtr hyperlinku na druhý list Příloha(y)
    od mikiracan » 06 čer 2023 11:49 » v Kancelářské balíky
    2
    2431
    od mikiracan Zobrazit poslední příspěvek
    18 srp 2023 10:17
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5984
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2317
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1633
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1836
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti