pogojni makro

Pomoč pri izdelavi makrov
Odgovori
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

pogojni makro

Odgovor Napisal/-a luka_k »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

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
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

Odgovor Napisal/-a luka_k »

uh,tega sam nebi spravil skupaj :?

iskrena vam hvala.

lp :wink:
Odgovori