Saltar al contenido

Guardar datos en otro libro

publicado

Buenas tardes tengo la siguiente duda, tengo un formulario de tipo facturación, lo que desearia es que los datos que ingrese al formulario se almacenen en un libro diferente(1 libro especifico), gracias

- - - - - Mensaje combinado - - - - -

este es el codigo que usa para guardar en una hoja distinta, pero quisiera que lo hiciera en el libro resumen.

Private Sub guardarFactura()Dim i As Integer, Fila As Long

Sheets("facturas").Activate
For i = 0 To Me.lstCantidad.ListCount - 1
Fila = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Fila) = Me.txtNoFactura.Text
Range("B" & Fila) = Me.txtFecha.Text
Range("D" & Fila) = Me.txtRazon.Text
'
Range("J" & Fila) = Me.txtIVA.Text
Range("I" & Fila) = Me.txtTotal.Text
'Range("K" & Fila) = Me.txtSubtotal.Text
Range("C" & Fila) = Me.txtRFC.Text
'
Range("E" & Fila) = Me.lstDescripcion.List(i)
Range("G" & Fila) = CCur(Me.lstPrecio.List(i))
Range("F" & Fila) = CInt(Me.lstCantidad.List(i))
Range("K" & Fila) = CCur(Me.txtSubtotal.Text)
Range("H" & Fila) = CCur(Me.lstImporte.List(i))
descontarExistencia Me.lstDescripcion.List(i), _
CInt((Me.lstCantidad.List(i)))
Next
guardarFactura1
End Sub
[/CODE]

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.