Copiar celula se condição

FilipeR · 3 de dezembro de 2012

Olá, bom dia!!

Meu primeiro post, sou recém chegado.

Estou quebrando a cabeça com uma coisa que acredito ser muito simples para muitos de vocês, porém, nesse campo de programação fiz só Pascal e faz um tempo já. Agora, estou precisando de um macro para meu serviço e está difícil! Lá vai:

Preciso de um macro que selecione a coluna K e, nela, veja todos os números de telefone que contém o DDD 11, ou seja, que comecem com o número 11. Daí, copiar a célula e, após o número 11 adicionar o número 9 e, então, colar o restante do número.

Resumindo: Preciso de uma macro que adicione o 9º dígito aos números telefônicos cujo DDD é 11!

exemplo: um número que é 1177778888 fica 11977778888.

preciso fazer isso substituindo a célula!

Obrigado!!!

jeffsilveira · 3 de dezembro de 2012

Olá Filipe, seja bem vindo!

Use o código abaixo em um módulo qualquer e execute-o:

Sub nono()
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, "K").End(xlUp).Row
    If Left(Cells(i, "K"), 2) = "11" Then
    Cells(i, "K") = Left(Cells(i, "K"), 2) & "9" & _
    Right(Cells(i, "K"), Len(Cells(i, "K")) - 2)
    End If
Next
Application.ScreenUpdating = True
End Sub

Execute o código apenas uma vez, senão vai ser adicionado 9 a cada vez que encontrar 11 nos dois primeiros dígitos.

Sabe inserir o código? Se não, pergunte aqui que ensinamos.

Abraços.

FilipeR · 3 de dezembro de 2012

Olá Filipe, seja bem vindo!
Use o código abaixo em um módulo qualquer e execute-o:
Sub nono()
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, "K").End(xlUp).Row
    If Left(Cells(i, "K"), 2) = "11" Then
    Cells(i, "K") = Left(Cells(i, "K"), 2) & "9" & _
    Right(Cells(i, "K"), Len(Cells(i, "K")) - 2)
    End If
Next
Application.ScreenUpdating = True
End Sub
Execute o código apenas uma vez, senão vai ser adicionado 9 a cada vez que encontrar 11 nos dois primeiros dígitos.

Sabe inserir o código? Se não, pergunte aqui que ensinamos.

Abraços.