Messages In This Digest (19 Messages)

1a.: Re: Masalah Lookup yang rumit From: Mansor
1b.: Re: Masalah Lookup yang rumit From: jkssxls Sudarsono
1c.: Re: Masalah Lookup yang rumit From: jkssxls Sudarsono
1d.: Re: Masalah Lookup yang rumit From: jkssxls Sudarsono
1e.: Re: Masalah Lookup yang rumit From: Mansor
1f.: Re: Masalah Lookup yang rumit From: Mansor
1g.: Re: Masalah Lookup yang rumit From: jkssxls Sudarsono
1h.: Re: Masalah Lookup yang rumit From: jkssxls Sudarsono

2a.: MEMBUAT MANUAL BOOK From: neza ibaneza
2b.: Re: MEMBUAT MANUAL BOOK From: agung_widodo@sanyo.com
2c.: Re: MEMBUAT MANUAL BOOK From: Haps
2d.: Re: MEMBUAT MANUAL BOOK From: jkssxls Sudarsono

3a.: Debug dan restart my workbook From: ppc lambda
3b.: Re: Debug dan restart my workbook From: jkssxls Sudarsono

4.: Memudahkan Perhitungan Lembur From: Iwan G

5a.: Menambah text tanpa harus mergecell atau perbesar row From: Tony Bexcel
5b.: Re: Menambah text tanpa harus mergecell atau perbesar row From: Haps

6a.: Menghitung Jumlah Kendaraan From: sh_411_dy
6b.: Re: Menghitung Jumlah Kendaraan From: STDEV(i)

View All Topics | Create New Topic

Messages

1a.: Re: Masalah Lookup yang rumit

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Thu Dec 1, 2011 10:13 am (PST)

Ya benar Pak, syaratnya setiap item yang dilookup harus ada reference no, kalau cellnya kosong tidak diambil.

------------------------------------------
2011/12/1 jkssxls Sudarsono <jkssxls@hotmail.com>
> Transaction Date DESCRIPTION Amount Dr Amount Cr
> 20111118 FUND TRASNFER * 300,000.00
>
> mengapa transaksi diatas tidak masuk kelompok MM ?
> Apa karena *Reference No *kosong ?
>
> Data di sheet1 info Customer Account atau Ledger Account di tentukan oleh apa ?
>
> Mungkin setelah semua lebih jelas , ada rekan2 lain yg lebih dahulu
> mengirimkan kode VBA untuk pemecahan kasus ini...

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
1b.: Re: Masalah Lookup yang rumit

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 5:06 pm (PST)

Untuk menentukan transaksi sbg Customer Account atau Legder Account dari Bank Statement darimana (info apa ) ?
> To: belajar-excel@yahoogroups.com
> From: dbpermatasari@gmail.com
> Date: Thu, 1 Dec 2011 21:01:20 +0800
> Subject: Re: [belajar-excel] Masalah Lookup yang rumit
>
> Ya benar Pak, syaratnya setiap item yang dilookup harus ada reference no, kalau cellnya kosong tidak diambil.
>
> ------------------------------------------
> 2011/12/1 jkssxls Sudarsono <jkssxls@hotmail.com>
> > Transaction Date DESCRIPTION Amount Dr Amount Cr
> > 20111118 FUND TRASNFER * 300,000.00
> >
> > mengapa transaksi diatas tidak masuk kelompok MM ?
> > Apa karena *Reference No *kosong ?
> >
> > Data di sheet1 info Customer Account atau Ledger Account di tentukan oleh apa ?
> >
> > Mungkin setelah semua lebih jelas , ada rekan2 lain yg lebih dahulu
> > mengirimkan kode VBA untuk pemecahan kasus ini...
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo! Groups Links
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
1c.: Re: Masalah Lookup yang rumit

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 8:16 pm (PST)

Posting key : jika deskripsi ada kata TOTAL -- > 25 ( Debet ) selain itu -- > 31 ( kredit ) ? sisi jurnal perusahaanmaka jurnal zz posting keynya : baris-1 25 baris-2 50 ? sisi jurnal perusahaan

jika deskripsi ada kata TOTAL -- > 31 ( Kredit ) ? selain itu -- > 25 ( Debet ) ? sisi jurnal perusahaan maka jurnal zz posting keynya : baris-1 40 ? sisi jurnal perusahaan baris-2 31 Kalau melihat contoh jurnal , maka seolah -olah kita membuat/bandingkan jurnal dari Statement Bank . Maka amount Sisi Debet Bank merupakan sisi Kredit Perusahaan ( apa demikian ? )To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Thu, 1 Dec 2011 10:04:14 +0000
Subject: RE: [belajar-excel] Masalah Lookup yang rumit

Transaction
Date
DESCRIPTION
Amount Dr
Amount Cr

20111118
FUND TRASNFER *

300,000.00

mengapa transaksi diatas tidak masuk kelompok MM ? Apa karena Reference No kosong ?

Data di sheet1 info Customer Account atau Ledger Account di tentukan oleh apa ?

Mungkin setelah semua lebih jelas , ada rekan2 lain yg lebih dahulu mengirimkan kode VBA untuk pemecahan kasus ini...

To: belajar-excel@yahoogroups.com
From: dbpermatasari@gmail.com
Date: Thu, 1 Dec 2011 15:54:00 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit

Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1)Bagian pertama adalah MM, kedua ZZ.

No 1 adalah item MM, no 2 adalah ZZ.
Bagitulah seterusnya No 3 MM, No 4, ZZ.
Aturan Posting Key (PK)

Debet

Kredit

Customer Account

25

31

Ledger Account

40

50

2) Penentu Debet atau Kredit, contoh tanggal 18.
Nilai Totalnya 140,273.45 akan jadi debit dan memakai PK 25
Nilai kreditnya jumlah yang membentuk Nilai Total (2850.00 + 5294.00 + 132,129.45) dan memakai PK 31.
Artinya debet Total Customer Account, kredit item item dalam customer account.

Sekiranya hanya ada Nilai Total sahaja seperti tgl 19,
Debit Total, dan Kredit Total
3) Bagian kedua bagi setiap tanggal ialah ZZ tujuannya untuk posting ke Ledger Account.
Debet Nilai Total Customer Account, Credit Ledger Account.(Nilai yang sama dgn Nilai Total).
4) Sekiranya ada transaksi withdrawal seperti pada tgl 20.

Debet Nilai Total 2718.00, PK 25.
Debit Nilai Withdrawal 500.00 PK 25
Kredit Nilai Deposit yang lain 2430.00 dan 788.00
Artinya 2718.00 adalah 2430.00 + 788.00 500.00.
Semoga semakin jelas.
Terima kasih atas response bapak.-Mansor

2011/12/1 jkssxls Sudarsono <jkssxls@hotmail.com>

1. menurut pendapatnya saya posting-code perlu dijelaskan :
1. 25 -->
2. 31 -->
3. 50 -->
2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom amount di bedakan oleh apa

3. apa yang menentukan suatu transaksi masuk MM dan ZZ, misal jika transaksi bersifat Kredit ( pengeluaran tunai ) masuk ke MM atau ZZ

Jika sudah di buat jelas , baru dapat dibuat VBA-nya ( pakai Array Formula ? mungkin bisa , memaksakan diri , tapi sebuah tantangan )

mengapa cari susah kalau ada yang lebih mudah
tapi petugas negara malah berprinsip :
kalau bisa dipersulit mengapa harus dipermudah

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
1d.: Re: Masalah Lookup yang rumit

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 11:05 pm (PST)

coba gunakan koding ini : Option Base 1
Sub testing()
Call telusuriData(Worksheets("Sheet1").Range("A32:J42"), Worksheets("Sheet2").Range("a13"))
End Sub
Function telusuriData(daerahku As Range, tujuannya As Range)
m_NoReferensi = ""
Dim kolstr_Tanggal, kolnum_Debet, kolNum_kredit, kolstr_NoReference As Integer
kolstr_Tanggal = 1
kolstr_Deskripsi = 2
kolnum_Debet = 3
kolNum_kredit = 4
kolstr_NoReference = 7
kolStr_Remark = 10
Dim sel As Range

Dim Arr_Simpan() As Variant
Dim jumItem As Integer
jumItem = 0
For Each sel In daerahku.Rows
isiNoReferensi = sel.Resize(1, 1).Offset(0, kolstr_NoReference - 1).Value
' jika ada perubahan no reference
If m_NoReferensi <> isiNoReferensi Then
If m_NoReferensi <> "" Then
' jika no referensi sbelumnya tak kosong
Call sortArray_2D(Arr_Simpan, 1)
Call hilangkantambahan(Arr_Simpan, 1)
Call TambahanZZ(Arr_Simpan, 1)
Call SimpanKetujuan(Arr_Simpan, tujuannya)
End If m_NoReferensi = sel.Resize(1, 1).Offset(0, kolstr_NoReference - 1).Value
jumItem = 0
ReDim Arr_simpam(1, 1)
End If
If isiNoReferensi <> "" Then
jumItem = jumItem + 1
ReDim Preserve Arr_Simpan(7, jumItem)
'1--> posting key
'2--> Amount
'3--> MM atau ZZ '4--> Transaction Date
'5--> No Reference
'6--> Remark
'7--> Acc No , dari mana

If sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value > 0 Then
Arr_Simpan(2, jumItem) = sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value
Else
Arr_Simpan(2, jumItem) = sel.Resize(1, 1).Offset(0, kolNum_kredit - 1).Value
End If

If UCase(Trim(sel.Resize(1, 1).Offset(0, kolstr_Deskripsi - 1).Value)) = "TOTAL" Then
Arr_Simpan(3, jumItem) = "MM"
' untuk total sisi Bank debet ( 31 ) perusahaan Kredit ( 25 )
If sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value > 0 Then
Arr_Simpan(1, jumItem) = 25 & "_" & "0"
Else
Arr_Simpan(1, jumItem) = 31 & "_" & "0"
End If
Else
' sisi Bank debet ( 25 ) perusahaan Kredit ( 31 )
Arr_Simpan(3, jumItem) = ""
If sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value > 0 Then
Arr_Simpan(1, jumItem) = 31 & "_" & jumItem
Else
Arr_Simpan(1, jumItem) = 25 & "_" & jumItem
End If
End If

Arr_Simpan(4, jumItem) = sel.Resize(1, 1).Offset(0, kolstr_Tanggal - 1).Value
Arr_Simpan(5, jumItem) = sel.Resize(1, 1).Offset(0, kolstr_NoReference - 1).Value
Arr_Simpan(6, jumItem) = sel.Resize(1, 1).Offset(0, kolStr_Remark - 1).Value
Arr_Simpan(7, jumItem) = "" ' diisi dari mana ? End If
labloop:
Next
Call sortArray_2D(Arr_Simpan, 1)
Call hilangkantambahan(Arr_Simpan, 1)
Call TambahanZZ(Arr_Simpan, 1)
Call SimpanKetujuan(Arr_Simpan, tujuannya)
End Function
Sub sortArray_2D(MyArray, posisikey)
jumkol = UBound(MyArray, 1)
Dim kel1 As Variant
Dim kel2 As Variant
ReDim kel1((jumkol))
ReDim kel2((jumkol)) For lLoop = 1 To UBound(MyArray, 2) For lLoop2 = lLoop To UBound(MyArray, 2)
If UCase(MyArray(posisikey, lLoop2)) < UCase(MyArray(posisikey, lLoop)) Then
For i = 1 To UBound(MyArray, 1)
kel1(i) = MyArray(i, lLoop)
kel2(i) = MyArray(i, lLoop2)
MyArray(i, lLoop) = kel2(i)
MyArray(i, lLoop2) = kel1(i)
Next End If Next lLoop2
Next lLoop
End Sub
Sub hilangkantambahan(MyArray, posisikey)
For j = 1 To UBound(MyArray, 2)
strnya = MyArray(posisikey, j)
strnya = StrReverse(strnya)
posisi = InStr(1, strnya, "_")
If posisi > 0 Then
strnya = Mid(strnya, posisi + 1)
End If
strnya = StrReverse(strnya)
MyArray(posisikey, j) = strnya
Next j
End Sub Sub TambahanZZ(MyArray, posisikey)
'1--> posting key
'2--> Amount
'3--> MM atau ZZ
'4--> Transaction Date
'5--> No Reference
'6--> Remark
'7--> Acc No , dari mana
' MM ZZ
' 25 25
' 50
' 31 31
' 40
jumItem = UBound(MyArray, 2)
For j = 1 To jumItem
If j = 1 And MyArray(3, j) = "MM" Then
mPostingKey = MyArray(posisikey, j)
mAmount = MyArray(2, j)
mdoc = "ZZ"
mTanggal = MyArray(4, j)
mReferenceNo = MyArray(5, j)
mRemark = MyArray(6, j)
mAccNo = MyArray(7, j) End If Next j
ReDim Preserve MyArray(7, jumItem + 1)
MyArray(posisikey, jumItem + 1) = mPostingKey
MyArray(2, jumItem + 1) = mAmount
MyArray(3, jumItem + 1) = mdoc
MyArray(4, jumItem + 1) = mTanggal
MyArray(5, jumItem + 1) = mReferenceNo
MyArray(6, jumItem + 1) = mRemark
MyArray(7, jumItem + 1) = mAccNo
If mPostingKey = 25 Then
mPostingKey = 50
ElseIf mPostingKey = 31 Then
mPostingKey = 40
Else
mPostingKey = ""
End If
jumItem = jumItem + 1
ReDim Preserve MyArray(7, jumItem + 1)
MyArray(posisikey, jumItem + 1) = mPostingKey
MyArray(2, jumItem + 1) = mAmount
MyArray(3, jumItem + 1) = "" ' mdoc
MyArray(4, jumItem + 1) = mTanggal
MyArray(5, jumItem + 1) = mReferenceNo
MyArray(6, jumItem + 1) = mRemark
MyArray(7, jumItem + 1) = mAccNo
End Sub
Sub SimpanKetujuan(MyArray, Tujuan As Range)
Dim pjumItem As Integer
'1--> posting key
'2--> Amount
'3--> Doc Type : MM atau ZZ
'4--> Transaction Date
'5--> No Reference
'6--> Remark
'7--> Acc No , dari mana
'====
' Tanggal Doc-Type ReferenceNo PostingKey AccNo Amount Remark pjumItem = UBound(MyArray, 2)
For j = 1 To pjumItem
Tujuan.Offset(j - 1, 1).Value = MyArray(4, j)
Tujuan.Offset(j - 1, 2).Value = MyArray(3, j)
Tujuan.Offset(j - 1, 3).Value = MyArray(5, j)
Tujuan.Offset(j - 1, 4).Value = MyArray(1, j)
Tujuan.Offset(j - 1, 5).Value = MyArray(7, j)
Tujuan.Offset(j - 1, 6).Value = MyArray(2, j)
Tujuan.Offset(j - 1, 7).Value = MyArray(6, j)
Next j
Set Tujuan = Tujuan.Offset(pjumItem, 0)
End Sub

hasilnya :

No
Transaction
Date(yyyymmdd)
Doc Type
Reference No.
Posting Key (PK)
Acct No
Amount (USD)
Remarks

20111118
MM
2011/250
25

140,273
TOTAL for 18/11/2011

20111118

2011/250
31

2,850
DEPOSIT BRANCH ABC
NOT POSTED 16/11/2011

20111118

2011/250
31

5,294
DEPOSIT BRANCH BBB
NOT POSTED 10/11/2011

20111118

2011/250
31

132,129
NORMAL TRANSACTION
18/11/2011

20111118
ZZ
2011/250
25

140,273
TOTAL for 18/11/2011

20111118

2011/250
50

140,273
TOTAL for 18/11/2011

20111119
MM
2011/251
25

819
TOTAL for 19/11/2011

20111119

2011/251
31

819
DAILY TRANSACTION
19/11/2011

20111119
ZZ
2011/251
25

819
TOTAL for 19/11/2011

20111119

2011/251
50

819
TOTAL for 19/11/2011

20111120
MM
2011/253
25

2,718
TOTAL for 20/11/2011

20111120

2011/253
25

500
WITHDRAWAL BRANCH CCC
NOT POSTED 15/11/2011

20111120

2011/253
31

2,430
NORMAL TRANSACTION
20/11/2011

20111120

2011/253
31

788
DEPOSIT BRANCH DDD
NOT POSTED 14/11/2011

20111120
ZZ
2011/253
25

2,718
TOTAL for 20/11/2011

20111120

2011/253
50

2,718
TOTAL for 20/11/2011

Account Number terisi karena infonya dari mana ? nomor urut memang belum dibuat karena dapat dilakukan secara manual ( atau buat kode tambahan sendir , anggap saja belajar ) .... '===============To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Fri, 2 Dec 2011 04:16:34 +0000
Subject: RE: [belajar-excel] Masalah Lookup yang rumit

Posting key :
jika deskripsi ada kata TOTAL -- > 25 ( Debet )
selain itu -- > 31 ( kredit ) ? sisi jurnal perusahaan
maka jurnal zz posting keynya :
baris-1 25
baris-2 50 ? sisi jurnal perusahaan

jika deskripsi ada kata TOTAL -- > 31 ( Kredit ) ?
selain itu -- > 25 ( Debet ) ? sisi jurnal perusahaan

maka jurnal zz posting keynya :
baris-1 40 ? sisi jurnal perusahaan
baris-2 31

Kalau melihat contoh jurnal , maka seolah -olah kita membuat/bandingkan jurnal dari Statement Bank .
Maka amount Sisi Debet Bank merupakan sisi Kredit Perusahaan ( apa demikian ? )
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Thu, 1 Dec 2011 10:04:14 +0000
Subject: RE: [belajar-excel] Masalah Lookup yang rumit

Transaction
Date
DESCRIPTION
Amount Dr
Amount Cr

20111118
FUND TRASNFER *

300,000.00

mengapa transaksi diatas tidak masuk kelompok MM ? Apa karena Reference No kosong ?

Data di sheet1 info Customer Account atau Ledger Account di tentukan oleh apa ?

Mungkin setelah semua lebih jelas , ada rekan2 lain yg lebih dahulu mengirimkan kode VBA untuk pemecahan kasus ini...

To: belajar-excel@yahoogroups.com
From: dbpermatasari@gmail.com
Date: Thu, 1 Dec 2011 15:54:00 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit

Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1)Bagian pertama adalah MM, kedua ZZ.

No 1 adalah item MM, no 2 adalah ZZ.

Bagitulah seterusnya No 3 MM, No 4, ZZ.
Aturan Posting Key (PK)

Debet

Kredit

Customer Account

25

31

Ledger Account

40

50

2) Penentu Debet atau Kredit, contoh tanggal 18.
Nilai Totalnya 140,273.45 akan jadi debit dan memakai PK 25
Nilai kreditnya jumlah yang membentuk Nilai Total (2850.00 + 5294.00 + 132,129.45) dan memakai PK 31.
Artinya debet Total Customer Account, kredit item item dalam customer account.

Sekiranya hanya ada Nilai Total sahaja seperti tgl 19,
Debit Total, dan Kredit Total
3) Bagian kedua bagi setiap tanggal ialah ZZ tujuannya untuk posting ke Ledger Account.
Debet Nilai Total Customer Account, Credit Ledger Account.(Nilai yang sama dgn Nilai Total).
4) Sekiranya ada transaksi withdrawal seperti pada tgl 20.

Debet Nilai Total 2718.00, PK 25.
Debit Nilai Withdrawal 500.00 PK 25
Kredit Nilai Deposit yang lain 2430.00 dan 788.00
Artinya 2718.00 adalah 2430.00 + 788.00 500.00.
Semoga semakin jelas.
Terima kasih atas response bapak.-Mansor

2011/12/1 jkssxls Sudarsono <jkssxls@hotmail.com>

1. menurut pendapatnya saya posting-code perlu dijelaskan :
1. 25 -->
2. 31 -->
3. 50 -->
2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom amount di bedakan oleh apa

3. apa yang menentukan suatu transaksi masuk MM dan ZZ, misal jika transaksi bersifat Kredit ( pengeluaran tunai ) masuk ke MM atau ZZ

Jika sudah di buat jelas , baru dapat dibuat VBA-nya ( pakai Array Formula ? mungkin bisa , memaksakan diri , tapi sebuah tantangan )

mengapa cari susah kalau ada yang lebih mudah
tapi petugas negara malah berprinsip :
kalau bisa dipersulit mengapa harus dipermudah

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
1e.: Re: Masalah Lookup yang rumit

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Fri Dec 2, 2011 12:08 am (PST)

Terima kasih Pak,

Saya akan belajar satu persatu macronya.
Nanti saya kabarkan hasilnya.

kalau ada masalah akan saya tanyakan lagi.

Regards.

_Mansor

==============================================
mods note:
Footers & Quoted mail terlalu banyak/panjang,
jadi di-edit /cut oleh moderator..
jika pembaca ingin melihatnya kan bisa
membaca posting sebelumnya

Mengenai Footer & quoted mail ada peraturannya
di milis ini (mohon buka lagi peraturan milis)
(=diharapkan diquote di bagian yg penting saja)
===============================================

2011/12/2 jkssxls Sudarsono <jkssxls@hotmail.com>
> coba gunakan koding ini :
> Option Base 1
> Sub testing()
> End Sub
>
> Sub hilangkantambahan(MyArray, posisikey)
> End Sub
>
> Sub TambahanZZ(MyArray, posisikey)
> End Sub
>
> Sub SimpanKetujuan(MyArray, Tujuan As Range)
> End Sub
>
> hasilnya :
>
> No Transaction Date(yyyymmdd) Doc Type Reference No. Posting Key (PK) Acct
> No Amount (USD) Remarks 20111118 MM 2011/250 25 140,273 TOTAL
> for 18/11/2011 20111118 2011/250 31 2,850 DEPOSIT
> BRANCH ABC NOT POSTED 16/11/2011 20111118 2011/250 31 5,294
> DEPOSIT BRANCH BBB NOT POSTED 10/11/2011 20111118 2011/250 31
> 132,129 NORMAL TRANSACTION 18/11/2011 20111118 ZZ 2011/250 25
> 140,273 TOTAL for 18/11/2011 20111118 2011/250 50 140,273 TOTAL
>--- dst ---

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
1f.: Re: Masalah Lookup yang rumit

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Fri Dec 2, 2011 12:38 am (PST)

Pak Sudarsono,

Menurut saya hasilnya udah 95% memenuhi kebutuhan saya.
(1) Yang kurang hanya sedikit, di kolom yang kosong maunya diisi no account
yang tetap yaitu 6932942.mungkin boleh disebut di makro Acc No = 6932942.
Bagitu juga GL 871814 adalah tetap dan tidak berubah, dan polanya tetap
sama seperti posisi di table asli di bawah.

(2) Di kolom pertama sebelum tanggal ada nomor urut. Polanya no 1 berada di
baris yang sama dgn MM, no 2 di baris ZZ, no 3 MM semula, bagitulah
seterusnya no 4 ZZ.

(3) Tanggal hanya ditulis dua kali sahaja yaitu sebaris dgn MM dan sebaris
dgn ZZ, yang lain dikosongkan sama seperti MM dan ZZ.

4) Selain untuk tujuan upload data ke sistem SAP, Table ini juga
berfungsi sebagai filter kepada Table statement dari bank, sebab data dari
bank bertambah setiap hari, tapi yang mau di lihat hanya data dari tanggal
tertentu sahaja.. Mungkin supaya lebih user friendly, tanggalnya bisa
diselect contohnya

Tanggal dari 18 Nov 2011 hingga 23 Nov 2011 atau hanya satu tanggal sahaja
e.g 24 Nov 2011, maka yang muncul hanyalah tanggal yang diperlukan sahaja.

Terima kasih sekali lagi atas bantuan bapak.

-Mansor.

================================================
mods note:
footer & quoted mail telah kami edit
/dihilangkan bagian yg tidak perlu
================================================

2011/12/2 Mansor <dbpermatasari@gmail.com>
> Terima kasih Pak,
> Saya akan belajar satu persatu macronya.
> Nanti saya kabarkan hasilnya.
> kalau ada masalah akan saya tanyakan lagi.
> Regards.
> _Mansor
>
>
> 2011/12/2 jkssxls Sudarsono <jkssxls@hotmail.com>
>> coba gunakan koding ini :

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
1g.: Re: Masalah Lookup yang rumit

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Fri Dec 2, 2011 3:02 am (PST)

Nah itu bisa dipelajari dulu , nanti jika ada kesempatan saya tambahkan cuplikannya saja ...( yang diubah )

> To: belajar-excel@yahoogroups.com
> From: dbpermatasari@gmail.com
> Date: Fri, 2 Dec 2011 16:32:07 +0800
> Subject: Re: [belajar-excel] Masalah Lookup yang rumit
>
> Pak Sudarsono,
> Menurut saya hasilnya udah 95% memenuhi kebutuhan saya.
> (1) Yang kurang hanya sedikit, di kolom yang kosong maunya diisi no account
> yang tetap yaitu 6932942.mungkin boleh disebut di makro Acc No = 6932942.
> Bagitu juga GL 871814 adalah tetap dan tidak berubah, dan polanya tetap
> sama seperti posisi di table asli di bawah.
>
> (2) Di kolom pertama sebelum tanggal ada nomor urut. Polanya no 1 berada di
> baris yang sama dgn MM, no 2 di baris ZZ, no 3 MM semula, bagitulah
> seterusnya no 4 ZZ.
>
> (3) Tanggal hanya ditulis dua kali sahaja yaitu sebaris dgn MM dan sebaris
> dgn ZZ, yang lain dikosongkan sama seperti MM dan ZZ.
>
> 4) Selain untuk tujuan upload data ke sistem SAP, Table ini juga
> berfungsi sebagai filter kepada Table statement dari bank, sebab data dari
> bank bertambah setiap hari, tapi yang mau di lihat hanya data dari tanggal
> tertentu sahaja.. Mungkin supaya lebih user friendly, tanggalnya bisa
> diselect contohnya
>
> Tanggal dari 18 Nov 2011 hingga 23 Nov 2011 atau hanya satu tanggal sahaja
> e.g 24 Nov 2011, maka yang muncul hanyalah tanggal yang diperlukan sahaja.
>
> Terima kasih sekali lagi atas bantuan bapak.
>
> -Mansor.
>
> ================================================
> mods note:
> footer & quoted mail telah kami edit
> /dihilangkan bagian yg tidak perlu
> ================================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
1h.: Re: Masalah Lookup yang rumit

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Fri Dec 2, 2011 3:03 am (PST)

Option Base 1
Dim kdAccLedger As Long
Dim kdAccCustomer As Long
Dim urutTrans As Long
Sub testing()
'tambahkan no urut transaksi
urutTrans = 0
kdAccLedger = 871814
kdAccCustomer = 6932942
'====
Call telusuriData(Worksheets("Sheet1").Range("A32:J42"), Worksheets("Sheet2").Range("a13"))
End Sub
Function telusuriData(daerahku As Range, tujuannya As Range)
m_NoReferensi = ""
Dim kolstr_Tanggal, kolnum_Debet, kolNum_kredit, kolstr_NoReference As Integer
kolstr_Tanggal = 1
kolstr_Deskripsi = 2
kolnum_Debet = 3
kolNum_kredit = 4
kolstr_NoReference = 7
kolStr_Remark = 10
Dim sel As Range

Dim Arr_Simpan() As Variant
Dim jumItem As Integer
jumItem = 0
For Each sel In daerahku.Rows
isiNoReferensi = sel.Resize(1, 1).Offset(0, kolstr_NoReference - 1).Value
' jika ada perubahan no reference
If m_NoReferensi <> isiNoReferensi Then
If m_NoReferensi <> "" Then
' jika no referensi sbelumnya tak kosong
Call sortArray_2D(Arr_Simpan, 1)
Call hilangkantambahan(Arr_Simpan, 1)
Call TambahanZZ(Arr_Simpan, 1)
Call SimpanKetujuan(Arr_Simpan, tujuannya)
End If
m_NoReferensi = sel.Resize(1, 1).Offset(0, kolstr_NoReference - 1).Value
jumItem = 0
ReDim Arr_simpam(1, 1)
End If
If isiNoReferensi <> "" Then
jumItem = jumItem + 1
ReDim Preserve Arr_Simpan(7, jumItem)
'1--> posting key
'2--> Amount
'3--> MM atau ZZ
'4--> Transaction Date
'5--> No Reference
'6--> Remark
'7--> Acc No , dari mana
If sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value > 0 Then
Arr_Simpan(2, jumItem) = sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value
Else
Arr_Simpan(2, jumItem) = sel.Resize(1, 1).Offset(0, kolNum_kredit - 1).Value
End If
If UCase(Trim(sel.Resize(1, 1).Offset(0, kolstr_Deskripsi - 1).Value)) = "TOTAL" Then
Arr_Simpan(3, jumItem) = "MM"
' untuk total sisi Bank debet ( 31 ) perusahaan Kredit ( 25 )
If sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value > 0 Then
Arr_Simpan(1, jumItem) = 25 & "_" & "0"
Else
Arr_Simpan(1, jumItem) = 31 & "_" & "0"
End If
isiTanggal = sel.Resize(1, 1).Offset(0, kolstr_Tanggal - 1).Value
isiNoReference = sel.Resize(1, 1).Offset(0, kolstr_NoReference - 1).Value
Else
' sisi Bank debet ( 25 ) perusahaan Kredit ( 31 )
Arr_Simpan(3, jumItem) = ""
If sel.Resize(1, 1).Offset(0, kolnum_Debet - 1).Value > 0 Then
Arr_Simpan(1, jumItem) = 31 & "_" & jumItem
Else
Arr_Simpan(1, jumItem) = 25 & "_" & jumItem
End If
isiTanggal = ""
isiNoReference = ""
End If
' tak perlukan lagi
Arr_Simpan(4, jumItem) = isiTanggal
Arr_Simpan(5, jumItem) = isiNoReference
Arr_Simpan(6, jumItem) = sel.Resize(1, 1).Offset(0, kolStr_Remark - 1).Value
' Arr_Simpan(7, jumItem) = "" ' diisi dari mana ?
Arr_Simpan(7, jumItem) = kdAccCustomer
End If
labloop:
Next
Call sortArray_2D(Arr_Simpan, 1)
Call hilangkantambahan(Arr_Simpan, 1)
Call TambahanZZ(Arr_Simpan, 1)
Call SimpanKetujuan(Arr_Simpan, tujuannya)
End Function
Sub sortArray_2D(MyArray, posisikey)
jumkol = UBound(MyArray, 1)
Dim kel1 As Variant
Dim kel2 As Variant
ReDim kel1((jumkol))
ReDim kel2((jumkol))
For lLoop = 1 To UBound(MyArray, 2)
For lLoop2 = lLoop To UBound(MyArray, 2)
If UCase(MyArray(posisikey, lLoop2)) < UCase(MyArray(posisikey, lLoop)) Then
For i = 1 To UBound(MyArray, 1)
kel1(i) = MyArray(i, lLoop)
kel2(i) = MyArray(i, lLoop2)
MyArray(i, lLoop) = kel2(i)
MyArray(i, lLoop2) = kel1(i)
Next End If Next lLoop2
Next lLoop
End Sub
Sub hilangkantambahan(MyArray, posisikey)
For j = 1 To UBound(MyArray, 2)
strnya = MyArray(posisikey, j)
strnya = StrReverse(strnya)
posisi = InStr(1, strnya, "_")
If posisi > 0 Then
strnya = Mid(strnya, posisi + 1)
End If
strnya = StrReverse(strnya)
MyArray(posisikey, j) = strnya
Next j
End SubSub TambahanZZ(MyArray, posisikey)
'1--> posting key
'2--> Amount
'3--> MM atau ZZ
'4--> Transaction Date
'5--> No Reference
'6--> Remark
'7--> Acc No , dari mana
' MM ZZ
' 25 25
' 50
' 31 31
' 40
jumItem = UBound(MyArray, 2)
For j = 1 To jumItem
If j = 1 And MyArray(3, j) = "MM" Then
mPostingKey = MyArray(posisikey, j)
mAmount = MyArray(2, j)
mdoc = "ZZ"
mTanggal = MyArray(4, j)
mReferenceNo = MyArray(5, j)
mRemark = MyArray(6, j)
mAccNo = MyArray(7, j)
End If
Next j
ReDim Preserve MyArray(7, jumItem + 1)
MyArray(posisikey, jumItem + 1) = mPostingKey
MyArray(2, jumItem + 1) = mAmount
MyArray(3, jumItem + 1) = mdoc
MyArray(4, jumItem + 1) = mTanggal
MyArray(5, jumItem + 1) = mReferenceNo
MyArray(6, jumItem + 1) = mRemark
MyArray(7, jumItem + 1) = kdAccCustomer
If mPostingKey = 25 Then
mPostingKey = 50
ElseIf mPostingKey = 31 Then
mPostingKey = 40
Else
mPostingKey = ""
End If
jumItem = jumItem + 1
ReDim Preserve MyArray(7, jumItem + 1)
MyArray(posisikey, jumItem + 1) = mPostingKey
MyArray(2, jumItem + 1) = mAmount
MyArray(3, jumItem + 1) = "" ' mdoc
' MyArray(4, jumItem + 1) = mTanggal
MyArray(4, jumItem + 1) = ""
' MyArray(5, jumItem + 1) = mReferenceNo
MyArray(5, jumItem + 1) = ""
MyArray(6, jumItem + 1) = mRemark
' MyArray(7, jumItem + 1) = mAccNo
MyArray(7, jumItem + 1) = kdAccLedger
End Sub
Sub SimpanKetujuan(MyArray, Tujuan As Range)
Dim pjumItem As Integer
'1--> posting key
'2--> Amount
'3--> Doc Type : MM atau ZZ
'4--> Transaction Date
'5--> No Reference
'6--> Remark
'7--> Acc No , dari mana
'====
' Tanggal Doc-Type ReferenceNo PostingKey AccNo Amount Remark
pjumItem = UBound(MyArray, 2)
For j = 1 To pjumItem
'tambahkan no urut transaksi
If MyArray(3, j) <> "" Then
urutTrans = urutTrans + 1
Tujuan.Offset(j - 1, 0).Value = urutTrans
End If
Tujuan.Offset(j - 1, 1).Value = MyArray(4, j)
Tujuan.Offset(j - 1, 2).Value = MyArray(3, j)
Tujuan.Offset(j - 1, 3).Value = MyArray(5, j)
Tujuan.Offset(j - 1, 4).Value = MyArray(1, j)
Tujuan.Offset(j - 1, 5).Value = MyArray(7, j)
Tujuan.Offset(j - 1, 6).Value = MyArray(2, j)
Tujuan.Offset(j - 1, 7).Value = MyArray(6, j)
Next j
Set Tujuan = Tujuan.Offset(pjumItem, 0)
End Sub

> To: belajar-excel@yahoogroups.com
> From: dbpermatasari@gmail.com
> Date: Fri, 2 Dec 2011 16:32:07 +0800
> Subject: Re: [belajar-excel] Masalah Lookup yang rumit
>
> Pak Sudarsono,
>
> Menurut saya hasilnya udah 95% memenuhi kebutuhan saya.
> (1) Yang kurang hanya sedikit, di kolom yang kosong maunya diisi no account
> yang tetap yaitu 6932942.mungkin boleh disebut di makro Acc No = 6932942.
> Bagitu juga GL 871814 adalah tetap dan tidak berubah, dan polanya tetap
> sama seperti posisi di table asli di bawah.
>
> (2) Di kolom pertama sebelum tanggal ada nomor urut. Polanya no 1 berada di
> baris yang sama dgn MM, no 2 di baris ZZ, no 3 MM semula, bagitulah
> seterusnya no 4 ZZ.
>
> (3) Tanggal hanya ditulis dua kali sahaja yaitu sebaris dgn MM dan sebaris
> dgn ZZ, yang lain dikosongkan sama seperti MM dan ZZ.
>
> 4) Selain untuk tujuan upload data ke sistem SAP, Table ini juga
> berfungsi sebagai filter kepada Table statement dari bank, sebab data dari
> bank bertambah setiap hari, tapi yang mau di lihat hanya data dari tanggal
> tertentu sahaja.. Mungkin supaya lebih user friendly, tanggalnya bisa
> diselect contohnya
>
> Tanggal dari 18 Nov 2011 hingga 23 Nov 2011 atau hanya satu tanggal sahaja
> e.g 24 Nov 2011, maka yang muncul hanyalah tanggal yang diperlukan sahaja.
>
> Terima kasih sekali lagi atas bantuan bapak.
>
> -Mansor.

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

2a.: MEMBUAT MANUAL BOOK

Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza

Thu Dec 1, 2011 4:50 pm (PST)

DEAR ALL
Salam Be-Excel

mohon bantuan para pakar excel,
kemarin saya bertanya tentang cara membuat manual book, seperti terlampir file manual book, yaitu gimana caranya
jika cell chapter 1 di klik pada "sheet home" maka otomatis menunjuk cell "chapter 1" pada "sheet introducing" dst.

sebenarnya mbak siti pernah memberikan satu solusi seperti terlampir file "membuat struktur organisasi", tetapi membutuhkan
banyak sheet. kalau boleh mohon bantuan lagi pada para pakar excel untuk menghemat kapasitas file dan sheet caranya seperti

pertanyaan diatas.

best regards
Neza

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2b.: Re: MEMBUAT MANUAL BOOK

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Thu Dec 1, 2011 7:54 pm (PST)

Maaf bukan menanggapi namun juga mau tanya pertanyaan senada.

Saya juga mengangankan membuat suatu file hampir semacam Manual book
Namun berisi tentang silsilah Keluarga.

Berisi data anak, siapa saja, Ortunya asal dari mana
Orang tuanya siapa bin siapa bin siapa dst
Termasuk dalam file ini ada foto dan sedikit data data tentang alamat, nomor HP dll.

(Kebetulan saat reuni kemarin baru sadar bahwa keluarga kami telah menjadi keluarga besar
Jadi perlu dibuat dokumentasinya untuk anak cucu kelak biar tahu nama Mbah Buyutnya siapa)

Maaf saya sendiri belum punya gambaran dibentuk bagaimana.
Jadi maklum kalau tidak memberi lampiran.

Wacana yang ada dengan memakai hyperlink atau lookupkah

Kiranya ada yang punya file semacam itu atau solusi yang ditawarkan.

Thanks
Agung W

________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of neza ibaneza
Sent: Friday, December 02, 2011 7:50 AM
To: EXCEL EXCEL
Subject: [belajar-excel] MEMBUAT MANUAL BOOK

DEAR ALL
Salam Be-Excel

mohon bantuan para pakar excel,
kemarin saya bertanya tentang cara membuat manual book, seperti terlampir file manual book, yaitu gimana caranya
jika cell chapter 1 di klik pada "sheet home" maka otomatis menunjuk cell "chapter 1" pada "sheet introducing" dst.

sebenarnya mbak siti pernah memberikan satu solusi seperti terlampir file "membuat struktur organisasi", tetapi membutuhkan
banyak sheet. kalau boleh mohon bantuan lagi pada para pakar excel untuk menghemat kapasitas file dan sheet caranya seperti
pertanyaan diatas.

best regards
Neza

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2c.: Re: MEMBUAT MANUAL BOOK

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap

Thu Dec 1, 2011 10:59 pm (PST)

jenis pekerjaan "pohon keluarga" (Family Tree / Genealogy) seperti ini
sudah ada (banyak)
softwarenya termasuk software gratisan yg cukup baik

di dalamnya saya pernah melihat agoritmanya cukup rumit, banyak yg harus
d OTOMATISKAN

kalau kita buat sendiri dengan excel tentunya ya bisa tetapi akan makan
waktu
cukup lama; kecuali kalau sudah puas dengan sistem yg paling sederhana
(keluarga terbatas)
apalagi kita di milis kan hanya bekerja demi hobi saja, yg baru dikerjakan
bila
ada waktu senggang saja..

coba pak agung widodo, cari di internet, dengan kata kunci *GenoPro*
(saya pakai ini yg versi gratisan dan cukup puas:
http://www.genopro.com/family-tree-software/)

[image: genopro-sample-genogram.GIF]

Atau lebih umumnya berikan kata kunci : "Family Tree softwares" atau
"Genealogy softwares"

Sebagai sedikit gambaran 'GenoPro' dapat menampung: selain ayah - ibu
(parent) anak, pasangan
/suami/istri (spouse) sodara sekandung (sibling) cucu, cicit dst; ke
atasnya juga kakek, buyut dst
saudara sambungan (misal seorang beristri lebih dari satu); anak karena
adopsi dst..
Setiap person dapat dikembangkan ke semua arah
Setiap person bisa diisi data lengkapnya: Foto, tgl lahir, tgl merried, tgl
meninggal,
sebab meninggal, riwayat kesehatan dst,,,

Report dlm bentuk tabel, bentuk gambar korelasi, maupun dlm HTML
Bayangkan kalau harus dibuat dengan excel, pembuatnya harus 'tukang excel
yg kelas wahid'
Yg hasilnya pasti masih terbatasi oleh Excelnya itu sendiri.

2011/12/2 <agung_widodo@sanyo.com>

> **
>
> Maaf bukan menanggapi namun juga mau tanya pertanyaan senada.****
>
> Saya juga mengangankan membuat suatu file hampir semacam Manual book
>
> Namun berisi tentang silsilah Keluarga.****
>
> Berisi data anak, siapa saja, Ortunya asal dari mana
>
> Orang tuanya siapa bin siapa bin siapa dst****
>
> Termasuk dalam file ini ada foto dan sedikit data data tentang alamat,
> nomor HP dll.****
>
> ** **
>
> *(Kebetulan saat reuni kemarin baru sadar bahwa keluarga kami telah
> menjadi keluarga besar*
>
> *Jadi perlu dibuat dokumentasinya untuk anak cucu kelak biar tahu nama
> Mbah Buyutnya siapa)*
>
> ** **
>
> Maaf saya sendiri belum punya gambaran dibentuk bagaimana.****
>
> Jadi maklum kalau tidak memberi lampiran.****
>
> ** **
>
> Wacana yang ada dengan memakai hyperlink atau lookupkah****
>
> ** **
>
> Kiranya ada yang punya file semacam itu atau solusi yang ditawarkan.****
>
> ** **
>
> Thanks****
>
> Agung W****
>
> ** **
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2d.: Re: MEMBUAT MANUAL BOOK

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 11:32 pm (PST)

kLu sisiliah keluarga ada software untuk kebutuhan tsb. silakan cari melalui bing.com atau yang ini nih : http://www.ocidbrass.com/2008/09/gramps-program-untuk-menyusun-silsilah.html
To: belajar-excel@yahoogroups.com
From: agung_widodo@sanyo.com
Date: Fri, 2 Dec 2011 12:54:29 +0900
Subject: RE: [belajar-excel] MEMBUAT MANUAL BOOK

Maaf bukan menanggapi namun juga mau tanya
pertanyaan senada.

Saya juga mengangankan membuat suatu file hampir
semacam Manual book

Namun berisi tentang silsilah Keluarga.

Berisi data anak, siapa saja, Ortunya asal
dari mana

Orang tuanya siapa bin siapa bin siapa dst

Termasuk dalam file ini ada foto dan sedikit
data data tentang alamat, nomor HP dll.

(Kebetulan
saat reuni kemarin baru sadar bahwa keluarga kami telah menjadi keluarga besar

Jadi
perlu dibuat dokumentasinya untuk anak cucu kelak biar tahu nama Mbah Buyutnya
siapa)

Maaf saya sendiri belum punya gambaran
dibentuk bagaimana.

Jadi maklum kalau tidak memberi lampiran.

Wacana yang ada dengan memakai hyperlink
atau lookupkah

Kiranya ada yang punya file semacam itu
atau solusi yang ditawarkan.

Thanks

Agung W

From:
belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of neza ibaneza

Sent: Friday, December 02, 2011
7:50 AM

To: EXCEL EXCEL

Subject: [belajar-excel] MEMBUAT
MANUAL BOOK

DEAR ALL

Salam
Be-Excel

mohon bantuan
para pakar excel,

kemarin saya
bertanya tentang cara membuat manual book, seperti terlampir file manual book,
yaitu gimana caranya

jika cell
chapter 1 di klik pada "sheet home" maka otomatis menunjuk cell
"chapter 1" pada "sheet introducing" dst.

sebenarnya
mbak siti pernah memberikan satu solusi seperti terlampir file "membuat
struktur organisasi", tetapi membutuhkan

banyak sheet.
kalau boleh mohon bantuan lagi pada para pakar excel untuk menghemat kapasitas
file dan sheet caranya seperti

pertanyaan
diatas.

best regards

Neza

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

3a.: Debug dan restart my workbook

Posted by: "ppc lambda" ppc_03@sami.co.id

Thu Dec 1, 2011 6:27 pm (PST)

Maize

Pagi para pakar & All member mohon bantuan lagi nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan langsung meminta restart excel
coding
mohon koreksinya
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range("b2")
Set Rng = WAdd.Sheets(1).Range(Rng, Rng.End(xlDown))

For W = 1 To Rng.Rows.Count
If W Mod 30 = 0 Or w1 = 1 Then
ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
WAdd.Sheets(SAdd.Name).Range("i5") = cmb_area.Value
WAdd.Sheets(SAdd.Name).Range("i6") = txt_atasan.Value
WAdd.Sheets(SAdd.Name).Range("C6") = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name).Range("C41") = Rng.Rows.Count
WAdd.Sheets(SAdd.Name).Range("i60") = (WorksheetFunction.Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng.Rows.Count, 29) / 29)
w1 = w1 + 1
aw = 1
hal = hal + 1
End If
With WAdd.Sheets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw + 1
Next

End Sub

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
3b.: Re: Debug dan restart my workbook

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Fri Dec 2, 2011 3:43 am (PST)

==This message was identified as spam.==
Coba terangkan maksud dan tujuan kode vba apa ya ?Kalau di perhatikan :
1. Tambahkan sebuah sheet jika :
a. W Mod 30 = 0 --> jika nilai w adalah kelipatan 30 ( 30,60 , .... ) atau
b. w1 = 1 --> pd saat awal dijalankan ( nilai w1 = 1 ) berarti dijalankan2. Perulangan tergantung dari jumlah data ( Rng.rows.count ) Jadi bisa kah diperjelas ?

------------------------------
To: belajar-excel@yahoogroups.com
From: ppc_03@sami.co.id
Date: Fri, 2 Dec 2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my workbook

Pagi para pakar & All member mohon bantuan lagi nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan
langsung meminta restart excel
coding
mohon koreksinya

Private Sub Cmb_Generate_Click()
Dim Rng As Range, W
As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range("b2")
Set Rng = WAdd.Sheets(1).Range(Rng, Rng.End(xlDown))

For W = 1 To Rng.Rows.Count
If W Mod 30 = 0 Or w1 = 1 Then
ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
WAdd.Sheets(SAdd.Name).Range("i5") = cmb_area.Value
WAdd.Sheets(SAdd.Name).Range("i6") = txt_atasan.Value
WAdd.Sheets(SAdd.Name).Range("C6") = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name).Range("C41") = Rng.Rows.Count
WAdd.Sheets(SAdd.Name).Range("i60") = (WorksheetFunction.Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng.Rows.Count, 29) / 29)
w1 = w1 + 1
aw = 1
hal = hal + 1
End If
With
WAdd.Sheets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw + 1
Next

End Sub

Terimakasih
Best
Regard
Sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

4.: Memudahkan Perhitungan Lembur

Posted by: "Iwan G" iwangwan@gmail.com iwan_gwan

Thu Dec 1, 2011 11:58 pm (PST)

Salam BeExceller,

Di tempat kami periode perhitungan lembur dari tanggal 21 hingga tanggal 20
bulan berikutnya.

Misalnya 21 Oktober hingga 20 Nopember 2011.

Cara perhitungannya masih menggunakan rumus Excel sederhana.

Setiap akhir bulan kami diminta juga untuk melaporkan nilai lembur bulan
berjalan (mis. tanggal 1 - 30 Nopember 2011).

Ini berarti kami harus menggabung 2 file ( 21 Okt - 20 Nop 2011 dan 21 Nop -
20 Des 2011), lalu menyesuaikan hari kerja dan hari liburnya.

Demikian pula dengan penyesuaian rumus-rumusnya. (lihat contoh file
terlampir). Sangat repot dan rentan kesalahan.

Mohon bantuannya, bagaimana cara agar kami hanya entry data lembur satu kali
saja, seperti biasa, namun secara otomatis mengisi juga data untuk
per-bulannya (tanggal 1 - 30 Nopember) misalnya. Demikian juga dengan cara
dan rumus perhitungan nilai lemburnya.

Mudah-mudahan ada cara yang lebih sederhana dan lebih efisien.

Sebelumnya diucapkan banyak terima kasih.

Wassalam,

Iwan G

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

5a.: Menambah text tanpa harus mergecell atau perbesar row

Posted by: "Tony Bexcel" tonybexcel@yahoo.co.id

Fri Dec 2, 2011 2:27 am (PST)

Dear Pakar yang budiman,

Selamat sore sebelum nya..saya mohon bantuan nya untuk membuat text yang ada seperti contoh terlampir bila tidak menggunakan mergecell atau wraptext apa ada cara bila menambahkan text akan terlihat seperti file yang saya lampirkan?
Sebelum dan sesudahnya saya ucapkan banyak terimakasih sekali..

Salam,Tony

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5b.: Re: Menambah text tanpa harus mergecell atau perbesar row

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap

Fri Dec 2, 2011 2:49 am (PST)

Mungkin anda perlu bertindak seperti ini
* tulis text / kalimat panjang dlm 1 (SATU) cell
* select cell nya
* menu : Format > Cells > Allignment >> Wrap Text (excel 2003)
* OK

[image: wrap text.PNG]

2011/12/2 Tony Bexcel <tonybexcel@yahoo.co.id>
>
> Dear Pakar yang budiman,
>
> Selamat sore sebelum nya..saya mohon bantuan nya untuk membuat text yang
ada seperti contoh terlampir bila tidak menggunakan mergecell atau wraptext
apa ada cara bila menambahkan text akan terlihat seperti file yang saya
lampirkan?
> Sebelum dan sesudahnya saya ucapkan banyak terimakasih sekali..
>
> Salam,Tony

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

6a.: Menghitung Jumlah Kendaraan

Posted by: "sh_411_dy" sh_411_dy@yahoo.com sh_411_dy

Fri Dec 2, 2011 3:36 am (PST)

aku lagi nyusun skripsi nih trus aku terbentur masalah excel, soalnya
data yang mau di olah ada lebih kurang 4000 data masuk keluar sebuah
kendaraan....mohon bantuannya giman cara membuat rumusnya,

JUMLAH
LAMA WAKTU PARKIR
WAKTUA PARKIR
JENIS KENDARAAN
JENISKENDARAAN
RODA4 RODA2
RODA 4 RODA 2
1:20 3:10 0 - 1 Jam
0 3
1:10 2:45 1 - 2 Jam
5 3
1:15 0:30 2 - 4 Jam
5 2
1:05 0:55 4 - 6 Jam
3 4
1:18 6:10 6 - 8 Jam
2 3
2:10 8:40 8 - 10 Jam
3 1
2:20 7:10 10 - 12 Jam
0 0
4:10 4:10 12 - 14 Jam
1 1
3:10 1:20 > 14 Jam
0 1
3:40 1:00 Rata - Rata
8:05 9:10 Jumlah Waktu
7:10 12:05 Jumlah Kendaraan
5:45 7:05
6:10 5:10
2:40 0:55
5:10 1:45
8:10 4:20
9:10 4:50
2:55 8:50
12:10 14:40

KETERANGAN
1 Bertujuan untuk mencari jumlah Kendaraan
3 Terima Kasih atas bantuannya

=============================================
Moderators Note:
Subject aslinya tertulis "Minta Bantuannya'
kami edit agar tidak menyalahi aturan milis
=============================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
6b.: Re: Menghitung Jumlah Kendaraan

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Fri Dec 2, 2011 4:05 am (PST)

gak tega lihat datanya...
terlampir data ex email *pak sh_411_dy *yg diproses dengan Text To Column
dlm file workbook (xls)

2011/12/2 sh_411_dy <sh_411_dy@yahoo.com>

> **
>
> aku lagi nyusun skripsi nih trus aku terbentur masalah excel, soalnya
> data yang mau di olah ada lebih kurang 4000 data masuk keluar sebuah
> kendaraan....mohon bantuannya giman cara membuat rumusnya,
>
> JUMLAH
> LAMA WAKTU PARKIR
> WAKTUA PARKIR
> JENIS KENDARAAN
> JENISKENDARAAN
> RODA4 RODA2
> RODA 4 RODA 2
> 1:20 3:10 0 - 1 Jam
> 0 3
> 1:10 2:45 1 - 2 Jam
> 5 3
> 1:15 0:30 2 - 4 Jam
> 5 2
> 1:05 0:55 4 - 6 Jam
> 3 4
> 1:18 6:10 6 - 8 Jam
> 2 3
> 2:10 8:40 8 - 10 Jam
> 3 1
> 2:20 7:10 10 - 12 Jam
> 0 0
> 4:10 4:10 12 - 14 Jam
> 1 1
> 3:10 1:20 > 14 Jam
> 0 1
> 3:40 1:00 Rata - Rata
> 8:05 9:10 Jumlah Waktu
> 7:10 12:05 Jumlah Kendaraan
> 5:45 7:05
> 6:10 5:10
> 2:40 0:55
> 5:10 1:45
> 8:10 4:20
> 9:10 4:50
> 2:55 8:50
> 12:10 14:40
>
> KETERANGAN
> 1 Bertujuan untuk mencari jumlah Kendaraan
> 3 Terima Kasih atas bantuannya
>
> =============================================
> Moderators Note:
> Subject aslinya tertulis "Minta Bantuannya'
> kami edit agar tidak menyalahi aturan milis
> =============================================
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

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
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

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

Jumat, 02 Desember 2011

Messages In This Digest (19 Messages)

Messages

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Thu Dec 1, 2011 10:13 am (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 5:06 pm (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 8:16 pm (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 11:05 pm (PST)

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Fri Dec 2, 2011 12:08 am (PST)

Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980

Fri Dec 2, 2011 12:38 am (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Fri Dec 2, 2011 3:02 am (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Fri Dec 2, 2011 3:03 am (PST)

Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza

Thu Dec 1, 2011 4:50 pm (PST)

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Thu Dec 1, 2011 7:54 pm (PST)

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap

Thu Dec 1, 2011 10:59 pm (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 1, 2011 11:32 pm (PST)

Posted by: "ppc lambda" ppc_03@sami.co.id

Thu Dec 1, 2011 6:27 pm (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Fri Dec 2, 2011 3:43 am (PST)

Posted by: "Iwan G" iwangwan@gmail.com iwan_gwan

Thu Dec 1, 2011 11:58 pm (PST)

Posted by: "Tony Bexcel" tonybexcel@yahoo.co.id

Fri Dec 2, 2011 2:27 am (PST)

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap

Fri Dec 2, 2011 2:49 am (PST)

Posted by: "sh_411_dy" sh_411_dy@yahoo.com sh_411_dy

Fri Dec 2, 2011 3:36 am (PST)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Fri Dec 2, 2011 4:05 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me