............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Formato de Horas y Minutos, automatico

Ver el tema anterior Ver el tema siguiente Ir abajo

Formato de Horas y Minutos, automatico

Mensaje por GalileoGali el Sáb Jul 19, 2008 2:47 pm

Preguntan:¿Cómo hacer para que tipeando en una celda 1122, se cambie automaticamente por 11:22
Respondo, si en la Columna "A" de determinada Hoja, SE QUIERE LOGRAR ESTE EFECTO, pegra el codigo siguiente, en el Módulo de la Hoja en cuestion.....
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strHora As String
With Target
If .Column <> 1 Then Exit Sub
Application.EnableEvents = False
If .Count > 1 Then .ClearContents
If Not IsNumeric(.Value) Then .ClearContents
If Len(.Text) > 4 Then .ClearContents
strHora = Application.Rept("0", 4 - Len(.Text)) & .Text
strHora = Left(strHora, 2) & ":" & Right(strHora, 2)
.Formula = strHora
End With
Application.EnableEvents = True

End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.