Coba saja ini:
Sub Urutkan_Bersihkan()
Dim HitungBaris As Long, N As Long
Dim Totalbaris As Long, TotalKolom As Long, Alamat As String
ActiveCell.SpecialCells(xlLastCell).Select
Totalbaris = ActiveCell.Row - 1
TotalKolom = ActiveCell.Column
Range("A1").Select
Selection.End(xlToRight).Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="4DDDD88977", RefersToR1C1:="=" & _
ActiveSheet.Name & "!R2C" & TotalKolom & ":R" & Totalbaris + 1 & "C" &
TotalKolom
HitungBaris = ActiveWorkbook.Names("4DDDD88977").RefersToRange.Rows.Count
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add
Key:=Range("4DDDD88977"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Alamat = "A1:" & Chr$(64 + TotalKolom) & Totalbaris
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range(Alamat)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Names("4DDDD88977").Delete
Range("C2").Select
For N = 1 To HitungBaris
If ActiveCell.Value < 1 Then
Selection.EntireRow.Delete
End If
Next N
End Sub
________________________________
From: Samsul Arifin <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Thursday, April 25, 2013 7:26 PM
Subject: ]] XL-mania [[ Short Dat dan Delete Baris Hasil Short
Para master-master excel semua
Bagaimana Script Macro
Untuk Short Qty yang kurang dari 1 ( < 1 )
Dan mendelete baris data yang Qty'nya < 1 secara otomatis
Karena Saya hanya membutuhkan Data dengan Qty 1 ke atas
Data Saya dalam 1 excel ada 31 Sheet, setiap sheet minimal 75ribu baris.
Saya ngerjain manual 3 bulan saja sudah lelah
Mohon di bantu.
Terima Kasih
Hormat Saya
Samsul Aripin
