|
|
Hola Juliusguate, me presento soy Israel, si me puedes ayudar (formulario para cargar una base de datos) estoy modificando una guía de despacho que tengo me me ha servido muchisimo, esta se divide en dos Userform, la primera parte consta de 22 (entre combobox y textbox), funciona bien para almacenar y llamar la información que se guarda en una hoja llamada "HISTORICO", pero tengo el problema que en el segundo Userform (esta compuesto por 21 textbox y 1 combobox) esta información es para completar la guia, señala las marcas, tipo de bultos, descripcion de las mercancias, peso bruto, valor CIF Etc. como hago para enlazar o unir ambos en la misma base de datos, esto es lo que tengo, de antemano, muchisimas gracias
Public ubica As String
Public control As Integer
[u]Public filalibre As Integer
[/u]Private Sub despacho8_AfterUpdate() (este combobox guarda la informacion de cada una de las guias en la hoja historico)
Sheets("historico").Select
filalibre = Range("A2").End(xlDown).Offset(1, 0).Row 'la variable filalibre guarda el nro. de la primer celda vacía.
control = 0
dato = despacho8
rango = "A2:A" & filalibre
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
DIA8.Value = Range(ubica).Offset(0, 1).Value
[b][u]lo corte para que alcance los caracteres
[/u][/b]control = 1
End If
Set midato = Nothing
End Sub
Private Sub CommandButton1_Click()
Sheets("historico").Select
If control > 0 Then
Range(ubica).Value = despacho8
Range(ubica).Offset(0, 1).Value = DIA8
Range(ubica).Offset(0, 2).Value = MES8
Range(ubica).Offset(0, 3).Value = ano8
[b][u]lo corte para que alcance los caracteres
[/u][/b]control = 0
Else
Cells(filalibre, 1).Value = despacho8
Cells(filalibre, 2).Value = DIA8
Cells(filalibre, 3).Value = MES8
Cells(filalibre, 4).Value = ano8
Cells(filalibre, 5).Value = TIPO_DESTINACION8
End If
despacho8.Value = ""
DIA8.Value = ""
TIPO_DESTINACION8.Value = ""
RETIRO8.Value = ""
NAVE8.Value = ""
CONOCIMIENTO8.Value = ""
[b][u]lo corte para que alcance los caracteres[/u][/b]
despacho8.SetFocus
End Sub
[b][u](Estos codigos son para completar automaticamente la dirección, RUT, Ciudad, Direccion de Entrega[/u][/b])
Private Sub guia_uf_Initialize()
textbox_DIRECCION8 = Range("gdireccion").Value
textbox_RUT8 = Range("grut").Value
textbox_CIUDAD8 = Range("gciudad").Value
textbox_DIR_ENTREGA8 = Range("gdentrega1").Value
textbox_DIR_ENTREGA_28 = Range("gdentrega2").Value
End Sub
Private Sub textbox_DIRECCION8_enter()
textbox_DIRECCION8 = Range("gdireccion").Value
End Sub
Private Sub textbox_RUT8_enter()
textbox_RUT8 = Range("grut").Value
End Sub
Private Sub textbox_CIUDAD8_enter()
textbox_CIUDAD8 = Range("gciudad").Value
End Sub
Private Sub textbox_DIR_ENTREGA8_enter()
textbox_DIR_ENTREGA8 = Range("gdentrega1").Value
End Sub
Private Sub textbox_DIR_ENTREGA_28_enter()
textbox_DIR_ENTREGA_28 = Range("gdentrega2").Value
End Sub
|