Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Excel - makro

Neviem či som pochopil to čo chceš ale skús toto:

Public Sub ExcelTimer()
Dim PauseTime, Start, Finish, TotalTime
Finish = 1
TotalTime = 10
PauseTime = 3
Start = Timer
[g6].Select
Do While Timer < Start + (PauseTime * TotalTime)
DoEvents
If Timer >= Start + (PauseTime * Finish) Then
If ActiveCell.Address = Range("g6").Address Then
[g12].Select
Finish = Finish + 1
ElseIf ActiveCell.Address = Range("g12").Address Then
[g6].Select
Finish = Finish + 1
End If
End If
Loop
End Sub

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny