Realizar filtro de datos en hoja excel de acuerdo a colores
Para elsa:
Como puedo realizar un filtro de acuerdo a datos y por medio de colores
1 respuesta
Respuesta de Elsa Matilde
2
La parte del código que colorea las celdas con diferentes tonos quedó así. En un módulo dejé una pequeña rutina que lista los colores (en hoja1) del 1 a 20, como para que puedas cambiar los tonos.
Set busco = ho2.Range("A:AA").Find(nro, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
filx = busco.Row: colx = busco.Column
With ho2
.Cells(filx, colx + 2) = Val(Filax)
.Cells(filx, colx + 3) = Val(TextBox1)
.Cells(filx, colx + 4) = Val(TextBox2)
.Cells(filx, colx + 2).Interior.ColorIndex = 6
.Cells(filx, colx + 3).Interior.ColorIndex = 17
.Cells(filx, colx + 4).Interior.ColorIndex = 3
.Cells(filx + 1, colx + 2) = Val(Vecesx)
.Cells(filx + 1, colx + 3) = Val(TextBox3)
.Cells(filx + 1, colx + 4) = Val(TextBox4)
End With
End If
Sdos.
Elsa
