contar celdas que tienen sus bordes marcados como una X

Ah! ahi esta. Por cierto, necesito que me cuente la celda que tiene el
xlDiagonalUP y el xlDiagonalDown al mismo tiempo, ambos marcados
(siendo asi contabilizada com 1). Asi es como queda marcada la "X" que
menciono desde el principio.

Gracias nuevamente.

MyVi

un poco más alla.

A ver, tras lo que me dices he probado con esto (que ya verás que no
funciona)

Private Sub contarceldasconX()
Dim c As Range
Dim numceldasconX As Integer
Set c = Range("B8:AI31")
numceldasconX = 0
For Each c In ActiveSheet.UsedRange
If c.Borders(xlDiagonalDown).LineStyle <> "" Then '[se puede sustituir
con xlDiagonalUP o combinar para verificar que 'tenga las dos]
numceldasconX = numceldasconX + 1
End If
ActiveSheet.Range("S36").Value = numceldasconX
End Sub

Y efectivamente!! no funciona! No me da errores, pero la celda "S36"
no me muestra nada!!

Bueno, me da que me dejo cosas. Bueno, esta bastante claro que asi es,
pero esto es fruto de la ignorancia.

Gracias nuevamente

MyVi

en ese caso debes evaluar que ambos bordes se encuentren presentes y
visibles

la modificacion seria la siguiente

if c.borders(xldiagonalup) and c.borders(xldiagonaldown).linestyle<>"" then


saludos.
30 de septiembre "Dia internacional de la panza chelera"
Que viva la familia...
Zz

"Error: The file 'Brain.sys' could not be found in folder 'Head', body will
now work in reduced functionality mode'
Loading Heart.sys...

"MyVi" wrote in message
news:

Ah! ahi esta. Por cierto, necesito que me cuente la celda que tiene el
xlDiagonalUP y el xlDiagonalDown al mismo tiempo, ambos marcados
(siendo asi contabilizada com 1). Asi es como queda marcada la "X" que
menciono desde el principio.

Gracias nuevamente.

MyVi

La macro en si revisa cada celda incluida dentro de el rango especial
Usedrange que son todas las celdas "usadas" de la hoja activa, llamense
celdas con valores, formato o condicion especial que la difiera de las
celdas vacias o no usadas.

con respecto a tu otra pregunta:

el evento SelectionChange del objeto Sheet ejecuta la accion que le
determines cuando la seleccion de la hoja activa cambia, esto quiere decir
que se ejecuta todo lo que esta entre

Sub Sheet_SelectionChange()

end sub

cada vez que cambia la 'seleccion', entiendase como cambio de seleccion todo
'Click', movimiento entre celdas, seleccion de objetos incrustados, etc.


Saludos.

30 de septiembre "Dia internacional de la panza chelera"
Que viva la familia...
Zz

"Error: The file 'Brain.sys' could not be found in folder 'Head', body will
now work in reduced functionality mode'
Loading Heart.sys...

"MyVi" wrote in message
news:
Vale, eso seguro que me sirve.

Veamos mi ignorancia.

Con lo que me has contado hasta el momento, no veo cómo sabe dicha
macro el rango de celdas donde ha de contar.
Mi rango seria Range("B8:AI31").
Después, me gustaria que no sea una macro, debido a que si lo es, debo
ejecutarla de alguna forma. Asi que seguro que puedo introducir dicho
código de alguna forma en Hoja1, para que se ejecute cada vez que
marco una celda (y asi me la contabiliza mostrando el resultado en la
famosa celda).

¿Me dejo más algun detalle? Es posible, pero no lo veo ahora mismo.

Espero que sea suficiente.

Gracias por todo.

MyVi

revisando mi macro me doy cuenta de que en realidad no funciona como yo
pensaba, sigo aprendiendo y no todo es tan facil como se ve, mil disculpas
por el tiempo que te he hecho perder, revisare bien la macro para dar con el
detalle que tiene, en principio pense que era el comentario que con solo
borrarlo lo hubiera solucionado, pero no es por ahi el problema.

:(

30 de septiembre "Dia internacional de la panza chelera"
Que viva la familia...
Zz

"Error: The file 'Brain.sys' could not be found in folder 'Head', body will
now work in reduced functionality mode'
Loading Heart.sys...

"MyVi" wrote in message
news:
Bueno, no estoy seguro.

A ver, el caso es que necesito contarlas para que aparezca la suma en
una celda concreta.
x1= el nº de veces que en el range(x,y) hay una celda con sus dos
bordes marcados.

Es como tachar una celda para contabilizarla como 1. Si tachas dos
pues tienes 2 dias contabilizados.
El cómo tachar la celda ya lo tengo controlado. Ahora solo me falta el
poder contar el nº de celdas tachadas. Y que este resultado se muestre
en una celda.

Voy a tratar de estudiarme tu propuesta, pero mi primer vistazo ya me
ha dado problemas (de ahi que ya esté respondiendo).

gracias

MyVi