< návrat zpět

MS Excel

Téma: zjistit existenci listu rss

Zaslal/a PavDD 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ší »
PavDD(22.1.2024 10:10)#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
Začátečník(22.1.2024 12:23)#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
Stalker(22.1.2024 12:40)#056014
Stalker
Private Function ListExistuje(ByVal strJmeno As String) As Boolean
On Error Resume Next
ListExistuje = Not Worksheets(strJmeno) Is Nothing
End Function
citovat
PavDD(22.1.2024 13:48)#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
Stalker(22.1.2024 14:11)#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
Začátečník(22.1.2024 14:11)#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
PavDD(22.1.2024 14:53)#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
Stalker(22.1.2024 15:05)#056022
Stalker
Já Ti to přece nenutím! Dělej si s tím co chceš.citovat
PavDD(22.1.2024 21:45)#056028
avatar
..zas se mi ta příloha nepřicvakla.
Ještě jednou.
Příloha: zip56028_dotazlist.zip (15kB, staženo 2x)
citovat
PavDD(22.1.2024 21:46)#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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje