Makro za utipanje celic

Pomoč pri izdelavi makrov
Odgovori
direndaj
Prispevkov: 47
Pridružen: Po Sep 19, 2005 8:52 am
Kraj: Ljubljana

Makro za utipanje celic

Odgovor Napisal/-a direndaj »

Nekoč ste mi že pomagali s tem makrom, ki lepo deluje samo če makro ročno zaženem po odprtju zvezka. Želel pa bi, da se mi zažene sam ko odprem zvezek. Probal sem že nekaj stvari kot Private Sub Workbook_Open(), pa ne deluje.
Lepo prosim če mi lahko pomagate, v samem makru.
Najlepša hvala za vaš trud.

Const DolzinaUtripa As Double = 1
Const Obmocje As String = "j17,j22,s17:s22"

Dim NaslednjiZagon

Sub Utripaj()
With ActiveSheet.Range(Obmocje).Interior
If .ColorIndex = xlNone Then
.ColorIndex = 3
Else
.ColorIndex = xlNone
End If
End With

NaslednjiZagon = Now + TimeSerial(0, 0, DolzinaUtripa)
Application.OnTime NaslednjiZagon, "Utripaj"
End Sub

Sub UstaviUtripanje()
Application.OnTime NaslednjiZagon, "Utripaj", schedule:=False
ActiveSheet.Range(Obmocje).Interior.ColorIndex = xlNone
End Sub
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

V modul dodajte ta makro:

Koda: Izberi vse

Sub Auto_Open()
'
    Application.Run ThisWorkbook.Name & "!Utripaj"

End Sub
Lp
direndaj
Prispevkov: 47
Pridružen: Po Sep 19, 2005 8:52 am
Kraj: Ljubljana

Odgovor Napisal/-a direndaj »

Hvala za odgovor, samo kamor koli ga vstavim stvar ne deluje. Napiše, da ne najde makra (ime zvezka).
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Hvala za odgovor, samo kamor koli ga vstavim stvar ne deluje.
Prilagam celotno kodo v navadnem modulu:

Koda: Izberi vse

Const DolzinaUtripa As Double = 1
Const Obmocje As String = "j17,j22,s17:s22"

Dim NaslednjiZagon

Sub Utripaj()
With ActiveSheet.Range(Obmocje).Interior
If .ColorIndex = xlNone Then
.ColorIndex = 3
Else
.ColorIndex = xlNone
End If
End With

NaslednjiZagon = Now + TimeSerial(0, 0, DolzinaUtripa)
Application.OnTime NaslednjiZagon, "Utripaj"
End Sub

Sub UstaviUtripanje()
Application.OnTime NaslednjiZagon, "Utripaj", schedule:=False
ActiveSheet.Range(Obmocje).Interior.ColorIndex = xlNone
End Sub
Sub Auto_Open()
'

    Application.Run ThisWorkbook.Name & "!Utripaj"

End Sub
Napiše, da ne najde makra (ime zvezka).

Koda: Izberi vse

ThisWorkbook.Name
= ime vašega zvezka.

Meni dela :shock: .

Lp
direndaj
Prispevkov: 47
Pridružen: Po Sep 19, 2005 8:52 am
Kraj: Ljubljana

Odgovor Napisal/-a direndaj »

Hvala deluje, sedaj pa imam najbrž še en nerešljiv problem. Kako sedaj v tem listu kaj na novo shraniti in če to pošljem po mailu nekomu drugemu, zadeva tudi ne deluje.

Vseeno hvala za pomoč.
lp
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

:shock: Ne vem, zakaj ne bi mogel shraniti. Vsekakor pa prej izklopite utripanje.
Tisti na drugi strani maila, pa ima verjetno izklopljeno izvajanje makrov.

Lp
Odgovori