Erro no macro

Question

Oi ,

Estou com outra dúvida .Estou fazendo uma macro  (um botão para cadastrar produto e o outro para pesquisa de produto.Só que ambos estão  falando para depurar e não consigo achar o erro ( é o que está em amarelo)

Obrigado

Raque

Código VBA botão pesquisa

Private Sub cad_OK_Click()

Dim contador As StringPrivate Sub Pesquisar_Click()

Dim codigo As Variant

Dim linha As String

Dim contador As Integer

codigo = InputBox("digite o codigo desejado")

For contador = 1 To codigo

If contador = codigo Then

MsgBox (Worksheets("dados").Range("B" + linha).formulaRICI)

Exit For

Next contador

End Sub

Código VBA botão cadastrar

Dim fim As Boolean

contador = 2

fim = False

Do While fim = False

If Worksheets("dados").Range("A" + contador).formulaRICI = "" Then

Worksheets("dados").Range("A" + contador).formulaRICI = contador - 1

Worksheets("dados").Range("B" + contador).formulaRICI = textbox_cl_text

Worksheets("dados").Range("C" + contador).formulaRICI = textbox_prod_text

Worksheets("dados").Range("D" + contador).formulaRICI = textbox_val_text

Worksheets("dados").Range("E" + contador).formulaRICI = textbox_qtd_text

TextBox_cl.Text = ""

TextBox_prod.Text = ""

TextBox_val.Text = ""

TextBox_qtd.Text = ""

textbox_des.SetFocus

fim = True

Else

Answer 1

Raque,

não havia nada em amarelo, mas vamos lá:

-> Dim contador As StringPrivate Sub Pesquisar_Click()

Esta declaração de variável está errada. Você não pode ter um início de Subprocedure dentro de uma declaração de variável. Adicionalmente você está declarando contador como String e logo adiante declara ele como Integer. Desta forma sugiro que esta linha se ja inteira excluída.

-> MsgBox (Worksheets("dados").Range("B" + linha).formulaRICI)

Não há como esta linha funcionar, pois a variável linha ainda não possui nenhum conteúdo e já está sendo chamada aqui.

-> Do While fim = False

Toda vez que se utiliza o laço Do While deve haver o comando Loop ao final dele, senão o Excel nunca saberá qual parte do código deve ser submetida ao laço.

Answer 2

Oi Raque,

As suas macros têm alguns problemas de sintaxe. Seria bom vc dar uma olhada em:

http://msdn.microsoft.com/en-us/library/aa192538(v=office.11).aspx

M.