Cambio código para ejecutar al pulsar botón

Hola a todos. Como seria posible cambiar este código para ejecutar al pulsar un botón y no automáticamente al cambiar el valor de las celdas de referencia ¿?
Private Sub Worksheet_Change(ByVal Target As Range)
Set Relcell = Union(Range("E12"), Range("K12"))
If Not Application.Intersect(Relcell, Range(Target.Address(False, False))) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Value
Case "1"
Target.Interior.ColorIndex = 6
Case "2"
Target.Interior.ColorIndex = 4
Case "3"
Target.Interior.ColorIndex = 16
Case "4"
Target.Interior.ColorIndex = 8
Case "5"
Target.Interior.ColorIndex = 22
Case Else
Target.Interior.ColorIndex = xlNone
End Select
Application.EnableEvents = True
End If
End Sub
Además, necesitaría que colorease más celdas, al cambiar el valor de la de referencia.
Muchas gracias!

1 respuesta

Respuesta
1
¿Querés qué te coloree cada celda del rango de 1 sola vez?
Aclarame también que es eso de cambiar de referencia...
Hola. Lo que quiero es que una vez que pulse el botón, me coloree las celdas de un rango, según el valor de una de ellas (incluida en ese rango)
Esta celda, el valor para elegir el color, es el resultado de una fórmula, no se si eso influye!
Muchas gracias por tu tiempo Elsa.
Saludos.
No sé si me quedó claro pero aquí va un ejemplo para que lo adaptes a lo que necesitas, sino escribime algún ejemplo concreto con las referencias
Sub coloreando()
'x Elsamatilde
colorin = ActiveCell.Interior.ColorIndex
Range("E12:K12").Interior.ColorIndex = colorin
End Sub
Sdos
Elsa
Hola de nuevo. La verdad es que no se adaptar tu código a lo que necesito.
Tu podrías adaptarme el primero que he puesto, para que se ejecute al pulsar un botón, ¿y no automáticamente al cambiar el valor de la celda?
Muchas gracias, saludos.
Es que eso es justamente lo que hice...
Podes solicitarme el ejemplo al correo que encontrarás en mi sitio (dejo al pie) o dejame tu correo para que te lo envíe (no tenemos acceso al que dejan a la hora de registrarse).

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Traspaso de valores con decimales en formulario de Escell

Tengo un formulario en el que tengo un capo de moneda, el primer problema es que tengo que utilizar la coma y no el punto y el segundo es que me traspasa los datos como texto y no como numero os adjunto el código Private Sub CommandButton1_Click()...
2 respuestas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
1 respuesta

Fórmula para poner en celda que haga la concatenación de celdas visibles en un rango dado.

NECesito una fórmula para poner en K1, según el cuadro que adjunto, para que en K1, me haga, de forma automática, la concatenación de las celdas que queden visibles en el rango k4:K11, YA que al filtrar se pueden mostrar todas o solo parte de ellas....
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
3 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
3 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas