Problema recorrer rango

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

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:

> 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

On 3 dic, 17:07, Antonio wrote:

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:
> > 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- Ocultar texto de la cita -

- Mostrar texto de 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