Como recorrer las celdas de una Columna

Hola Adhemir
activesheet.range("A1").select ' situate al principio de la columna

do while not isempty(activecell) ' mientras la celda no esté vacia (u
otra condición)
activecell.offset(0,1).select ' baja a la siguiente celda
loop 'repite

¿Te vale así?
Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Adhemir" escribió en el mensaje
news:

Amigos, como hago para recorrer las celdas de determinada columna hasta

que

se cumpla una condicion?...Gracias x su ayuda

"Adhemir" escribió en el mensaje news:

Amigos, como hago para recorrer las celdas de determinada columna hasta que
se cumpla una condicion?...Gracias x su ayuda

Por ejemplo, para recorrer todas las celdas de la columna A de Hoja1 hasta que la celda tenga una a como valor:

Sub prueba()
Dim rngC As Range
For Each rngC In Worksheets("Hoja1").Cells
If rngC = "a" Then
MsgBox "La celda " & rngC.Address & "='a'"
Exit For
End If
Next rngC
Set rngC = Nothing
End Sub

Es tan sólo una posibilidad de entre varias.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Ok...me sirvio mucho...pero tengo un problema porque quiero consultar los
datos, no de la hoja activa, sino de otra =(

"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:

Hola Adhemir
activesheet.range("A1").select ' situate al principio de la columna

do while not isempty(activecell) ' mientras la celda no esté vacia (u
otra condición)
activecell.offset(0,1).select ' baja a la siguiente celda
loop 'repite

¿Te vale así?
Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Adhemir" escribió en el mensaje
news:
> Amigos, como hago para recorrer las celdas de determinada columna hasta
que
> se cumpla una condicion?...Gracias x su ayuda
>
>
>

Adhemir
pues cambia activesheet por worksheets("tuHoja")
y activecell por worksheets("tuHoja").selection

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Adhemir" escribió en el mensaje
news:%

Ok...me sirvio mucho...pero tengo un problema porque quiero consultar los
datos, no de la hoja activa, sino de otra =(

"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:
> Hola Adhemir
> activesheet.range("A1").select ' situate al principio de la

columna

>
> do while not isempty(activecell) ' mientras la celda no esté vacia

(u

> otra condición)
> activecell.offset(0,1).select ' baja a la siguiente celda
> loop 'repite
>
> ¿Te vale así?
> Saludos a desde Huelva
> Emilio
> miliuco56 ALGARROBA hotmail.com
>
> Reglas de conducta de los grupos de noticias:
> http://support.microsoft.com/defaul...newsreglas
>
> "Adhemir" escribió en el mensaje
> news:
> > Amigos, como hago para recorrer las celdas de determinada columna

hasta

> que
> > se cumpla una condicion?...Gracias x su ayuda
> >
> >
> >
>
>