Re: ]] XL-mania [[ Short Dat dan Delete Baris Hasil Short

 

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 <syemy88@yahoo.co.id>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
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

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 40

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error           |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

---

---

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___