Jump to content

Macro trasferir datos a 2 hojas diferentes


Boris

Recommended Posts

Buenas, aquí de nuevo con una consultita.

He adelantado algo pero me siento como hormiga queriendo pasar el desierto.

Mi problema es que llevo mi propia facturación y he logrado con ayuda de ustedes organizarla un poco.

He logrado transferir de la hoja1 a la hoja3 algunos datos y lo que deseo ahora es además de transferir los datos a la hoja 3, es lograr también me los transfiera a la hoja4 pero con más datos.

DATOS TRANSFERIDOS DE HOJA 1 A HOJA3

# De FAC, fecha, cliente, valor.

Además de estos datos deseo transferir a la hoja4 los siguientes:

Las diferentes cantidades

Los diferentes artículos

Los diferentes Valores Unitarios

La dirección de los clientes

Dejo el archivo de muestra para quien me pueda ayudar.

Nueva mente quiero agradecer mucho su colaboración para con nosotros que vamos lento pero andando en este mundo de la informática.

Atentamente,

SYSPATER

COL

facAyuda.rar

Link to comment
Share on other sites

Hola:

Sustituye tu macro por:

Sub Tranferir_Datos_ST()

Application.ScreenUpdating = False
Sheets("FACTURA").Activate
If Sheets("FACTURA").Range("B8") = "" Then Exit Sub 'No hay factura

'ACTUALIZAR REGISTRO
'-------------------
U = Sheets("Registro").Cells(Rows.Count, "F").End(xlUp).Row
Sheets("Registro").Cells(U + 1, "A") = [H3].Value 'Nº Factura
Sheets("Registro").Cells(U + 1, "B") = [I8].Value 'fecha
Sheets("Registro").Cells(U + 1, "C") = [B8].Value 'Cliente
Sheets("Registro").Cells(U + 1, "D") = [I26].Value 'total
Sheets("Registro").Cells(U + 1, "F").Formula = "=D" & (U + 1) & "-" & "G" & (U + 1)
Sheets("Registro").Range("I1").Formula = "=SUM(H2" & ":H" & U + 1 & ")"

'ACTUALIZAR BD
'-------------
U = Sheets("BD").Cells(Rows.Count, "F").End(xlUp).Row + 1
Sheets("BD").Cells(U, 1) = Sheets("FACTURA").Range("H3").Value 'Nº Factura
Sheets("BD").Cells(U, 2) = Sheets("FACTURA").Range("I8").Value 'fecha
Sheets("BD").Cells(U, 3) = Sheets("FACTURA").Range("B8").Value 'Cliente
Sheets("BD").Cells(U, 4) = Sheets("FACTURA").Range("B9").Value 'Dirección
Sheets("BD").Cells(U, 5) = Sheets("FACTURA").Range("B10").Value 'Ciudad
Sheets("BD").Cells(U, 6) = Sheets("FACTURA").Range("B11").Value 'Teléfono
Sheets("BD").Cells(U, 7) = Sheets("FACTURA").Range("I10").Value 'Contacto
Sheets("BD").Cells(U, 41) = Sheets("FACTURA").Range("I8").Value 'Fecha vencimiento
y = 8
For x = 13 To 23
Sheets("BD").Cells(U, y) = Sheets("FACTURA").Range("A" & x).Value 'Cantidad
Sheets("BD").Cells(U, y + 1) = Sheets("FACTURA").Range("B" & x).Value 'Artículo
Sheets("BD").Cells(U, y + 2) = Sheets("FACTURA").Range("H" & x).Value 'Valor unitario
y = y + 3
Next x

'BORRAR FACTURA
'---------------
Sheets("FACTURA").Range("A13:H23").ClearContents
Sheets("FACTURA").Range("B8:G8").ClearContents
Sheets("FACTURA").Range("I8").Select

'FINAL CORRECTO
MsgBox "Datos transferidos", vbInformation, "Actualización de datos de la factura: " & _
Sheets("FACTURA").Range("H3") - 1
End Sub
[/CODE]

Saludos.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy