Excel - Encontrar celda por color

   
Vista:

Encontrar celda por color

Publicado por Hto Luna (5 intervenciones) el 12/04/2016 18:11:15
Buen dia.

Eh buscado en la web pero no he tenido un resultado sertero.

Sabe alguien como encontrar una celda por su color en la columna "c"

Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Encontrar celda por color

Publicado por Andres Leonardo (486 intervenciones) el 12/04/2016 18:18:29
claro que si ... si sabes el color cual es ... claro que pudes ....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub BuscarCeldasxColor()
' Acceso directo: CTRL+q
'
    Range("A1").Select
 
    Dim i, j As Integer
    i = Range("A1").Value   ' el numeros de registros  a buscar
    c =.Range("B1").Interior.Color  ' aqui colocas el color a buscar 
    Sheets(1).Select
    For k = 1 To i
            If Range("C"& k).Interior.Color = c Then
                    'aqui lo que quieres hacer   si lo encuentra
                     msgbox "Celda color Encontrada en  C" & k
            End If
    Next k
End Sub

Espero te sirva... Saludos.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Encontrar celda por color

Publicado por Hto Luna (5 intervenciones) el 12/04/2016 18:40:02
Hola Andres, la verdad soy nuevo en esto, no comprendo del todo el codigo, yo solo tengo un boton que al precionarlo encuentre la primera celda color "roja" en la columna c.

Gracias por la respuesta.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Encontrar celda por color

Publicado por Andres Leonardo (486 intervenciones) el 12/04/2016 18:42:08
Puedes subir el archivo ??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Encontrar celda por color

Publicado por Hto Luna (5 intervenciones) el 12/04/2016 19:16:36
Claro. Mira.

En el primer boton busca el contenido de un textbox en una celda y cuando lo encuentra lo pinta rojo y asi sucesivamente....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
Dim c As Object
Dim buscar1 As String
buscar1 = txttruck.Text
clrgreen = RGB(0, 255, 0)
clrwhite = RGB(255, 255, 255)
clrred = RGB(255, 1, 1)
 
Set c = Range("C:C").Find(what:=buscar1, Lookat:=xlPart)
c.Select
 
Do While ActiveCell <> Empty
       If ActiveCell.Interior.color = clrwhite Then
            If ActiveCell = txttruck.Text Then
            ActiveCell.Select
            Selection.EntireRow.Select
            Selection.Interior.color = clrred
            Set c = Range("C:J").Find(what:=buscar1, Lookat:=xlPart)
            c.Select
            End If
       End If
    ActiveCell.Offset(1, 0).Select
Loop
 
 
End Sub




--------------------------------Despues------------------------------------
En un segundo boton quisiera que me buscara la celda que esta pintada en color rojo de la columna "C".



Gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Encontrar celda por color

Publicado por Andres Leonardo (486 intervenciones) el 12/04/2016 19:48:35
Coloca ese codigo despues o en el segundo boton que quieres....
Nos cuentas como vas....

1
2
3
4
5
6
7
8
9
Range("A1").Select
     i = 300  ' el numeros de celdas a buscar 
    'Sheets(1).Select ' o tu hoja ..... 
    For k = 1 To i
            If Range("C"& k).Interior.Color = clrred Then
                    'aqui lo que quieres hacer   si lo encuentra
                     msgbox "Celda color Encontrada en  C" & k
            End If
    Next k
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Encontrar celda por color

Publicado por Hto Luna (5 intervenciones) el 12/04/2016 21:44:11
Lo hize de esta manera, pero no entra en el THEN, sabiendo que "clrred" es el color de la celda


1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton3_Click()
clrred = RGB(255, 1, 1)
 
Range("C2").Select
Do While ActiveCell <> Empty
    If ActiveCell.Interior.ColorIndex = clrred Then
    MsgBox "Hola"
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Encontrar celda por color

Publicado por Andres Leonardo (486 intervenciones) el 12/04/2016 22:00:55
lo que pasa es que tu le das una notacion rgb a la celda .y lo otro es un color ..

me parece que por ahi va la cosa... trata de capturar el valor rgb en una celda y ese capturalo con interior.color....y ese entero haz la comparacion,.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Encontrar celda por color

Publicado por Hto Luna (5 intervenciones) el 12/04/2016 22:07:13
ya quedó, asi si me arroja el msj al encontrar la celda roja

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton3_Click()
clrred = RGB(255, 1, 1)
 
Range("C2").Select
Selection = ActiveCell
Do While ActiveCell <> Empty
    If ActiveCell.Interior.color = clrred Then
    MsgBox "Hola"
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
 
end sub



Gracias y Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Josumira14

Encontrar celda por color

Publicado por Josumira14 (1 intervención) el 14/04/2016 16:23:23
que tal amigo yo ando haciendo algo parecido pero atravez de listas desplegables no mas no he podido avanzar mucho je anexo archivo explicándote lo que pretendo hacer espero me puedas ayudar gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar