Valeu, DJunqueira
A fórmula =DATA(DIREITA(SUBSTITUIR(A1;CARACT(34);"");4);SUBSTITUIR(ESQUERDA(SUBSTITUIR(A1;CARACT(34);"");2);"/";"");EXT.TEXTO(SUBSTITUIR(A1;CARACT(34);"");LOCALIZAR("/";SUBSTITUIR(A1;CARACT(34);""))+1;LOCALIZAR("/";SUBSTITUIR(A1;CARACT(34);"");4)-LOCALIZAR("/";SUBSTITUIR(A1;CARACT(34);""))-1))+VALOR.TEMPO(SUBSTITUIR(SUBSTITUIR(A2;CARACT(34);"");DIREITA(SUBSTITUIR(A2;CARACT(34);"");2);" "&DIREITA(SUBSTITUIR(A2;CARACT(34);"");2)))
Ficou very good.
Quem quiser em VBA, pode usar a função:
Sub RemoveAspasAlteraFormato()
Plan1.Range("B1").Value = Format(Replace(Plan1.Range("A1").Value, Chr(34), ""), "dd/mm/yyyy")
Plan1.Range("B2").Value = Format(Replace(Plan1.Range("A2").Value, Chr(34), ""), "HH:MM")
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/01/2017 8:08 am