[belajar-excel] Digest Number 1226

Milis Belajar Microsoft Excel

Messages In This Digest (7 Messages)

1.1.

Re: menggabungkan beberapa file txt menggunakan microsoft query From: him mah

1.2.

Re: menggabungkan beberapa file txt menggunakan microsoft query From: Mr. Kid

1.3.

Re: menggabungkan beberapa file txt menggunakan microsoft query From: him mah

1.4.

Re: menggabungkan beberapa file txt menggunakan microsoft query From: Mr. Kid

2a.

Re: merevisi isi data From: R T Gultom

2b.

Re: merevisi isi data From: R T Gultom

3.

Cara Mengurutkan data akun From: Johari Rais

View All Topics | Create New Topic

Messages

1.1.

Re: menggabungkan beberapa file txt menggunakan microsoft query

Posted by: "him mah" himmah.mlg@gmail.com

Sun Jul 3, 2011 11:44 pm (PDT)

punya saya koq masih tetep, yang di cek itu type yang sebelah mana pak

Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> cek ulang typo pak him mah
>
> Ini contoh hasilnya (nilai amount mungkin udah beda, tetapi struktur tetap
> sama)
> [image: txt2xl_w_agregate_join_query.gif]
>
>
> Kid.
>
> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
>> > Jadi, schema.ini ada 2 blok, seperti ini :
>> >
>> > [bln06.txt]
>> > bla-bla disini
>> >
>> > [kdInv.txt]
>> > Format=TabDelimited
>> > col1=InvNo char width 17
>> > col2=CustId char width 3
>> > col3=Wil char width 17
>> >
>> >
>> > Koneksi di excel dengan query :
>> > select *kdInv**.*wil, sum(*bln06.*Amount) as jumlah from bln06#txt *as
>> bln06
>> > * LEFT JOINT
>> > kdInv#txt * as kdInv* ON bln06.InvNo = kdInv.InvNo GROUP BY
>> > *kdInv**.*WIL
>> >
>> > Mungkin demikian.
>> >
>> > Kid.
>> >
>> > 2011/7/4 him mah <himmah.mlg@gmail.com>
>> >
>> >> **
>> >>
>> >>
>> >> ini pak sqlnya
>> >>
>> >> select wil, sum(Amount) as jumlah from bln06#txt LEFT JOINT
>> >> kdInv#txt ON bln06.InvNo = kdInv.InvNo GROUP BY WIL
>> >>
>> >> schema.ini saya tambahkan
>> >>
>> >> [kdInv.txt]
>> >> Format=TabDelimited
>> >> col1=InvNo char width 17
>> >> col2=CustId char width 3
>> >> col3=Wil char width 17
>> >>
>> >> saya lampirkan file kdinv dan shema nya
>> >>
>> >> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
>> >>
>> >> > Bisa disalinkan query joinnya ?
>> >> > untuk join multiple tables dengan data provider jet 4 atau txt
>> >> > driver,
>> >> > sepertinya bisa jika jenis joinnya sama. Yang umumnya bisa adalah
>> inner
>> >> join
>> >> > multiple tables.
>> >> > untuk join multiple tables dengan jenis join bercampur, lebih sering
>> gak
>> >> > bisanya, kecuali jika join dilakukan dengan dataset hasil join.
>> >> >
>> >> > Left join, right join, inner join yang tunggal, semuanya bisa.
>> >> >
>> >> > Pesan it is already opened exclusivele by another user, berarti file
>> >> sedang
>> >> > dibuka oleh user lain atau aplikasi lain. File yang open exclusive
>> tidak
>> >> > bisa dipakai oleh banyak user.
>> >> >
>> >> > Kid.
>> >> >
>> >> > 2011/7/1 him mah <himmah.mlg@gmail.com>
>> >> >
>> >> >> **
>> >> >>
>> >> >>
>> >> >> untuk SQL nya kalau pakai LEFT JOIN koq ngga bisa ya
>> >> >> muncul pesan
>> >> >> it is already opened exclusivele by another user,...
>> >> >>
>> >> >>
>> >> >>
>> >> >
>> >>
>> >>
>> >>
>> >
>>
>>
>>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (29)

1.2.

Re: menggabungkan beberapa file txt menggunakan microsoft query

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Sun Jul 3, 2011 11:48 pm (PDT)

hehehe typo pak bukan type
typo itu cara penulisan.

coba gak usah copas tapi ketik.
saya jg lebih seneng ketik dibanding copas kalo bikin query. Lebih anti lagi
sama yang ceklik sana sini

Kid.

2011/7/4 him mah <himmah.mlg@gmail.com>

> **
>
>
> punya saya koq masih tetep, yang di cek itu type yang sebelah mana pak
>
>
> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> > cek ulang typo pak him mah
> >
> > Ini contoh hasilnya (nilai amount mungkin udah beda, tetapi struktur
> tetap
> > sama)
> > [image: txt2xl_w_agregate_join_query.gif]
> >
> >
> > Kid.
> >
> > Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> >> > Jadi, schema.ini ada 2 blok, seperti ini :
> >> >
> >> > [bln06.txt]
> >> > bla-bla disini
> >> >
> >> > [kdInv.txt]
> >> > Format=TabDelimited
> >> > col1=InvNo char width 17
> >> > col2=CustId char width 3
> >> > col3=Wil char width 17
> >> >
> >> >
> >> > Koneksi di excel dengan query :
> >> > select *kdInv**.*wil, sum(*bln06.*Amount) as jumlah from bln06#txt *as
> >> bln06
> >> > * LEFT JOINT
> >> > kdInv#txt * as kdInv* ON bln06.InvNo = kdInv.InvNo GROUP BY
> >> > *kdInv**.*WIL
> >> >
> >> > Mungkin demikian.
> >> >
> >> > Kid.
> >> >
> >> > 2011/7/4 him mah <himmah.mlg@gmail.com>
> >> >
> >> >> **
> >> >>
> >> >>
> >> >> ini pak sqlnya
> >> >>
> >> >> select wil, sum(Amount) as jumlah from bln06#txt LEFT JOINT
> >> >> kdInv#txt ON bln06.InvNo = kdInv.InvNo GROUP BY WIL
> >> >>
> >> >> schema.ini saya tambahkan
> >> >>
> >> >> [kdInv.txt]
> >> >> Format=TabDelimited
> >> >> col1=InvNo char width 17
> >> >> col2=CustId char width 3
> >> >> col3=Wil char width 17
> >> >>
> >> >> saya lampirkan file kdinv dan shema nya
> >> >>
> >> >> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> >> >>
> >> >> > Bisa disalinkan query joinnya ?
> >> >> > untuk join multiple tables dengan data provider jet 4 atau txt
> >> >> > driver,
> >> >> > sepertinya bisa jika jenis joinnya sama. Yang umumnya bisa adalah
> >> inner
> >> >> join
> >> >> > multiple tables.
> >> >> > untuk join multiple tables dengan jenis join bercampur, lebih
> sering
> >> gak
> >> >> > bisanya, kecuali jika join dilakukan dengan dataset hasil join.
> >> >> >
> >> >> > Left join, right join, inner join yang tunggal, semuanya bisa.
> >> >> >
> >> >> > Pesan it is already opened exclusivele by another user, berarti
> file
> >> >> sedang
> >> >> > dibuka oleh user lain atau aplikasi lain. File yang open exclusive
> >> tidak
> >> >> > bisa dipakai oleh banyak user.
> >> >> >
> >> >> > Kid.
> >> >> >
> >> >> > 2011/7/1 him mah <himmah.mlg@gmail.com>
> >> >> >
> >> >> >> **
> >> >> >>
> >> >> >>
> >> >> >> untuk SQL nya kalau pakai LEFT JOIN koq ngga bisa ya
> >> >> >> muncul pesan
> >> >> >> it is already opened exclusivele by another user,...
> >> >> >>
> >> >> >>
> >> >> >>
> >> >> >
> >> >>
> >> >>
> >> >>
> >> >
> >>
> >>
> >>
> >
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (29)

1.3.

Re: menggabungkan beberapa file txt menggunakan microsoft query

Posted by: "him mah" himmah.mlg@gmail.com

Mon Jul 4, 2011 12:34 am (PDT)

pak saya ngga tahu mungkin masalahnya ada disini, setelah saya banding
kan conectionnya (edit query)

kalau punya pak kid (Extended Properties=Text;)
kalau punya saya (Extended Properties="Text;HDR=YES;FMT=Delimited")
kemudian saya ganti seperti punya pak kid, SQL nya baru bisa berhasil
(padahal sqlnya sama)

Pada tanggal 03/07/11, him mah <himmah.mlg@gmail.com> menulis:
> punya saya koq masih tetep, yang di cek itu type yang sebelah mana pak
>
> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
>> cek ulang typo pak him mah
>>
>> Ini contoh hasilnya (nilai amount mungkin udah beda, tetapi struktur
>> tetap
>> sama)
>> [image: txt2xl_w_agregate_join_query.gif]
>>
>>
>> Kid.
>>
>> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
>>> > Jadi, schema.ini ada 2 blok, seperti ini :
>>> >
>>> > [bln06.txt]
>>> > bla-bla disini
>>> >
>>> > [kdInv.txt]
>>> > Format=TabDelimited
>>> > col1=InvNo char width 17
>>> > col2=CustId char width 3
>>> > col3=Wil char width 17
>>> >
>>> >
>>> > Koneksi di excel dengan query :
>>> > select *kdInv**.*wil, sum(*bln06.*Amount) as jumlah from bln06#txt *as
>>> bln06
>>> > * LEFT JOINT
>>> > kdInv#txt * as kdInv* ON bln06.InvNo = kdInv.InvNo GROUP BY
>>> > *kdInv**.*WIL
>>> >
>>> > Mungkin demikian.
>>> >
>>> > Kid.
>>> >
>>> > 2011/7/4 him mah <himmah.mlg@gmail.com>
>>> >
>>> >> **
>>> >>
>>> >>
>>> >> ini pak sqlnya
>>> >>
>>> >> select wil, sum(Amount) as jumlah from bln06#txt LEFT JOINT
>>> >> kdInv#txt ON bln06.InvNo = kdInv.InvNo GROUP BY WIL
>>> >>
>>> >> schema.ini saya tambahkan
>>> >>
>>> >> [kdInv.txt]
>>> >> Format=TabDelimited
>>> >> col1=InvNo char width 17
>>> >> col2=CustId char width 3
>>> >> col3=Wil char width 17
>>> >>
>>> >> saya lampirkan file kdinv dan shema nya
>>> >>
>>> >> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
>>> >>
>>> >> > Bisa disalinkan query joinnya ?
>>> >> > untuk join multiple tables dengan data provider jet 4 atau txt
>>> >> > driver,
>>> >> > sepertinya bisa jika jenis joinnya sama. Yang umumnya bisa adalah
>>> inner
>>> >> join
>>> >> > multiple tables.
>>> >> > untuk join multiple tables dengan jenis join bercampur, lebih
>>> >> > sering
>>> gak
>>> >> > bisanya, kecuali jika join dilakukan dengan dataset hasil join.
>>> >> >
>>> >> > Left join, right join, inner join yang tunggal, semuanya bisa.
>>> >> >
>>> >> > Pesan it is already opened exclusivele by another user, berarti
>>> >> > file
>>> >> sedang
>>> >> > dibuka oleh user lain atau aplikasi lain. File yang open exclusive
>>> tidak
>>> >> > bisa dipakai oleh banyak user.
>>> >> >
>>> >> > Kid.
>>> >> >
>>> >> > 2011/7/1 him mah <himmah.mlg@gmail.com>
>>> >> >
>>> >> >> **
>>> >> >>
>>> >> >>
>>> >> >> untuk SQL nya kalau pakai LEFT JOIN koq ngga bisa ya
>>> >> >> muncul pesan
>>> >> >> it is already opened exclusivele by another user,...
>>> >> >>
>>> >> >>
>>> >> >>
>>> >> >
>>> >>
>>> >>
>>> >>
>>> >
>>>
>>>
>>>
>>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (29)

1.4.

Re: menggabungkan beberapa file txt menggunakan microsoft query

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Jul 4, 2011 12:45 am (PDT)

Oh iya, betul. Untuk koneksi excel ke text file yang memanfaatkan
schema.ini, extended properties cukup Text
Seluruh properti tentang ada header atau tidak, delimiternya apa, dijabarkan
di schema.ini

Makasih sudah mengingatkan.

Kid.

2011/7/4 him mah <himmah.mlg@gmail.com>

> **
>
>
> pak saya ngga tahu mungkin masalahnya ada disini, setelah saya banding
> kan conectionnya (edit query)
>
> kalau punya pak kid (Extended Properties=Text;)
> kalau punya saya (Extended Properties="Text;HDR=YES;FMT=Delimited")
> kemudian saya ganti seperti punya pak kid, SQL nya baru bisa berhasil
> (padahal sqlnya sama)
>
> Pada tanggal 03/07/11, him mah <himmah.mlg@gmail.com> menulis:
>
> > punya saya koq masih tetep, yang di cek itu type yang sebelah mana pak
> >
> > Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> >> cek ulang typo pak him mah
> >>
> >> Ini contoh hasilnya (nilai amount mungkin udah beda, tetapi struktur
> >> tetap
> >> sama)
> >> [image: txt2xl_w_agregate_join_query.gif]
> >>
> >>
> >> Kid.
> >>
> >> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> >>> > Jadi, schema.ini ada 2 blok, seperti ini :
> >>> >
> >>> > [bln06.txt]
> >>> > bla-bla disini
> >>> >
> >>> > [kdInv.txt]
> >>> > Format=TabDelimited
> >>> > col1=InvNo char width 17
> >>> > col2=CustId char width 3
> >>> > col3=Wil char width 17
> >>> >
> >>> >
> >>> > Koneksi di excel dengan query :
> >>> > select *kdInv**.*wil, sum(*bln06.*Amount) as jumlah from bln06#txt
> *as
> >>> bln06
> >>> > * LEFT JOINT
> >>> > kdInv#txt * as kdInv* ON bln06.InvNo = kdInv.InvNo GROUP BY
> >>> > *kdInv**.*WIL
> >>> >
> >>> > Mungkin demikian.
> >>> >
> >>> > Kid.
> >>> >
> >>> > 2011/7/4 him mah <himmah.mlg@gmail.com>
> >>> >
> >>> >> **
> >>> >>
> >>> >>
> >>> >> ini pak sqlnya
> >>> >>
> >>> >> select wil, sum(Amount) as jumlah from bln06#txt LEFT JOINT
> >>> >> kdInv#txt ON bln06.InvNo = kdInv.InvNo GROUP BY WIL
> >>> >>
> >>> >> schema.ini saya tambahkan
> >>> >>
> >>> >> [kdInv.txt]
> >>> >> Format=TabDelimited
> >>> >> col1=InvNo char width 17
> >>> >> col2=CustId char width 3
> >>> >> col3=Wil char width 17
> >>> >>
> >>> >> saya lampirkan file kdinv dan shema nya
> >>> >>
> >>> >> Pada tanggal 03/07/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> >>> >>
> >>> >> > Bisa disalinkan query joinnya ?
> >>> >> > untuk join multiple tables dengan data provider jet 4 atau txt
> >>> >> > driver,
> >>> >> > sepertinya bisa jika jenis joinnya sama. Yang umumnya bisa adalah
> >>> inner
> >>> >> join
> >>> >> > multiple tables.
> >>> >> > untuk join multiple tables dengan jenis join bercampur, lebih
> >>> >> > sering
> >>> gak
> >>> >> > bisanya, kecuali jika join dilakukan dengan dataset hasil join.
> >>> >> >
> >>> >> > Left join, right join, inner join yang tunggal, semuanya bisa.
> >>> >> >
> >>> >> > Pesan it is already opened exclusivele by another user, berarti
> >>> >> > file
> >>> >> sedang
> >>> >> > dibuka oleh user lain atau aplikasi lain. File yang open exclusive
> >>> tidak
> >>> >> > bisa dipakai oleh banyak user.
> >>> >> >
> >>> >> > Kid.
> >>> >> >
> >>> >> > 2011/7/1 him mah <himmah.mlg@gmail.com>
> >>> >> >
> >>> >> >> **
> >>> >> >>
> >>> >> >>
> >>> >> >> untuk SQL nya kalau pakai LEFT JOIN koq ngga bisa ya
> >>> >> >> muncul pesan
> >>> >> >> it is already opened exclusivele by another user,...
> >>> >> >>
> >>> >> >>
> >>> >> >>
> >>> >> >
> >>> >>
> >>> >>
> >>> >>
> >>> >
> >>>
> >>>
> >>>
> >>
> >
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (29)

2a.

Re: merevisi isi data

Posted by: "R T Gultom" ro_tag@yahoo.com   ro_tag

Mon Jul 4, 2011 12:01 am (PDT)

Wah mantab, tapi sayang persayaratannya adalah :
tidak ada penghapusan baris, karena isi dari baris revisi dengan list tidak sama, sehingga masih ada yang dipakai di list data baris sebelumnya
sebenarnya yang dibuthkan adalah bagaimana mengganti tangal yang di revisi saja tanpa menambah baris atau menghapus baris
karena masing2 data isinya selain dari IP dan tanggal adalah berbeda-beda
Regards,
Gultom

--- On Fri, 7/1/11, Sudarsono Suhenk <jkssbma@live.com> wrote:

From: Sudarsono Suhenk <jkssbma@live.com>
Subject: RE: [belajar-excel] merevisi isi data
To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>
Date: Friday, July 1, 2011, 7:40 PM

 

atau jika apapun yang ada di sheet ubah yang merupakan kondisi terakhir ( update ) gunakan cara ini :
 
Option Explicit
Sub GabungTabelAntarWorkbook()
    Dim AnakDulu As Boolean
    AnakDulu = True
    Dim INDUK As Range, ANAKK As Range
    Dim workbookutama, workbookanak As String
    workbookutama = ActiveWorkbook.Name
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\rev.xls", Notify:=False
    workbookanak = ActiveWorkbook.Name
    Dim jumbaris As Long
    If AnakDulu Then
        Workbooks(workbookanak).Activate
        Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah"))
        Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri")).Offset(1, 0)
        jumbaris = ANAKK.Rows.Count
    Else
        Workbooks(workbookutama).Activate
        Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))
        Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)
        jumbaris = INDUK.Rows.Count
    End If
    Workbooks(workbookutama).Activate
    If AnakDulu Then
        ANAKK.Copy Destination:=Sheets("sheet1").Range("A1")
        INDUK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)
    Else
        INDUK.Copy Destination:=Sheets("sheet1").Range("A1")
        ANAKK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)
    End If
    Call hapusganda
    Call sortdata
End Sub
'===================================================================================================
Private Function ctvUsedRange(Optional Sht As Worksheet) As Range
   ' siti Vi // Bluewater, 24 Nov 2009
   ' last refine: Jurangmangu, 19 Jun 2011
   '---------------------------------------
    Dim FstRow As Long, FstCol As Integer
    Dim LstRow As Long, LstCol As Integer
    On Error Resume Next
    If Sht Is Nothing Then Set Sht = ActiveSheet ' Else Set Sht = Sht
    With Sht
        Sht.Select
        If Not Cells(1) = vbNullString Then
            FstRow = 1: FstCol = 1
        Else
            FstRow = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
            FstCol = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
        End If
        LstRow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
        LstCol = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
        Set ctvUsedRange = Range(.Cells(FstRow, FstCol), .Cells(LstRow, LstCol))
    End With
End Function
Sub sortdata()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A27") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B27")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub hapusganda()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

Apa sudah sesuai ??? 
To: belajar-excel@yahoogroups.com
From: jkssbma@live.com
Date: Fri, 1 Jul 2011 17:09:37 +0700
Subject: RE: [belajar-excel] merevisi isi data

 

Bulan
IP


1-Jun-2011
IP-3457


2-Jun-2011
IP-3458


3-Jun-2011
IP-3459


4-Jun-2011
IP-3460


5-Jun-2011
IP-3461


6-Jun-2011
IP-3462


7-Jun-2011
IP-3463


8-Jun-2011
IP-3464


9-Jun-2011
IP-3465


10-Jun-2011
IP-3466


11-Jun-2011
IP-3467


12-Jun-2011
IP-3468


13-Jun-2011
IP-3469


14-Jun-2011
IP-3470


15-Jun-2011
IP-3471


16-Jun-2011
IP-3472


17-Jun-2011
IP-3473


18-Jun-2011
IP-3474


19-Jun-2011
IP-3475


20-Jun-2011
IP-3476


21-Jun-2011
IP-3477


22-Jun-2011
IP-3478


 

Bulan
IP


13-Jun-2011
IP-3465


16-Jun-2011
IP-3466


4-Jun-2011
IP-3467


21-Jun-2011
IP-3468


 

Bulan
IP


1-Jun-2011
IP-3457



2-Jun-2011
IP-3458


3-Jun-2011
IP-3459


4-Jun-2011
IP-3460


5-Jun-2011
IP-3461


6-Jun-2011
IP-3462


7-Jun-2011
IP-3463


8-Jun-2011
IP-3464


13-Jun-2011
IP-3465


16-Jun-2011
IP-3466


11-Jun-2011
IP-3467


21-Jun-2011
IP-3468


13-Jun-2011
IP-3469


14-Jun-2011
IP-3470


15-Jun-2011
IP-3471


16-Jun-2011
IP-3472


17-Jun-2011
IP-3473


18-Jun-2011
IP-3474


19-Jun-2011
IP-3475


20-Jun-2011
IP-3476


21-Jun-2011
IP-3477


22-Jun-2011
IP-3478


 
 
untuk IP-3467 apa tanggal terakhir 11 Juni 2011 , bukan 4 Juni 2011 ?
 
Sub GabungTabelAntarWorkbook()
   ' siti Vi // Bluewater, 1 Juli 2011
   ' workbook "rev.xls" harus sudah terbuka
   '---------------------------------------
   Dim INDUK As Range, ANAKK As Range
   Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))
   Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)
 
    Dim jumbaris As Long
    jumbaris = INDUK.Rows.Count

    INDUK.Copy Destination:=Sheets("sheet1").Range("A1")
    ANAKK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)
    Call sortdata
  
End Sub
 
'===================================================================================================
Private Function ctvUsedRange(Optional Sht As Worksheet) As Range
   ' siti Vi // Bluewater, 24 Nov 2009
   ' last refine: Jurangmangu, 19 Jun 2011
   '---------------------------------------
   Dim FstRow As Long, FstCol As Integer
   Dim LstRow As Long, LstCol As Integer
   On Error Resume Next
   If Sht Is Nothing Then Set Sht = ActiveSheet ' Else Set Sht = Sht
   With Sht
        Sht.Select
      If Not Cells(1) = vbNullString Then
         FstRow = 1: FstCol = 1
      Else
         FstRow = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
         FstCol = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
      End If
      LstRow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
      LstCol = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
     
      Set ctvUsedRange = Range(.Cells(FstRow, FstCol), .Cells(LstRow, LstCol))
   End With
End Function
'====================================================================================================

Sub sortdata()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A27") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B27")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

 
catatan :
Bu Devi , saya ambil beberapa koding nya dan saya modif . Trim's.
 
 
 
 
 
To: belajar-excel@yahoogroups.com
From: setiyowati.devi@gmail.com
Date: Fri, 1 Jul 2011 15:05:52 +0700
Subject: Re: [belajar-excel] merevisi isi data

 

gak ada kabarnya ?...  ya udah, kita anggap seperti DUGAAN semula, dengan tambahan asumsi sbb:

** tabel yg ada di "workbook List / sheet Sumeri" adalah satu satunya range yg ada di sheet itu

di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa salah)

t** abel yg ada di "workbook rev / sheet ubah"  adalah satu satunya range yg ada di sheet itu

di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa salah)

** saat makro mulai dijalankan(makro berada di workbook LIST),  workbook REV harus susah dibuka.

Kedua tabel yg akan digabung itu boleh dipindah pindah letaknya (termasuk diperbanyak datanya / penambahan ke bawah ) asal masih didalam sheet yg sama;  tetapi tidak boleh 

ada data/tabel lain diluar range tabel tsb 

Sub GabungTabelAntarWorkbook()

   ' siti Vi // Bluewater, 1 Juli 2011

   ' workbook "rev.xls" harus sudah terbuka   '---------------------------------------

   Dim INDUK As Range, ANAKK As Range   

   Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))   Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)

   ANAKK.Copy INDUK(INDUK.Rows.Count + 1, 1)   

   INDUK.CurrentRegion.Sort _      Key1:=INDUK(1, 2), Order1:=xlAscending, _

      Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _      Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

   End Sub

2011/7/1 STDEV(i) <setiyowati.devi@gmail.com>

jadi maksud yg sebenarnya bagaimana, mohon diceritakan

(kalau melihat GAMBARAN HASIL yg diperlihatkan tadi, sepertinya  "jalan ceritak" 

yg siti ajukan tadi sudah sesuaijika belum sesuai, di bagian mananya yg masih perlu ubah ? 

nanti bisa kita perbaiki.
setelah oke, soal mengimplementasikan ke code itu masalah kedua dan gampang.

mengenai jumlah records (volume data) tidak jadi masalah, prinsip kerjanya tetap sama.

sample yg diajukan seharusnya menggambarkan / mewakili keadaan faktualnya

2011/7/1 R T Gultom <ro_tag@yahoo.com>

 

Sebenarnya selama ini saya pakai system manual

dengan vlookup di dummy column di file "List" terus saya pindahin dan di beri color
data revisi tidak berurutan sebenarnya hanay sample saya ambil dari data (list)

Siti Vi wrote

Pakai cara praktis saja

1. deteksi letak cell kosong di bawah tabel 1 (list), cukup 1 cell di kolom 1 saja 

2. deteksi letak & dimensi tabel 2 (rev) lalu dicopy3. dipaste ke cell hasil langkah 1

4. range baru yg terbentk dikenakan metoda sort dengan kolom 2 sbg kunci sorting, order: manaik

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)

2b.

Re: merevisi isi data

Posted by: "R T Gultom" ro_tag@yahoo.com   ro_tag

Mon Jul 4, 2011 12:05 am (PDT)

sebenarnya yang dibutuhkan adalah sebagai berikut :
cari ip revisi di ip lista dan
ganti tanggal list dengan tanggal revisi
tapi membuat loopnya ribet saya utak-utik tidak ketemu

--- On Mon, 7/4/11, R T Gultom <ro_tag@yahoo.com> wrote:

From: R T Gultom <ro_tag@yahoo.com>
Subject: RE: [belajar-excel] merevisi isi data
To: belajar-excel@yahoogroups.com
Date: Monday, July 4, 2011, 2:01 PM

 

Wah mantab, tapi sayang persayaratannya adalah :
tidak ada penghapusan baris, karena isi dari baris revisi dengan list tidak sama, sehingga masih ada yang dipakai di list data baris sebelumnya
sebenarnya yang dibuthkan adalah bagaimana mengganti tangal yang di revisi saja tanpa menambah baris atau menghapus baris
karena masing2 data isinya selain dari IP dan tanggal adalah berbeda-beda
Regards,
Gultom

--- On Fri, 7/1/11, Sudarsono Suhenk <jkssbma@live.com> wrote:

From: Sudarsono Suhenk <jkssbma@live.com>
Subject: RE: [belajar-excel] merevisi isi data
To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>
Date: Friday, July 1, 2011, 7:40 PM

 

atau jika apapun yang ada di sheet ubah yang merupakan kondisi terakhir ( update ) gunakan cara ini :
 
Option Explicit
Sub GabungTabelAntarWorkbook()
    Dim AnakDulu As Boolean
    AnakDulu = True
    Dim INDUK As Range, ANAKK As Range
    Dim workbookutama, workbookanak As String
    workbookutama = ActiveWorkbook.Name
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\rev.xls", Notify:=False
    workbookanak = ActiveWorkbook.Name
    Dim jumbaris As Long
    If AnakDulu Then
        Workbooks(workbookanak).Activate
        Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah"))
        Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri")).Offset(1,
0)
        jumbaris = ANAKK.Rows.Count
    Else
        Workbooks(workbookutama).Activate
        Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))
        Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)
        jumbaris = INDUK.Rows.Count
    End If
    Workbooks(workbookutama).Activate
    If AnakDulu Then
        ANAKK.Copy Destination:=Sheets("sheet1").Range("A1")
        INDUK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)
    Else
        INDUK.Copy
Destination:=Sheets("sheet1").Range("A1")
        ANAKK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)
    End If
    Call hapusganda
    Call sortdata
End Sub
'===================================================================================================
Private Function ctvUsedRange(Optional Sht As Worksheet) As Range
   ' siti Vi // Bluewater, 24 Nov 2009
   ' last refine: Jurangmangu, 19 Jun 2011
   '---------------------------------------
    Dim FstRow As Long, FstCol As Integer
    Dim LstRow As Long, LstCol As Integer
    On Error Resume Next
    If Sht Is Nothing Then Set Sht = ActiveSheet ' Else Set Sht = Sht
    With Sht
       
Sht.Select
        If Not Cells(1) = vbNullString Then
            FstRow = 1: FstCol = 1
        Else
            FstRow = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
            FstCol = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
        End If
        LstRow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
        LstCol = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
        Set ctvUsedRange = Range(.Cells(FstRow,
FstCol), .Cells(LstRow, LstCol))
    End With
End Function
Sub sortdata()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A27") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B27")
        .Header = xlYes
        .MatchCase
= False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub hapusganda()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

Apa sudah sesuai ??? 
To: belajar-excel@yahoogroups.com
From: jkssbma@live.com
Date: Fri, 1 Jul 2011 17:09:37 +0700
Subject: RE: [belajar-excel] merevisi isi data

 

Bulan
IP


1-Jun-2011
IP-3457


2-Jun-2011
IP-3458


3-Jun-2011
IP-3459


4-Jun-2011
IP-3460


5-Jun-2011
IP-3461


6-Jun-2011
IP-3462


7-Jun-2011
IP-3463


8-Jun-2011
IP-3464


9-Jun-2011
IP-3465


10-Jun-2011
IP-3466


11-Jun-2011
IP-3467


12-Jun-2011
IP-3468


13-Jun-2011
IP-3469


14-Jun-2011
IP-3470


15-Jun-2011
IP-3471


16-Jun-2011
IP-3472


17-Jun-2011
IP-3473


18-Jun-2011
IP-3474


19-Jun-2011
IP-3475


20-Jun-2011
IP-3476


21-Jun-2011
IP-3477


22-Jun-2011
IP-3478


 

Bulan
IP


13-Jun-2011
IP-3465


16-Jun-2011
IP-3466


4-Jun-2011
IP-3467


21-Jun-2011
IP-3468


 

Bulan
IP


1-Jun-2011
IP-3457



2-Jun-2011
IP-3458


3-Jun-2011
IP-3459


4-Jun-2011
IP-3460


5-Jun-2011
IP-3461


6-Jun-2011
IP-3462


7-Jun-2011
IP-3463


8-Jun-2011
IP-3464


13-Jun-2011
IP-3465


16-Jun-2011
IP-3466


11-Jun-2011
IP-3467


21-Jun-2011
IP-3468


13-Jun-2011
IP-3469


14-Jun-2011
IP-3470


15-Jun-2011
IP-3471


16-Jun-2011
IP-3472


17-Jun-2011
IP-3473


18-Jun-2011
IP-3474


19-Jun-2011
IP-3475


20-Jun-2011
IP-3476


21-Jun-2011
IP-3477


22-Jun-2011
IP-3478


 
 
untuk IP-3467 apa tanggal terakhir 11 Juni 2011 , bukan 4 Juni 2011 ?
 
Sub GabungTabelAntarWorkbook()
   ' siti Vi // Bluewater, 1 Juli 2011
   ' workbook "rev.xls" harus sudah terbuka
   '---------------------------------------
   Dim INDUK As Range, ANAKK As Range
   Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))
   Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)
 
    Dim jumbaris As Long
    jumbaris = INDUK.Rows.Count

    INDUK.Copy Destination:=Sheets("sheet1").Range("A1")
    ANAKK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)
    Call sortdata
  
End
Sub
 
'===================================================================================================
Private Function ctvUsedRange(Optional Sht As Worksheet) As Range
   ' siti Vi // Bluewater, 24 Nov 2009
   ' last refine: Jurangmangu, 19 Jun 2011
   '---------------------------------------
   Dim FstRow As Long, FstCol As Integer
   Dim LstRow As Long, LstCol As Integer
   On Error Resume Next
   If Sht Is Nothing Then Set Sht = ActiveSheet ' Else Set Sht = Sht
   With Sht
        Sht.Select
      If Not Cells(1) = vbNullString Then
         FstRow = 1: FstCol = 1
     
Else
         FstRow = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
         FstCol = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
      End If
      LstRow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
      LstCol = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
     
      Set ctvUsedRange = Range(.Cells(FstRow, FstCol), .Cells(LstRow, LstCol))
   End With
End Function
'====================================================================================================

Sub sortdata()
    Sheets("Sheet1").Select
   
Range("A1").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B27") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A27") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B27")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod =
xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes
    ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

 
catatan :
Bu Devi , saya ambil beberapa koding nya dan saya modif . Trim's.
 
 
 
 
 
To: belajar-excel@yahoogroups.com
From: setiyowati.devi@gmail.com
Date: Fri, 1 Jul 2011 15:05:52 +0700
Subject: Re: [belajar-excel] merevisi isi data

 

gak ada kabarnya ?...  ya udah, kita anggap seperti DUGAAN semula, dengan tambahan asumsi sbb:

** tabel yg ada di "workbook List / sheet Sumeri" adalah satu satunya range yg ada di sheet itu

di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa salah)

t** abel yg ada di "workbook rev / sheet ubah"  adalah satu satunya range yg ada di sheet itu

di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa salah)

** saat makro mulai dijalankan(makro berada di workbook LIST),  workbook REV harus susah dibuka.

Kedua tabel yg akan digabung itu boleh dipindah pindah letaknya (termasuk diperbanyak datanya / penambahan ke bawah ) asal masih didalam sheet yg sama;  tetapi tidak boleh 

ada data/tabel lain diluar range tabel tsb 

Sub GabungTabelAntarWorkbook()

   ' siti Vi // Bluewater, 1 Juli 2011

   ' workbook "rev.xls" harus sudah terbuka   '---------------------------------------

   Dim INDUK As Range, ANAKK As Range   

   Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))   Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)

   ANAKK.Copy INDUK(INDUK.Rows.Count + 1, 1)   

   INDUK.CurrentRegion.Sort _      Key1:=INDUK(1, 2), Order1:=xlAscending, _

      Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _      Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

   End Sub

2011/7/1 STDEV(i) <setiyowati.devi@gmail.com>

jadi maksud yg sebenarnya bagaimana, mohon diceritakan

(kalau melihat GAMBARAN HASIL yg diperlihatkan tadi, sepertinya  "jalan ceritak" 

yg siti ajukan tadi sudah sesuaijika belum sesuai, di bagian mananya yg masih perlu ubah ? 

nanti bisa kita perbaiki.
setelah oke, soal mengimplementasikan ke code itu masalah kedua dan gampang.

mengenai jumlah records (volume data) tidak jadi masalah, prinsip kerjanya tetap sama.

sample yg diajukan seharusnya menggambarkan / mewakili keadaan faktualnya

2011/7/1 R T Gultom <ro_tag@yahoo.com>

 

Sebenarnya selama ini saya pakai system manual

dengan vlookup di dummy column di file "List" terus saya pindahin dan di beri color
data revisi tidak berurutan sebenarnya hanay sample saya ambil dari data (list)

Siti Vi wrote

Pakai cara praktis saja

1. deteksi letak cell kosong di bawah tabel 1 (list), cukup 1 cell di kolom 1 saja 

2. deteksi letak & dimensi tabel 2 (rev) lalu dicopy3. dipaste ke cell hasil langkah 1

4. range baru yg terbentk dikenakan metoda sort dengan kolom 2 sbg kunci sorting, order: manaik

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)

3.

Cara Mengurutkan data akun

Posted by: "Johari Rais" zooe_13@yahoo.com

Mon Jul 4, 2011 12:05 am (PDT)

alam buat rekan2 semua

Saya ada sedikit kendala dalam mengerjakan data excel saya (sheet data terlampir)
selama ini saya mengerjakan nya dengan cara manual (insert,copy,paste)
sehingga dalam mengurutkan data di excel memerlukan waktu yang cukup lama
dan di perlukan ketelitian agar tidak terjadi kesalahan peng copyan.

langkah manual yg selama ini saya lakukan dalam menggabungkan/mengurutkan data nya adalah sbg berikut :

Tabel 1�������������������������������������������������� Tabel 2

lvacc������� tbfnam��������������� saldo������������� lvacc����� tbfnam������������� saldo

101010��� kas utama������������ 12345����������� 101010��� kas utama�������� 12345�
101011��� kas utama vls������� 12345����������� 101011��� kas utama��������� 12345
114010��� kmk komersil��������� 12345����������� 114020��� kmk ukkm���������� 12345
114020��� kmk ukkm������������� 12345����������� 114021��� kmk ukkm vls����� 12345

di dalam tabel2 tidak terdapat no lvacc 114010,maka saya meng-insert di tabel2
kemudian mengcopy lvacc 114010 di tabel1 dan mem-paste di tabel2 dan mengisi saldo dengan angka 0
begitu seterusnya sampai semua tabel terisi dan terurut dengan benar (hasil nya ada di lampiran yg saya sertakan)

yang ingin saya tanyakan, apakah terdapat formula yang memudahkan saya dalam mengurutkan data tsb??
atau memerlukan makro dalam mengerjakan data tersebut???

maklum saya masih awam tentang formula dan makro di excel
atas pertolongan dan pencerahan nya saya ucapkan terima kasih.

salam

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Recent Activity

•  13
  New Members
•  1
  New Files

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe