Problema recorrer rango

03/12/2007 - 11:51 por Antonio | Informe spam
Hola amigos, tengo un problema muy tonto pero estoy bloqueado, necesito
recorrer un rango C68:L68, para lo que hago

Dim iCuenta As Integer
Dim Celda As Range
For Each Celda In xlw.Sheets(28).Range("C68:L58")
If Celda.HasFormula Then iCuenta = iCuenta + 1
Next Celda

El problema es que me cuenta 110, cuando solo 10 celdas en el rango, por lo
que me las esta contando mal, cogerá mas celdas.

Muchas gracias y un saludo
 

Leer las respuestas

#1 Ivan
03/12/2007 - 16:52 | Informe spam
tengo un problema muy tonto pero estoy bloqueado, necesito
recorrer un rango C68:L68, para lo que hago

Dim iCuenta As Integer
Dim Celda As Range
For Each Celda In xlw.Sheets(28).Range("C68:L58")
If Celda.HasFormula Then iCuenta = iCuenta + 1
Next Celda

El problema es que me cuenta 110, cuando solo 10 celdas en el rango, por lo
que me las esta contando mal, cogerá mas celdas.



hola Antonio,

creo que te has liado un poco,

realmente Excel no se esta equivocando y te esta devolviendo lo que tu
le pides: en el rango 'c68:l58' realmente hay 110 celdas

supongo que lo que quieres obrtener es:

a) posibilidad1: el nº de columnas (pues filas tampoco serian 10, sino
11)

b) el nº deceldas con datos (o sin datos)

c) el nº deceldas con determinados datos (o sin esos datos)

d) creo que las posibilidades son ilimitadas

si quieres comentas lo que buscas realmente ( y si el rango siempre
seria ese, pej

disculpa no ser de gran ayuda, pero .

un saludo
Ivan

Preguntas similares