Variante en For Each

Hola Adriano,
No conozco una forma de realizar lo que pides, pero te
cuento como lo hago yo:

For each MiControl in Controls
if Left(MiControl.Name,3) = "txt" then
Código
End If
Next MiControl

No es muy diferente a tu metodo,pero al menos no se
requiere estar usando la propiedad Tag cada vez que
creemos un control para el formulario.

Sobra decir que los controles tipo texto hay que
nombrarlos siguiendo la regla de txtMitexto, txtOtrotexto
(los cuadros de lista serian lstMiLista, lstTuLista,
etc.) que me parece buena practica de programacion para
evitar complicaciones cuando se revisa el codigo despues
de un tiempo de haberlo creado.

Saludos,

Henry

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
>
>

.