Consulta

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Consulta

Notapor DANIEL OJEDA » 15 May 2006 14:04

Estoy usando un useform que se publico anteriormente en este foro, solo que deseo agregar un textbox que concatene los datos que se encuentran en los demas textbox del mismo use form.

Alguien que conozca del tema me podróa ayudar por favor?

Anexo el archivo de ejemplo.

Gracias....

Daniel
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
DANIEL OJEDA
Miembro Frecuente
Miembro Frecuente
 
Registrado: 08 May 2006 17:27

Re: Consulta

Notapor ST » 15 May 2006 15:53

Hola Daniel:

al codigo ya existente agrega la siguiente linea en cada textbox_change(),es decir en el 1,2 y3.

TextBox4 = TextBox1 & " " & TextBox2 & " " & TextBox3
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ST
Miembro Frecuente
Miembro Frecuente
 
Registrado: 06 Jun 2005 17:56
Ubicación: Acapulco

Re: Consulta

Notapor Adrian » 16 May 2006 12:09

Hola!
Una Variente serí­a:
Modificar la propiedad del nterKeyBehavior TextBox4 la ponemos a True, y le damos un ancho (según criterio) para que se vean cuatro lineas, y el código del botón quedarí­a:

Private Sub CommandButton1_Click()
Rem inserta un renglón
'Selection.EntireRow.Insert
Sheets(2).Range("A10").EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox4.Value = TextBox1.Value + Chr(13) + TextBox2.Value + Chr(13) + TextBox3.Value
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1.SetFocus Enví­a el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub

Atte
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: joseA y 6 invitados