Formula da Condição em VBA
Enviado: 13 Jan 2020 às 10:58
por Adrian
Bom dia Pessoal!
Como faço para operar essa fórmula abaixO em código VBA. Quero transformá-la em macro. Como faço?. Me ajudem por favor?
EX: =SE(A1=4;"ADRIANO";SE(A1=3;"EVELLYN";SE(A1=2;"LIDIANE";SE(A1=1;"VANDERNILSON";))))
Grato
Formula da Condição em VBA
Enviado: 13 Jan 2020 às 11:08
por JCabral
Uma hipotese:
Código: Selecionar todosSub Teste_If()
Select Case ActiveSheet.Range("A1")
Case 1
ActiveSheet.Range("B1") = "VANDERNILSON"
Case 2
ActiveSheet.Range("B1") = "LIDIANE"
Case 3
ActiveSheet.Range("B1") = "EVELLYN"
Case 4
ActiveSheet.Range("B1") = "ADRIANO"
1
Case Else
ActiveSheet.Range("B1") = ""
End Select
End Sub
Re: Formula da Condição em VBA
Enviado: 13 Jan 2020 às 14:57
por osvaldomp
Instale uma cópia do código abaixo no módulo da planilha.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim Cx As Variant
If Target.Address <> "$A$1" Then Exit Sub
Cx = Array("VANDERNILSON", "LIDIANE", "EVELLYN", "ADRIANO")
[B1] = Cx([A1] - 1)
End Sub
Re: Formula da Condição em VBA
Enviado: 13 Jan 2020 às 15:02
por JCabral
osvaldomp escreveu:Instale uma cópia do código abaixo no módulo da planilha.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim Cx As Variant
If Target.Address <> "$A$1" Then Exit Sub
Cx = Array("ADRIANO", "EVELLYN", "LIDIANE", "VANDERNILSON")
[B1] = Cx([A1] - 1)
End Sub
O código é fantástico, apenas o array não está pela ordem pretendida.