UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

tan17


Código:

  ActiveSheet.Cells(2, 1).Select
  Selection.EntireRow.Insert
        
      ActiveSheet.Cells(2, 1) = TextBox1
      ActiveSheet.Cells(2, 2) = TextBox2

yo utilizo este codigo para insertar datos en una sola linea ,pero nesecito ingresar mas textbox (16) y que los datos de los txt se ingresen en 5 filas de una misma hoja de datos.

tyno


Hola tan17
Para eso que necesitas se puede resolver así, partiendo de que tienes 17 TexBox cuyo nombre es correlativo, o sea TextBox1, TextBox2, ...,TextBox17

Cells(2, 1).EntireRow.Insert

For a=1 to 17
Cells(2,a)=Me.Controls("TextBox" & a)
Next a
        

Saludos

wibly


Hola tan17,

Trata de comenzar con un saludo, así es más agradable.

Saludos

Adrián

tan17


Saludos Expertos

Wibly mis mas sinceras disculpas a veses por la urgencia de publicar el tema omito lo mas importante la EDUCACION ,reitero mi agradeciemiento y respeto para ustedes. Very Happy

Tyno tu codigo me ingresa los datos de los textbox en una sola fila en varias columnas.

Lo que requiero es que el dato de los textbox sea ingresado en varias filas ejem.
textbox 1 al 5 fila 1
textbox 6 al 10 fila 2
textbox 11 al 15 fila 3 y asi progresivamente ingresar los datos en la ultima fila vacia.
La unica forma que e logrado esto es cargardo los datos de los textbox a un listbox y de ahi al hoja de excel ,pero no logro hacerlo sin el listbox.

muchas gracias .

tyno


¿esta resuelto o no el tema?  Neutral 
Pero bueno, como quedo colgada la pregunta respondo:
Lo que hice carga todos los textbox en una sola fila es a modo de ejemplo, si tienes que distribuir los textbox en mas filas pues simplemente creas otros bucles:

For a=1 to 5
Cells(1,a)=Me.Controls("TextBox" & a)
Next a

For a=6 to 10
Cells(2,a)=Me.Controls("TextBox" & a)
Next a


For a=11 to 15
Cells(3,a)=Me.Controls("TextBox" & a)
Next a

En todo caso si esto no es lo que necesitas, tendrias que subir el archivo de ejemplo

Saludos

tan17


Código:
Private Sub btn_Registrar_Click()
Cells(2, 1).EntireRow.Insert
For A = 1 To 3
Cells(2, A) = Me.Controls("Text" & A)
Next A
Cells(3, 1).EntireRow.Insert
For A = 1 To 3
Cells(3, A) = Me.Controls("TBox" & A)
Next A
Cells(4, 1).EntireRow.Insert
For c = 1 To 3
Cells(4, c) = Me.Controls("Box" & c)
Next c

End Sub

Buenas Tardes.

Perfecto Tyno ,muchisimas gracias por tu pronta respuesta y valiosa colaboracion .
tema solucionado gracias.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.