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

Minha macro roda mas não executa as tarefas, help!!!


Camila Faleiros

Pergunta

A intenção era criar uma macro para, dependendo do nome colocado na célula, preencher com o respectivo sobrenome. Ela está rodando sem dar erro mas não executa função nenhuma... 

Se souberem o erro, por favor, me ajudem a corrigi-lo

Private Sub Worksheet_Change(ByVal Target As Range)

Dim w   As Worksheet

Set w = Sheets("Planilha1")


w.Select
w.Range("a1").Select


Do While ActiveCell <> ""

        If ActiveCell.Value = "camila" Then
    
            ActiveCell.Offset(1, 0).Select
            ActiveCell.Value = faleiros
            ActiveCell.Offset(-1, 1).Select
            
            Else
            ActiveCell.Offset(0, 1).Select
            
            End If
            
            
        If ActiveCell.Value = "marina" Then
            
            ActiveCell.Offset(1, 0).Select
            ActiveCell.Value = alves
            ActiveCell.Offset(-1, 1).Select
            
            Else
            ActiveCell.Offset(0, 1).Select
            
            End If


        If ActiveCell.Value = "alexandra" Then
            
            ActiveCell.Offset(1, 0).Select
            ActiveCell.Value = pereira
            ActiveCell.Offset(-1, 1).Select
            
            Else
            ActiveCell.Offset(0, 1).Select
            
            End If

Loop

End Sub

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

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.



  • Estatísticas dos Fóruns

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