Saltar al contenido

Cómo resaltar celdas con diferentes colores si se ingresan datos específicos expresados ​​en KG en estas celdas


Recommended Posts

Hello everyone my name is Maurizio and first of all I would like to make you mine
most sincere wishes for a Happy New Year; Since for business reasons not
I managed to get them first.

That said, my new problem is this.
on an Excel sheet in the column (B3: B200) I have entered measurements of Specific Weight; Such as "125.3 Kg" Or "94.2 Kg" etc ...!

On the other hand, in the row that goes from (i1: n1) I have entered specific data; Such as: (95.0 Kg). (90.0 Kg).
(85.0 Kg). (80.0 Kg). (75.0 Kg). (70.0 Kg)
as Maximum reachable roof.

Now my question is this:
Is it possible to highlight the cells ranging from (I1: N1) in a different color if the weight entered in the Column (B3: B200) is close to the threshold of those figures entered in the Rows (I1: N1) even though they do not coincide perfectly?

Practical Example: If I write in column (B) "72.4 kg" and in Cell (N1) the figure of (70.0 kg) is reported, it goes without saying that the two amounts do not coincide perfectly!

But my request is right in this, that is to highlight the Cell (B1) in any case as it is the number inserted in column (B) closest to it

Otherwise: That is, that these numbers are greater than (96 Kg) the base color must remain unchanged, that's all!
I of mine have written down some solution, but it is not complete-

Some of you would be able to give me a hand on this thanks.
Affectionate greetings to all from A.Maurizio

Valuta_Peso_Raggiunto.xlsm

Enlace a comentario
Compartir con otras webs

Sorry @A.Maurizio, I am not able to fully understan what you need... On one side you say:

En 27/1/2021 at 17:08 , A.Maurizio dijo:

Is it possible to highlight the cells ranging from (I1: N1) in a different color if the weight entered in the Column (B3: B200) is close to the threshold of those figures entered in the Rows (I1: N1) even though they do not coincide perfectly?

And in th other:

En 27/1/2021 at 17:08 , A.Maurizio dijo:

But my request is right in this, that is to highlight the Cell (B1) in any case as it is the number inserted in column (B) closest to it

What do you really want to highlight? "I" row, B1 cell? Apart, wich is the threshold you want to apply?

You have coloured the "I" row with 3 colours... Are they the one to apply to whatever cell you want to highlight (B1, "I" row, any cell in "B" column...) :huh:

 

Enlace a comentario
Compartir con otras webs

Ciao Haplox Come stai! È sempre un piacere parlarti.
Detto questo: per rispondere alla sua domanda, il discorso è in questi termini.
Vorrei inserire il kg di una persona nella colonna (B); Solo per capirsi. Mentre sono nella cella, per esempio (I1), vorrei ottenere una tale valutazione. :
1) Se nella cella (I1) i tipo 95,9 kg e nella colonna (B) c'è un numero maggiore di questo, il colore di sfondo della cella (I1) non deve cambiare; Poiché questo numero non è stato raggiunto.
2) Al contrario, se la colonna (B) ha raggiunto il peso di (95,9 Kg) lungo la cella (I1), dovrebbe essere gialla.
Tutto questo sarebbe sufficiente per continuare la valutazione di tutte le altre cellule che vanno da (I1:N1) tutte qui. Come puoi vedere, ho provato (CountIf) ma questo determina il fatto che sia nella colonna (B) che nella cella (I1) ci sono gli stessi risultati; Mentre vorrei semplicemente una valutazione di (<>) sopra il numero (96,0 kg) che è tutto. Spero di essere stato abbastanza chiaro questa volta Ciao e grazie per il vostro sostegno ad A.Maurizio

Traslatio:
------------------------------------------
Hi Haplox Come stai! è sempre un piacere parlarti.
Detto questo: per rispondere alla tua domanda, il discorso è in questi termini.
Vorrei inserire il kg di una persona nella colonna (B); Solo per capirci. Mentre nella cella per esempio (I1) vorrei ottenere una valutazione di questo tipo. :
1) Se nella cella (I1) scrivo 95,9 kg e nella colonna (B) c'era un numero maggiore di questo, il colore di sfondo della cella (I1) dovrebbe rimanere invariato; Poiché questo numero non è stato raggiunto.
2) Al contrario, se nella colonna B il peso di (95,9 Kg) è stato raggiunto lungo la cella (I1) deve essere colorato di giallo.
Tutto questo sarebbe sufficiente per continuare con la valutazione di tutte le altre cellule che vanno da (I1: N1) tutte qui. Come puoi vedere, ho provato con (CountIf) ma questo determina il fatto che sia nella colonna (B) che nella cella (I1) ci sono gli stessi risultati; Mentre vorrei semplicemente una valutazione di (<>) sopra il numero (96,0 Kg) che è tutto. Spero di essere stato abbastanza chiaro questa volta Ciao e Grazie per il vostro supporto da A.Maurizio

Enlace a comentario
Compartir con otras webs

Este se va a convertir en un post multinacional @A.Maurizio ?. No sé si aun te entiendo, pero vamos allá:

  • En el siguiente código, que está en el evento Change de la hoja
  • Escribimos en alguna celda del range "I1:N1" un peso
  • Compara ese valor con los de la columna "B", en este caso con un "threshold" de 1 sobre el valor introducido (si quisieras un "threshold"  de 2, cambia a If Cells(i, 2) >= Target - 2)
  • Si encuentra el valor, colorea de amarillo

Si no es esto, espero que al menos te de la idea

Private Sub Worksheet_Change(ByVal Target As Range)
Dim uF&, i&

If Not Intersect(Target, Range("I1:N1")) Is Nothing Then
    uF = Range("B" & Rows.Count).End(xlUp).Row
    For i = 3 To uF
        If Cells(i, 2) >= Target - 1 And Cells(i, 2) <= Target Then
            Target.Interior.Color = RGB(255, 255, 0)
            Exit For
        End If
    Next i
End If

End Sub

 

Copia de Valuta_Peso_Raggiunto.xlsm

Enlace a comentario
Compartir con otras webs

Hi Aplox
First I want to thank you for your support and help you have given me.

Come hai fatto va bene; Vi ringrazio quindi per tutto.

Ma non ho capito quella tua frase iniziale che dice
"cito": Questo diventerà un luogo multinazionale ? A.Maurizio ?. Non so se ti capisco ancora, ma andiamo lì:

Fino ad ora penso di aver sempre avuto
un comportamento più che buono nei suoi confronti: avere sempre avuto un atteggiamento più che educato nei confronti di tutti voi.
Pertanto, se la mia Sporadica è presente o le mie richieste non ti si addicono più; Tutto quello che devi fare è dirmelo e mi rivolgerò agli altri.

Se poi la vostra affermazione è dovuta al fatto che cerco di far capire tutto; Usando due lingue
(inglese e
spagnolo) ti ricordo che sei stato tu fin dall'inizio (Tu e Antoni)
ad accettare una doppia traduzione, poiché l'unica lingua (lo spagnolo) tradotta da Google Non poteva esprimere ciò che stavo chiedendo nel modo migliore e chiaro. Tutto qui.

Sia come sia: non preoccuparti in futuro mi rivolgerò ad altri forum.
Grazie ancora per i vostri insegnamenti che mi avete dato fino ad ora con i vostri interventi.
Saluti e ringraziamenti sinceri e affettuosi di A.Maurizio

Enlace a comentario
Compartir con otras webs

A ver @A.Maurizio , en este caso te escribo en español, y no te enfades porque en ningún momento me ha molestado tu post ni pretendía ofender a nadie.

Si dije lo de internacional fue porque, en el mismo post, ya habíamos contestado en italiano, inglés y español, no por otra cosa.

Era una especie de chiste (joke, scherzo ?), seguramente mal entendido por ti por la diferencia de idioma.

Epero que sigas viniendo a este foro y yo seguiré ayudándote con mucho gusto, si es que sé resolver lo que preguntes.

Saludos, Saluti, Regards,... :wub:

Enlace a comentario
Compartir con otras webs

Hola, Haplox, gracias por su aclaración y el tiempo para responder a mi declaración.
Realmente no quería perderte
En cuanto a mí, siempre has sido un maestro de la sabiduría y la programación.
Es cierto, me encanta probar suerte en cosas que van un poco fuera de la caja. Pero cuánto: Durante años pasé horas y horas en varios foros en busca de esto o aquello.
tLo que siempre he notado: además de encontrar miembros muy groseros en el diálogo con los demás; Con mucha frecuencia descubrí que las preguntas planteadas por los nuevos miembros eran en la práctica siempre repetitivas.
Por eso salgo de la caja a menudo y de buena gana.
Piensa: que desde mis primeros periodos cuando estaba a punto de querer programar, mi primer deseo fue querer crear el juego de Damas; Como además de la misica tocada por mí en el piano.
mi única gran pasión es jugar al Ajedrez.
Excepto que no solo nunca aprendí los conceptos básicos fundamentales para crear el juego de Checkers ih Programming; Y mucho menos poder probar suerte en el juego de Ajedrez definitivamente algo mucho más complejo.
Que para mi siempre ha sido el clásico "Dream Mel Cassetto"
Sin embargo, no se preocupe por el problema resuelto.
Gracias de nuevo por todo
Un cordial saludo de A.Maurizio

---------------------------------------------------

Hi Haplox thank you for your clarification and timing in responding to my statement.
I didn't really want to lose you
As for me you have always been masters of wisdom and programming.
True, I love to try my hand at things that go a little bit outside the box. But how much: For years spent hours and hours in various forums in search of this or that thing.
What I have always noticed: In addition to finding very rude members in dialogue with others; I often found that the questions posed by new members were in practice always repetitive.
That's why I get out of the box often and willingly.
Just think: that from my earliest periods when I was about to want to program, my first desire was to want to create the game of Checkers; In addition to the misica played by me on the Piano.
my only great passion is playing Chess.
Only not only have I never learned the fundamental basics to create the game of Checkers ih Programming; Let alone be able to try your hand at the game of Chess definitely something much more complex.
Which for me has always been the classic "Dream Mel Cassetto"
However don't worry problem solved.
Thanks again for everything
Sincere greetings from A.Maurizio

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Hi Trate de ver que hacían las fórmulas en cuestión pero a su libro le falta o le faltan hojas, por lo que solo podría participar con un par de ideas en general. Lo que entiendo es que según el valor de B3 en C3 debe poner una fórmula u otra, así que es posible que si combina DIRECCION() con INDIRECTO() pueda intercambiar de una fórmula a otra. =SI(B3="Xl",INDIRECTO(DIRECCION(3,5)),SI(O(B3=1,B3=2,B3=3),INDIRECTO(DIRECCION(4,5)),"")) Otra forma sería poner nombre a esas fórmulas en el cuadro de nombres para que las pueda mandar llamar a una o a la otra según el resultado de B3. Por favor tome en cuenta, es solo una idea.
    • Buenas tardes! Tengo el siguiente código: Private Sub btnCargaBancos_Click() Dim TasaCompra, TasaVenta As Double Dim InvBanesco, InvVzla, MontoBanesco, MontoVzla As Double Dim TasaDiaBan, TasaDiaVzla, TasaActual As Double 'Inversion = Val(txtInversion.Text) InvBanesco = Val(CDbl(txtInverBanesco.Text)) InvVzla = Val(CDbl(txtInverVzla.Text)) TasaCompra = Val(CDbl(txtTasaCompra.Text)) TasaVenta = Val(CDbl(txtTasaVenta.Text)) MontoBanesco = (InvBanesco / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) MontoVzla = (InvVzla / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) TasaDiaBan = (MontoBanesco / InvBanesco) * (1 - 0.055)      TasaDiaVzla = (MontoVzla / InvVzla) * (1 - 0.055) If TasaDiaBan < TasaDiaVzla Then     TasaActual = TasaDiaBan Else     TasaActual = TasaDiaVzla End If MontoBanesco = FormatNumber(MontoBanesco, 2, True, vbFalse) MontoVzla = FormatNumber(MontoVzla, 2, True, vbFalse) TasaActual = FormatNumber(TasaActual, 5, True, False) txtBcoBanesco.Value = MontoBanesco txtBcoVenezuela.Value = MontoVzla txtTasaDiaria.Value = TasaActual End Sub   Como se puede apreciar InvBanesco ,  InvVzla , TasaCompra y TasaVenta, son valores que introduce el usuario a través de los respectivos cuadros de texto. Tengo los siguientes problemas: a. Las fórmulas no se ejecutan correctamente (pareciese que no reconociese los números entrados vía cuadros de texto). b. Al darle valor cero (0) a cualquiera de los valores de InvBanesco o  InvVzla, me genera un error en TasaDiaBan o TasaDiaVzla (según sea el caso), aunque, como se puede apreciar, debería generar un valor cero (0). Como dije en mi presentación estoy empezando en esto de la codificación...y quiero aprender de Uds! Agradezco su ayuda! Nota: lamentablemente el fichero es mas grande de lo permitido y no pude anexarlo.  
    • Hola buenas tardes. En una hoja plantilla donde realizo diferentes consultas de datos. tengo ya establecido dos formulas diferentes con función SI y buscar. estos buscan diferentes rangos de datos y recibendiferentes resultados. Cada formula varia según una palabra o numero  ejemplo si pongo Xl pone la formula 1 y si pongo cualquier numero entre 1 y 3 pone la segunda formula. Lo que necesito hacer es que si en una celda de la columna B3 pongo XL debería de considerar la formula 1 y si pusiera el numero 1 me pondría la segunda formula, dentro de la misma formula. Ya agregue la función SI($C3="Xl",Formula1.. Pero no me funciona, espero me puedan ayudar.   Muchas gracias Mariano   Formula doble si en celda existe.xlsx
    • Sub control2558() Application.ScreenUpdating = False Dim I As Integer I = 4 While Sheets("FT-ADF-2558").Cells(I, 102) <> "" Sheets("FT-ADF-2558").Cells(6, 82) = Sheets("FT-ADF-2558").Cells(I, 102) Dim NombreArchivo, RutaArchivo As String NombreArchivo = "Hoja Control " & Sheets("FT-ADF-2558").Cells(I, 102) RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".xlsm" Dim NuevoLibro As Workbook Set NuevoLibro = Workbooks.Add Sheets("FT-ADF-2558").Copy Before:=NuevoLibro.Sheets(1) NuevoLibro.SaveAs Filename:=RutaArchivo NuevoLibro.Close I = I + 1 Wend MsgBox ("Proceso generado con éxito") Application.ScreenUpdating = True End Sub  
    • Ese error es porque no existe la hoja 10 con ese nombre, entonces cámbialo por FT-ADF-2558
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.