Giovanni B. Machado

Buenas! Estou tentando formatar uma informação de "horas" via código. No excel, existe uma formatação do tipo [h]:mm:ss. Esta formatação permite retornar a quantidade de horas ininterruptas, sem o padrão de 24h, ou seja, vai somando o tempo e o resultado fica como no exemplo: 125:23:50 (cento e vinte e cinco horas, vinte três minutos e cinquenta segundos). Via excel é barbada, mas via código... não estou conseguindo... Tento utilizar a função format mas dessa forma não existe opção... Preciso exibir a qtde de tempo gasto, pegando uma data determinado e diminuindo pelo data e hora atuais. A rotina funciona, mas a apresentação da qtde de horas não funciona mais não tem como formatar utilizando o format (ou pelo menos não sei como faz...). Segue exemplo: vAgora = cDate(Now) MsgBox Format(CDate(Plan3.Range("B" & x).Value) - vAgora, "h:m") Alguém pode me ajudar? Att. Giovanni.

Pessoal, depois de muito quebrar a cabeça, finalmente consegui!!!!! Dim Rg As Range Dim rCelula As Range Dim cCelula As New Collection Dim vValor As Variant Set Rg = Plan28.Range("H2:H60000") ' Cria um único dado não duplicado na nova coleção For Each rCelula In Rg On Error Resume Next cCelula.Add rCelula.Value, CStr(rCelula.Value) Next rCelula ' Lista os dados na planilha de resultados x = 80 For Each vValor In cCelula Plan27.Range("G" & x).Value = vValor x = x + 1 Next vValor Set cCelula = Nothing

Boa tarde pessoal!!! Estou quebrando a mufa pra fazer um código que separe dados iguais dentro de um range. Por exemplo: tenho uma coluna onde estão listadas idades. Então, quero um código que faça a varredura dentro deste range e me diga quantas pessoas(contador) existem com determinadas idades. Desde já, obrigado! Giovanni.