A esta macro, no variar fecha y cambiar escritura al volver a escribir

En esta macro cuando escribo por primera vez en la columna "D", perfecta :

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("B10:E6000")) Is Nothing Then
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="1"
For Each c In Target
If Not Intersect(c, Range("D10:D6000")) Is Nothing Then
If Range("B" & c.Row) = "" Then fbold = False Else fbold = True
Range("B" & c.Row) = Date - 1
End If
c.Value = UCase(c.Value)
Next
Application.EnableEvents = True
ActiveSheet.Protect Password:="1"
End If
End Sub

Y necesitaria, que cuando escribo por segunda vez en la columna "D" :
1º/ Que no me cambie la fecha
2º/ Que me cambie de color de la letra a BLANCA en el Range("B:E")
3º/ Que me cambie a negrita la letra en el Range("B:E")
4º/ Que me cambie de color las celdas a ROJO en el Range("B:E")

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

1 respuesta

Respuesta
1

H o l a:

Realiza pruebas con la siguiente y me comentas si le falta algo:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("D10:D6000")) Is Nothing Then
        Application.EnableEvents = False
        ActiveSheet.Unprotect Password:="1"
        For Each c In Target
            If Range("B" & c.Row) = "" Then
                Range("B" & c.Row) = Date - 1
            Else
                Range("B" & c.Row & ":E" & c.Row).Font.Bold = True
                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 aludos

Hola Dante

Perfecto, con un pero, que en las columnas "C" y "E", no me las pone en mayúsculas.

Un Saludo

Listo!

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

s aludos

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