merhabalar. bir geri sayım sayacı yaptım belirlediğim hücreler için fakat 1 den fazla sayaç çalışmıyor.
ne yapabilirim ne ekleyebilirim?
yardımlarınız için teşekkürler.
kullandıgım kodlar aşağıda
ne yapabilirim ne ekleyebilirim?
yardımlarınız için teşekkürler.
kullandıgım kodlar aşağıda
Kod:
Dim StopTimer As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Set ws = Me
If Not Intersect(Target, ws.Range("P2:P25")) Is Nothing Then
StopTimer = False
Countdown ws, Target.Row
End If
End Sub
Sub StopCountdown()
StopTimer = True
End Sub
Sub Countdown(ws As Worksheet, row As Long)
Dim timeCell As Range
Dim counterCell As Range
Dim timeValue As Double
Dim startTime As Double
Set timeCell = ws.Cells(row, 16)
Set counterCell = ws.Cells(row, 17)
If Not IsEmpty(timeCell.Value) Then
timeValue = timeCell.Value * 60
Do While timeValue >= 0 And Not StopTimer
counterCell.Value = Format(TimeSerial(0, 0, timeValue), "hh:mm:ss")
DoEvents
startTime = Timer
Do While Timer < startTime + 1
DoEvents
Loop
timeValue = timeValue - 1
Loop
End If
End Sub