EXCELer Tudo sobre EXCEL em Português
Se a célula A3 for igual a SIM, então A2 diminui 1 unidade:
Private Sub CommandButton1_Click()
Dim Val
Val = Range("A2").Value
If Range("A3") = "SIM" Then
Val = Val – 1
Range("A2") = Val
End If
End Sub
Check Also
Extrair Apelido
Fórmula em C2: =SUBSTITUIR(A2;1;PROCURAR(“#”;SUBST(A2;” “;”#”;NÚM.CARACT(A2)-NÚM.CARACT(SUBST(A2;” “;””))));””) Função em C3 : =Apelido(A2) VBA: Function Apelido(r As …