Contar celdas seleccionadas

[LuisVF]

Saludos al grupo

Quería crear un procedimiento que contara celdas seleccionadas. Al
seeleccionarlas cambiarían de color y se irían sumando (es para sumar días
seleccionados)

Se me ocurre crear un botón "Contar días" que ponga un boolean a true y en
el evento selectionchange un if bo=true

Para cambiar los colores ni idea y para ir contando tampoco :(

Alguna sugerencia?

Gracias por responder

[Héctor Miguel]

hola, Luis !

> Queria crear un procedimiento que contara celdas seleccionadas.
> Al seeleccionarlas cambiarian de color y se irian sumando (es para sumar dias seleccionados)
> Se me ocurre crear un boton "Contar dias" que ponga un boolean a true y en el evento selectionchange un if bo=true

> Para cambiar los colores ni idea y para ir contando tampoco :(
> Alguna sugerencia?

[creo que] quedan algunas *lagunas* de informacion o ambiguedades en tu consulta -?- en via de mientras...

1) un ejemplo para contar celdas seleccionadas, descartando si la seleccion actual no fuera un objeto *rango*
[obviamente, hay *pasos* que se pueden omitir si seran procdimientos +/- *repetitivos*] :D
Sub Contar_celdas_seleccionadas()
Dim Cuenta As Byte
If TypeName(Selection) = "Range" Then Cuenta = Selection.Count
If Cuenta Then MsgBox "Celdas seleccionadas actualmente: " & Cuenta
End Sub

-> OJO: si piensas seleccionar mas de 255 celdas, cambia el tipo de datos de la variable a: -> Dim Cuenta As Integer

2) para aplicar colores a las celdas seleccionadas [una vez descartado si la seleccion actual no fuera un rango]...
- aplicar un color de fondo rojo: -> Selection.Interior.ColorIndex = 3
- aplicar a la fuente color azul: -> Selection.Font.ColorIndex = 5

3) para *acumular* la cuenta [actual] con otras celdas ya contadas y acumuladas [anteriormente]...
dependera de si la *acumulacion* la necesitas conservar en alguna variable y/o la vas a *depositar* en alguna celda/hoja/... -???-

4) no te olvides de considerar mecanismos para prevenir/evitar/corregir/... -posibles- eventualidades como las siguientes [entre otras]:
- si la seleccion actual incluye celdas que ya se habian contado anteriormente -?-
- si en algun momento necesitas *regresar* a ceros algun acumulado -?-
- si en algun momenso necesitas *des-hacer* alguna acumulacion *erronea*
OJO: al modificar objetos y propiedades por macros no se puede des-hacer [o resulta en un proceso mas... *complicado*] :-((
- algunas otras que se te pudieran *ocurir* [como sucesos posibles] -?-

5) considera un procedimiento mas *sencillo*, uando una columna *auxiliar* donde pongas una *marca* que sea la cuenta/acumulacion
[opcionalmente] puedes usar los formatos condicionales para dar formato a los *dias seleccionados* ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.