Aplicar Change(ByVal Target As Range) con varios rangos

Buenos días DAM de acuerdo a lo que me has enviado intente crear varios rango pero me da error:

quisiera que lo que se modifique el rango H18:H48 me escriba en N de la hoja "data la fecha

quisiera que lo que se modifique el rango A18:A48 me escriba en M de la hoja "data la fecha

quisiera que lo que se modifique el rango B18:B48 me escriba en O de la hoja "data la fecha

quisiera que lo que se modifique el rango C18:C48 me escriba en P de la hoja "data la fecha

quisiera que lo que se modifique el rango D18:D48 me escriba en Q de la hoja "data la fecha

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("H18:H48")) Is Nothing Then
For Each t In Target
Sheets("Data").Cells(t.Row, "N") = Date
Next
End If
End Sub

1 Respuesta

Respuesta
1

Así:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("H18:H48")) Is Nothing Then
    For Each t In Target
        Sheets("Data").Cells(t.Row, "N") = Date
    Next
End If
If Not Intersect(Target, Range("A18:A48")) Is Nothing Then
    For Each t In Target
        Sheets("Data").Cells(t.Row, "M") = Date
    Next
End If
If Not Intersect(Target, Range("B18:B48")) Is Nothing Then
    For Each t In Target
        Sheets("Data").Cells(t.Row, "O") = Date
    Next
End If
If Not Intersect(Target, Range("C18:C48")) Is Nothing Then
    For Each t In Target
        Sheets("Data").Cells(t.Row, "P") = Date
    Next
End If
If Not Intersect(Target, Range("D18:D48")) Is Nothing Then
    For Each t In Target
        Sheets("Data").Cells(t.Row, "Q") = Date
    Next
End If
End Sub

Saludos.DAM

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Que hacer con el mensaje next sin For en visual basic

Tengo la siguiente macro y me esta apareciendo un mensajee que tengo un error de compilación Next sin For. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:D3")) Is Nothing Then...
1 respuesta

Poder suprimir en esta macro

De esta macro: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range(" A12:E60000")) Is Nothing Then Target.Value = UCase(Target.Value) End Sub Poder suprimir la linea : "On Error Resume Next" Y que...
1 respuesta

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta

Revisión de código para guardar imágenes en una carpeta en especifico

Que me proporcionaron en el foro: Con este código, se guarda la imagen de excel en una carpeta en especifico Sub ejemplo2() 'Por.DAM On Error Resume Next For i = 2 To Range("A" & Rows.Count).End(xlUp).Row For Each img In ActiveSheet.DrawingObjects If...
1 respuesta

Macro para colorear rango según un valor

Necesito un función que me colore el rango (B5:F5) si A5=2 y asi sucesivamente hacia abajo... Osea que busque en la columna A todos los numero 2 y me colore los rangos respectivos. Espero puedan ayudarme...
1 respuesta

Ejecutar varias macros según valor en un rango de celdas

Tengo 12 celdas en el rango C26:N26. Estas celdas pueden tomar distintos valores. Desearía que cuando tomen el valor de 1 se ejecuten las macros correspondientes: macro1, macro2, macro3…. Hasta la macro12. Es decir si en la celda D26 y en la celda...
1 respuesta

Pegar del UserForm dos veces un número en la misma hoja seleccionada... Para Dante Amor

Me proporcionaste una macro tal como te la pedí, quedó perfecta, pero también te comenté que yo quería hacer la siguiente parte sobre esta misma, pero me falló, ahora apelo a tu buena voluntad de apoyarme con esta partecita… Una vez hecha la...
1 respuesta

Ajustar ubicación de imagenes para reconocer un catalogo a una hoja de excel

Tengo este código que me ayudaron a editarlo en el foro, a mis necesidades y funciona perfectamente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Mod.Por.DAM On Error Resume Next If Not Intersect(Target, Range("H4:H723")) Is Nothing...
1 respuesta