Funcion contar.si para contar celdas en una diagonal

porto escribió el 09/01/2012 17:26 :

¡ Hola !
Tengo una duda, no puedo utilizar la funcion =Contar.si(rango;criterio) para
celdas diagonales... esta funcion solo se puede realizar para rangos de celdas
(ej A1:E3 rectangulares)... mi objetivo seria crear un programa que hace lo que
hace esta funcion pero en una diagonal de celdas por ejemplo que cuente las
celdas (A1;B2;C3;D4;E5...).. he prorabado con las funciones de excel pero no me
sale el resultado...

Quizas haciendo una funcion con VBA seria la solucion....

Gracias por la ayuda

Hola, creo que tengo he encontrado una respuesta a esta pregunta que he plateado ayer con este codigo
c = 0
Range("F4").Select 'Celda en la que empezamos a ver la diagonal
Do While IsNumeric(ActiveCell.Value) = True 'Como no se cuando acabara, dependera de los datos
If ActiveCell.Value = 1 Then
c = c + 1
End If
ActiveCell.Offset(1, 1).Select
Loop
Range("c4") = c 'Celda donde pongo el valor

Pero ahora necesito este codigo en forma de function, que me ejecute en la celda C4, siempre este valor sin darle a ejecutar el codigo, alguien sabe?????...

Gracias, Rubén