Variante en For Each

No te conviene seleccionar el rango a revisar y luego ejecutar una macro que
tenga:

Dim R As Range
For Each R In Selection
MsgBox "Revisando: " & R.Address
Next R

Sino creo que lo que vos querés es ir 150 más abajo de la celda activa:

Dim act As String
act = ActiveCell.Address
Dim R As Range
For Each R In Worksheets("Hoja1").Range(act & ":" & Range(act).Offset(5,
0).Address)
MsgBox R.Address
Next R

Podés cambiar el 0 del offset para ir hacia la izq o derecha.

Sirve??? no entendí muy bien el planto pero creo estar en un rumbo mmmaaass
o menos cercano al tuyo

José Luis
Guns And Roses


"Fabian" escribió en el mensaje
news:

Dim R As Range
myselección = InputBox("Cargue el Rango a revisar")
For Each R In Worksheets("Hoja1").Range(myselección)
Este código funciona, pero tengo que cargar el rango manualmente
Traté de usar, por ejemplo
myselección=ActiveCell.Range("A1:C50").Select
Obtengo la selección en la hoja, pero no obtengo el rango seleccionado en

la

variante.
Se puede cargar el rango en una variante a partir de la celda activa?
La finalidad de esto es revisar 150 celdas por vez, partiendo de la celda
activa.Gracias.
Fabian

Fabian,

Set myselección=ActiveCell.Range("A1:C50")

For each R in myselección
...
Next R

Saludos,

Daniel M.

"Fabian" wrote in message
news:

Dim R As Range
myselección = InputBox("Cargue el Rango a revisar")
For Each R In Worksheets("Hoja1").Range(myselección)
Este código funciona, pero tengo que cargar el rango manualmente
Traté de usar, por ejemplo
myselección=ActiveCell.Range("A1:C50").Select
Obtengo la selección en la hoja, pero no obtengo el rango seleccionado en la
variante.
Se puede cargar el rango en una variante a partir de la celda activa?
La finalidad de esto es revisar 150 celdas por vez, partiendo de la celda
activa.Gracias.
Fabian

Excelente, es lo que quería, muy agradecido por tu valioso conocimiento.
Gracias.
"Daniel.M" escribió en el mensaje
news:#

Fabian,

Set myselección=ActiveCell.Range("A1:C50")

For each R in myselección
...
Next R

Saludos,

Daniel M.

"Fabian" wrote in message
news:
> Dim R As Range
> myselección = InputBox("Cargue el Rango a revisar")
> For Each R In Worksheets("Hoja1").Range(myselección)
> Este código funciona, pero tengo que cargar el rango manualmente
> Traté de usar, por ejemplo
> myselección=ActiveCell.Range("A1:C50").Select
> Obtengo la selección en la hoja, pero no obtengo el rango seleccionado

en la

> variante.
> Se puede cargar el rango en una variante a partir de la celda activa?
> La finalidad de esto es revisar 150 celdas por vez, partiendo de la

celda

> activa.Gracias.
> Fabian
>
>

Desde ya mil gracias por todo el trabajo que te tomaste, te digo que tengo
que revisar todo lo que escribiste, lo voy a analizar y algo voy a tener que
aprender a la fuerza. Gracias

Sino creo que lo que vos querés es ir 150 más abajo de la celda activa:

Es una selección dependiente de la posición de la celda activa.
Efectivamente es una selección de tres columnas de 50 celdas cada una.

"JoseLuisArg" <ForosYListas(arroba)jlf.com.ar> escribió en el mensaje
news:

No te conviene seleccionar el rango a revisar y luego ejecutar una macro

que

tenga:

Dim R As Range
For Each R In Selection
MsgBox "Revisando: " & R.Address
Next R

Sino creo que lo que vos querés es ir 150 más abajo de la celda activa:

Dim act As String
act = ActiveCell.Address
Dim R As Range
For Each R In Worksheets("Hoja1").Range(act & ":" & Range(act).Offset(5,
0).Address)
MsgBox R.Address
Next R

Podés cambiar el 0 del offset para ir hacia la izq o derecha.

Sirve??? no entendí muy bien el planto pero creo estar en un rumbo

mmmaaass

o menos cercano al tuyo

José Luis
Guns And Roses


"Fabian" escribió en el mensaje
news:
> Dim R As Range
> myselección = InputBox("Cargue el Rango a revisar")
> For Each R In Worksheets("Hoja1").Range(myselección)
> Este código funciona, pero tengo que cargar el rango manualmente
> Traté de usar, por ejemplo
> myselección=ActiveCell.Range("A1:C50").Select
> Obtengo la selección en la hoja, pero no obtengo el rango seleccionado

en

la
> variante.
> Se puede cargar el rango en una variante a partir de la celda activa?
> La finalidad de esto es revisar 150 celdas por vez, partiendo de la

celda

> activa.Gracias.
> Fabian
>
>

Daniel, ya que estamos te pregunto.
No pude cambiar unos TextBox en un UserForm con For Each sin tener que pasar
en realidad por todos los controles del form y utilizar los tags.
Lo que yo quiero es que me detecte el tipo de control, por ejemplo que haga
algo si es un TextBox, pero solo me funcionó con

For each MiControl in Controls
if MiControl.Tag = "xxx" then Código
Next MiControl

y en realidad lo que quería es hacer un

For each MiCajaTexto in TextBoxes o algo así, le debo estar pifiando por un
pelo no?

Saludos.


"Daniel.M" escribió en el mensaje
news:#

Fabian,

Set myselección=ActiveCell.Range("A1:C50")

For each R in myselección
...
Next R

Saludos,

Daniel M.

"Fabian" wrote in message
news:
> Dim R As Range
> myselección = InputBox("Cargue el Rango a revisar")
> For Each R In Worksheets("Hoja1").Range(myselección)
> Este código funciona, pero tengo que cargar el rango manualmente
> Traté de usar, por ejemplo
> myselección=ActiveCell.Range("A1:C50").Select
> Obtengo la selección en la hoja, pero no obtengo el rango seleccionado

en la

> variante.
> Se puede cargar el rango en una variante a partir de la celda activa?
> La finalidad de esto es revisar 150 celdas por vez, partiendo de la

celda

> activa.Gracias.
> Fabian
>
>