contar celdas que tienen sus bordes marcados como una X

te sirve una macro?:

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




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:
Hola grupo.

LLevo un rato mirando a ver si esto ya lo ha preguntado antes alguien,
pero no lo encuentro.

A ver si alguno de vosotros sabria cómo hacerlo.

Muchas gracias de antemano.

Tengo una columna: range(B10:B20) donde necesitaría que aquellas
celdas que tengan sus bordes marcados de una forma concreta (en este
caso seria como una "X") se cuenten.

Es decir que si de todas las celdas que hay en dicha columna, hay 2
que tienen sus bordes como tachados (espero que esto se entienda) pues
que me los cuente y en otra celda me aparezca el resultado = 2.

El caso es que tengo un calendario. Con un doble clic en un dia del
año (en dicha celda) se marca dicha celda con los bordes inclinado
derecho e izquierdo. Pero entonces necesitaria poder contar que he
marcado dicho dia.
Visualmente en el calendario puedo seleccionar tantos dias como
quiera, pero necesito un contador.

He tratado de hacerlo con "contar.si" pero no veo cómo puedo hacerlo
para que entienda que cuente si la celda tiene esos 2 bordes internos
marcados. Tampoco veo otra forma de poderlo hacer (como siempre ya me
estoy metiendo en camisas de once baras! Esto de no saber programación
no me ayuda demasiado).

¿Alguna idea?

Gracias de nuevo.

Myvic