¿Cómo hacer que en un cuadro de texto u otro control aparezca el contenido de varias celdas?
Quiero que un userform, con un cuatro de texto o cualquier otra cosa, controle si se cumple una condición en todas las filas de la hoja Excel y cada vez que la encuentre añada el contenido de esa fila en el cuadro de texto sin que se borre el contenido de otra fila. Así, al terminar de revisar toda la hoja, aparezca el userform con todas las filas que cumplen esa condición.
1 Respuesta
Para agregar datos a un textbox sin perder lo que tienes en el textbox puede ser así
textbox1 = textbox1 & datonuevo
Donde datonuevo es una variable que contiene el texto que quieres agregar.
Ahora si quieres poner lo anterior en un ciclo, podría ser así:
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h1 = Sheets("hoja1")
u = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row
For i = 1 To u
If h1.Cells(i, "A") = "coincidencia" Then
TextBox1 = TextBox1 & h1.Cells(i, "B")
End If
Next
End SubConsideraciones:
- Puedes poner la macro anterior en un botón del formulario, yo la puse cuando se abre el formulario.
- Cambia "hoja1" por el nombre de tu hoja
- Cambia "A" por la columna en la que quieres verificar la condición
- Cambia la palabra "coincidencia" por la palabra o el texto que quieras verificar
- Cambia "B" por la columna en donde se encuentra el texto que quieres agregar al textbox1
- Cambia h1. Cells(i, "A") = "coincidencia" por la condición que quieras poner.
Uff, en fin son muchos cambios. Si tienes dudas, escribe con detalle todo lo que necesitas, para poder crear el código acorde a tus necesidades.
