Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
Por BrunoAlves 13 Jun 2019 às 19:05
Membro Novato
Mensagens: 6
Reputação: 0
#44691
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?
Apenas usuários registrados podem ver ou baixar anexos.
Avatar do usuário
Por mucascosta 13 Jun 2019 às 21:40
Membro 1 Estrela
Mensagens: 17
Reputação: 7
#44695
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
Por BrunoAlves 14 Jun 2019 às 01:04
Membro Novato
Mensagens: 6
Reputação: 0
#44702
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?
Apenas usuários registrados podem ver ou baixar anexos.
Por BrunoAlves 15 Jun 2019 às 00:26
Membro Novato
Mensagens: 6
Reputação: 0
#44763
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.
Apenas usuários registrados podem ver ou baixar anexos.