UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Contar celdas color, Msgbox el 26/05/15, 08:49 am

jovalcon


Hola,

he creado una macro el cual me indica en la celda A1 el numero de celdas que contiene color, lo que realmente necesito es que en vez de que este ese valor en alguna celda me indique un Msgbox indicándome " actualmente tiene (Nº) de celdas en color " 

adjunto archivo por si alguien pudiera ayudarme.

saludos//
Archivos
contar color.xls
No tienes los permisos para descargar los archivos.
(38 KB)

2RESUELTO Re: Contar celdas color, Msgbox el 26/05/15, 01:01 pm

ioyama


Hola jovalcon

Prueba con

Sub contar_color()
conColor = 0
For Each celda In ActiveSheet.UsedRange
   If celda.Interior.ColorIndex <> xlNone Then
      conColor = conColor + 1
      'Cells(1, 1) = conColor   <<< puedes eliminarla
   End If
Next
MsgBox "Hay " & conColor & " celdas coloreadas"

End Sub

Un saludo desde Vitoria

3RESUELTO Re: Contar celdas color, Msgbox el 26/05/15, 01:05 pm

jovalcon


Genial!!!!!!

Muchas gracias Ioyama eres muy amable.

saludos//

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.