COPIAR O VALOR DE UMA CÉLULA PARA OUTRA ABA COM VBA
Enviado: 23 Mar 2018 às 15:45
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.
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
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?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