dodajanje lista

[rick]

pozdravljeni

kako bi z makrom dodal list v excelu in ga preimenoval v "izračun"

za odgovor se zahvaljujem.
lp rick

[admin]

Koda: Izberi vse

Sub DodajList()
  Dim novList As Worksheet
  
  Set novList = Sheets.Add
  novList.Name = "Izračun"
End Sub

[rick]

pozdravljeni

najprej hvala.

ja koda je ok,želel bi še,da v kolikor list "izračun" že obstaja,da ga prepiše,
ali pa da se makro ne izvede.no morda bi bilo boljše,če se list prepiše.

no v vašem primeru mi list "izračun" lepo doda,če pa še enkrat zaženem
makro pa se ta seveda ustavi,saj list z tem imenom že obstaja.

bi se dalo tudi to rešiti??

za odgovor se iskreno zahvaljujem.

lp rick

[admin]

no v vašem primeru mi list "izračun" lepo doda,če pa še enkrat zaženem
makro pa se ta seveda ustavi,saj list z tem imenom že obstaja.

Saj niste nikjer zapisali, da bi vas to motilo! No kakorkoli spodaj imate makro, ki vam v primeru, da lis že obstaja, slednjega pač izbriše in naredi novega:

Koda: Izberi vse

Option Explicit

' www.matjazev.net
' februar 2008
Function AliListObstaja(ImeLista As String) As Boolean
  Dim Sh As Worksheet
 
  AliListObstaja = True
 
  On Error Resume Next
  Set Sh = Worksheets(ImeLista)
  If Err Then AliListObstaja = False
End Function

Sub DodajList()
  If (AliListObstaja("Izračun")) Then
    Application.DisplayAlerts = False
    Worksheets("Izračun").Delete
    Application.DisplayAlerts = True
  End If
     
  Dim novList As Worksheet
  
  Set novList = Sheets.Add
  novList.Name = "Izračun"
End Sub

[rick]

pozdravljeni

saj saj,nisem predvideval.
najlepša hvala za vaš trud,in pozdrav v forum.

lp rick