TSinésio

Galera, consegui resolver o problema... muito muito obrigado a todos!!!

Engraçado, eu fiz pelá validação de dados e deu certinho, só que em colunas, nas linhas não deu! para colunas fiz assim: Caixa de Validação de Dados -> Personalizado e em Fórmula digitei a seguinte fórmula =CONT.SE(B$3:B$11; B3) = 1 Deu certinho! Para as linhas fiz assim: =CONT.SE(A$1:N$1; A1) = 1 E não deu... :( alguém consegue me explicar? Funcionou... mas ele só pega uma celula após. Ex: se digitei o erro na célula A2, ele só verifica na B2, da C pra frente não verifica mais...

Não deu certo... ele não distinguiu dados iguais. Eu até prefiro que seja por uma função do próprio excel, porque talvez a pessoa que vai usar, não tenha domínio de como habilitar o macro. Sim, eu gostaria que verificasse toda a planilha, porém só entre linhas. Por ex: digitei "eu" na linha 1.. na linha 1 não poderia ter "eu" denovo mas em outras linhas pode, só não posso repetir exatamente a mesma duas ou mais vezes na linha.

Cara, desde já agradeço sua ajuda, solucionou o problema, porém está dando dois erros: 1) quando digito alguma informação em alguma linha e dou enter a caixa de texto vai para A2. Ex: digitei algo na j 35, quando dou enter a celula volta pra A2 (mas a informação fica no lugar certo). 2) só marca como informação repetida na linha 1. As outras linhas não verificam se está repetido. O código ta assim: Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim nLinComp, nLinFim As Integer nLinFim = 1 Do While Not IsEmpty(Cells(1, nLinFim)) nLinFim = nLinFim + 1 Loop nLinComp = 1 Do While nLinComp <= nLinFim - 2 If Cells(1, nLinFim - 1).Value = Cells(1, nLinComp).Value Then MsgBox "Informação duplicada", vbCritical, "Cadastro CGC !" Cells(1, nLinFim - 1).Activate Cells(1, nLinFim - 1).Interior.ColorIndex = 4 Exit Sub Else nLinComp = nLinComp + 1 End If Loop Cells(nLinComp + 1, 1).Activate Cells(1, nLinFim - 1).Interior.ColorIndex = xlNone Cells(1, nLinFim).Interior.ColorIndex = xlNone End Sub

Pessoal, tem alguma função no excel que eu consigo limitar informações repetidas na mesma linha? Ex: na linha 20 eu escrevi "Thiago", essa palavra não poderia aparecer novamente. eu consegui esse macro que faz o que eu quero, só que ele está limitando as informações somente nas colunas, não nas linhas! Como faço para ele limitar nas linhas e não nas colunas?? ------------ Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim nLinComp, nLinFim As Integer nLinFim = 1 Do While Not IsEmpty(Cells(nLinFim, 1)) nLinFim = nLinFim + 1 Loop nLinComp = 1 Do While nLinComp <= nLinFim - 2 If Cells(nLinFim - 1, 1).Value = Cells(nLinComp, 1).Value Then MsgBox "Informação duplicada", vbCritical, "Cadastro CGC !" Cells(nLinFim - 1, 1).Activate Cells(nLinFim - 1, 1).Interior.ColorIndex = 4 Exit Sub Else nLinComp = nLinComp + 1 End If Loop Cells(nLinComp + 1, 1).Activate Cells(nLinFim - 1, 1).Interior.ColorIndex = xlNone Cells(nLinFim, 1).Interior.ColorIndex = xlNone End Sub -------------------- Agradeço a atenção