Ejecutar Macro en todo el libro. Pregunta para Elsa Matilde.

Hola Elsa, como hemos hablado, necesitaría que me ayudaras para poder ejecutar la macro en todo el libro y que dandole al boton se pintara todo el libro segun las condiciones:

Private Sub Worksheet_Change(ByVal Target As Range)

'Cambia el color de la celda COL F - - CONTROLA COL G, PINTA COL I:HA 'Ajustada por Elsamatilde


If Not Intersect(Target, Columns("G")) Is Nothing Then

'Application.EnableEvents = False

Select Case UCase(Cells(Target.Row, "G"))

Case "FORECAST" Cells(Target.Row, "G").Interior.ColorIndex = 20

Range(Cells(Target.Row, "I"), Cells(Target.Row, "HA")).Interior.ColorIndex = 20

Case "ACTUAL" Cells(Target.Row, "G").Interior.ColorIndex = 44

Range(Cells(Target.Row, "I"), Cells(Target.Row, "HA")).Interior.ColorIndex = 44

Case "NEW FORECAST", "NEWFORECAST" Cells(Target.Row, "G").Interior.ColorIndex = 43 Range(Cells(Target.Row, "I"), Cells(Target.Row, "HA")).Interior.ColorIndex = 43

End Select 'Application.EnableEvents = True

End If

End Sub

Muchas gracias por tu ayuda !!!

1 Respuesta

Respuesta
1

Ya la tomo... en el transcurso del día te la responderé. No finalices aún.

La nueva macro la tenés que colocar en un módulo (desde el Editor, insertar módulo y allí la copias)

Lo que hace es evaluar desde qué hoja se la está llamando para ajustar el rango de acción, ya que se trata de col diferentes.

Sub ASIGNA_COLOR()
'x Elsamatilde
'Cambia el color de celdas según de qué hoja se trate.
'Atajo de teclado: Ctrl a (mayúsc o minúsc)
If ActiveSheet.Name = "Comparativa Materiales" Then
 colx = 6: colini = 8: colfin = 19 'CONTROLA COL F, PINTA COL H:S
ElseIf ActiveSheet.Name = "Comparativa Horas" Then
 colx = 7: colini = 9: colfin = 20 'CONTROLA COL G, PINTA COL I:T
'agregar otras hojas si hiciera falta
End If
'inicia en fila 16
Cells(16, colx).Select
'recorre la col hasta encontrar celda vacía
While ActiveCell.Value <> ""
 Select Case UCase(ActiveCell.Value)
 Case "FORECAST"
 ActiveCell.Interior.ColorIndex = 24
 Range(Cells(ActiveCell.Row, colini), Cells(ActiveCell.Row, colfin)).Interior.ColorIndex = 24
 Case "ACTUAL"
 ActiveCell.Interior.ColorIndex = 44
 Range(Cells(ActiveCell.Row, colini), Cells(ActiveCell.Row, colfin)).Interior.ColorIndex = 44
 Case "NEW FORECAST", "NEWFORECAST"
 ActiveCell.Interior.ColorIndex = 43
 Range(Cells(ActiveCell.Row, colini), Cells(ActiveCell.Row, colfin)).Interior.ColorIndex = 43
 End Select
'pasa a la fila sgte y repite el bucle
ActiveCell.Offset(1, 0).Select
Wend
End Sub

Podes colocar un botón en cada hoja o asignarle un atajo de teclado tal como verás en el libro que te estoy enviando.

Nota: estos temas los tengo explicados en la sección Macros de mi sitio.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código colorear rango de celdas

Tengo este código para colorear una fila de celdas al seleccionar cualquiera de ese rango. Mi problema es que al posicionarme en otra fila, la fila antes seleccionada me cambia el color a ninguno. Yo tengo en tres columnas con diferentes formatos (no...
1 respuesta

Macros con formatos condicionales

El cual detallo a continuación. Tengo una base de datos de 1000 filas y 25 27 columnas. El punto es que he creado un formato condicional según el cual, si en la celda B8 aparece la letra "i" el rango C8:AA8 se colorea, lo cual se aplica a 2...
1 respuesta

Macro que cambie fuente de letra en fila

Quisiera saber si me podrían apoyar; tengo una macro: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 17 Then On Error GoTo fin Select Case Target.Value Case "EN CLIENTE CARGANDO" Range("A" & LTrim(Str(Target.Row)) & ":Q" &...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

¿Es posible crear una macro en Excel 2010 que cree formatos condicionales?

Estoy pensando en crear una macro que me cree formatos condicionales antes de empezar a usar mi fichero, la idea es: 1.- Abro mi fichero excel y le doy a la macro para que genere los formatos condicionales 2.- Trabajo con mi fichero y tengo tres...
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

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

Permitir solo determinado formato en celdas

Solicitando nuevamente te ayuda. Como podría hacer para que en una hoja de Excel llamada Datos, la columna A (Consecutivo) acepte solo números; la columna B (Descripción) acepte solo texto y por ultimo la columna C (Fecha) solo fechas. Ademas si al...
1 respuesta

Al ingresar datos en un rango de celdas ejecute un macro

Elijo 2 columnas por ejempoi la columna A y la column J necesito que cuando ingrese algún dato en cualquier celda de la columna ejecute una macro que yo e y que cuando elija cualquier celda de la columna j me ejecute otra macro que distinta.
1 respuesta

Macro busca celda por color y resumen

Tengo una macro que compara dos hojas de un mismo libro, específicamente 2 columnas, si hay un cambio en estas columnas, pinta la celda de un color, lo que requiero saber y pedir su ayuda, es poder realizar una macro que me extraiga los valores de...
1 respuesta