Asignar rango seleccionado a un textbox

Estimada 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
'Si habrá filas o columnas vacías en tu rango, tendrás que recorrer 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
1
Según lo que entiendo ya seleccionaste la celda entonces puedes usar
textbox22=Activecell
y si por ejemplo lo quires cuardar en c1 entonces tambien colocas
Range("c1")=Activecell

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta

Macro para eliminar columnas

Tengo un archivo con muchas columnas, quisiera hacer una macro que me permita eligir las columnas a eliminar, por ahora solo tengo esta macro, que solo me deja eliminar una columna a la vez. Sub eliminarcolumna() Dim operacion As String Dim fila As...
1 respuesta

Completar celdas obligatoriamente

Tengo un libro de reservas y quiero que no se pueda guardar si no se completan determinadas celdas una vez se ha comenzado a ingresar datos en determinadas celdas, por ej: si en la celda A1 (cantidad de personas) se ingreso 2, entonces que no se...
1 respuesta

Selección de varios rangos para aplicar formato

Bueno me voy de frente a explicar la macro que deseo hacer, primero debe seleccionar un rango dado pejm (B6:F30), ahora seleccionar rangos dentro de este pejm (B6:F6) aplicarle negrita, centrado y todo los bordes; (B7:B30) aplicarle borde externo;...
1 respuesta

Rellenar rango determinado en Columna. VB Excel

Les paso el código de una función generada, me rellenará las celdas a valor vacío, pero lo realiza dentro de un for una a una y se eterniza, y me gustaría saber si se puede rellenar dicho rango de una sola vez. Muhas gracias. Private Sub...
1 respuesta

Macro para copiar rango variable

Quisiera pedirles si no es mucha la molestia una macro que haga lo siguiente: Tengo un rango variable de datos desde la columna A hasta la "I" (no siempre ocupa hasta la i) y desde la fila A2 para abajo (filas variables) lo que quiero es que se...
1 respuesta

¿Cómo encontrar valores iguales en columna de Excel y copiar filas de coincidentes?

Ante una determinada columna identificada por documentos de identidad (DNI) se le asigna a cada uno de estos diferentes productos y cantidad. El problema es que en la columna de DNI se repiten algunos de ellos, ya que pueden tener varios productos y...
1 respuesta

Macro. Hacer selección múltiple de varias celdas y luego reemplazar los espacios vacíos por ceros

Lo que deseo es una macros que pueda seleccionar múltiple celdas como por ejemplo seleccionar de A1 a C3 y luego otra selección que puede ser de D5 a J5 y luego de tener todo seleccionado busque dentro de esa elección espacios vacíos y los reemplace...
1 respuesta

Crear macro pegar especial valores en ultima celda

Le informo que grabe una macro (Macro 1) que solo me pegue especial valores, sin embargo necesito que cuando pego lo que he seleccionado lo haga en la ultima columna, continuación le muestro lo que hace: Range("D15"). Select (aqui necesito indicarle...
1 respuesta