Pasar Datos de facturas Excel a libro base datos e
Tengo que pasar ciertos datos de las facturas que voy haciendo ( estos datos están en el rango G1:G8 de la hoja1 de cada factura), y almacenarlos en la hoja 1 de otro libro llamado "base de datos"
los datos serian G1=fecha ; G2=texto y de G3 a G8=moneda
Osea que cada factura que confecione, me pase esos datos al libro base datos
Saludos
los datos serian G1=fecha ; G2=texto y de G3 a G8=moneda
Osea que cada factura que confecione, me pase esos datos al libro base datos
Saludos
1 respuesta
Respuesta de calvuch
1
Esto copia el rango g1:g8 del libro1 en la hoja1 del libro base de datos
Sub copia()
Range("G1:G8").Select
Selection. Copy
Windows("base de datos"). Activate
ActiveSheet. Paste
Windows("Libro1"). Activate
Application.CutCopyMode = False
End Sub
Adáptalo
Sub copia()
Range("G1:G8").Select
Selection. Copy
Windows("base de datos"). Activate
ActiveSheet. Paste
Windows("Libro1"). Activate
Application.CutCopyMode = False
End Sub
Adáptalo
Los pasa a la base de datos, pero cada factura que pase los tendría que pasar a una fila, es decir empezado por la A1:A8, la siguiente factura la pasaría a B1:B8, la siguiente C1:C8, y así sucesivamente
Saludos y gracias
Saludos y gracias
Ahora:
Sub copia()
Dim f As Long
Range("G1:G8").Select
Selection.Copy
Windows("base de datos").Activate
f = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Range("A" & f).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Libro1").Activate
End Sub
Sub copia()
Dim f As Long
Range("G1:G8").Select
Selection.Copy
Windows("base de datos").Activate
f = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Range("A" & f).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Windows("Libro1").Activate
End Sub
PERFECTO Lo único que me queda el rango que copia G1:G8 del libro 1 activado o marcado.
Querría acabar la operación en la base de datos viendo lo copiado
Querría acabar la operación en la base de datos viendo lo copiado
Sub copia()
Dim f As Long
Range("G1:G8").Select
Selection.Copy
Windows("base de datos").Activate
f = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Range("A" & f).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Range("A" & f).Select
Windows("base de datos").Activate
End Sub
Dim f As Long
Range("G1:G8").Select
Selection.Copy
Windows("base de datos").Activate
f = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Range("A" & f).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Range("A" & f).Select
Windows("base de datos").Activate
End Sub
