Elegir celdas de un rango
Hola,
Quiero seleccionar un rango de datos con un control RefEdit, rango que bien podría ser:
Range("B3:B16") , por ejemplo.
Luego quiero hacer cosas con el primer elemento del rango. Quiero lo siguiente:
For i=valor_primer elemento_del_rango To valor_último_elemento_del_rango
bla bla
Next i
O lo que es lo mismo:
For i= Range("B3").Value To Range("B16").Value
bla bla
Next i
¿Cómo podría hacer eso?. Elijo el rango y luego le digo que haga algo con el primer elemento del rango o con el elemento n del rango. Es que el rango no va a ser siempre el mismo, por eso lo quería generalizar un poco
Muchas gracias a todos
Saludos
Quiero seleccionar un rango de datos con un control RefEdit, rango que bien podría ser:
Range("B3:B16") , por ejemplo.
Luego quiero hacer cosas con el primer elemento del rango. Quiero lo siguiente:
For i=valor_primer elemento_del_rango To valor_último_elemento_del_rango
bla bla
Next i
O lo que es lo mismo:
For i= Range("B3").Value To Range("B16").Value
bla bla
Next i
¿Cómo podría hacer eso?. Elijo el rango y luego le digo que haga algo con el primer elemento del rango o con el elemento n del rango. Es que el rango no va a ser siempre el mismo, por eso lo quería generalizar un poco
Muchas gracias a todos
Saludos
1 respuesta
Respuesta de Elsa Matilde
1
Te dejo un ejemplo de bucle para recorrer el rango seleccionado con el RefEdit. Lo que hace este ej es sumar el contenido de cada celda.
Private Sub CommandButton1_Click()
rgo = Range(RefEdit1.Value).Address
For Each rg In Range(rgo)
tot = tot + rg.Value 'se acumulan los valores del rango
Next
MsgBox tot 'opcional: mostrar el resultado
End Sub
Si todo quedó comprendido no olvides finalizar la consulta. Mañana veré de responderte la otra que está pendiente.
PD) Te recomiendo mi manual de Userforms y forms en general.
Private Sub CommandButton1_Click()
rgo = Range(RefEdit1.Value).Address
For Each rg In Range(rgo)
tot = tot + rg.Value 'se acumulan los valores del rango
Next
MsgBox tot 'opcional: mostrar el resultado
End Sub
Si todo quedó comprendido no olvides finalizar la consulta. Mañana veré de responderte la otra que está pendiente.
PD) Te recomiendo mi manual de Userforms y forms en general.
