Macro fecha y hora

[Acca]

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

 

[Antoni]

Debes subir tu archivo Excel para poder ver lo que te sucede.

 

[Acca]

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

 

[Antoni]

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

 

[jose ep]

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]

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

 

[jose ep]

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

gracias, ultima pregunta, significado de =49407??

 

[Antoni]

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:

Sub ColorCeldaActiva()
MsgBox "Color de la celda activa: " & ActiveCell.Interior.Color
End Sub

 

[Acca]

Muchisimas gracias a Josep e, Antoni, me ha sido de grana ayuda

Saludos

 

[jose ep]

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:

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????

 

[Antoni]

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?

 

[jose ep]

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]

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]

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: