Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate ahora y podrás: / 💪 Hacer preguntas a los expertos / ⬇️ Descargar ejemplos y plantillas / 🏅 Acceder a contenidos premium

Regístrate gratis

Macro fecha y hora

Acca

New member
Hola buenas estoy en una base de datos y no encuentro el fallo.El tema está es que en la base quiero que cuando inserte un dato salga automáticamente en la celda de al lado la fecha y hora pero algo me falla en la fórmula, Alguien me puede ayudar?
Gracias
 

Acca

New member
Private Sub Worksheet_change(Byvaltarget As Range)
Dim rangocelda As Range
Dim fila As Integer
Set rangocelda = ("C4:10")
If not application.Intersect
(rangocelda,range(targe.adress))Is nothing then fila=target.row
Range("D" + LTrim(fila)).Value = Now
End If


End Sub

Private Sub Worksheet_change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
 

jose ep

Member
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C10")) Is Nothing Then Range("D" & Target.Row).Value = Now
End Sub
Hola Antonic, perdonar que me meta en la conversación, pero es que me interesa este código para que inserte fecha en una columna en concreto, como decía Acca.
Pero me gustaría saber si se puede, a la vez que se inserta la fecha, la celda pudiese quedar en color naranja.
gracias y perdonar por haberme colado en esta consulta.
saludos.
 

Antoni

Well-known member
Código:
Const Naranja As Long = 49407
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C10")) Is Nothing Then
   Range("D" & Target.Row).Value = Now
   Range("D" & Target.Row).Interior.Color = Naranja
End If
End Sub
 

Antoni

Well-known member
gracias, ultima pregunta, significado de =49407??
Excel trabaja con la escala de color RGB, que va de 0 a 16581375.
49407 corresponde al número de color del naranja.

¿Que como se que ese es el color del naranja?
Rellena con color naranja cualquier celda y ejecuta esta macro:
Código:
Sub ColorCeldaActiva()
MsgBox "Color de la celda activa: " & ActiveCell.Interior.Color
End Sub
 

jose ep

Member
Excel trabaja con la escala de color RGB, que va de 0 a 16581375.
49407 corresponde al número de color del naranja.

¿Que como se que ese es el color del naranja?
Rellena con color naranja cualquier celda y ejecuta esta macro:
Código:
Sub ColorCeldaActiva()
MsgBox "Color de la celda activa: " & ActiveCell.Interior.Color
End Sub


Saludos
pues a mi no me sale nada,,, que estoy haciendo mal????
 

Adjuntos

  • Libro1.xlsm
    17,5 KB · Visitas: 6

jose ep

Member
De acuerdo con tu petición, si cambias las celdas del rango C4:C10, en la misma fila, se informa día y hora en la columna A, resaltándola de color naranja. ¿Qué es lo que no te sale?
Pues que no me aparece nada y ya tengo curiosidad. Lo que me gustaría es; inserta cualquier datos en Columna A y que automáticamente me pusiera la fecha en el rango N:N (columna N) y, a su vez que la celda quedase coloreada con AZUL.
Tu ves posible esto. Gracias.
 

Antoni

Well-known member
Código:
Const Azul As Long = 15123099
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
   Range("N" & Target.Row).Value = Now
   Range("N" & Target.Row).Interior.Color = Azul
End If
End Sub
 

jose ep

Member
Código:
Const Azul As Long = 15123099
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
   Range("N" & Target.Row).Value = Now
   Range("N" & Target.Row).Interior.Color = Azul
End If
End Sub
Que bueno,,,,, un krac, muchas gracias, eso era lo que quería. El listado de los colores, y su numeración, donde lo puedo ver???
slu2, Antoni:
 

Temas similares

Arriba