Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Função SE VBA
 
Notifications
Clear all

Função SE VBA

 
2024 - VBA & Macros
4 Posts
3 Usuários
0 Reactions
974 Visualizações
RSS
 JoaoFAN11
(@joaofan11)
Posts: 20
Eminent Member
Topic starter
 

:?: Gostaria de saber se essa macro esta correta não consigo fazer funcionar

Sub Calculo()
    If D11 = 1 Then
    Range("H12:S22").Select
    Selection.Style = "Percent"
    ElseIf D11 = 2 Then
    Range("H12:S22").Select
    Selection.NumberFormat = "General"
    End If
        
End Sub

Sds, Joao

 
Postado : 12/01/2017 1:56 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Boa tarde, João!

Tenta assim:

Sub Calculo()

'variável para determinar o tipo de 'w'
Dim w As Worksheet
'atribuindo a função para w
Set w = Sheets("Planilha1")
'seleciona a planilha em que deseja trabalhar
w.Select

If w.Range("d11").Value = 1 Then
Range("H12:S22").Select
Selection.Style = "Percent"
ElseIf w.Range("D11").Value = 2 Then
Range("H12:S22").Select
Selection.NumberFormat = "General"
End If

End Sub

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 12/01/2017 2:18 pm
 JoaoFAN11
(@joaofan11)
Posts: 20
Eminent Member
Topic starter
 

Obrigado leandroxtr esta funcionado perfeitamente

 
Postado : 12/01/2017 2:58 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite João

Seja bem-vindo ao Planilhando!

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Após acessar o conteúdo dos acima, você vai aprender que deve marcar como Resolvido na resposta que atendeu a tua dúvida e não na tua pergunta.
Vai conhecer as regras do fórum e aprender a agradecer aos colaboradores, pontuando a reputação.

[]s

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

 
Postado : 12/01/2017 6:42 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico