Reparar codigo de para crear base de datos
Me pueden ayudar que estoy haciendo mal que no puedo hacer que este codigo me mande los datos siempre en la ultima celda disponible..
Por ejemplo:
Private Sub CommandButton4_Click()
fila = 3
Set a = Sheets("history")
For i = 0 To ListBox1.ListCount - 1
a.Cells(fila, 4).Value = ListBox1.List(i, 0) 'PRODUCTO
a.Cells(fila, 5).Value = ListBox1.List(i, 1) ' CANTIDAD
a.Cells(fila, 6).Value = ListBox1.List(i, 2) ' PRECIO
a.Cells(fila, 7).Value = ListBox1.List(i, 3) ' IMPORTE
a.Cells(fila, 1).Value = FormPedido.Label2.Caption 'cliente
a.Cells(fila, 1).Value = FormPedido.Label2.Caption ' cliente
a.Cells(fila, 1).Value = FormPedido.Label2.Caption ' cliente
a.Cells(fila, 1).Value = FormPedido.Label2.Caption ' cliente
a.Cells(fila, 2).Value = FormPedido.Label20.Caption 'fecha
a.Cells(fila, 2).Value = FormPedido.Label20.Caption 'fecha
a.Cells(fila, 2).Value = FormPedido.Label20.Caption ' fecha
a.Cells(fila, 2).Value = FormPedido.Label20.Caption ' fecha
a.Cells(fila, 3).Value = FormPedido.Label18.Caption 'folio
a.Cells(fila, 3).Value = FormPedido.Label18.Caption ' folio
a.Cells(fila, 3).Value = FormPedido.Label18.Caption ' folio
a.Cells(fila, 3).Value = FormPedido.Label18.Caption 'folio
fila = fila + 1
Next
FormPedido.Label18 = "S-" & Format(Val(Right([Label18], 3)) + 1, "000")
Unload Me
End Sublo ejecuto la primera vez y todo genial guarda lo datos, ahora lo ejecuto varias veces y siempre sobre escribe apartir de la celda 3 y no consigo que siempre utilice la celda disponible abajo de los datos que se vayan agregando.... Para asi poder crear una base de datos espero su ayuda
1 respuesta
Respuesta de Dante Amor
2
Quedaría así:
Private Sub CommandButton4_Click()
Set a = Sheets("history")
fila a.range("A" & rows.count).end(xlup).row + 1
For i = 0 To ListBox1.ListCount - 1
a.Cells(fila, 4).Value = ListBox1.List(i, 0) 'PRODUCTO
a.Cells(fila, 5).Value = ListBox1.List(i, 1) ' CANTIDAD
a.Cells(fila, 6).Value = ListBox1.List(i, 2) ' PRECIO
a.Cells(fila, 7).Value = ListBox1.List(i, 3) ' IMPORTE
a.Cells(fila, 1).Value = FormPedido.Label2.Caption 'cliente
a.Cells(fila, 2).Value = FormPedido.Label20.Caption 'fecha
a.Cells(fila, 3).Value = FormPedido.Label18.Caption 'folio
fila = fila + 1
Next
FormPedido.Label18 = "S-" & Format(Val(Right([Label18], 3)) + 1, "000")
Unload Me
End Subsal u dos
creo que faltó el signo igual a la variable fila: fila = a.range("A" & rows.count).end(xlup).row + 1 - Adriel Ortiz Mangia
Si eso falto, ejej quedo excelente gracias - jairo retorno
:) - Dante Amor