EXCLUIR INFORMAÇÕES...
 
Notifications
Clear all

EXCLUIR INFORMAÇÕES - COMANDO FOR CONTADOR E DO WHILE  

  RSS
Fernando Fernandes
(@fernandofernandes)
Illustrious Member

Bom dia pessoal...

Estou com um problema quando executo a Sub DELETAR_DADOS_REPETIDOS(), esta dando um erro, pois eu não consigo delimitar o numero do contador para parar na ultima informação...

segue arquivo de exemplo...
http://www.4shared.com/document/LhL8aeS ... regas.html

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Citar (Quote)
Postado : 02/06/2010 12:41 pm
Fernando Fernandes
(@fernandofernandes)
Illustrious Member

Amigo, refiz a sua macro de um jeito que eu gosto de fazer. Não quero desmerecer a sua, mas quero te dar uma outra visão. As vezes isso abre caminho. Segue ai:

Sub DELETAR_DADOS_REPETIDOS()

Dim i, l

For i = 1 To Cells.SpecialCells(xlLastCell).Row
If Cells(i, 1) = NULE Then Exit For
Next

For l = i To 2 Step -1
Cells(l, 1).Select

If Cells(l, 1) = Cells(l - 1, 1) Then
Range(Cells(l, 1), Cells(l, 4)).ClearContents
End If

Next l

End Sub

O conceito eh o seguinte, primeiro ele conta quantas células existem na planilha, levando em conta que o dado da primeira coluna sempre estará preenchido.

Depois ele vem de baixo pra cima, comparando as células e apagando a informação desnecessária.

Espero que goste

=D

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

ResponderCitar (Quote)
Postado : 02/06/2010 5:32 pm
Fernando Fernandes
(@fernandofernandes)
Illustrious Member

Daniel, Show de Bola......

Muito Obrigado....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

ResponderCitar (Quote)
Postado : 03/06/2010 10:46 am
Compartilhar: