Comprar
Coleção de 15.000
Macros, Funções e Fórmulas do Excel
DICAS
Eliminando Lançamentos em Duplicidade
Questão :
Após recebermos uma solicitação por telefone, codificamos o pedido lançando um código na coluna A. Numa segunda oportunidade o Cliente confirma o pedido e informa-se quanto deverá pagar, inclusive impostos e frete. Se quem o atende no momento da confirmação for o mesmo vendedor que o atendeu da primeira vez, provavelmente nada ocorrerá de errado. Porem muitas vezes, quem o atende não é o mesmo vendedor. Em conseqüência, é possível que na nossa relação haja lançamentos (códigos) em duplicidade, fato que nos leva a ter prejuízo. Como a relação de pedidos (códigos) é extensa, consultamos essa Central de Ajuda sobre a possibilidade de eliminarmos da nossa relação, via Macro, os códigos lançados em duplicidade.
Solução :
Observação: Os leitores que acompanham essa seção devem observar que na maioria das vezes simplificamos a descrição do problema. A questão acima poderia ser resumida na frase : "Como eliminar numa mesma coluna os dados repetidos". Contudo, decidimos apresentá-la na íntegra para mostrar a íntima relação do VBA com os problemas correntes do dia a dia.
Sub EliminaDuplicidades( )
Set rfonte = Application.InputBox("Informe Qual o Range?", _
Title:="Range(ColunaA)", Type:=8)
rfonte.Select
Selection.Copy
Sheets("Plan2").Select
Range("a1").Select
ActiveSheet.Paste
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
For Each c In Selection.Cells
If c.Value = c.Offset(1, 0).Value Then
c.Offset(1, 0).Delete Shift:=xlUp
End If
Next
End Sub