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

ADRIANAGG


hola a todos. tengo un problemita. he creado dos base datos una llamada cliente y la otra presupuestos, lo que quiero es cuando busque datos por el numero de control este se me devuelva al formulario. ya lo logre llamando a la base del presupuesto pero los datos del cliente me lo busca por fila, y lo que quiero es que me lo busque por el nombre del cliente  y lo agrege al mismo tiempo al formulario.
Private Sub Cbo_numbuscado_Change()
On Error Resume Next
If ncontrol(Cbo_numbuscado.Text) >= 0 Then
Sheets("presupuestos").Activate
Cells(Cbo_numbuscado.ListIndex + 7, 1).Select
TXT_CLIENTE = ActiveCell.Offset(0, 0)
TextBox1 = ActiveCell.Offset(0, 2)
TextBox3 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 6)
TextBox7 = ActiveCell.Offset(0, Cool
TextBox9 = ActiveCell.Offset(0, 9)
TextBox10 = ActiveCell.Offset(0, 7)
TextBox11 = ActiveCell.Offset(0, 4)
cbo_cliente = ActiveCell.Offset(0, 0)
Cbo_control = Cbo_numbuscado
Cbo_tipo = ActiveCell.Offset(0, 5)
cbo_anticipo = ActiveCell.Offset(0, 10)
TextBox15 = TextBox1
'If acliente(Cbo_cliente.Text) = ncliente(Cbo_cliente.Text) Then
If acliente(cbo_cliente.Text) >= 0 Then
Sheets("clientes").Activate
Cells(Cbo_numbuscado.ListIndex + 7, 1).Select '(a partir de aqui es q tengo el problema q me devuelve por n de filas tantas hay en la  base d presupuesto)
'Cells.Find(What:="matrizclientes", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
txtrif = ActiveCell.Offset(0, 1)
txtdireccion = ActiveCell.Offset(0, 2)
txtemail = ActiveCell.Offset(0, 3)
Txttelefono = ActiveCell.Offset(0, 4)
Txtrepresentante = ActiveCell.Offset(0, 5)
Dim numero As String
Dim fechaactual As String
Dim horaactual As String
fechaactual = Format(Date, "yyyymmdd")
horaactual = Format(Now, "hhmm")
Txt_control_fecha = fechaactual & "-" & horaactual
    End If
Next
Else
TextBox1 = ""
TextBox3 = ""
TextBox5 = ""
TextBox7 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
cbo_cliente = ""
Cbo_control = ""
Cbo_tipo = ""
cbo_anticipo = ""
End If
End If
End Sub

tyno


Hola Adriana, bien venida al foro.
Va a ser necesario que subas el archivo con tu formulario para ver que se puede hacer con respecto a tu pedido. No es necesario que tenga datos privados o tas las Hojas del archivo, pero si que tengas datos parecidos a los que vas a utilizar. Saludos

ADRIANAGG


adjunto el archivo, como me dijistes, muchas gracias por la atencion

tyno


Hola Adriana.
El archivo no subió, ten en cuenta que no pese mas de 250 kb o si esta comprimido que sea ZIP, no RAR. Saludos

ADRIANAGG


no pude subir el archivo, por lo pesado. ni modo me quedara seguir investigando. gracias nuevamente.

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.