Excel VBA nový list
Napsal: 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
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