Selasa, 30 April 2013

[belajar-excel] Digest Number 2271

15 New Messages

Digest #2271
1
sharing - sekilas macro mengenai running number by "hendrik karnadi" hendrikkarnadi
2a
Ask - Cara membuat laporan penjualan by "Mirza Rotua" mirza.rotua
2b
Re: Ask - Cara membuat laporan penjualan by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Sorting Data Gabungan Menggunakan Makro by "Mr. Kid" nmkid.family@ymail.com
4b
Re: Sorting Data Gabungan Menggunakan Makro by "Mr. Kid" nmkid.family@ymail.com
5a
Penjumlahan Pivot by "dhen.baguse" bagusejogja
5b
Re: Penjumlahan Pivot by "Mr. Kid" nmkid.family@ymail.com
6a
Re: [SOLVED] Selisih 2 Kolom by "Jonathan Susanto" jonathan_susanto
7a
Menghitung Masa kerja by "BhoneX" hadiekoprayitno13
7b
7c
Re: Menghitung Masa kerja by "hendrik karnadi" hendrikkarnadi
7d
Re: Menghitung Masa kerja by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
7e
Bls: [belajar-excel] Menghitung Masa kerja by "Djati Walujo" walujodjati
7f
Re: Menghitung Masa kerja by "BhoneX" hadiekoprayitno13

Messages

Tue Apr 30, 2013 8:51 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Berikut adalah kutipan pertanyaan seorang rekan di salah satu grup milis, yang mungkin bermanfaat bagi rekan2 Be-Excel.

I need a macro in an xl sheet where numbers should be in
ascending order(1,2,3,.). if a merged cell come in-between while dragging
numbers it should skip the merged cell and need to continue numbers
ex: 1,2,3 merged cell(
need to skip), 4,5,6 merged cell ( need to skip),,7,8,9....help me

saya coba jawab seperti ini:
Put the word "No" in Cell A1. Make
MergeCells in Rows 5, 9 13, 17, etc. (MergeCells can contain 2 or more columns).
Drag the mouse from Cell A2 to Cell A20. 
Run the below code: 
Sub RunNumber() 
With Selection 
For i = 1 To Selection.Rows.Count 
If Cells(i, 1).MergeCells = True Then 
Cells(i, 1).Value = "" 
Cells(i + 1, 1).FormulaR1C1 =
"=N(R[-2]C)+1" 
Else 
Cells(i + 1, 1).FormulaR1C1 =
"=N(R[-1]C)+1" 
End If 
Next i 
End With 
End Sub 

Hope this will help you. 

Regards, 
Hendrik Karnadi

File terlampir

Semoga macro "sederhana" ini bisa membakar "adrenalin" kita untuk mengembangkan macro lebih lanjut

Tue Apr 30, 2013 9:11 am (PDT) . Posted by:

"Mirza Rotua" mirza.rotua

Dear All,

Menindaklanjuti email saya yang sebelumnya, bahwa saya sedang bikin rekapan untuk data sales.
Kendalanya adalah saya agak kesulitan di dalam membuat rekapan ini, karena data yang banyak dan kurang pengalaman di dalam excell.. :)

Mohon di bantu bagaimana caranya agar saya bisa tahu masing-masing sales dalam sebulan itu mendapat berapa pelanggan.
Sebagai contoh saya sudah melampirkan data untuk 3 bulan pertama.

Saya sudah mencoba menggunakan pivot, tp secara manual per bulan. Namun, kalo datanya banyak kan jadi repot.

Thanks
Regards,

Mirza

Tue Apr 30, 2013 11:27 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba Pivot Table.
Sebaiknya data tanggal dibuat bertipe datetime.

Wassalam,
Kid.

2013/4/30 Mirza Rotua <mirza.rotua@yahoo.com>

> **
>
>
> Dear All,
>
> Menindaklanjuti email saya yang sebelumnya, bahwa saya sedang bikin
> rekapan untuk data sales.
> Kendalanya adalah saya agak kesulitan di dalam membuat rekapan ini, karena
> data yang banyak dan kurang pengalaman di dalam excell.. :)
>
> Mohon di bantu bagaimana caranya agar saya bisa tahu masing-masing sales
> dalam sebulan itu mendapat berapa pelanggan.
> Sebagai contoh saya sudah melampirkan data untuk 3 bulan pertama.
>
> Saya sudah mencoba menggunakan pivot, tp secara manual per bulan. Namun,
> kalo datanya banyak kan jadi repot.
>
> Thanks
> Regards,
>
> Mirza
>
>
>

Tue Apr 30, 2013 10:42 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Topik ini sudah di-repost berulang kali tapi belum ada yang respon.

gini aja, sambil menunggu BeExceller menyusun solusi topik ini, mungkin mau
sedikit repot mencoba prosedur imajinasi terlampir.

Peringatan!!!
-> Tidak dijamin bakal sukses tanpa error.

Moga-moga ada BeExceller yang bersedia mencobanya (bila perlu
memperbaikinya kalau error) terus di posting kemilis workbooknya.

Bismillah, moga-moga gak error-error banget
1. Syarat yang harus dipenuhi (siapkan dengan baik)
>> gunakan file lampiran dari penanya, jangan diubah sedikit pun [harus
masih ting-ting]
(bila perlu unduh ulang dulu : ada sheet data dan sheet hasil)
>> buka file dari penanya dan lakukan save as dengan cara :
tekan ALT F A -> pada bagian save as type, pilih .xlsm atau
.xlsb -> ganti namanya bila perlu -> tekan tombol Save
>> unduh text file terlampir.

2. cara pasang text file terlampir ke workbook kerja
>> buka workbook hasil proses 1 (kalau belum terbuka)
>> ke VBE (tekan ALT F11) -> menu Insert -> pilih Module
>> buka text file terlampir dengan NotePad atau semacamnya dan jangan diset
Word Wrap
>> copy semua yang ada dalam text file yang terbuka (CTRL A lalu CTRL C)
>> ke VBE lagi, dilembar module baru tadi, lakukan paste (CTRL V)
>> cek baris paling atas, kalau ada baris tulisan option explicit 2 baris,
hapus salah satu barisnya
>> kembali ke worksheet (tekan ALT F11)
>> save workbook (harus tipe .xlsm atau .xlsb ya)

3. buat tombolnya
>> di sheet data, insert sebuah shape
>> klik kanan shape baru itu -> pilih Assign Macro -> pilih UpdateReport ->
tekan OK
>> save workbook lagi

4. coba pencet si shape hasil langkah nomor 3 tadi.

Insya Allah begitu bisa pakai VBA lagi, saya usahakan posting workbook-nya
kalau belum ada BeExceller yang mau mencobanya.
Kalau ada error, kabarkan ke milis ya, supaya banyak yang bisa sempat
ngecek.

Selamat mencoba, dan mohon maaf kalau masih ndak bisa urun yang lebih baik.

Wassalam,
Kid.

2013/4/29 Imam Sinurat <sin.ur4t@yahoo.com>

> **
>
>
> Salam be-excel..
>
> Yth. para suhu dan rekan2 exceler....
> Mohon bantuan pencerahan tentang cara men-Sorting Data Gabungan
> Menggunakan Makro.
>
> Keterangan tabel soalnya sbb:
>
> 1. Semua "nama yang bersifat unik" di-sort sesuai kolom (5) secara
> descending.
>
> 2. Setiap nama yang sama lalu disusun berkelompok sesuai urutan "nama
> unik" tadi, dan masing-masing kelompok nama di-sort kembali sesuai kolom
> (5) secara descending.
>
> 3. Hasil sorting untuk record yang kolom (5) -nya bernilai <=10
> diletakkan pada tabel di deretan atas, sedangkan sisanya di deretan bawah.
>
> 4. Kolom (3) dan (4) digabungkan dan ditampilkan sekolom (seolah-olah ada
> penambahan record).
>
> Bantuannya dimohonkan sangat, terima kasih sebelumnya.
>
> Wassalam
> Imam Sinurat - Sumut
>
>
>

----------

option explicit

'Kid, Jakarta, 2013-04-30

'bagian pembuat sheet temporary, bisa jadi jumlah kolom bantunya kurang, nanti dimodifikasi sendiri ya
private sub BuildTempTable(rngTarget As Range) 'supaya jelas posisi paste values hasilnya, dimintalah inputan lokasi cell nama pertama
dim shtTmp as Worksheet, shtRes as Worksheet
dim lRows as Long

err.clear
on error resume next

application.displayalerts = FALSE
set shtTmp = sheets("_bridge_")
if err.number = 0 then
shtTmp.delete
endif
set shtTmp = sheets.add(after:=sheets(sheets.count))
with shtTmp
.name = "_bridge_"
'penulis nama kolom (11 kolom diisi 11 elemen array)
'-> nama kolomnya nanti dipake di pivot table, jadi pastikan pengubahannya disertai cek seluruh proses buat pivot table
'-> sepertinya pivot table harus case sensitive
.range("a1").resize(1, 11).value = _
array("ONo", "ONama", "ONom1", "ONom2", "OBln", "HJns", "HUrut", "HMax", "Nama", "Nominal", "BulanTagih&quot;)
if GetData then '1. ambil data dulu (sekalian cek ada hasil ambilnya gak -> butuh function)

CreatePvtMax 'buat pivot nilai max per nama dulu

.pivottables("_pvtMax_").tablerange2.name = "_myPvtMax_" 'area pivot tablenya diberi nama range untuk formula data source
KomputasiDataSource 'susun data source yang lengkap

CreatePvtRes 'buat pivot hasil

'copas bagian pivot yang jadi hasil akhir ke target
.pivottables("_pvtRes_").tablerange2.offset(1, 4).copy
rngTarget.pastespecial xlpastevalues
endif
end with

'clear temporary
shtTmp.delete
thisworkbook.names("_myBridge_").delete
thisworkbook.names("_myPvtMax_").delete

application.displayalerts = TRUE
err.clear
on error goto 0
end sub

'bagian ambil data baru
private function GetData() As Long
dim rngData as Range, rngBridge as Range
dim lRec as Long, lRows as Long

set rngBridge = sheets("_bridge_").range("a1")
rngBridge.currentRegion.offset(1).clearcontents
rngBridge.currentRegion.resize(2).name = "_myBridge_"
lRows = 1

set rngData = sheets("Data").range("b8").currentregion
with rngData
.parent.autofiltermode = FALSE

'Nom1 -> jenis 1, urut 2 (sorted desc) :: filter Nom1 > 0, sort Nom1 desc
.sort .resize(1).cells(1, 3), xldescending, header:=xlyes, orientation:=xlsortcolumns 'mungkin column bukan columns tapi column
.autofilter 3, "<>0"
lRec = .resize(, 1).specialcells(xlcelltypevisible).count - 1
if lRec > 0 then
.offset(1).specialcells(xlcelltypevisible).copy
with rngBridge
.offset(lRows).pastespecial xlpastevalues
.offset(lRows, 5).resize(lRec, 1).value = 1
.offset(lRows, 6).resize(lRec, 1).value = 2
lRows = .currentregion.rows.count
end with
endif

'Nom2 -> jenis [formula], urut [formula] :: filter nom2 > 0, sort nom2 desc
.parent.autofiltermode = FALSE
.sort .resize(1).cells(1, 4), xldescending, header:=xlyes, orientation:=xlsortcolumns 'mungkin column bukan columns tapi column
.autofilter 4, ">0"
lRec = .resize(, 1).specialcells(xlcelltypevisible).count - 1
if lRec > 0 then
.offset(1).specialcells(xlcelltypevisible).copy
with rngBridge
.offset(lRows).pastespecial xlpastevalues
With .offset(lRows, 5).resize(lRec, 2)
.formular1c1 = "=1*(RC5<=10)" 'penentu HJns untuk Nom2 yang >0
.parent.calculate
.value = .value
End With
lRows = .currentregion.rows.count
end with
endif
.parent.autofiltermode = FALSE
end with

'buat nama range (update kalau sudah ada)
'sengaja diletakkan disini supaya tampak alur prosesnya
'bagian ini sebenarnya bisa diletakkan dalam blok with rngBridge ... end with setelah lRows=
if lRows > 1 then
rngBridge.currentregion.name = "_myBridge_"
else
rngBridge.currentregion.resize(2).name = "_myBridge_"
endif
GetData = lRows - 1
end function

'setelah data masuk, buat pivot table penentu nilai max bulan setiap nama
private sub CreatePvtMax()
dim pvtTbl as PivotTable, pvtCache as PivotCache

'create cache (sengaja dibuat bertahap supaya mudah dipelajari dan dikembangkan)
set pvtCache = thisworkbook.pivotcaches.create(xldatabase, "_myBridge_")
with pvtCache
.refreshonfileopen = TRUE
.missingitemslimit = xlmissingitemsnone
end with

'buat pivot table dari pivotcache yang ada
'asumsi, ada proses untuk ambil pivot cache dan disimpan dalam variabel pvtCache
set pvtTbl = pvtCache.createpivottable(sheets("_bridge_").range("p1"), "_pvtMax_")
with pvtTbl
.refreshtable 'refresh :: biasanya sudah otomatis ter-refresh, jadi bisa di-non aktofkan kayanya

'pivot options
.savedata = FALSE
.rowgrand = FALSE
.columngrand = FALSE

'atur layout
.rowaxislayout xltabularrow 'khusus xl2007 ke atas (non aktifkan jika di xl2003)
.addfields array("ONama", "HJns") 'sisi row (tambah fields)
.adddatafield .pivotfields("OBln"), "MaxBln", xlmax 'sisi values (add) dengan field OBln, agregate Max, nama MaxBln
.pivotfields("HJns").pivotfilters.add xlcaptionisgreaterthan, Value1:=0 'filter label HJns >0 :: cek lagi xlcaptionnya kalau error
end with
end sub

'melengkapi data source (nyusun max per nama, tulisan nama untuk tampilan, nilai nominal tampilan, nilai bulan untuk tampilan)
private sub KomputasiDataSource()
dim rngData as Range
dim lRec as Long

set rngData = sheets("_bridge_").range("a1").currentregion
lRec = rngData.rows.count - 1
if lRec < 1 then
exit sub
endif

set rngData = rngData.resize(lRec, 1).offset(1, 7)
with rngData
'formula untuk kolom-kolom tampilan, cek lagi, sapa tahu salah ambil kolom. Asumsi record mulai A2
.formula = "=vlookup( b2, _myPvtMax_ ,3,0)*f2" 'ambil nilai max dari pivot table, khusus data yang bln<=10 -> HJns=1
.offset(0, 1).formula = "=b2&if(g2=1,""*"","""")" 'nama diberi * kalau HUrut=1 (data Nom2) -> HUrut=2 adalah data Nom1
.offset(0, 2).formula = "=if(g2=2,c2,d2)" 'nilai nominal ambil Nom1 kalau HUrut=2, ambil Nom2 kalau HUrut selain 2
.offset(0, 3).formula = "=right("" ""&e2&if(g2=1,""*"","" ""),3)" 'membuat selalu 3 karakter bln, ada * kalau HUrut=1
.parent.calculate 'kalkulasi
'divalues
.resize(, 4).copy
.resize(, 4).pastespecial xlpastevalues
end with
end sub

'setelah data source lengkap, susun pivot table hasil akhir
private sub CreatePvtRes()
dim pvtCache as PivotCache, pvtTbl as PivotTable, pvtField as PivotField

'ambil pivot cache dari pivot yang ada di sheet bridge bernama pvtmax
set pvtCache = sheets("_bridge_").pivottables("_pvtMax_").pivotcache

'buat pivot table baru dari pivot cache tersebut (irit memori)
set pvtTbl = pvtCache.createpivottable(sheets("_bridge_").range("w1"), "_pvtRes_")
with pvtTbl
.refreshtable 'refresh :: kalo ini harus direfresh lagi, karena data source sudah berubah nilai akibat formula terakhir

'pivot options
.savedata = FALSE
.rowgrand = FALSE
.columngrand = FALSE

'atur layout
.rowaxislayout xltabularrow 'khusus xl2007 ke atas (non aktifkan jika di xl2003)
.addfields array("HMax", "ONama", "OBln", "HUrut", "Nama", "Nominal", "BulanTagih&quot;) 'semua masuk bagian rows

'hide subtotal di semua field
for each pvtField in .rowfields 'kalau error, ganti dengan .pivotfields
pvtField.subtotals(1) = TRUE 'buat hanya item pertama yang ada subtotal (lainnya false)
pvtField.subtotals(1) = FALSE 'buat subtotal item pertama jadi false juga
next pvtField

'sort descending pivot table berdasar kolom pembentuk output
'kayanya case sensitive, jadi hati-hati, mending copas nama field
.pivotfields("HMax").autoSort xldescending, "HMax"
.pivotfields("OBln").autoSort xldescending, "OBln"
.pivotfields("HUrut";).autoSort xldescending, "HUrut"
end with
end sub

'urusan beresin tampilan hasil akhir di sheet target dimasukkan ke prosedur yang dipanggil saja
'bagian prosedur yang menjalankan semua prosedur proses di atas.
public sub UpdateReport()
dim rngRes as Range, lRec as Long

set rngRes = sheets("hasil").range("a7")
with rngRes
.currentRegion.offset(1).clearcontents

BuildTempTable .offset(1, 1) 'bangun temporary sekalian kirim info lokasi target nama pertama di sheet hasil

'pasang nomor
lRec = .currentregion.rows.count - 1
if lRec > 0 then
.offset(1).resize(lRec, 1).formula = "=row()-" & .row 'susun nomor urut pakai formula
.parent.calculate
.offset(1).resize(lRec, 1).value = .offset(1).resize(lRec, 1).value
endif
end with

err.clear
on error goto 0
end sub

Tue Apr 30, 2013 6:43 pm (PDT) . Posted by:

"Imam Sinurat" sin.ur4t


Yth. Pak mrkid

Langkah-langkahnya sudah saya ikuti, dan alhamdulillah saat makronya dijalankan TIDAK ada error.

Cuma satu yg terlihat belum pas saat ini, yaitu: record yang kolom (5) -nya bernilai >10 belum ter-sort secara descending, masih acak.

Berikut file format .xlsm nya saya lampirkan.

Mohon bimbingan selanjutnya.

Wassalam
Imam Sinurat

------------------------------
Pada Sel, 30 Apr 2013 10:41 Waktu Terang Hari Pasifik Mr. Kid menulis:

>Topik ini sudah di-repost berulang kali tapi belum ada yang respon.
>
>gini aja, sambil menunggu BeExceller menyusun solusi topik ini, mungkin mau
>sedikit repot mencoba prosedur imajinasi terlampir.
>
>Peringatan!!!
>-> Tidak dijamin bakal sukses tanpa error.
>
>Moga-moga ada BeExceller yang bersedia mencobanya (bila perlu
>memperbaikinya kalau error) terus di posting kemilis workbooknya.
>
>Bismillah, moga-moga gak error-error banget
>1. Syarat yang harus dipenuhi (siapkan dengan baik)
> gunakan file lampiran dari penanya, jangan diubah sedikit pun [harus
>masih ting-ting]
> (bila perlu unduh ulang dulu : ada sheet data dan sheet hasil)
> buka file dari penanya dan lakukan save as dengan cara :
> tekan ALT F A -> pada bagian save as type, pilih .xlsm atau
>.xlsb -> ganti namanya bila perlu -> tekan tombol Save
> unduh text file terlampir.
>
>2. cara pasang text file terlampir ke workbook kerja
> buka workbook hasil proses 1 (kalau belum terbuka)
> ke VBE (tekan ALT F11) -> menu Insert -> pilih Module
> buka text file terlampir dengan NotePad atau semacamnya dan jangan diset
>Word Wrap
> copy semua yang ada dalam text file yang terbuka (CTRL A lalu CTRL C)
> ke VBE lagi, dilembar module baru tadi, lakukan paste (CTRL V)
> cek baris paling atas, kalau ada baris tulisan option explicit 2 baris,
>hapus salah satu barisnya
> kembali ke worksheet (tekan ALT F11)
> save workbook (harus tipe .xlsm atau .xlsb ya)
>
>3. buat tombolnya
> di sheet data, insert sebuah shape
> klik kanan shape baru itu -> pilih Assign Macro -> pilih UpdateReport ->
>tekan OK
> save workbook lagi
>
>4. coba pencet si shape hasil langkah nomor 3 tadi.
>
>Insya Allah begitu bisa pakai VBA lagi, saya usahakan posting workbook-nya
>kalau belum ada BeExceller yang mau mencobanya.
>Kalau ada error, kabarkan ke milis ya, supaya banyak yang bisa sempat
>ngecek.
>
>Selamat mencoba, dan mohon maaf kalau masih ndak bisa urun yang lebih baik.
>
>Wassalam,
>Kid.
>
>
>
>2013/4/29 Imam Sinurat <sin.ur4t@yahoo.com>
>
> **
>
>
> Salam be-excel..
>
> Yth. para suhu dan rekan2 exceler....
> Mohon bantuan pencerahan tentang cara men-Sorting Data Gabungan
> Menggunakan Makro.
>
> Keterangan tabel soalnya sbb:
>
> 1. Semua "nama yang bersifat unik" di-sort sesuai kolom (5) secara
> descending.
>
> 2. Setiap nama yang sama lalu disusun berkelompok sesuai urutan "nama
> unik" tadi, dan masing-masing kelompok nama di-sort kembali sesuai kolom
> (5) secara descending.
>
> 3. Hasil sorting untuk record yang kolom (5) -nya bernilai <=10
> diletakkan pada tabel di deretan atas, sedangkan sisanya di deretan bawah.
>
> 4. Kolom (3) dan (4) digabungkan dan ditampilkan sekolom (seolah-olah ada
> penambahan record).
>
> Bantuannya dimohonkan sangat, terima kasih sebelumnya.
>
> Wassalam
> Imam Sinurat - Sumut
>
>
>

Tue Apr 30, 2013 7:08 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

hehehe...

mungkin mau uji coba yang berikut ini (ndak jamin gak error ya, karena
belum bisa lihat script dalam file lampiran Anda)
dalam text file lalu ada prosedur berbunyi seperti ini :
'melengkapi data source (nyusun max per nama, tulisan nama untuk tampilan,
nilai nominal tampilan, nilai bulan untuk tampilan)
private sub KomputasiDataSource()
dim rngData as Range
dim lRec as Long

set rngData = sheets("_bridge_").range("a1").currentregion
lRec = rngData.rows.count - 1
if lRec < 1 then
exit sub
endif

set rngData = rngData.resize(lRec, 1).offset(1, 7)
with rngData
'formula untuk kolom-kolom tampilan, cek lagi, sapa tahu salah
ambil kolom. Asumsi record mulai A2
.formula = "=vlookup( b2, _myPvtMax_ ,3,0)*f2" 'ambil nilai
max dari pivot table, khusus data yang bln<=10 -> HJns=1
.offset(0, 1).formula = "=b2&if(g2=1,""*"","""")" 'nama diberi *
kalau HUrut=1 (data Nom2) -> HUrut=2 adalah data Nom1
.offset(0, 2).formula = "=if(g2=2,c2,d2)" 'nilai nominal ambil
Nom1 kalau HUrut=2, ambil Nom2 kalau HUrut selain 2
.offset(0, 3).formula = "=right("" ""&e2&if(g2=1,""*"",""
""),3)" 'membuat selalu 3 karakter bln, ada * kalau HUrut=1
.parent.calculate 'kalkulasi
'divalues
.resize(, 4).copy
.resize(, 4).pastespecial xlpastevalues
end with
end sub

diubah menjadi : (yang di-biru adalah tambahan atau pengubahannya)
'melengkapi data source (nyusun max per nama, tulisan nama untuk tampilan,
nilai nominal tampilan, nilai bulan untuk tampilan)
private sub KomputasiDataSource()
dim rngData as Range
dim lRec as Long

set rngData = sheets("_bridge_").range("a1").currentregion
lRec = rngData.rows.count - 1
if lRec < 1 then
exit sub
endif

set rngData = rngData.resize(lRec, 1).offset(1, 7)
with rngData
'formula untuk kolom-kolom tampilan, cek lagi, sapa tahu salah
ambil kolom. Asumsi record mulai A2

rngData.offset(0,-3).name = "_myOBLN_"
'ambil nilai max dari pivot table, khusus data yang bln<=10 ->
HJns=1
.formula = "=if(f2,vlookup( b2, _myPvtMax_
,3,0),-countif(_myOBLN_,"">""&e2))"
.offset(0, 1).formula = "=b2&if(g2=1,""*"","""")" 'nama diberi *
kalau HUrut=1 (data Nom2) -> HUrut=2 adalah data Nom1
.offset(0, 2).formula = "=if(g2=2,c2,d2)" 'nilai nominal ambil
Nom1 kalau HUrut=2, ambil Nom2 kalau HUrut selain 2
.offset(0, 3).formula = "=right("" ""&e2&if(g2=1,""*"",""
""),3)" 'membuat selalu 3 karakter bln, ada * kalau HUrut=1
.parent.calculate 'kalkulasi
'divalues
.resize(, 4).copy
.resize(, 4).pastespecial xlpastevalues
thisworkbook.names("_myOBLN_").delete
end with
end sub

Moga-moga pas perkiraannya. Kalau formula yang dibiru masih belum pas
merujuk kolom OBLN, mohon di-pas-pas-ken

Wassalam,
Kid.

2013/5/1 Imam Sinurat <sin.ur4t@yahoo.com>

> **
>
>
>
> Yth. Pak mrkid
>
> Langkah-langkahnya sudah saya ikuti, dan alhamdulillah saat makronya
> dijalankan TIDAK ada error.
>
> Cuma satu yg terlihat belum pas saat ini, yaitu: record yang kolom (5)
> -nya bernilai >10 belum ter-sort secara descending, masih acak.
>
> Berikut file format .xlsm nya saya lampirkan.
>
> Mohon bimbingan selanjutnya.
>
> Wassalam
> Imam Sinurat
>
> ------------------------------
> Pada Sel, 30 Apr 2013 10:41 Waktu Terang Hari Pasifik Mr. Kid menulis:
>
>
> >Topik ini sudah di-repost berulang kali tapi belum ada yang respon.
> >
> >gini aja, sambil menunggu BeExceller menyusun solusi topik ini, mungkin
> mau
> >sedikit repot mencoba prosedur imajinasi terlampir.
> >
> >Peringatan!!!
> >-> Tidak dijamin bakal sukses tanpa error.
> >
> >Moga-moga ada BeExceller yang bersedia mencobanya (bila perlu
> >memperbaikinya kalau error) terus di posting kemilis workbooknya.
> >
> >Bismillah, moga-moga gak error-error banget
> >1. Syarat yang harus dipenuhi (siapkan dengan baik)
> > gunakan file lampiran dari penanya, jangan diubah sedikit pun [harus
> >masih ting-ting]
> > (bila perlu unduh ulang dulu : ada sheet data dan sheet hasil)
> > buka file dari penanya dan lakukan save as dengan cara :
> > tekan ALT F A -> pada bagian save as type, pilih .xlsm atau
> >.xlsb -> ganti namanya bila perlu -> tekan tombol Save
> > unduh text file terlampir.
> >
> >2. cara pasang text file terlampir ke workbook kerja
> > buka workbook hasil proses 1 (kalau belum terbuka)
> > ke VBE (tekan ALT F11) -> menu Insert -> pilih Module
> > buka text file terlampir dengan NotePad atau semacamnya dan jangan diset
> >Word Wrap
> > copy semua yang ada dalam text file yang terbuka (CTRL A lalu CTRL C)
> > ke VBE lagi, dilembar module baru tadi, lakukan paste (CTRL V)
> > cek baris paling atas, kalau ada baris tulisan option explicit 2 baris,
> >hapus salah satu barisnya
> > kembali ke worksheet (tekan ALT F11)
> > save workbook (harus tipe .xlsm atau .xlsb ya)
> >
> >3. buat tombolnya
> > di sheet data, insert sebuah shape
> > klik kanan shape baru itu -> pilih Assign Macro -> pilih UpdateReport ->
> >tekan OK
> > save workbook lagi
> >
> >4. coba pencet si shape hasil langkah nomor 3 tadi.
> >
> >Insya Allah begitu bisa pakai VBA lagi, saya usahakan posting workbook-nya
> >kalau belum ada BeExceller yang mau mencobanya.
> >Kalau ada error, kabarkan ke milis ya, supaya banyak yang bisa sempat
> >ngecek.
> >
> >Selamat mencoba, dan mohon maaf kalau masih ndak bisa urun yang lebih
> baik.
> >
> >Wassalam,
> >Kid.
> >
> >
> >
> >2013/4/29 Imam Sinurat <sin.ur4t@yahoo.com>
> >
> > **
>
> >
> >
> > Salam be-excel..
> >
> > Yth. para suhu dan rekan2 exceler....
> > Mohon bantuan pencerahan tentang cara men-Sorting Data Gabungan
> > Menggunakan Makro.
> >
> > Keterangan tabel soalnya sbb:
> >
> > 1. Semua "nama yang bersifat unik" di-sort sesuai kolom (5) secara
> > descending.
> >
> > 2. Setiap nama yang sama lalu disusun berkelompok sesuai urutan "nama
> > unik" tadi, dan masing-masing kelompok nama di-sort kembali sesuai kolom
> > (5) secara descending.
> >
> > 3. Hasil sorting untuk record yang kolom (5) -nya bernilai <=10
> > diletakkan pada tabel di deretan atas, sedangkan sisanya di deretan
> bawah.
> >
> > 4. Kolom (3) dan (4) digabungkan dan ditampilkan sekolom (seolah-olah ada
> > penambahan record).
> >
> > Bantuannya dimohonkan sangat, terima kasih sebelumnya.
> >
> > Wassalam
> > Imam Sinurat - Sumut
> >
> >
> >
>
>
>

Tue Apr 30, 2013 6:43 pm (PDT) . Posted by:

"dhen.baguse" bagusejogja

Salam
exceler,
Yang saya tanyakan bagaimana agar dikolom "sisi_uang "  jika hasilnya "nol"/"-"
tidak tampil, saya sudah mencoba semaksimal saya dan belum bisa menemukan caranya, mohon pencerahan temen temen master di milis.
terimakasih,
wassalam 

Tue Apr 30, 2013 7:29 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

dhen bagus (tenane na' bagus)

kelihatannya field sisa uang masuk dibagian Values (maaf, soale cuma lihat
pake pilihan view di email)
kalau benar di value, maka bisa dilakukan filter.
Kira-kira caranya begini :
1. pada field pengambilan kas -> tombol segitiga filter -> pilih value
filter -> pilih does not equal -> nanti muncul dialog
2. pada dialog, pilih nama field dibagian values yang akan difilter
(berarti pilih sisa uang), lalu di textbox diisi 0 (pastikan combo dikanan
pilihan field beneran telah berisi does not equal)
3. tekan OK

moga-moga pas.

Wassalam,
Kid.

2013/5/1 dhen.baguse <bagusejogja@yahoo.com>

> **
>
>
> Salam exceler,
> Yang saya tanyakan bagaimana agar dikolom "sisi_uang " jika hasilnya
> "nol"/"-" tidak tampil, saya sudah mencoba semaksimal saya dan belum bisa
> menemukan caranya, mohon pencerahan temen temen master di milis.
> terimakasih,
> wassalam
>
>
>

Tue Apr 30, 2013 6:44 pm (PDT) . Posted by:

"Jonathan Susanto" jonathan_susanto

Terima Kasih Pak Hendrik.

Sudah Solved.

On 4/30/2013 2:49 PM, hendrik karnadi wrote:
> Coba ketik :
> =VLOOKUP(I3,$A$3:$C$7,3,FALSE)-VLOOKUP(I3,$E$3:$G$7,3,FALSE)
> pada sel K3, kemudian copy ke bawah.
>
> Perhatikan tanda $
>
> Salam,
> HK
>
> ----------------------------------------------------------
> *From:* Jonathan Susanto <jonathan.susanto@gmail.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Tuesday, 30 April 2013, 14:37
> *Subject:* [belajar-excel] [TANYA] Selisih 2 Kolom
>
> Hi All,
>
> Minta tolong bantuanya untuk rumus mencari seliish antara 2 kolom
> bersarkan NIK/Kode.
>
> untuk lebih lengkap, file dummy terlampir
>
> Terima Kasih
> Jonathan
>

Tue Apr 30, 2013 7:01 pm (PDT) . Posted by:

"BhoneX" hadiekoprayitno13

Assalamu'alaikum

Be - Exeller

Mohon bantuannya rumus menghitung masa kerja yang simpel, karena menggunakan rumus ini terlalu panjang,...

Jazakumullahu Khair,...

Tue Apr 30, 2013 7:17 pm (PDT) . Posted by:

"Jan Raisin"

Wa'alaikumsalam wr.wb.,

coba formula berikut ditulis di cell c2 lalu dikopi ke bawah

=DATEDIF(A2,B2,"y")+(DATEDIF(A2,B2,"yd")/365)

jika regional setting anda Indonesian, maka ubah seluruh koma yang
dimerahin dengan titik koma

# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
pooling berikut
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3

Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
berharga untuk Be-Exceler yang lain

Wassalam,

-Miss Jan Raisin-

*>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan
jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
pertanyaan yang diajukan;*
*>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
belajar-excel@yahoogroups.com;*
*>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;*

Pada 1 Mei 2013 08.51, BhoneX <bhonex13@yahoo.com> menulis:

> **
>
>
> Assalamu'alaikum
>
> Be - Exeller
>
> Mohon bantuannya rumus menghitung masa kerja yang simpel, karena
> menggunakan rumus ini terlalu panjang,...
>
> Jazakumullahu Khair,...
>
>
>
>

Tue Apr 30, 2013 7:19 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pakai cara tradisionil saja Pak.
Dengan asumsi satu tahun 365 hari dan tgl PHK pasti lebih besar dari tgl Hiring maka hitugannya menjadi sebagai berikut :
=(B2-A2)/365

kemudian copy ke bawah.

Salam,
HK

________________________________
From: BhoneX <bhonex13@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Wednesday, 1 May 2013, 8:51
Subject: [belajar-excel] Menghitung Masa kerja


 
Assalamu'alaikum

Be - Exeller

Mohon bantuannya rumus menghitung masa kerja yang simpel, karena menggunakan rumus ini terlalu panjang,...

Jazakumullahu Khair,...

Tue Apr 30, 2013 7:20 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

kalo pakai rumus =(B2-A2+1)/365

beda dikit hasilnya sih..

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of BhoneX
Sent: Wednesday, May 01, 2013 8:51 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menghitung Masa kerja

Assalamu'alaikum

Be - Exeller

Mohon bantuannya rumus menghitung masa kerja yang simpel, karena menggunakan
rumus ini terlalu panjang,...

Jazakumullahu Khair,...

Tue Apr 30, 2013 7:24 pm (PDT) . Posted by:

"Djati Walujo" walujodjati

Coba dengan file terlampir.

Djati W

________________________________
Dari: BhoneX <bhonex13@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 1 Mei 2013 8:51
Judul: [belajar-excel] Menghitung Masa kerja


 
Assalamu'alaikum

Be - Exeller

Mohon bantuannya rumus menghitung masa kerja yang simpel, karena menggunakan rumus ini terlalu panjang,...

Jazakumullahu Khair,...

Tue Apr 30, 2013 8:16 pm (PDT) . Posted by:

"BhoneX" hadiekoprayitno13

Barakallaahu Fiik

setelah saya coba ada beberapa yang selisih dan beberapa yang benar,...

________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, May 1, 2013 9:17 AM
Subject: Re: [belajar-excel] Menghitung Masa kerja


 
Wa'alaikumsalam wr.wb.,

coba formula berikut ditulis di cell c2 lalu dikopi ke bawah

=DATEDIF(A2,B2,"y")+(DATEDIF(A2,B2,"yd")/365)

jika regional setting anda Indonesian, maka ubah seluruh koma yang dimerahin dengan titik koma

# sampaikan masalah yang sering anda temui saat menggunakan Excel pada pooling berikut 
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3

Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain

Wassalam,

-Miss Jan Raisin-

>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1 pertanyaan yang diajukan;
>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke belajar-excel@yahoogroups.com;
>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;

Pada 1 Mei 2013 08.51, BhoneX <bhonex13@yahoo.com> menulis:


>Assalamu&#39;alaikum
>
>Be - Exeller
>
>Mohon bantuannya rumus menghitung masa kerja yang simpel, karena menggunakan rumus ini terlalu panjang,...
>
>Jazakumullahu Khair,...
>
>
>

GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
READ MORE....