Jump to content

Forluario + base de datos


Recommended Posts

Formulario + base de datos

Amigos por favor ayudenme con este tema,

Tengo en la hoja uno, un formulario para ingreso de datos, se llama orden de compra, la informacion que se ingresa en este formulario se guarda en un listado de la hoja dos, por medio de un boton. lo que pasa es que en el formulario de la hoja uno, puedo ingresar mas de un articulo en la misma orden, y cuando le doy guardar solo me gusda el primer articulo.

como hago para que todos los datos de ITEM CODIGO DESCRIPCION UND CANT Vr UNITARIO Vr TOTAL, se guarden en el listado siguiente.

Gracias,

Adjunto archivo

F.7.4.2 ORDEN DE COMPRA Rev.02-2.xls

Link to comment
Share on other sites

Guest Cacho R

Re: Formulario + base de datos

Hola! WILSON. Fíjate si te sirve reemplazar el código que tienes por el que te muestro aquí:

Private Sub CommandButton1_Click()
Dim i As Long, j As Long
Application.ScreenUpdating = False
i = 10

Do While Hoja1.Cells(i, "B") <> ""
j = 1 + Hoja2.Cells(Rows.Count, "A").End(xlUp).Row

Hoja2.Cells(j, 1) = Hoja1.Cells(4, 1)
Hoja2.Cells(j, 2) = Hoja1.Cells(2, 2)
Hoja2.Cells(j, 3) = Hoja1.Cells(6, 1)
Hoja2.Cells(j, 4) = Hoja1.Cells(6, 7)

Hoja2.Cells(j, 5) = Hoja1.Cells(i, 2)
Hoja2.Cells(j, 6) = Hoja1.Cells(i, 3)
Hoja2.Cells(j, 7) = Hoja1.Cells(i, 10)
Hoja2.Cells(j, 8) = Hoja1.Cells(i, 11)
Hoja2.Cells(j, 9) = Hoja1.Cells(i, 12)
Hoja2.Cells(j, 10) = Hoja1.Cells(i, 13)

Hoja2.Cells(j, 11) = Hoja1.Cells(21, 1)
Hoja2.Cells(j, 12) = Hoja1.Cells(26, 1)
Hoja2.Cells(j, 13) = Hoja1.Cells(4, 7)
Hoja2.Cells(j, 14) = Hoja1.Cells(4, 3)
Hoja2.Cells(j, 15) = Hoja1.Cells(4, 11)
Hoja2.Cells(j, 16) = Hoja1.Cells(4, 3)
Hoja2.Cells(j, 17) = Hoja1.Cells(26, 8)

i = i + 1
Loop

Application.ScreenUpdating = True
Unload Me
End Sub[/PHP]

Saludos, Cacho R.

Link to comment
Share on other sites

Saludos.

Prueba de la siguiente forma:

Private Sub CommandButton1_Click()
With Sheets("ORDEN")
.Activate
For i = 10 To 20
x = Sheets("FORMATO").Range("A65536").End(xlUp).Row + 1
If .Cells(i, 2) <> "" Then
Sheets("FORMATO").Cells(x, 1).Resize(, 10) = _
Array(.Cells(4, 1), .Cells(2, 2), .Cells(6, 1), _
.Cells(6, 7), .Cells(i, 2), .Cells(i, 3), .Cells(i, 10), _
.Cells(i, 11), .Cells(i, 12), .Cells(i, 13))
End If
Next
End With
End Sub[/HTML]

Atte.

joshua

Un gusto compartir[color=#0000FF] Maestro Cacho R[/color]

Link to comment
Share on other sites

Guest Cacho R

Hola! WILSON (y Joshua).

La razón por la que no te funciona correctamente el código es porque tienes la celda A1044357 (de este último libro que has subido) ocupada con una fecha. La macro asume que allí tienes tu último dato ingresado y carga la información desde allí hacia abajo (o sea: carga la información pero no te habías dado cuenta).

Del mismo modo -y si lo miras con detenimiento- verás que el código mostrado por Joshua te funciona adecuadamente pues evalúa la existencia de información a partir de la fila 65536 y hacia arriba, por lo que "no se topa" con esa "fecha suelta"...

En resumen:

a) Quita esa fecha "rara" ya que -entre otras cosas- te ha provocado un aumento innecesario del tamaño del archivo (de unos 200 KB);

B) Comprueba el funcionamiento correcto del código que te he mostrado; ó

c) Como alternativa, reemplaza el:

Range("A65536")

del código de Joshua por:

Cells(Rows.Count, "A")

Cualquiera de las dos ideas que utilices te tiene que andar adecuadamente.

Saludos, Cacho R.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy