Re: ]] XL-mania [[ Compare Data sparepart Yamaha

 

mencari perbedaan dua text :

 

array formula ditulis sekaligus pada 8 cells sekolom

=DIFTEXT(A6:A14,C6:C14)

                       

R 20,R31,R41,R45		R 20,R31,R41,R45,R50		C 13
R10,R11,R14,R46		R10,R11,R14,R46,R47		C10
R 5,R2,R15,R47		R 5,R2,R15		C11
C 2,C8,C9,C10		C 2,C8,C9,C11		R37
R 12,R15,R19		R 12,R15,R19		R47
R 32,R33,R39		R 32,R33,R37,R39		R50
C 5,C12,C15		C 5,C12,C15		#N/A
		C 13		#N/A

 

DifText adalah sebuah udf; yg coding-nya kira kira seperti ini

 

Function DIFTEXT(Rng1 As Range, Rng2 As Range)
   ' bluewater 10 feb 2010
   ' mencari perbedaan pada 2 string
   '---------------------------------
   Dim i As Integer, n As Integer, R As Integer
   Dim H As Variant, DT()
  
   For R = 1 To Rng1.Rows.Count
      H = Dif(Rng1(R, 1).Text, Rng2(R, 1).Text)
      For i = 1 To UBound(H)
         If Len(H(i)) > 0 Then
            n = n + 1
            ReDim Preserve DT(1 To n)
            DT(n) = H(i)
         End If
      Next i
   Next R
   DIFTEXT = WorksheetFunction.Transpose(LOUV(DT))
End Function

 

 

---

----- Original Message -----

From: BENDRI@yamaha-motor-elec.co.id

To: XL-mania@yahoogroups.com

Sent: Saturday, February 06, 2010 11:07 AM

Subject: ]] XL-mania [[ Compare Data sparepart Yamaha

Minta tolong donk,
Saya ada sedikit masalah untuk melakukan compare data.
Kalau kondisi sekarang di check satu persatu, kadang2 sampai ada yang kelewat
apalagi kalau datanya banyak.
Mohon maaf kalau sebelumnya sudah ada yang menanyakan permasalahan ini
karena baru join dengan milis ini.
Terima kasih atas bantuannya.
Regards,
Bendri

 

__._,_.___

Reply to sender | Reply to group

Messages in this topic (4)

Recent Activity:

• New Members 96

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :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

.

__,_._,___