Extaer datos de una tabla excel para completar otra
publicado
Hola, en mi trabajo me pidieron que tratara de extraer datos de una tabla para ponerlos en otra de otro depto.
Estos datos deben cumplir ciertos criterios de buscar un dato de acuerdo a un número y fecha asignado en la tabla 1, y colocarlos en la tabla dos, en la fila que coincida el número y fecha asignado, no se si me explico, pero he creado lo siguiente:
Sub Macro1()
'
' Macro1 Macro
' Completado
'' Acceso directo: CTRL+i
'
Dim mx1 As Double, mx2 As Double
Set lb1 = Workbooks("copia Registro Ofic. a Ctta..xls").Worksheets(1)
Set lb2 = Workbooks("Copia de 2.011.xlsx").Worksheets(1)
n = ActiveCell.Row
lb1.Activate
Range("a1:b150").Select
Selection.ClearContents
Range("a1").Select
Range("a1").Select
Selection.End(xlDown).Select
lb2.Activate
For ix = 2 To 200 Step 1
For i = 2 To 200
If lb2.Cells(ix, 1) = lb1.Cells(i, 1) And lb2.Cell(ix, 2) = lb1.Cells(i, 2) Then
lb1.Cells(i, 6).Value = lb2.Cells(ix, 5).Value
lb1.Cells(i, 7).Value = lb2.Cells(ix, 6).Value
GoTo 10
End If
Next i
10
Next ix
End Sub
El problema es que en la fila destacada se me produce el error 438.
Me pueden ayudar.
Gracias.
Adjunto archivo mi idea es pasar datos desde Registro hasta arch2011 cumpliendose los 3 requisitos primeros para que se coloque es numero de oficio y fecha correspondiente.
Hola, en mi trabajo me pidieron que tratara de extraer datos de una tabla para ponerlos en otra de otro depto.
Estos datos deben cumplir ciertos criterios de buscar un dato de acuerdo a un número y fecha asignado en la tabla 1, y colocarlos en la tabla dos, en la fila que coincida el número y fecha asignado, no se si me explico, pero he creado lo siguiente:
Sub Macro1()
'
' Macro1 Macro
' Completado
'' Acceso directo: CTRL+i
'
Dim mx1 As Double, mx2 As Double
Set lb1 = Workbooks("copia Registro Ofic. a Ctta..xls").Worksheets(1)
Set lb2 = Workbooks("Copia de 2.011.xlsx").Worksheets(1)
n = ActiveCell.Row
lb1.Activate
Range("a1:b150").Select
Selection.ClearContents
Range("a1").Select
Range("a1").Select
Selection.End(xlDown).Select
lb2.Activate
For ix = 2 To 200 Step 1
For i = 2 To 200
If lb2.Cells(ix, 1) = lb1.Cells(i, 1) And lb2.Cell(ix, 2) = lb1.Cells(i, 2) Then
lb1.Cells(i, 6).Value = lb2.Cells(ix, 5).Value
lb1.Cells(i, 7).Value = lb2.Cells(ix, 6).Value
GoTo 10
End If
Next i
10
Next ix
End Sub
El problema es que en la fila destacada se me produce el error 438.
Me pueden ayudar.
Gracias.
Adjunto archivo mi idea es pasar datos desde Registro hasta arch2011 cumpliendose los 3 requisitos primeros para que se coloque es numero de oficio y fecha correspondiente.
Saludos
Chicav
archivos.zip