Este fórum está sendo desativado

[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

[JCabral]

Uma hipotese:

Código: Selecionar todos

Sub 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

[osvaldomp]

Instale uma cópia do código abaixo no módulo da planilha.

Código: Selecionar todos

Private 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

[JCabral]

Instale uma cópia do código abaixo no módulo da planilha.

Código: Selecionar todos

Private 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.