Excel Alterar os minutos por comando ou click

[Jmbs]

Prezados, boa tarde!

 

Gostaria de ver a possibilidades de alterar/alternar os minutos das colunas F e L aleatoriamente por comando ou click. Esses minutos devem ficar entre 00 e 09.

 

 

JMBS   

Preenchimento de Cartão.xls

[Midori]

@Jmbs Veja se assim resolve,

 

Sub MacroAlteraMinuto()
    Call AlteraMinuto([F10:F25])
    Call AlteraMinuto([L10:L25])
End Sub

Sub AlteraMinuto(Area As Range)
    Dim Hora As Range
    
    For Each Hora In Area
        Hora.Value = _
            Left(Hora.Value, 2) & ":" & _
            Format(Int(Rnd() * 10), "00")
    Next Hora
End Sub

 

[Jmbs]

@Midori

 

Boa tarde. 


Estou retornando para agradecer pela sua ajuda e resposta. 
Obrigado!

[Jmbs]

@Midori

 

Conforme já havia respondido a solução que você postou foi ótima e resolveu. Entretanto gostaria de saber se tem como limitarmos a formula apenas as abas que tem o arquivo, porque me parece que antes de executar, a macro esta fazendo uma varredura nas demais aba e ficando meio lenta.

 

 

Atenciosamente, 

[Midori]

A macro não faz varredura nas abas, só faz no range passado como argumento para a função. E o tempo de processamento varia com a quantidade de linhas.

 

Com base no exemplo, o que pode ser feito para otimizar isso é processar as duas colunas no mesmo loop para reduzir o tempo pela metade.

[Jmbs]

@Midori

 

Muito obrigado pela informação!