Jump to content

Cargar rango en un textBox


Go to solution Solved by Antoni,

Recommended Posts

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

Link to comment
Share on other sites

  • Solution
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

 

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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. 👍 

 

Link to comment
Share on other sites

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 👍 

 

Link to comment
Share on other sites

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!

 

Link to comment
Share on other sites

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 . 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy