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
Makro za utipanje celic
V modul dodajte ta makro:
Lp
Koda: Izberi vse
Sub Auto_Open()
'
Application.Run ThisWorkbook.Name & "!Utripaj"
End Sub
Prilagam celotno kodo v navadnem modulu:Hvala za odgovor, samo kamor koli ga vstavim stvar ne deluje.
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
Meni dela .
Lp