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

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

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

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

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 =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

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

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[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...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

gracias, ultima pregunta, significado de =49407??

Excel trabaja con la escala de color RGB, que va de 0 a 16581375.
49407 corresponde al...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[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...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

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

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

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

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[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...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí