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

1 No escribir tantos TextBox el 12/05/14, 04:15 pm

JoaoM


Como hacer para que no escriba tantos TextBox

Código:
TextBox1 = ActiveCell.Offset(0, 1) 'Nombre
TextBox2 = ActiveCell.Offset(0, 2) 'Direccion
TextBox3 = ActiveCell.Offset(0, 3) 'Pueblo/Ciudad
TextBox4 = ActiveCell.Offset(0, 4) 'Telefono 1
TextBox5 = ActiveCell.Offset(0, 5) 'Telefono 2
TextBox6 = ActiveCell.Offset(0, 6) 'Fecha

No quisiera tener que escribir tantos TextBox.
Sequese puede hacer, en este caso e algo For to 1 = 6, algo así

Me perdonan mi ignorancia pero en estos menesteres soy parko

2 Re: No escribir tantos TextBox el 12/05/14, 04:21 pm

tyno


Hola Joao.

Sería algo asi:

For a=1 To 20
Cells(a,1)=Me.Controls("TextBox" & a)
Next a

Este ejemplo supone que tienes 20 textboxs y los datos de estos se van a registrar desde la celda A1 a la celda A20.

Saludos

3 Re: No escribir tantos TextBox el 12/05/14, 05:20 pm

JoaoM


Hola tyno, como te ha ido? espero y hago votos para que todo bien en ti y contigo.
Gracias por tu respuesta.
Aprovecho para preguntarte si viste un tema en el cual deje libro pero luego pedi para eliminar dicho tema.
Pues hoy pense mejor y lo dejare pero si ya lo eliminaron voy a dejar pasar unos dias y luego abrire nuevo tema.
De libro que te he enviado, estoy tratando de hacer 3 versiones,

Una = insertando datos en Factura con C7 validacion y formulas, y del B14 a 23 con validacion de datos en las celdas

Dos = insertando datos en Factura con C7 validacion y formulas y para B 14 al 23 con formulario para buscar productos (ListBox) y

Tres = Un formulario para buscar clientes y insertarlos en Factura y otro (listBox) para buscar Productos.
Cuando me vea apretado, sabes donde voy.

Gracias tyno.
Voy con tu recomendacion

Perdoname pero, me quedo lejos lejos


Código:
Private Sub cmb_cod_Client_Change() 'SELECCION DE CLIENTE
Sheets("Clientes").Activate
If cmb_cod_Client = Empty Then
cmb_cod_Client.ListIndex = 0
cmb_cod_Client.SetFocus
End If
var3 = cmb_cod_Client.Column(0) 'Cod Cliente RIF/CI
Cells.Find(What:=cmb_cod_Client.value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
'xxxxxxxxx
For a = 1 To 6
Cells(a, 1) = Me.Controls("TextBox" & a)
Next a
'xxxxxx
If var3 = ActiveCell Then
a = ActiveCell.Offset(0, 1) 'Nombre
a = ActiveCell.Offset(0, 2) 'Direccion
a = ActiveCell.Offset(0, 3) 'Pueblo/Ciudad
a = ActiveCell.Offset(0, 4) 'Telefono 1
a = ActiveCell.Offset(0, 5) 'Telefono 2
a = ActiveCell.Offset(0, 6) 'Fecha
End If
End Sub


Me elimina los datos de la columna A

4 Re: No escribir tantos TextBox el 13/05/14, 12:09 pm

tyno


Hola Joao.
Si ha pasado un tiempo lo mejor es que retomes el tema explicando y subiendo el archivo nuevamente, porque con tantos archivos y demás la verdad que me cuesta encontrar donde quedó un tema en particular. Saludos

5 Re: No escribir tantos TextBox el 13/05/14, 12:22 pm

JoaoM


Hola tyno, buenos dias.

Te envie un mail diciendo que por motivos de modificaciones y como te explico arriba estoy ahora mismo con uno solo que es el que te mensiono sobre el For
Código:
'xxxxxxxxx
For a = 1 To 6
Cells(a, 1) = Me.Controls("TextBox" & a)
Next a
'xxxxxx
No se como integrarlo en el codigo que te muestro arriba.
Si ves mi el mensage anterior, esta el codigo (macro) completa en la cual quiero integrar ese For.
Veras que stoy mas enredado que estopa en un bolsillo.
Podrias darme un poco de tinta a explicarme como tengo que integrarlo?

Ya lo otro sobre el libro yo cuando vea oportuno te lo envio o dejo un ejemplo en un nuevo tema

6 Re: No escribir tantos TextBox el 15/05/14, 08:10 pm

JoaoM


Se puede cerrar el tema

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.