Este fórum está sendo desativado

[BrunoAlves]

Olá,

Por favor, ajudar se possível.

Segue em anexo a planilha teste.

Não entendo de VBA e Macro.

Objetivo:

1) Na coluna C e G não repetir os mesmo dados. Ao digitar novos dados o Excel avisar a duplicidade antes. É possível programar?

2) Sempre que precisar acrescentar mais uma linha começar de cima para baixo (pela linha número 2). É possível programar?

[mucascosta]

Veja se ajuda:

1 - não repetir os mesmos dados

Código na Planilha1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, aDres1 As String, msg As String, Ul As Long

If Target.Count > 1 Then Exit Sub 'se selec mais de uma linha, termina a sub
' se a celula estiver vazia ou nao numerico, termina a sub:
If Target = "" Then Exit Sub

If Target.Column = 3 Then 'se coluna C

With ActiveSheet

Set rng = .Columns(3).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not rng Is Nothing Then 'se encontrar...
aDres1 = rng.Address
Do
If rng.Row < Target.Row Then
MsgBox "Este valor já está presente nesta Coluna."
Ul = .Cells(Rows.Count, 3).End(xlUp).Row
Range("C" & Ul).Select
Selection.ClearContents
End If
Loop While Not rng Is Nothing And aDres1 <> rng.Address

End If
End With
End If

End Sub

2 - acrescentar mais uma linha começar de cima para baixo (pela linha número 2)

Módulo 1

Sub InserirLinha()
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("2:2").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
End Sub

[BrunoAlves]

Muito Obrigado pela ajuda Mucascosta

Segue abaixo outras dúvidas, por favor, me ajudar.

Aviso e Objetivo:

1) Consegui colocar a fórmula na Coluna C e agora não repete o mesmo dados (Grato).

2) Não consegui colocar a fórmula na Coluna G. Por favor, me ajudar?

3) Consegui colocar a fórmula "Modulo" para inserir uma nova linha de cima para baixo (linha número 2).
Agora eu uso Alt+F8 para inserir uma nova linha. Porém essa nova linha vem na formatação diferente das outras linhas abaixo e também ao digitar o mesmo dados não avisa a duplicidade. Por favor, me ajudar a deixar padronizado?

[BrunoAlves]

Olá,

Mucascosta ou alguém poderia me ajudar com essas outras dúvidas citada no último tópico postado.

Grato

[mucascosta]

Verifique se o exemplo em anexo lhe atende...

[BrunoAlves]

Olá, Mucascosta

Atendeu em parte sim. Muito Obrigado.

1) A fórmula na Coluna C para achar dados em duplicidade está certo.

2) Como faço para colocar a mesma fórmula na coluna G também. Quero aprender para colocar em outras colunas futuras. Qual fórmula devo usar? Tentei fazer uma cópia só mudando o C para o G, mas não deu certo.

3) Eu não quero mais usar a fórmula para começar pela linha número 2. Já deletei.

[mucascosta]

Acho que você não baixou o exemplo que anexei.

[mucascosta]

Baixe o anexo, descompacte, abra a planilha, execute a macro InserirLinha, agora é só testar as colunas C e G

[BrunoAlves]

Mucascosta

Obrigado pela ajuda.

Resolvido