Este fórum está sendo desativado

[Angra]

Pessoal, precisava de uma macro que mediante o parâmetro dado em célula, ativasse o botão escolhido.

                 https:/www.sendspace.com/file/olvvgq

[Kledison]

Boa noite Angra,

poderia posta sua planilha diretamente no fórum.

Anexos
Apenas são aceitos anexos nas extenções: xlsx, xlsm, xlsb, xls, docx, docm, zip, rar, 7z, tar, ace, bz2, gtar, gz, tg

z




Att

[Angra]

Ok. Planilha postada

[alexandrevba]

Bom dia!!!

Considerando que cada botão tem uma função de macro para fazer então no botão geral, insira a macro abaixo.

Código: Selecionar todos

Sub copy()

    Select Case Range("M16").Value
         Case 1
              Call Retângulo1_Clique
         Case 2
              Call Retângulo12_Clique
         Case 3
              Call Retângulo13_Clique
         Case 4
              Call Retângulo14_Clique
         Case 5
              Call Retângulo15_Clique
         Case 6
              Call Retângulo16_Clique
         Case 7
              Call Retângulo17_Clique
         Case 8
              Call Retângulo18_Clique
         Case 9
              Call Retângulo16_Clique
         Case 10
              Call Retângulo20_Clique
         Case 11
              Call Retângulo21_Clique
         Case 12
              Call Retângulo22_Clique
         Case 13
              Call Retângulo23_Clique
    End Select
End Sub

At

[Angra]

legal, era isso mermo