Seleccionar la línea desde A hasta L

¿Cómo seria para seleccionar la línea desde A hasta L?

Sub Seleccion_Linea()
'comentado x Elsamatilde
    'activa la celda A2 (de la hoja activa)
Range("a2").Activate
    'declara una variable que contendrá las celdas de la región actual
Set Rango = Range("A1").CurrentRegion
    'guarda en la variable 'Valor' el dato seleccionado de la lista
    'listindex indica el nro de índice del elemento seleccionado
valor = cmbEdProv.List(cmbEdProv.ListIndex)
    'busca ese valor en el rango y si lo encuentra lo selecciona
Rango.Find(What:=valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End Sub

Gracias

1 respuesta

Respuesta
1

La instrucción Range("A1"). CurrentRegion abarca desde A1 todas las col siguientes y todas las filas siguientes hasta encontrar una intersección fila/col vacía. En la imagen, la instrucción seleccionará el primer cuadro (A1:D9)

Si tuvieras la instrucción: Range("G3"). CurrentRegion.Select  se seleccionará el cuadro de color (F1:G5)

Ahora, para seleccionar, como mencionas la línea A:L dependerá de la fila.

Algunos ej:

Range("A2:L30").Select     'rango desde fila 2 a la 30
Range("A1:L1").Select      'col A:L de la fila 1
Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select
'col A:L de la fila donde esté la celda seleccionada.

PD) Encontrarás más ejemplos de instrucciones básicas en la sección Macros de mi sitio.

Sdos!

No hallo ya donde colocar la línea

Range("A" & ActiveCell.Row & ":I" & ActiveCell.Row).Select
'Range("a2").Activate
    'declara una variable que contendrá las celdas de la región actual
Set Rango = Range("A1").CurrentRegion 'TAMBIEN LA COLOQUE ACÁ DESPUES DE Set Rango = pero me da error 13 No coinciden los tipos
    'guarda en la variable 'Valor' el dato seleccionado de la lista
    'listindex indica el nro de índice del elemento seleccionado
valor = cmbEdProv.List(cmbEdProv.ListIndex)
    'busca ese valor en el rango y si lo encuentra lo selecciona
    Rango.Find(What:=valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End Sub

La selección en el Combo (cmbEdProv), se hace de la columna C pero mi solicitud es que seleccione desde la A hasta la L pero, com odije arriba, trate haciendo colocaciones de la línea pero siempre me manda error, uno si esta arriba otro si esta más abajo, etc.

No se entiende tu consulta.

Una cosa es el rango donde buscar el dato seleccionado en el combo... y otra cosa es el rango de datos que debe mostrar el combobox.

Aclara cada uno de estos rangos si es posible con alguna imagen.

Sdos!

Tal vez no me exprese bien., olvidemos entonces mi comentario anterior.

En la macro exustente, la que esta;

Sub Seleccion_Linea()
'comentado x Elsamatilde
    'activa la celda A2 (de la hoja activa)
Range("a2").Activate
    'declara una variable que contendrá las celdas de la región actual
Set Rango = Range("A1").CurrentRegion
    'guarda en la variable 'Valor' el dato seleccionado de la lista
    'listindex indica el nro de índice del elemento seleccionado
valor = cmbEdProv.List(cmbEdProv.ListIndex)
    'busca ese valor en el rango y si lo encuentra lo selecciona
Rango.Find(What:=valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End Sub

No hallo donde colocar la linea de codigo para que me seleccione de A a L

La coloque en varios puntos y en uno me dice error 13 en tiempo de ejecución No coinciden los tipos.

La cambio de punto y me manda error 423.

El combo esta bien, selecciono un dato de este Combo, quiero que me seleccione la línea del dato seleccionado y no solo la celda

Actualmente solo selecciona la celda A del dato seleccionado en el Combo.

La imagen es como quisiera que hiciera

[IMG];

En primer lugar trata de tomarte unos minutos para pensar bien las aclaraciones y luego la envias... 4 peticiones al mismo momento ;(

Bien, luego de activar la celda encontrada se selecciona la fila de esa celda con la línea en negrita

Rango.Find(What:=valor, LookAt:=xlWhole, After:=ActiveCell).Activate
Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Select
End Sub

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas