vba

[gandarez 0]

Pessoal,to com uma planilha aberta aqui e estou criando uma macro, já fiz uma vez mas esqueci como faz.deem uma olhada no codigo

Private Sub CommandButton1_Click()Dim codigoDim i As Integercodigo = TextBox1.TextFor i = 1 To 20	If Plan1.Cells(i, 0) = codigo Then		codigo = Plan1.Cells(i, 1)		Label1.Caption = codigo		Exit For	End If	If Plan1.Cells(i, 2) = codigo Then		codigo = Plan1.Cells(i, 3)		Label1.Caption = codigo		Exit For	End IfNextEnd Sub

Quando esta em cima de If Plan1.Cells(i, 0) = codigo Then ele da a mesnagem

Erro em tempo de execução '1004':Erro de definição de aplicativo ou de definição de objeto

Alguma dica ?

[gandarez 0]

ja encontrei o erro.

[CMR_JM 0]

Henrique,Estou tendo mesmo problema. O código funciona uma vez e na segunda dá o erro. Qual foi a solução que você encontrou ?Obrigado.Segue o meu exemplo Dim xl As New Excel.Application Dim xlw As Excel.Workbook Set xlw = xl.Workbooks.Open("c:\teste\teste.xls") xlw.Sheets("Plan1").Select xlw.Application.Visible = True Range("A1").FormulaR1C1 = "CelulaA1" Range("A2").FormulaR1C1 = "CelulaA2" xlw.Close True Set xlw = Nothing Set xl = Nothing

[gandarez 0]

Eua choq ue voce deve usar assim

xlw.Close = True