Como Insertar nuevos datos en orden a una Base de Datos
Dante Amor
Hola, espero poderme hacer entender bien
En la consulta anterior me ayudaste a encontrar códigos disponibles en una BD existente, ahora lo que necesito es que en el orden que lleva la BD se cree un espacio con ese código y la información que el usuario coloque en este formulario
La parte complicada esta en que en realidad hay 2 Bases de Datos en 2 archivos distintos (si me puede pasar tu correo te enviare los archivos), la primer base de datos se llama "Items 11 de Mayo 2017" allí se debe crear solo el espacio para el código (siguiendo el mismo orden de la BD), luego debe ir a archivo llamado " APU con Precios" en la hoja 1 o "APU" y meter el código en el orden que le corresponde y también debe incluir la información que el usuario coloco en el formulario...
Se que es muy complicado, si crees poder ayudarme dame tu correo y te envio los archivos de Excel
1 respuesta
Envíame tus archivos y me explicas con un ejemplo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Juan Arango”
¡Gracias! Lo voy a preparar todo y en cuanto pueda te lo envío
Te anexo la macro
Private Sub btnagregar_Click()
'Por Dante Amor
'agregar datos en código disponible
codigo = Val(txtcodd.Value)
If codigo = "" Or codigo < 4011022 Then
MsgBox "Código incorrecto"
Exit Sub
End If
codigo = codigo - 1
Set h = Sheets("APU")
u = h.Range("B" & Rows.Count).End(xlUp).Row
Set b = h.Range("B3:B" & u).Find(codigo, lookat:=xlWhole, LookIn:=xlValues)
If Not b Is Nothing Then
fila = b.Row + 1
For i = fila To u
If Len(h.Cells(i, "B").Value) = 7 Then
mifila = i
Exit For
End If
Next
End If
If mifila > 0 Then
h.Rows(mifila).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
h.Rows(mifila).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
h.Cells(mifila, "B").Value = txtcodd.Value
h.Cells(mifila, "C").Value = txtnitm.Value
'
h.Cells(mifila + 1, "I").Value = txtprc.Value
h.Cells(mifila + 1, "D").Value = txtund.Value
h.Cells(mifila + 1, "E").Value = txtcant.Value
h.Cells(mifila + 1, "F").Value = txtadc.Value
h.Cells(mifila + 1, "J").Value = txtiva.Value
h.Cells(mifila + 1, "O").Value = txtmdo.Value
End If
End Subsal u dos
Te anexo la macro con los cambios para agregar el cod insumo
Private Sub btnagregar_Click()
'Por Dante Amor
'agregar datos en código disponible
codigo = Val(txtcodd.Value)
If codigo = "" Or codigo < 4011022 Then
MsgBox "Código incorrecto"
Exit Sub
End If
codigo = codigo - 1
Set h = Sheets("APU")
u = h.Range("B" & Rows.Count).End(xlUp).Row
Set b = h.Range("B3:B" & u).Find(codigo, lookat:=xlWhole, LookIn:=xlValues)
If Not b Is Nothing Then
fila = b.Row + 1
For i = fila To u
If Len(h.Cells(i, "B").Value) = 7 Then
mifila = i
Exit For
End If
Next
End If
If mifila > 0 Then
h.Rows(mifila).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
h.Rows(mifila).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
h.Cells(mifila, "B").Value = txtcodd.Value
h.Cells(mifila, "C").Value = txtnitm.Value
'
h.Cells(mifila + 1, "B").Value = txtcodins.Value
h.Cells(mifila + 1, "C").Value = txtnins.Value
h.Cells(mifila + 1, "I").Value = txtprc.Value
h.Cells(mifila + 1, "D").Value = txtund.Value
h.Cells(mifila + 1, "E").Value = txtcant.Value
h.Cells(mifila + 1, "F").Value = txtadc.Value
h.Cells(mifila + 1, "J").Value = txtiva.Value
h.Cells(mifila + 1, "O").Value = txtmdo.Value
End If
End Subsal u dos
¡Gracias! Esto el código esta mas que perfecto, Para enviar los otros datos a la otra base de datos que te mencione seria usando el mismo código (haciendo las debidas adecuaciones) o como haría esa parte
