Macro para borrar una celda si otra esta vacía o se borra.
Estimados, espero puedan ayudarme.
Cree la siguiente macro para que cuando modifique una determinada celda de la columna N en las celdas de la columna Q y R me aparezcan la fecha de modificación y el usuario que lo modifico respectivamente. Como la hoja esta protegida también le agregre que proteja y la desproteja para que todo funcione bien.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 14 Then
ActiveSheet.Unprotect "créditos"
Cells(Target.Row, 17).Value = Date
ActiveSheet.Protect "créditos"
End If
If Target.Column = 14 Then
ActiveSheet.Unprotect "créditos"
Cells(Target.Row, 18).Value = Application.UserName
ActiveSheet.Protect "créditos"
End If
End Sub
Lo que estoy necesitando es que en el caso de que haya modificado una celda de la columna N y luego la borre para dejarla vacía. También me borre las celdas de la columna Q y R.
Espero haber sido lo mas claro posible,.
Muchas Gracias
1 Respuesta
Cambia tu macro por esta
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 14 Then
ActiveSheet.Unprotect "créditos"
If Target = "" Then
Cells(Target.Row, 17).Value = ""
Cells(Target.Row, 18).Value = ""
Else
Cells(Target.Row, 17).Value = Date
Cells(Target.Row, 18).Value = Application.UserName
End If
ActiveSheet.Protect "créditos"
End If
End Sub Saludos.Dam
Si es lo que necesitas.
