Ajuda em tela de erro

[mrfg2000]

Olá amigos :rolleyes: , abaixo segue uma macro que estou montando para pegar codigos na plan1 do arquivo1 e procurar ele não plan1 do arquivo2.

mas esta dando o seguinte erro "erro em tempo de execução '9' subscript fora do intervalo nas seguinte linha.

Set codigochapa = Workbooks(1).Sheets("TR").Range("A1:A300").Find(procurar, , , xlWhole)

alguém poderia ajudar-me esse enigma ? :wacko:

Sub Atualizar()

With Application

.ScreenUpdating = False

.DisplayAlerts = False

End With

Dim ca As String

ca = ActiveCell.Column

For Each a In Range("A4:A300")

procurar = Int(a.Offset(0, 0).Value & a.Offset(0, 1).Value)

If procurar = "" Then

Else

Set codigochapa = Workbooks(1).Sheets("TR").Range("A1:A300").Find(procurar, , , xlWhole)

If codigochapa Is Nothing Then

Else

If codigochapa.Offset(0, 13).Value = "0" Then

a.Offset(0, ca - 1).Value = ""

Else

a.Offset(0, ca - 1).Value = codigochapa.Offset(0, 13).Value

End If

End If

End If

Next

With Application

.ScreenUpdating = True

.DisplayAlerts = True

End With

End Sub

Antecipo cordial agradecimento a TODOS.

[João.Neto]

cara, verifica se você tem alguma planilha chamada "TR", senão então renomeie esta planilha.

Set codigochapa = Workbooks(1).Sheets("TR").Range("A1:A300").Find(procurar, , , xlWhole)

[mrfg2000]

Problemas já resolvido ... agradeço de antemão pela ajuda e disposição de todos em ajudar

é que tenho um arquivo no excell chamado pessoal.xls

toda vez que abro o excell ele abre junto ... e quanto mandava buscar no workbooks(1) ele buscava neste arquivo pessoal e não no arquivo2 que gostaria, então passei a declarar o nome do arquivo

workbooks("planilha2") e o mesmo passou a buscar corretamente

mas valeu obrigado a todos, um forte abraço.

Editado Julho 28, 2008 por mrfg2000