MEDUARDAC

Boa tarde! 

 

estou precisando de ajuda em uma função onde desejo gravar a resposta "SIM" ou "NÃO" preenchida em uma planilha "A" em uma planilha "B" condicionada a seleção de uma célula em uma lista suspensa.

Meinha planilha A é o seguinte: tenho várias disciplinas de projetos, a pessoa escolhe qual disciplina e automaticamente o formulário é preenchido com a lista da disciplina em questão através da função desloc.+corresp. Até aí tudo está funcionando perfeitamente. 

Porém, desejo que os dados preenchidos na disciplina em questão fiquem gravados na planilha B (base de dados) - para que o usuário consiga ter acesso ao preenchimento de todas as disciplinas em uma mesma pasta de excel. 

 

Usando a função IF e elseif:

 

Sub Macro4()
'
' Macro4 Macro
'
    Sheets("ANÁLISE").Select
    Range("K10:L66").Select
    Selection.Copy
    Sheets("Base").Select
    
If (ag8 = E8) Then

    Sheets("Base").Select
    Range("F9").Select
    ActiveSheet.Paste
    
ElseIf (ag8 = h8) Then
    
    Sheets("Base").Select
    Range("I9").Select
    ActiveSheet.Paste
        
ElseIf (ag8 = k8) Then
        
    Sheets("Base").Select
    Range("L9").Select
    ActiveSheet.Paste
        
ElseIf (ag8 = n8) Then
        
    Sheets("Base").Select
    Range("O9").Select
    ActiveSheet.Paste
    
ElseIf (ag8 = q8) Then
        
    Sheets("Base").Select
    Range("R9").Select
    ActiveSheet.Paste
        
ElseIf (ag8 = t8) Then
        
    Sheets("Base").Select
    Range("U9").Select
    ActiveSheet.Paste
       
ElseIf (ag8 = w8) Then
       
    Sheets("Base").Select
    Range("X9").Select
    ActiveSheet.Paste
        
ElseIf (ag8 = z8) Then
        
    Sheets("Base").Select
    Range("AA9").Select
    ActiveSheet.Paste
    
ElseIf (ag8 = ac8) Then
        
    Sheets("Base").Select
    Range("AD9").Select
    ActiveSheet.Paste
    
    Else
MsgBox "ERRO"
    
    End If
'
  
        
End Sub
 

 

Porém, quando executo a macro ou ela não roda ou então ela cumpre a primeira função 

"If (ag8 = E8) Then

    Sheets("Base").Select
    Range("F9").Select
    ActiveSheet.Paste"

independente se ag8=e8. 

 

Alguém consegue me ajudar?