Ir para conteúdo
Fórum Script Brasil
  • 0

Utilizando o If para validação.

Rafael P.C

Perguntado por Rafael P.C,

 Share

Pergunta

Rafael P.C

Rafael P.C

Postado
Postado

Boa tarde pessoal estou com uma duvida elaborei um script que analisa alguns critérios dentre eles se na célula seguinte o primeiro caractere começa com uma determinada letra

“EX. A” mais não tive sucesso abaixo esta meu script. Se alguém puder dar uma força”.

Ob. Conforme podem verificar já tentei utilizar o * mais não funcionou 

Sub teste()

Range("B2").Select
Do While IsEmpty(ActiveCell.Offset(0, 0)) = False

'-------------------------- Localizando Matriz 02 --------------------------
' Identificando URA

If ActiveCell = "U*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "URA"

' Identificando VDN

ElseIf ActiveCell = "A*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "B*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "C*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "D*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "E*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "F*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "G*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "H*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "I*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf ActiveCell = "J*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf ActiveCell = "K*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf ActiveCell = "L*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "M*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "N*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "O*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "P*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "Q*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf ActiveCell = "R*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "S*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "T*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "V*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf ActiveCell = "W*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf ActiveCell = "X*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf ActiveCell = "Y*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"

ElseIf ActiveCell = "Z*" Then
   ActiveCell.Offset(0, 12).Select
   ActiveCell.FormulaR1C1 = "VDN"
   

Else
  ActiveCell.Offset(0, 12).Select
  ActiveCell.FormulaR1C1 = "N.I"
   
End If
  
  ActiveCell.Offset(1, -12).Select
  
Loop

End Sub

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Rafael P.C

Rafael P.C

Postado
  • Autor
Postado

Boa tarde pessoal, Eu ainda não qual é o caractere utilizado como coringa nestes casos, mas encontrei um jeito de resolver este caso segue logo abaixo a minha solução para este problema. Acho legal se alguém souber qual é o caractere coringa postar também.

Sub teste()

Range("B2").Select
Do While IsEmpty(ActiveCell.Offset(0, 0)) = False

'-------------------------- Declarando Variavel de Validação --------------------------
    Dim D1, D2
    
    D1 = Mid(ActiveCell, 1, 1)
    D2 = Mid(ActiveCell, 2, 1)

'-------------------------- Localizando Matriz 02 --------------------------
' Identificando URA

If D1 = "0" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
        
ElseIf D1 = "1" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
        
ElseIf D1 = "2" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If

ElseIf D1 = "3" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
        
ElseIf D1 = "4" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
        
ElseIf D1 = "5" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
        
ElseIf D1 = "6" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
        
ElseIf D1 = "7" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
        
ElseIf D1 = "8" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If
            
ElseIf D1 = "9" Then
        If D2 = "0" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "1" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "2" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"

        ElseIf D2 = "3" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "4" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "5" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "6" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "7" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        ElseIf D2 = "8" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
            
        ElseIf D2 = "9" Then
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "URA"
        
        Else
            ActiveCell.Offset(0, 12).Select
            ActiveCell.FormulaR1C1 = "N.I"
        
        End If

ElseIf ActiveCell = "URA" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "URA"

ElseIf ActiveCell = "UERA" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "URA"

ElseIf ActiveCell = "UAR" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "URA"

ElseIf ActiveCell = "UR" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "URA"

ElseIf ActiveCell = "UA" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "URA"

' Identificando VDN

ElseIf D1 = "A" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
        
ElseIf D1 = "B" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"

ElseIf D1 = "C" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"

ElseIf D1 = "D" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"

ElseIf D1 = "E" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"

ElseIf D1 = "F" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"

ElseIf D1 = "G" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"

ElseIf D1 = "H" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "I" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "J" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "K" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "L" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "M" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "N" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "O" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "P" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "Q" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "R" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "S" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "T" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "U" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "URA"
   
ElseIf D1 = "V" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "W" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "X" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "Y" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"
   
ElseIf D1 = "Z" Then
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "VDN"

Else:
        ActiveCell.Offset(0, 12).Select
        ActiveCell.FormulaR1C1 = "N.I"
   
End If

    ActiveCell.Offset(1, -12).Select

Loop

End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...