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

Preguntas similare

Leer las respuestas

#1 Ivan
03/12/2007 - 16:52 | Informe spam
Mostrar la cita
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
#2 Antonio
03/12/2007 - 17:07 | Informe spam
Muchas gracias Ivan por tu ayuda, lo que quiero recorrer serian las celdas
C68, D68...hasta la L68, para saber si contienen formulas o constantes,
serian 10 celdas, por eso intentaba recorrer de la forma que había puesto,
pero ahora lo hago de otra forma y me funciona.

Gracias y un saludo

"Ivan" wrote:

Mostrar la cita
#3 Ivan
03/12/2007 - 20:33 | Informe spam
On 3 dic, 17:07, Antonio wrote:
Mostrar la cita
hola de nuevo, Antonio,

solo disculparme por que no me di cuenta de lo de las formulas [aunque
no es lo mismo 'C68:L58' que 'C68:L68', donde si habria un maximo de
10 celdas con lo que fuese]

lo dicho, disculpas y me alegro lo hayas arreglado

Un saludo
Ivan
Ads by Google
Search Busqueda sugerida