Cargar rango en un textBox

[Benito Bartolomé]

Hola a todos;

Imagino que lo que voy a preguntar no se puede hacer pero quiero salir de dudas si sois tan amables.

¿Es posible cargar en un textBox el contenido de mas de  un rango de celdas?

Creo que únicamente concatenando, no?

Adjunto la macro y saludos a todos.

MRango.xlsm

[Antoni]

Private Sub UserForm_Initialize()
TextBox5.MultiLine = True
End Sub
'---------------------------------
Private Sub OptionButton1_Click()
Dim vRnango As Range
Dim vTitulo As String
vTitulo = "Seleccionar "
Set vRnango = Application.InputBox _
   (prompt:="Seleccionar el rango a copiar", Title:=vTitulo, Default:="A2", Type:=8)
vRnango.Copy
TextBox5.SetFocus
SendKeys "^v"
DoEvents
Application.CutCopyMode = False
End Sub

 

[Benito Bartolomé]

Hola Antoni, pues menos mal que he preguntado,  iluso de mí. 

Puedes con todo😂, no hay reto que se resista.

Muchas gracias por la ayudita.

"E se chove que chova".

Un abrazo enorme. 

 

[Benito Bartolomé]

Hace 20 horas, Antoni dijo:

Private Sub UserForm_Initialize()
TextBox5.MultiLine = True
End Sub
'---------------------------------
Private Sub OptionButton1_Click()
Dim vRnango As Range
Dim vTitulo As String
vTitulo = "Seleccionar "
Set vRnango = Application.InputBox _
   (prompt:="Seleccionar el rango a copiar", Title:=vTitulo, Default:="A2", Type:=8)
vRnango.Copy
TextBox5.SetFocus
SendKeys "^v"
DoEvents
Application.CutCopyMode = False
End Sub

 

Hola Antoni, a ver si me puedes ayudar con el inputBox. No es por dar la lata pero seguramente en alguna ocasión igual tengo que utilizar el botón cancelar.

Si selecciono alguna celda va bien pero si por circunstancias cancelo me da error  "424 en tiempo de ejecución"

He intentado añadir lo siguiente:

Dim vRango As Range
Dim vTitulo As String
vTitulo = "Seleccionar "
    Set vRango = Application.InputBox _
       (prompt:="Seleccionar el rango a copiar", Title:=vTitulo, Default:="A2", Type:=8)
       					'Añadí esto-------------------------------
                        If vRango <> Empty Then
                        MsgBox "Aceptar", vbInformation, "Aceptar"
                        Else
                        MsgBox "Aceptar", vbInformation, "cancelar"
                        End If
       					'-----------------------------------------
    vRango.Copy
    TextBox5.SetFocus
    SendKeys "^v"
    DoEvents
Application.CutCopyMode = False

Pero me vuelve a dar error ¿?, no sé.

Saludos.

[Antoni]

Private Sub OptionButton1_Click(): On Error Resume Next '<------------
Dim vRnango As Range
Set vRnango = Application.InputBox _
   (prompt:="Seleccionar el rango a copiar", Title:="Seleccionar ", Default:="A2", Type:=8)
If Not vRnango Is Nothing Then '<------------
   vRnango.Copy
   TextBox5.SetFocus
   SendKeys "^v"
   DoEvents
   Application.CutCopyMode = False
End If

 

[Benito Bartolomé]

Hace 24 minutos , Antoni dijo:

Private Sub OptionButton1_Click(): On Error Resume Next '<------------
Dim vRnango As Range
Set vRnango = Application.InputBox _
   (prompt:="Seleccionar el rango a copiar", Title:="Seleccionar ", Default:="A2", Type:=8)
If Not vRnango Is Nothing Then '<------------
   vRnango.Copy
   TextBox5.SetFocus
   SendKeys "^v"
   DoEvents
   Application.CutCopyMode = False
End If

 

Gracias Antoni, ya veo las dos líneas que has comentado.

Saludos y muchas como siempre. 👍 

 

[Gerson Pineda]

Saludos a ambos!

Te adjunto otra alternativa, de tal manera que si deseas cancelar, aceptar o cerrar la ventana, para cambiar el rango [o salir del formulario], el botón quedara activo nuevamente 

Mostrar rango seleccionado - Textbox VBA_GP.xlsm

[Benito Bartolomé]

Hace 18 horas, Gerson Pineda dijo:

Saludos a ambos!

Te adjunto otra alternativa, de tal manera que si deseas cancelar, aceptar o cerrar la ventana, para cambiar el rango [o salir del formulario], el botón quedara activo nuevamente 

Mostrar rango seleccionado - Textbox VBA_GP.xlsm 24 kB · 3 descargas

Hola Gerson, me gustó también mucho tú idea.

Ya me la he guardado a buen recaudo.

Muchas gracias por todo Gerson,  te lo agradezco mucho.

Un abrazo 👍 

 

[Gerson Pineda]

Hace 2 horas, Benito Bartolomé dijo:

Hola Gerson, me gustó también mucho tú idea.

Ya me la he guardado a buen recaudo.

Muchas gracias por todo Gerson,  te lo agradezco mucho.

Un abrazo 👍 

 

Seguro lo observaste, que en cuanto hayas elegido un rango, pero lo deseas cambiar es reemplazado, por el nuevo

¡Por aquí andamos!

 

[Benito Bartolomé]

Hace 3 horas, Gerson Pineda dijo:

Seguro lo observaste, que en cuanto hayas elegido un rango, pero lo deseas cambiar es reemplazado, por el nuevo

¡Por aquí andamos!

 

Sí, muchas gracias  Gerson .