Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Sem repetir o valor
 
Notifications
Clear all

Sem repetir o valor

 
2024 - VBA & Macros
Post Recente por vonzuben 5 anos atrás
2 Posts
1 Usuários
0 Reactions
1,202 Visualizações
RSS
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Tem como fazer algo assim sem precisar repetir o .FormulaR1C1 = "200" para cada um ?

Dim Linha As String

Linha = Target.Row

If Range("V" & Linha).Value = "ON" Then

    Range ("S" & Linha) And Range("T" & Linha).FormulaR1C1 = "200"
    
End If

Obrigado !

 
Postado : 20/10/2019 10:23 pm
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Resolvi !

Dim Linha As String

Linha = Target.Row

If Range("V" & Linha).Value = "ON" Then

    Range("S" & Linha & ":" & "T" & Linha).FormulaR1C1 = "200"
    
ElseIf Range("V" & Linha).Value = "OFF" Then

    Range("S" & Linha & ":" & "T" & Linha).FormulaR1C1 = ""
    
End If
 
Postado : 20/10/2019 10:31 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico