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
  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 30.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      143
    • Comments
      87
    • Reviews
      25

    Latest File
    By pegones1

    4    0

  • Crear macros Excel

  • Posts

    • Hola Tu pregunta, aunque no lo creas, es demasiado genérica y hace falta imaginarse demasiado tu situación. Trata o de adjuntar tu archivo o de especificar mejor las cosas. No olvides que no necesariamente escribir más es especificar mejor. Saludos.
    • Hola a todos, Intento extraer en una sola función, una fecha que esta dentro de una cadena de texto y esta función extraiga únicamente la fecha. Adjunto un archivo como ejemplo, seria hacer en una sola celda los 4 pasos del archivo  Gracias de antemano Libro1.xlsx
    • Buenas noches. Quería preguntar si es posible incluir un buscador dentro de un dashboard teniendo en cuenta que solo quiero incluir algunos parámetros (nombre, DNI, Categoría y otro más, hasta un total de 4) de todos los que tiene la tabla dinámica situada en otra hoja. ¿Tengo que exportar todos los datos al propio dashboard? Mi idea es que todo los datos se mantengan en la una hoja y que en el dashboard (otra hoja) tan solo aparezcan los que cumplan con los requisitos que se incluyen en el propio buscador.......Es la primera pregunta que lanzo y quiero pedir disculpas porque he visto que hay que adjuntar archivo, pero tiene datos personales y por la protección de datos es imposible. Agradecería que me informaran si es posible hacer lo que pido y alguna referencia para poder estudiarla porque entiendo que será trabajoso pero me gusta aprender. Muchas gracias.
    • Ante todo dar las gracias por la acogida.  Soy Jose Mari y la verdad que llego a estos lugares con ganas de aprender mucho y sobre todo a resolver aquellas dudas que me vayan surgiendo. Tengo 47 años y soy profesor.  Saludos. 
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy