PDA

View Full Version : Solved: clean lines if more than 10 lines in column



marreco
10-31-2012, 03:47 PM
Hi.
I need to count rows of columns "G" if it is greater than 10, I have to clear the lines that cross the line 10.

That is after counting the column "G" it must have only 10 linlhas

i'm try this, but don't work
Sub GreatThan10()
Dim lr As Long

With Sheets("Motivos_Calc")
lr = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
If Application.CountIf(.Rows(lr), ">10") > 10 Then .Rows(Lrow).Clear
End With
End Sub
Exemple:Befor

Motivo Devolução_Rank
1º CM-DESISTENCIA CLIEN
2º LG-ATRASO NA ENTREGA
3º LG-ERRO DO ESTOQUE
4º CM-ERRO DO CLIENTE
5º CM-ERRO TELEVENDAS
6º CM-DUPLICIDADE PEDID
7º LG-FALTA DO PRODUTO
8º CM-FAT/INDEV INDUSTR
9º LG-MERC/EXTRAVIADA
10º CM-CLIENTE CANC PED
11º CM-FAT/INDEVIDO OPL
12º CM-FAT/INDEV TELEVEN
13º LG-VENCIMENTO PROXIM
14º LG-MERC/ AVARIADA TR
15º CM-VENCIMENTO PROXIM
16º CM-ERRO DO REPRES
17º CM-DESCONTO ERRADO
18º CM-FAT/INDEV REPRES
19º LG-RECALL
20º LG - DEFEITO LABORAT
21º LG-MERC/AVARI ESTOQU
22º LG - PRODUTO VENCIDO


After

Motivo Devolução_Rank
1º CM-DESISTENCIA CLIEN
2º LG-ATRASO NA ENTREGA
3º LG-ERRO DO ESTOQUE
4º CM-ERRO DO CLIENTE
5º CM-ERRO TELEVENDAS
6º CM-DUPLICIDADE PEDID
7º LG-FALTA DO PRODUTO
8º CM-FAT/INDEV INDUSTR
9º LG-MERC/EXTRAVIADA
10º CM-CLIENTE CANC PED

Cross-Post
http://www.mrexcel.com/forum/excel-questions/666996-clean-lines-if-more-than-10-lines-column.html

Thank you!!!

GreenDR
11-01-2012, 09:47 AM
Tr this:
Sub GreatThan10()
Dim rcount As Long
rcount = Application.WorksheetFunction.CountA(Range("A:A"))
If rcount > 10 Then
Range("A11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear
End If
End Sub

GreenDR
11-01-2012, 09:48 AM
replace A with G in the code

marreco
11-01-2012, 03:10 PM
Hi.

Perfect!!

thank you very much!!