Fóruns
Microsoft Excel - 2...
Formulários
Checkbox variavel
 
Notifications
Clear all

Checkbox variavel

 
Formulários
Post Recente por JPedro 8 anos atrás
2 Posts
2 Usuários
0 Reactions
1,140 Visualizações
RSS
zanni
 zanni
(@zanni)
Posts: 27
Eminent Member
Topic starter
 

Tenho esse código de formulário, preciso que, quando CheckBox8 e 9 forem verdadeiras (no formulário) então ele consiga executar o if ali em baixo.

Nunca fiz coisas com formulário, é minha primeira vez.

Private Sub CommandButton1_Click()
    
    Dim parcelas As Variant
    parcelas = CheckBox8 & CheckBox9
    
    If parcelas = True Then
    
    Sheets("Cadastro").Select
    
    cota = Range("H6")
    
    Sheets("Comissão sobre venda").Select
    
    L = 25
    Do Until Cells(L, 2) = cota
    L = L + 1
    Loop
    
    Range("K" & L).Select
        ActiveCell.FormulaR1C1 = _
        "=IF(RC7=""Automóvel"",RC6*R5C[-7],IF(RC7=""Moto"",RC6*R5C[-7],IF(RC7=""Eletro"",RC6*R5C[-7],IF(RC7=""Serviços"",RC6*R5C[-7],IF(RC7=""Caminhão"",RC6*R10C[-7],IF(RC7=""Imóveis"",RC6*R15C[-7],""""))))))"
  
    End If
    
End Sub

I'd rather attempt to do something great and fail than to attempt to do nothing and succeed. -Robert H. Schuller

 
Postado : 19/02/2017 11:09 am
 JPedro
(@jpedro)
Posts: 111
Estimable Member
 

Zanni, boa noite.

Veja se é isso:

Private Sub CommandButton1_Click()
    
    If CheckBox8 = True and CheckBox9 = true Then
    
    Sheets("Cadastro").Select
    
    cota = Range("H6")
    
    Sheets("Comissão sobre venda").Select
    
    L = 25
    Do Until Cells(L, 2) = cota
    L = L + 1
    Loop
    
    Range("K" & L).Select
        ActiveCell.FormulaR1C1 = _
        "=IF(RC7=""Automóvel"",RC6*R5C[-7],IF(RC7=""Moto"",RC6*R5C[-7],IF(RC7=""Eletro"",RC6*R5C[-7],IF(RC7=""Serviços"",RC6*R5C[-7],IF(RC7=""Caminhão"",RC6*R10C[-7],IF(RC7=""Imóveis"",RC6*R15C[-7],""""))))))"
  
    End If
    
End Sub
 
Postado : 19/02/2017 7:55 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico