Tecnologia, programação e muito Visual FoxPro.

terça-feira, 30 de abril de 2013

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:
+-:: 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


.

__,_._,___

Nenhum comentário:

Arquivo do blog