Re: ]] XL-mania [[ Otomatisasi proses Komparasi 2 Data

 

Coba yang berikut ini:

Sub repot()
'anton suryadi 03/Mar/2010
Application.ScreenUpdating = False
Set d = Sheets("data")
Set h = Sheets("hasil")
p = d.Cells(Rows.Count, 1).End(xlUp).Row
r = 7
h.Select
With d
    For i = 8 To p
        If .Cells(i, 7).Value <> "" Or .Cells(i, 8) <> "" Then
            If Not (.Cells(i, 7).Value = True) Or Not (.Cells(i, 8) = True) Then
                r = r + 1
                For j = 1 To 14
                    h.Cells(r, j) = .Cells(i, j)
                Next
            End If
        End If
    Next
End With
With h
q = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 8 To q
    If .Cells(i, 2) = "" Then
        .Cells(i, 15) = "Insert ( tambah )"
        .Cells(i, 16) = .Cells(i, 10)
    End If
    If .Cells(i, 2) <> "" Then
        .Cells(i, 16) = h.Cells(i, 2)
        If .Cells(i, 10) <> "" Then
            .Cells(i, 15) = "Terpasang beda Part Number"
        Else: .Cells(i, 15) = "Tidak terpasang"
        End If
    End If
Next
.Range(Range("A8"), Range("P" & q)).Select
    Selection.Sort [P8]
.Range(Range("P8"), Range("P" & q)).ClearContents
.Range("A6").Select
End With
Application.ScreenUpdating = True
MsgBox "Komparasi selesai"
End Sub

File terlampir


>semoga bermanfaat


"penjelasan dari pertanyaan pak myeko budi patut dicontoh ni,, plus step-step dan ilustrasinya, yang mau menanggapi juga semangat tuk nge-bantu"

---

From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Tue, March 2, 2010 9:31:01 AM
Subject: Re: ]] XL-mania [[ Otomatisasi proses Komparasi 2 Data

 

Mungkin cara paling sederhana dan sangat besar manfaatnya adalah dengan cara merekam macronya.

Langkah - langkahnya adalah sbb :

- Klik View, Macros, Record Macro, OK
- Lakukan langkah-langkah yang ingin anda rekam

- Klik Macro, Stop recording.

 

Untuk melihat macro yang telah kita rekam, klik View, Macros, View Macros, Edit.

 

Untuk melaksanakannya step by step tekan F8 berulang - ulang.

 

Mbak Siti dan pakar Ecel lainnya pasti sangat mampu membuat macronya.

 

Salam,

Hendrik Karnadi

---

From: Myeko <myeko.budi@gmail. com>
To: xl-mania@yahoogroup s.com
Cc: sebenernya@yahoo. com
Sent: Monday, March 1, 2010 18:21:00
Subject: ]] XL-mania [[ Otomatisasi proses Komparasi 2 Data

 

selamat sore para excel mania -wan dan mania wati

saya ada case lagi untuk minta bantu dipecahkan yaitu mengenai proses
Komparasi 2 data .

Berdasarkan data Part List model A & B
saya ingin melakukan Otamatisasi perbandingan / comparasi part terpasang
Point yang beda berdasarkan Kolom " design Location " dan " Part code " saja
( data detail terlampir )

Step Komparasi yang biasa saya lakukan sebelumnya adalah :

1. Copy / paste Part List Model "A" dan B diletakkan bersebelahan

2. Sort data berdasarkan Lokasi

3. Proses Komparasi dengan perbandingan " = " Jika sama True Jika beda "False "

4. Berdasarkan Kolom filter maka data kemudian diambil data yang False
untuk dijadikan Point perbedaannya

5. Proses yang saya lakukan masih semi manual euy

Otomatisasi yang saya inginkan adalah dengan melakukan 1 kali
klik Icon Macro maka Otomatis proses comparasi bisa dengan cepat &
efisien dilakukan
serta create sheet yang baru

Mohon pencerahnya kepada semua pakar excel

demikian saya sampaikan terimakasih

myeko budi

---

Get your preferred Email name!
Now you can @ymail.com and @rocketmail. com.

__._,_.___

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

Messages in this topic (3)

Recent Activity:

• New Members 111

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tolong carikan momods kerjaan jadi direktur :D :D :D              | 
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau...  |
| 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

.

__,_._,___