vbe macro que cargue varios registros Excel
Publicado por
Eber Sanchez (1 intervención) el 03/03/2011 02:49:11
Buenas noches, me podria ayudar con una macro VBE con la cual pueda importar varios registros de una tabla a otra, ejemplo, tengo una tabla excel prediseñada la cual debo actualizar periodicamente de otras 2 tablas que me suministran en excel los campos y/o columnas de la primera son:
Archivo 1 Bodega 312
EXISTENCIA 312
Minimum Quantity 312
Maximum Quantity 312
De la segunda tabla Excel
Archivo 2 Bodega 330
EXISTENCIA 330
Qty Po. 330
Qty Req 330
Qty Transit 330
Minimum Quantity 330
Maximum Quantity 330
La columna con la cual se debe verificar los datos que correspondan es:
OCN R11 la cual contiene diferentes codigos que las otras tablas tambien los tienen:
0159026.A
0158759.A
0158758.A
Hce una macro con VBE pero solo me funciona con una columna, la idea es que habra las dos tablas y me cargue los datos que se requieren. Esta es la macro que hasta el momento he realizado, le agradezco me ayuden...
-----------------------------------------------------------------------------------------------------------
Sub abrir1()
ChDir "C:\Users\ESanchez\Documents\Archivos de USB\MATERIALES\Materiales"
Workbooks.Open Filename:= _
"C:\Users\ESanchez\Documents\Archivos de USB\MATERIALES\Materiales\WHS 330 MATERIALES.xls"
Windows("PLANTILLA Archivo de prueba Repuestos VARIOS.xls").Activate
Range("C4").Select
End Sub
Sub limpiar1()
Sheets("ELECTRICIDAD").Range("I4:I558").Select
Selection.ClearContents
End Sub
Sub inventario1()
Application.ScreenUpdating = False
Dim n As Variant, linea_bodega As Variant
Dim m As Variant
Dim cantidad As Variant
Dim inve As Variant, sub_inve As Variant
Dim oxystock As Variant
For n = 4 To 558
Windows("PLANTILLA Archivo de prueba Repuestos VARIOS.xls").Activate
oxystock = Sheets("ELECTRICIDAD").Range("C" & n).Value
m = 2
Windows("WHS 330 MATERIALES.xls").Activate
For linea_bodega = 2 To 7362
inve = Sheets("Sheet 1").Range("A" & linea_bodega).Value
sub_inve = Sheets("Sheet 1").Range("b" & linea_bodega).Value
cantidad = Sheets("Sheet 1").Range("G" & linea_bodega).Value
If oxystock = 0 Then GoTo 9
If oxystock = inve And sub_inve = "330MAIN" Then
Windows("PLANTILLA Archivo de prueba Repuestos VARIOS.xls").Activate
Sheets("ELECTRICIDAD").Range("I" & n).Value = cantidad
GoTo 9
End If
Next linea_bodega
9
Next n
Windows("PLANTILLA Archivo de prueba Repuestos VARIOS.xls").Activate
Range("C4").Select
End Sub