Extaer datos de una tabla excel para completar otra

[ChicaV]

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

[Antoni]

Hola:

Prueba con:

If lb2.Cells(ix, 1) = lb1.Cells(i, 1) And lb2.[COLOR=#008000][I][B]Cells[/B][/I][/COLOR](ix, 2) = lb1.Cells(i, 2) Then[/CODE]

en lugar de:

[CODE]If lb2.Cells(ix, 1) = lb1.Cells(i, 1) And lb2.Cell(ix, 2) = lb1.Cells(i, 2) Then[/CODE]

Saludos

[ChicaV]

Gracias por tu respuesta pero no me resulta, qgregue los archivos de donde quiero sacar los datos hasta donde los quiero llevar.

Espero tu ayuda y desde ya gracias.

Saludos

ChicaV

[joshua]

Saludos.

De la siguiente forma corre la macro segun los nombres dados de los libros que adjuntaste, aunque en realidad no logro entender que es lo que quieres hacer ya que uno de los rangos que recorre la macro no tiene datos, bueno si quieres una mejor ayuda necesitas ser más claro.

Sub Macro1()
'
' Macro1 Macro
' Completado
'' Acceso directo: CTRL+i
'
Dim mx1 As Double, mx2 As Double
Set lb1 = Workbooks("Registro Ofic. a Ctta..xls").Worksheets(1)
Set lb2 = Workbooks("arch2011.xls").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.Cells(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
[/PHP]

Atte.

joshua