pozdravljeni
kako bi izvedel makro:
if sheet("list1)=true then
'torej,če list1 obstaja potem
'moj makro
če ste me razumeli,potem mislim,da naloga ne bo pretežka.
za odgovor se zahvaljujem.
lp
pogojni makro
nekaj takšnega...
Koda: Izberi vse
' 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 IzvediMojMakro()
If AliListObstaja("List1") Then
KliciNekMakro
End If
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator