Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problemas para cria...
 
Notifications
Clear all

Problemas para criar botão MULTIPLICADOR

 
2024 - VBA & Macros
Post Recente por madefer 10 anos atrás
4 Posts
2 Usuários
0 Reactions
976 Visualizações
RSS
 madefer
(@madefer)
Posts: 12
Active Member
Topic starter
 

Olá,

tenho uma tabela com preços de meus produtos.

O valor dessa tabela é constantemente modificado por uma certa % que meus fornecedores me passam.

Estou tentando fazer um botão que atualiza o valor selecionado por essa % .

Sou leigo em VBA mas pesquisando aqui no forum e na net consegui fazer assim:

-criei um FORM1 e coloquei um TEXTBOX1 e um COMMANDBUTTON1

-no COMMANDBUTTON1 coloquei o seguinte 

Selection.Value = TEXTBOX1.Value * Selection.Value

O botão funciona, mas só quando seleciono uma célula!
Quando seleciono 2 ou mais células me retorna erro.

Gostaria que o botão calculasse a % em todas as células que estiver selecionada.

 
Postado : 17/03/2015 12:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se for possível (para que o pessoal do fórum possa ajudar!!), poste seu arquivo modelo compactado junto de seu projetoVBA.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/03/2015 1:06 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Postado em http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=3664#.VQrAZI78dzM

Private Sub CommandButton1_Click()
For Each cel In Selection
    cel.Value = cel.Value * 1.15
Next
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/03/2015 6:27 am
 madefer
(@madefer)
Posts: 12
Active Member
Topic starter
 

Obrigado pela ajuda Rmarco!

Ja consegui resolver o caso, fica ae a solução caso alguém precise:

Sub Main()
    Dim rCell As Excel.Range
    
    For Each rCell In Selection.Cells
        rCell.Value = rCell.Value * CDbl(TextBox1.Text)
    Next rCell
End Sub
 
Postado : 20/03/2015 9:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico