Ir ao conteúdo
  • Cadastre-se

Função com Erro


pedrobb

Posts recomendados

Preciso rodar a função abaixo no CALC, mas dá erro de execução do Basic "12" target na linha: If Target.Column >= 1 And Target.Column <= 6 Then.

Por que o erro?

Sub CancelarLiberacao()

ActiveSheet.Unprotect

Dim SomaG, SomaH, SomaI, SomaJ, Conta As Long

Application.EnableEvents = False

If Target.Column >= 1 And Target.Column <= 6 Then

If Target.Row > 4 And Target.Row < 1001 Then

If Range("C" & Target.Row).Value = Range("B" & Target.Row).Value Then

If Target.Value = "" Then

Range("G" & Target.Row).Value = Range("Z" & Target.Row).Value

Range("H" & Target.Row).Value = Range("AA" & Target.Row).Value

Range("I" & Target.Row).Value = Range("AB" & Target.Row).Value

Range("J" & Target.Row).Value = Range("AC" & Target.Row).Value

If Val(Range("M4").Value) > 0 And Val(Range("M5").Value) > 0 And Val(Range("M6").Value) > 0 And Val(Range("M7").Value) > 0 And Range("AD" & Target.Row).Value <> 1 Then

SomaG = Val(Range("M4").Value) - Val(Range("Z" & Target.Row).Value)

SomaH = Val(Range("M5").Value) - Val(Range("AA" & Target.Row).Value)

SomaI = Val(Range("M6").Value) - Val(Range("AB" & Target.Row).Value)

SomaJ = Val(Range("M7").Value) - Val(Range("AC" & Target.Row).Value)

Range("AD" & Target.Row).Value = 1

Range("M4").Value = SomaG

Range("M5").Value = SomaH

Range("M6").Value = SomaI

Range("M7").Value = SomaJ

Else

Conta = Conta + 1

If Conta >= 6 Then Range("AD" & Target.Row).Value = 0

End If

End If

End If

End If

End If

Application.EnableEvents = True

ActiveSheet.protect

End Sub

Grato,

Pedro

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...