Priložena koda deluje, vendar pa če hočem pomotoma še enkrat vstaviti list brez da bi spremenil podatek "Ime (Range A1)",
se zadeva zatakne. Potreboval bi nakaj v smislu:
-preveri, če list s tem imenom že obstaja
-MsgBox vbOK
- izberi list Razpored, celico A1
Hvala za pomoč in lep pozdrav!
Koda: Izberi vse
Private Sub cmdDodaj_Click()
Dim ImeNovegaLista As String
Dim Ime As String
Ime = Range("A1")
Sheets("Razpored").Visible = True
Sheets("Razpored").Copy After:=Worksheets(Worksheets.Count)
ImeNovegaLista = Ime
ActiveWindow.ActiveSheet.Name = Format(Ime, "mmm.yy")
With ActiveWindow.ActiveSheet.Tab
.Color = 10027008
End With
ActiveSheet.Shapes("cmdDodaj").Visible = False
Sheets("Razpored").Visible = True
Sheets("Razpored").Select
Worksheets(1).Cells(1, 1) = Worksheets(1).Cells(1, 1)
Range("A1").Select
End Sub