Re: ]] XL-mania [[ mencari BOM ( bill of material )

 

Kelihatannya belum ada yang menjawab mungkin karena judulnya mencari "BOM".

Jadi supaya lebih enak nama file lampirannya saya tambahkan Filtering sesuai dengan temanya.

Saya menggunakan macro dan filenya saya save as dengan extension .xls (Excel 2003) supaya lebih banyak rekan XL-mania yang dapat menggunakannya.

Macro dalam file terlampir terdiri dari dua, yaitu :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("K5") Then

        Call Filtering

    End If

End Sub

ditulis pada Sheet7 dan

Sub Filtering()

    Dim Rng As Range

    Dim i As Integer

    Dim r As Integer

    Set Rng = Range("C3").CurrentRegion

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    Range("C3:F3").Select

    Selection.Find(What:=Range("K5"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

    ActiveCell.Offset(1, 0).Select

    r = 6

    For i = 1 To Rng.Rows.Count - 1

        If ActiveCell.Value > 0 Then

            r = r + 1

            ActiveCell.Copy Range("K" & r)

            Cells(ActiveCell.Row, 2).Copy Range("J" & r)

            ActiveCell.Offset(1, 0).Select

        Else

            ActiveCell.Offset(1, 0).Select

        End If

    Next i

    Range("K5").Select

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

End Sub

ditulis pada module1  

Salam,

Hendrik Karnadi

---

From: effendi Wijaya <effendiwijaya@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Friday, 10 August 2012, 21:39
Subject: ]] XL-mania [[ mencari BOM ( bill of material )

 

Dear Para pakar excel mania,

 

Trimakasih pada group ini,karena banyak membantu sy dalam menyelesaikan pekerjaan sehari hari

Kali ini sy butuh bantuan dari pakar semua,

 

Bagaimana mencari BOM dari suatu product,

Contoh kasus terlampir.

 

Trimakasih pada teman2  yg bias kasih solusi, pakai formula or macro  is ok.

 

E.Wijaya

 

 

 

 

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 42

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat beribadah puasa...                                        |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

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

.

__,_._,___