see attached
rename ke *.zip dolo, extract
jangan lupa enable macro
Sub blah()
On Error Resume Next
For i = 6 To 10
For j = 6 To 17
If Cells(j, 2) = Cells(i, 5) Then
If WorksheetFunction.Find(Cells(j, 3), Cells(i, 6)) = False Then
Cells(i, 6) = Cells(j, 3) & ", " & Cells(i, 6)
End If
Cells(i, 6) = Left(Cells(i, 6), Len(Cells(i, 6) - 1))
End If
Next j
Next i
End Sub
Sub bloh()
Range("F6:F10").ClearContents
End Sub
On Error Resume Next
For i = 6 To 10
For j = 6 To 17
If Cells(j, 2) = Cells(i, 5) Then
If WorksheetFunction.Find(Cells(j, 3), Cells(i, 6)) = False Then
Cells(i, 6) = Cells(j, 3) & ", " & Cells(i, 6)
End If
Cells(i, 6) = Left(Cells(i, 6), Len(Cells(i, 6) - 1))
End If
Next j
Next i
End Sub
Sub bloh()
Range("F6:F10").ClearContents
End Sub
On 4/27/06, Indra <[EMAIL PROTECTED]> wrote:
Rekan2 XL-Mania,Mungkin ada yang dapat membantu pertanyaan saya terlampir ? Maaf bila sangat simple :)Terima kasih sekali atas perhatiannya.Salam,Indra
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| |
| 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 |
| [EMAIL PROTECTED] atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni Anda tentang XL-mania di : |
| http://www.friendster.com/profiles/xlmania |
+-------------------------------------------------------------------+
YAHOO! GROUPS LINKS
- Visit your group "XL-mania" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| |
| 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 |
| [EMAIL PROTECTED] atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni Anda tentang XL-mania di : |
| http://www.friendster.com/profiles/xlmania |
+-------------------------------------------------------------------+
SPONSORED LINKS
Microsoft excel | Microsoft business solution | Microsoft excel help |
Microsoft small business manager | Microsoft excel training |
YAHOO! GROUPS LINKS
- Visit your group "XL-mania" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
TANYA EXCEL 1.zi_
Description: Binary data