Um Botão VBA Dois Comando

2024 - VBA & Macros

Post Recente por Miguel 70 10 anos atrás

4 Posts

3 Usuários

0 Reactions

1,464 Visualizações

RSS

Miguel 70

(@miguel-70)

Posts: 207

Estimable Member

Topic starter

Ola bom dia,
Tem como juntar estes dois códigos em um so botão?

Sub Marca_Cel_Correção()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Sub Desmarcar_Cel()
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Obrigado.

Postado : 30/12/2014 8:39 am

Edcronos

(@edcronos)

Posts: 1006

Noble Member

vc está querendo um botão liga desliga né,

tipo um clique e aciona um outro clique e aciona o outro

v pode usar uma celula para guardar o valor da ação

sub ligades()
if cells(1,1).value2=0 then
call Marca_Cel_Correção
cells(1,1).value2=1

else
call Desmarcar_Cel
cells(1,1).value2=0
end if
end sub

e chamar esse comando pelo botão

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

Postado : 30/12/2014 8:47 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Miguel 70,

Boa Tarde!

Eu faria assim.

Marcar-Desmarcar.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 30/12/2014 10:14 am