If ActiveCell.Value < ActiveCell.Offset(0, 2).Value Then
frm1.L7.Visible = True
' Tukaj naj bi v eni sekundi dvakrat utripnilo, nato ostane vidno
Else
frm1.L7.Visible = False
End If
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
Najlepša hvala za odgovor, vendar mi zadeva ne deluje. V VBA sem vstavil nov modul in vpisal kodo, katero ste napisali. Ko hočem odpreti formo, mi javi napako " Only comments may appear after Ena Sub,End Function, or End Property"
Kje sem ga polomil?
Sub Sleep()
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
End Sub