Hola Maku.
Yo creo que tu archivo ya cumple lo que quieres! Entiendo que querías una herencia... El primer cuadro lo coloreaste a mano y el segundo ha heredado eso, por lo que está esperando que lo colorees a mano también 😁
Fuera de bromas... Una opción sería que lo hagas con formato condicional y otra opción sería que lo hagas con macros, depende por cuál te inclines y si hay limitaciones en el entorno donde piensas ejecutarlo. Los archivos de macros tienen algunas limitaciones a nivel empresarial por las restricciones impuestas, por temas de seguridad, que impiden su ejecución. Ya nos comentas para poder ayudarte con algo
Por
DiegoPC, · publicado
Buenas Noches
Tengo el siguiente código, que almacena las referencias de las celdas en la Variable Rango, para posteriormente borrar el contenido de las celdas.
El problema es que al llegar a la parte del borrado del Rango me Arroja error 1004 en tiempo de ejecución.
Son aproximadamente 100 celdas las que debe borrar.
Sub Factura_LimpiarPlantilla()
Dim Rango
Plantilla = "Factura_Registro"
Setup = "Factura_Setup"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets(Plantilla).Unprotect Clave
I = 2
Rango = ""
While Sheets(Setup).Cells(I, 3) <> ""
If Sheets(Setup).Cells(I, 5) = "SI" Then
Celda = Sheets(Setup).Cells(I, 3)
If Rango = "" Then Rango = Celda Else Rango = Rango & "," & Celda
End If
I = I + 1
Wend
Sheets(Plantilla).Range(Rango) = Empty
Sheets(Plantilla).Protect Clave
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub