En esta macro, rectificar el cambio de letra y color de la celda

Tengo esta macro creada por Dante Amor, que me va perfecta:

Pero me interesaría que cuando vuelvo a escribir en la columna "D", que me la pone en negrita en el Range("A10:E60000") solamente en la línea que escribo.
Me la ponga también e la letra en blanco
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("A10:E60000")) Is Nothing Then
For Each c In Target
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="1"
If Not Intersect(c, Range("D10:D600")) Is Nothing Then
If Range("B" & c.Row) = "" Then fbold = False Else fbold = True
Range("B" & c.Row) = Date - 1
Range("B" & c.Row & ":E" & c.Row).Font.Bold = fbold
End If
c.Value = UCase(c.Value)
Application.EnableEvents = True
Next
ActiveSheet.Protect Password:="1"
End If
End Sub

Pero me interesaría que cuando vuelvo a escribir en la columna "D", que me la pone en negrita en el Range("A10:E60000") solamente en la línea que escribo, como esta en la macro.
Me la ponga también la letra en blanco con negrita y las celdas en rojo.
Si se puede.

1 Respuesta

Respuesta
1

H o l a:

Te anexo 2 opciones para que pruebes cuál es la que necesitas

Prueba con esta opción

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("A10:E60000")) Is Nothing Then
        Application.EnableEvents = False
        ActiveSheet.Unprotect Password:="1"
        For Each c In Target
            If Not Intersect(c, Range("D10:D600")) Is Nothing Then
                If Range("B" & c.Row) <> "" Then
                    Range("B" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3
                    Range("B" & c.Row & ":E" & c.Row).Font.ColorIndex = 2
                End If
                If Range("B" & c.Row) = "" Then fbold = False Else fbold = True
                Range("B" & c.Row) = Date - 1
                Range("B" & c.Row & ":E" & c.Row).Font.Bold = fbold
            End If
            c.Value = UCase(c.Value)
        Next
        Application.EnableEvents = True
        ActiveSheet.Protect Password:="1"
    End If
End Sub

O con esta opción :

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("A10:E60000")) Is Nothing Then
        Application.EnableEvents = False
        ActiveSheet.Unprotect Password:="1"
        For Each c In Target
            If Not Intersect(c, Range("D10:D600")) Is Nothing Then
                If Range("B" & c.Row) = "" Then fbold = False Else fbold = True
                Range("B" & c.Row) = Date - 1
                Range("B" & c.Row & ":E" & c.Row).Font.Bold = fbold
                Range("B" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3
                Range("B" & c.Row & ":E" & c.Row).Font.ColorIndex = 2
            End If
            c.Value = UCase(c.Value)
        Next
        Application.EnableEvents = True
        ActiveSheet.Protect Password:="1"
    End If
End Sub

S a l u d o s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para crear tabla dinámica seleccionando archivo csv

Tengo un libro excel el cual necesito conectar con un archivo csv que se va actualizando. Necesito una macro a la que yo le indique la ubicación del archivo csv y me cree una tabla dinámica con ese contenido en la hoja "datos" de mi libro. Con las...
1 respuesta

Introducir codifico de producto y que me salga descripción en tabla de excel

Necesitaba en una hoja de excel que al teclear el código del producto me saliese la descripción del producto
4 respuestas

Cómo automatizar una tabla Power Query

En un trabajo de Excel he sacado una tabla con power query. Necesito que la tabla creada por power query se automatice al cambiar los datos de la tabla Excel.
1 respuesta

Estoy en excel trabajando con una lista de datos

Para lo cual selecciono valisacion de datos, la opción listas ¿Cómo lo hago para escribir cuando el dato no esta en la lista prediseñada?
1 respuesta

Como obligar que una celda tenga datos

Tengo una tabla en excel con dos campos articulo valor zapatos 100 camisa Necesito que si se escribe camisa, obligue a colocar en la celda siguiente un valor
1 respuesta

¿Cómo ver el ultimo dato de listbox cuando se actualiza?

A tod@s! Tengo un Listbox al que se le cargan varios datos, quiero que cuando se actualice, vaya directamente al ultimo valor mostrándolo en el ListBox. ¿No se si se puede actuar con algún código acutando en el Scroll para que se desplace hasta abajo...
2 respuestas

Macro que cargue datos desde un Listbox a un Formulario

Pregunta para Elsa Matilde Estoy tratando de conseguir una Macro que me permita al señalar una fila en el ListBox2 se refleje en el formulario Form_Factura. Podrá ayudarme
1 respuesta

Formula con dos condiciones

Necesito una formula que me diga si la celda de la izquierda esta vacía me ponga un guion (-), pero si la celda tiene información me ponga esta formula =NOW().
7 respuestas

Como mejorar Macro que actualiza Datos en 2 hojas del mismo Libro

Mediante la grabadora de Macro pude desarrollar la Macro Agregar_HojaAuxiliar(), pero veo a mi criterio por lo visto en dicho foro otras Macros que no son tan extensas por que sintetizan algunas líneas, habrá alguna posibilidad que en esta se pueda...
2 respuestas

Colocar 2 calendarios en hojas diferentes dentro del mismo archivo

Tengo un archivo con 2 hojas "Asistencias" y "Datos", coloque 1 calendarios en ambas hojas, pero sucede en la hoja "Asistencia "que al querer colocar la fecha en el TextBox2 dentro del formulario surge un error (1004 en tiempo de ejecución: Error en...
2 respuestas