Excel VBA nový list Vyřešeno

[Zbygi]

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]

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.

[Zbygi]

Ahoj, a děkuji za přivítání, ale bohužel pořád to nefunguje a problém přetrvává

[lubo.]

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]

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