Fabio,
Com certeza o erro se dá devido as referencia, mais uma vez vou colocar aqui no forum como lidar com o Objeto Application, Workbook e Worksheet, perca alguns minutos e procure ler as lições 4, 5 e 6, o idela é ler todas.
Lição 04: VBA - Trabalhando com o objeto Application
http://www.juliobattisti.com.br/excel12 ... licao4.htm
O erro é porque não temos a Worksheet (Objeto) com o nome Lancamentos, veja que falei Objeto e não uma ABA ou não está referenciando corretamente.
Neste caso :
lngResultado = InStr(1, Plan1.Cells(a, coluna), strObjetoBuscar, vbTextCompare)
Estamos nos referindo ao Objeto que tem o nome Plan1, ou seja não se refere a Aba "Plan1", veja na tela do VBA na janela propriedades, temos a relação Sheets e são mostradas assim:
Plan1(Fabio) - Plan1 é o Objeto, Fabio é a Sheet.
Estude atentamente o link acima para entender as diferenças entre os Objetos.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 25/03/2012 11:36 am