< návrat zpět

MS Excel


Téma: zjistit existenci listu rss

Zaslal/a 22.1.2024 10:07

Zdravím.Potřeboval bych odladit kod, který mi založí nový list.Když už list s tímto názvem existuje ,vyskočí chyba a debug.

Dá se to ošetřit ?
..že to jen oznámí, že už takový list existuje a jestli chci pokračovat dále, nebo skončit.

používám: Sheets.Add.Name = NázevListu 'založí nový list

Díky

Zaslat odpověď >

Strana:  1 2   další »
#056009
avatar
...Popř.i proceduru, nebo vzorec ??.. na jednoduché zjištění, jestli už takovýto název listu v sešitu existuje.
Nějak přečíst seznam listu a v něm se zeptat jestli existuje??citovat
#056013
Začátečník
Dim sh As Worksheet
Dim jmenoListu As String

For Each sh In ActiveWorkbook.Sheets
If sh.Name = jmenoListu Then
MsgBox "List již existuje."
End If
Next sh

citovat
#056014
Stalker
Private Function ListExistuje(ByVal strJmeno As String) As Boolean
On Error Resume Next
ListExistuje = Not Worksheets(strJmeno) Is Nothing
End Function
citovat
#056017
avatar
...nemůžu to rozjet, prosím můžete to implementovat do přikladu?

Dim sh As Worksheet

Dim jmenoListu As String

For Each sh In ActiveWorkbook.Sheets

If sh.Name = jmenoListu Then

MsgBox "List již existuje."

End If

Next shcitovat
#056018
Stalker
Sub PridejList()
Dim JmenoListu As String
JmenoListu = "Tralala"
If ListExistuje(JmenoListu) = False Then
Worksheets.Add.Name = JmenoListu
Else
MsgBox "List s názvem: """ & JmenoListu & """ již existuje. Zvolte jiné jméno", _
vbExclamation, "Duplicita listů"
End If
End Sub
citovat
#056019
Začátečník
Standardní je vložit přílohu.

Rychlejší a elegantnější je řešení od Stalker
Private Function ListExistuje(ByVal strJmeno As String) As Boolean
On Error Resume Next
ListExistuje = Not Worksheets(strJmeno) Is Nothing
On Error GoTo 0
End Function

Sub JeList()
If ListExistuje("Test") Then
MsgBox "List existuje."
Else
MsgBox "List neexistuje."
End If
End Sub
citovat
#056021
avatar
MsgBox "List s názvem: """ & JmenoListu & """ již existuje. Zvolte jiné jméno", _

no to právě nechci-zvolit jiné jméno.
Chci to vyhodnotit tak, že když už list existuje, tak nebudu ho tvořit znovu /ani s jiným názvem/ ale budu pracovat dále již v něm. Prostě přeskočím tu tvorbu nového listu.citovat
#056022
Stalker
Já Ti to přece nenutím! Dělej si s tím co chceš.citovat
#056028
avatar
..zas se mi ta příloha nepřicvakla.
Ještě jednou.
Příloha: zip56028_dotazlist.zip (15kB, staženo 1x)
citovat
#056029
avatar
Neumím to vyhodnotit v tom kodu.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46