Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Um Botão VBA Dois C...
 
Notifications
Clear all

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,451 Visualizações
RSS
 Miguel 70
(@miguel-70)
Posts: 0
New 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

 
Postado : 30/12/2014 8:47 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Miguel 70,

Boa Tarde!

Eu faria assim.

Marcar-Desmarcar.zip
 
Postado : 30/12/2014 10:14 am
 Miguel 70
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Obrigado Edcronos, solucionado a minha dúvida.
obrigado Wagner Morel pela atenção.

 
Postado : 30/12/2014 11:27 am
Forum Jump:
  Tópico Anterior
Próximo Tópico