Asignar rango de celdas a un textbox
Estimado experto: tengo el siguiente código, que selecciona perfectamente un rango de celdas. Mi pregunta es como asignar este rango seleccionado a un texbox, y a su ves guardarlo en otra celda. Muchas gracias.
Hoja5.Select
Range("b1").CurrentRegion.Select
'Como hay filas y columnas vacías en mi rango, hago que recorra hacia arriba o hacia la izquierda para obtener la última fila y última col, con:
fila = Range("A1000").End(xlUp).Row ' prevee 1000 facturas por usuario
col = Range("11" & fila).End(xlToLeft).Column ' COMIENZA A CONTAR DESDE LA COLUMNA 11 QUE ES LA PRIMERA VACIA
Range("b1", Cells(fila, col)).Select ' RANGO SELECCIONADO
'Selection.PrintOut Copies:=1
' textbox22 ??????????
Hoja5.Select
Range("b1").CurrentRegion.Select
'Como hay filas y columnas vacías en mi rango, hago que recorra hacia arriba o hacia la izquierda para obtener la última fila y última col, con:
fila = Range("A1000").End(xlUp).Row ' prevee 1000 facturas por usuario
col = Range("11" & fila).End(xlToLeft).Column ' COMIENZA A CONTAR DESDE LA COLUMNA 11 QUE ES LA PRIMERA VACIA
Range("b1", Cells(fila, col)).Select ' RANGO SELECCIONADO
'Selection.PrintOut Copies:=1
' textbox22 ??????????
1 Respuesta
Respuesta de bacter582
1
Como estas amigo, si lo que necesitas es la dirección del rango, lo puedes hacer de la sigueente manera.
Saludos
Bacter
Dim mirango As Range
Hoja5.Select
Range("b1").CurrentRegion.Select
'Como hay filas y columnas vacías en mi rango, hago que recorra hacia arriba o hacia la izquierda para obtener la última fila y última col, con:
fila = Range("A1000").End(xlUp).Row ' prevee 1000 facturas por usuario
col = Range("11" & fila).End(xlToLeft).Column ' COMIENZA A CONTAR DESDE LA COLUMNA 11 QUE ES LA PRIMERA VACIA
Set mirango = Range("b1", Cells(fila, col)).Select ' RANGO SELECCIONADO
Set mirango.select
Selection.PrintOut Copies:=1
textbox22.text= mirango.Address
Saludos
Bacter
Dim mirango As Range
Hoja5.Select
Range("b1").CurrentRegion.Select
'Como hay filas y columnas vacías en mi rango, hago que recorra hacia arriba o hacia la izquierda para obtener la última fila y última col, con:
fila = Range("A1000").End(xlUp).Row ' prevee 1000 facturas por usuario
col = Range("11" & fila).End(xlToLeft).Column ' COMIENZA A CONTAR DESDE LA COLUMNA 11 QUE ES LA PRIMERA VACIA
Set mirango = Range("b1", Cells(fila, col)).Select ' RANGO SELECCIONADO
Set mirango.select
Selection.PrintOut Copies:=1
textbox22.text= mirango.Address
