Te anexo la macro para poner la fecha en la columna "C"
Pon todo el siguiente código en los eventos de tu hoja
Public valido
'
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If valido = True Then
If Not Intersect(Target, Columns("C")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Len(Target.Value) <> 6 Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub
dia = Val(Mid(Target.Value, 1, 2))
mes = Val(Mid(Target.Value, 3, 2))
año = Val("20" & Mid(Target.Value, 5, 2))
fecha = DateSerial(año, mes, dia)
Target.NumberFormat = "dd/mm/yyyy"
Application.EnableEvents = False
Target.Value = fecha
Application.EnableEvents = True
valido = False
End If
End If
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
valido = False
If Not Intersect(Target, Columns("C")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value <> "" Then Exit Sub
valido = True
Target.NumberFormat = "@"
End If
End Sub
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.