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

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.

Re: Formulario + base de datos

Gracias cacho, por tu pronta respuesta, te cuento que reemplaze el codigo tal como dijiste pero no funciona, al hacer click en el boton guardar no se realiza ninguna accion.

Re: Formulario + base de datos

Adjunto archivo nuevamente, con la modificacion.

F.7.4.2 ORDEN DE COMPRA Rev.02-3.rar

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]

Gracias Joshua tu aporte a sido muy valioso y me funciona a la perfeccion.

Dios te guarde

Wilson T.

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);

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.