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 Sub
lo 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
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