06/11/2008, 06:59
|
| | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 9 meses Puntos: 88 | |
Valor numérico a fecha Hola! Pablo.
Una sugerencia inicial: ante una nueva consulta (como lo es la tuya), trata de abrir un nuevo tema.
Como alternativa a lo que te sugiere 3pies :
a) Selecciona el rango de celdas en las que quieres provocar el efecto;
b) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja (abajo a la izquierda) y selecciona "Ver código";
c) En la ventana que se te abrirá, copia y pega lo siguiente:
Código:
Sub CambiaA_FormatoFecha()
With Selection
.Value = Evaluate("transpose(transpose(DATE(LEFT(" & _
.Address & ", 4), MID(" & .Address & ", 5, 2), RIGHT(" & _
.Address & ", 2) )))")
.NumberFormat = "dd-mmm-yyyy"
End With
End Sub
d) Selecciona cualquier parte del código anterior y presiona una sola vez la tecla <F5>
Comenta como te ha ido, ¿si?
Saludos para todos, Cacho.
Última edición por mrocf; 06/11/2008 a las 07:14 |