Este fórum está sendo desativado

[lucaverna]

ola amigos do Forum, preciso de uma ajuda. Tenho certo conhecimento em programação, mas nunca fiz macro ou programei no excel. Hoje me deparei com um problema que me obrigou a buscar uma solução em VBA.

Precisei criar um botão que analisa se a flag na celula B3 da aba atual não está ativa( 0). Caso não esteja o script deve copiar o conteudo de 3 celulas, para 3 celulas da aba ocorrencia como mostro abaixo.

Código: Selecionar todos

Private Sub CommandButton1_Click()

If Sheets("Plan2").Range("B3").Value = 0 Then
Sheets("Ocorrencias").Range("B3").Value = Sheets("Plan2").Range(“B1”).Value
Sheets("Ocorrencias").Range("C3").Value = Sheets("Plan2").Range(“C1”).Value
Sheets("Ocorrencias").Range("D3").Value = Sheets("Plan2").Range(“D1”).Value


End If

End Sub

O código é bem mais extenso que isto, mas é basicamente uma repetição desse mesmo trecho, entretanto, nem simplificando ele a este ponto ele funciona. Fica dando erro de definição de aplicativo ou de definição de objeto, e marca a primeira linha após o if como sendo o erro. Imagino que seja um erro tolo de sintaxe, mas não consigo identificar ele. Alguem poderia me ajudar?

[osvaldomp]

No seu código, as aspas colocadas em B1, C1 e D1 não são reconhecidas pela linguagem VBA. Substitua por aspas iguais às que estão em B3.

[lucaverna]

SABIA QUE ERA uM ERRO TOLO!

MUITO obrigado!