PROBLEMA COM DOIS PONTOS NO VBA
Olá Galera...
Estou com um problema ao pegar um valor de hora no VBA. Tem uma célula eu tenho um campo hora (10:00), porém quando eu mando pegar o valor e jogar para outra cédula ele vem com outro valor por causa dos dois pontos.
Sub teste()
'tem 10:00 na célula
MsgBox Sheets("plan1").Range("a1").Value
'resultado 0,4166666666667
End Sub
Como eu faço pra pegar o valor conforme está escrito "10:00" ??
Tentei declarar como string mas mesmo assim não deu certo...
Obrigado !!
Um Abraço !!!
Estou com um problema ao pegar um valor de hora no VBA. Tem uma célula eu tenho um campo hora (10:00), porém quando eu mando pegar o valor e jogar para outra cédula ele vem com outro valor por causa dos dois pontos.
Sub teste()
'tem 10:00 na célula
MsgBox Sheets("plan1").Range("a1").Value
'resultado 0,4166666666667
End Sub
Como eu faço pra pegar o valor conforme está escrito "10:00" ??

Tentei declarar como string mas mesmo assim não deu certo...
Obrigado !!
Um Abraço !!!
Tente converter o resultado em data (Cdate)
Espero ter ajudado
Espero ter ajudado
Olá CEREBRO ! Tudo Blz ?
O problema é que ele busca de uma lista que tem palavras e datas.
O meu programa faz assim: O usuário vai digitando os dados solicitados (nome, data, hora..) e vai jogando na planilha. Depois a macro busca estes valores com base no titulo e as organiza conforme o titulo da informação. Sendo assim não tenho como converter da maneira que vc falou.
Existe alguma maneira de converter o valor da célula em text ou string ?
Desde já Obrigado !!!
um Abraço !!!
O problema é que ele busca de uma lista que tem palavras e datas.
O meu programa faz assim: O usuário vai digitando os dados solicitados (nome, data, hora..) e vai jogando na planilha. Depois a macro busca estes valores com base no titulo e as organiza conforme o titulo da informação. Sendo assim não tenho como converter da maneira que vc falou.
Existe alguma maneira de converter o valor da célula em text ou string ?
Desde já Obrigado !!!
um Abraço !!!
Faça assim:
MsgBox Sheets("plan1").Range("a1").Text
MsgBox Sheets("plan1").Range("a1").Text
Funcionou ! Valeu Rafael !
Tópico encerrado , respostas não são mais permitidas