Tecnologia, programação e muito Visual FoxPro.

sábado, 27 de abril de 2013

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

 

koreksi dikit :

"Dim counter As Integer " nya tidak dipakai dalam script. tadi bikin dim nya, ganti nama jadi deletedR, tapi lalu lupa hapus :)

harap maklum, newbie soalnya :)


2013/4/27 WIRAnata Kemala Deng <kwiranata@gmail.com>
newbie coba bantu ya, sekalian saya belajar VBA juga :)

Sub cleanupsubOne()

Dim ws As Worksheet
Dim cell As Long

Dim wsNum As Integer

Dim counter As Integer

deletedR = 0 'dipakai untuk di msgbox
wsNum = ThisWorkbook.Sheets.Count 'dipakai untuk di msgbox


For Each ws In ThisWorkbook.Worksheets
   
    For cell = ws.Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
        If ws.Range("C" & cell).Value < 1 Then
            ws.Rows(cell).EntireRow.Delete
            deletedR = deletedR + 1
        End If
    Next cell
Next ws

MsgBox "number of rows deleted : " & deletedR & " from " & wsNum & " worksheets "


End Sub



2013/4/25 Samsul Arifin <syemy88@yahoo.co.id>
 

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 (2)
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Merry Christmas. May God bless you and your family...             |
+-------------------------------------------------------------------+
| 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