Re: [belajar-excel] Gtafik dua skala

[Agus nanga...@gmail.com [belajar-excel]]

Terima kasih Mas Kid,
akan saya pelajari dahulu.
On 8/6/2020 7:13 PM, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Misal seperti file terlampir.

On Tue, Aug 4, 2020 at 8:30 PM Mr. Kid > wrote:


wa'alaikumussalam wr wb

mas nang,

Ini type chart-nya apa ya
stacked column (bertumpuk), column (jejer-jejer), atau yang lainnya ?

Kemudian, pakai versi berapa ?
Kalau xl2010 ke bawah, biasanya akan ribet dalam membuat custom
label untuk sumbu-Y.
Di xl2013 ke atas sudah ada pilihan sumber data data labels dalam
chart

wassalamu'alaikum wr wb
Kid





On Tue, Aug 4, 2020 at 8:42 AM Agus nanga...@gmail.com
 [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> wrote:

Assalamu'alaikum warahmatullah.

Bagaimanakah caranya membuat grafik batang dengan dua skala
yang berbeda
dalam satu sumbu?

misalnya data:

5000    5    6568    4000

5430    6    5455    4500

5450    9    5300    4560

agar data yang kecil juga tampak di layar.

terima kasih

wasalamu'alaikum warahmatullah.

Regard

Agus




Terima

Re: [belajar-excel] Gtafik dua skala

[Agus nanga...@gmail.com [belajar-excel]]

On 8/4/2020 8:30 PM, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

wa'alaikumussalam wr wb

mas nang,

Ini type chart-nya apa ya
stacked column (bertumpuk), column (jejer-jejer), atau yang lainnya ?

Kemudian, pakai versi berapa ?
Kalau xl2010 ke bawah, biasanya akan ribet dalam membuat custom label 
untuk sumbu-Y.

Di xl2013 ke atas sudah ada pilihan sumber data data labels dalam chart

wassalamu'alaikum wr wb
Kid





On Tue, Aug 4, 2020 at 8:42 AM Agus nanga...@gmail.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Assalamu'alaikum warahmatullah.

Bagaimanakah caranya membuat grafik batang dengan dua skala yang
berbeda
dalam satu sumbu?

misalnya data:

5000    5    6568    4000

5430    6    5455    4500

5450    9    5300    4560

agar data yang kecil juga tampak di layar.

terima kasih

wasalamu'alaikum warahmatullah.

Regard

Agus




Assalamu'alaikum warahmatullah,

saya menggunakan Office 2010, tetapi kalau lebih mudah pakai office 2013 
juga tidak masalah. saya yang akan menyesuaikan.


terimakasih Mas Kid.

Wasalamu'alaikum warahmatullah.

Nang agus

[belajar-excel] Gtafik dua skala

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah.

Bagaimanakah caranya membuat grafik batang dengan dua skala yang berbeda 
dalam satu sumbu?

misalnya data:

5000    5    6568    4000

5430    6    5455    4500

5450    9    5300    4560


agar data yang kecil juga tampak di layar.

terima kasih

wasalamu'alaikum warahmatullah.

Regard

Agus

Re: [belajar-excel] Mengubah bentuk Data [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

Dear pak HH,
ini pertanyaannya dari detail ke data apa dari data ke detail ya?
File lampiran menggunakan formula Index.
Sebenarnya lebih mudah kalau pakai pivot.

Tetapi kalau dibuat dari data ke detail kelihatannya terbalik ya, 
seharusnya dari data dibuat reportnya, bukah dari report diubah menjadi 
bentuk data. Kalau memang begitu perlu diubah sistem input datanya.


Salam
NangAgus

On 2/19/2020 21:25, halak hita halakhita1...@gmail.com [belajar-excel] 
wrote:

Dear Para Master
Selamat Malam

Mohon pencerahannya, bagaimana agar file ini berubah bentuk isi data 
nya di sheet "Sebelum" menjadi seperti sheet "Sesudah"


Contoh terlampir.


Terima kasih

Salam
HH








Copy of Ubah bentuk data.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Pindah Group Yuk...!!!!

[Agus nanga...@gmail.com [belajar-excel]]

Dear Nando,
Group di google sudah dapat digunakan, namun baru 1.000 member yang 
dapat dipindahkan dari 3.527 member yahoo group. Hal tersebut karena 
google hanya mengizinkan menambah 100 member per hari. jadi sabar 
yaa masih ada 2.527 member yang perlu dipindah.

Salam
Regard

NangAgus.

On 11/16/2019 13:33, odong nando odongna...@yahoo.com [belajar-excel] wrote:

hai rekan2 sekalain...

mohon maaf sebelumnyaEmoji

banyak yang terlewatkan...
dan ternyata ad grup baru di google

sudah aktif kah?

br,

odong nando*
*


Pada Kamis, 24 Oktober 2019 17.08.05 WIB, Raya Hidayat 
raya.hida...@gmail.com [belajar-excel]  
menulis:



siap... langsung mengajukan joint group.

On Thu, Oct 24, 2019 at 1:46 PM Ari Rafael rafael_...@yahoo.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


siaap otw

On Wednesday, October 23, 2019, 07:48:06 AM GMT+10,
iq_bal7...@yahoo..com 
[belajar-excel] mailto:belajar-excel@yahoogroups.com>> wrote:


Dear All,

Udah pada dengar kan klo yahoo group akan berhenti beroperasi?

Yuk kita pindahan ke sebelah,

Sudah di siapkan moderator untuk group pengganti di google groups.

Alamat nya ini

https://groups.google.com/forum/#!forum/milis-belajar-excel




--
Terima kasih


Raya

Re: [belajar-excel] textbox

[Agus nanga...@gmail.com [belajar-excel]]

Letakkan pada tombol validasinya saja, jangan pada textbox change.
misalnya tombol OK.
On 10/14/2019 09:39, Budi Priyo monexd...@gmail.com [belajar-excel] wrote:

Maaf Mas Agus
Sudah saya coba tapi baru di ketik satu angka sudah tampil msgbox nya,
dimana meletakkan codingnya?
Trima kasih

Pada tanggal Jum, 11 Okt 2019 pukul 21.10 Agus nanga...@gmail.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
menulis:


Dear Mas Budi,
bagaimana kalau begini?

If TextBox1.Value < 100 Then
MsgBox "Kekecilen"
TextBox1.SetFocus
End If
If TextBox1.Value > 500 Then
MsgBox "Kebesaren"
TextBox1.SetFocus

On 10/11/2019 16:39, Budi Priyo monexd...@gmail.com
 [belajar-excel] wrote:

Salam Sejahtera teman2 semua
Saya minta tolong bantu permasalah saya.
Begini, saya buat textbox di userform yang akan diisi dengan
angka tetapi harus ada nilai minimum dan maximum, misalnya
minimum 100 dan maximum 500, kalau diluar itu tidak dapat di input.
Apakah itu bisa dibuatkan macronya?
Mungkin temen2 disini ada yg pernah buat.
Trimakasih

Re: [belajar-excel] Tanya Pivot

[Agus nanga...@gmail.com [belajar-excel]]

Wa'alaikumsalam warahmatullah.
Kenapa tidak disembunyikan saja
Klik kanan row 6, hide.

wasalam
NangAgus
On 10/11/2019 21:32, Cari Kebenaran cahayailm...@gmail.com 
[belajar-excel] wrote:

Assalamu'alaikum.

Mohon dibantu. Saya membuat pivot tabel dengan menggunakan VBA. VBA 
Code-nya dapat dari internet dengan berbagai modifikasi di sana sini.


Sumber data untuk pivot table ini adalah sheet "TRANSAKSI". Sedangkan 
pivot table-nya adalah sheet "Format BOP-4".


Saya ingin tulisan Value pada sheet Format BOP-4 cell B6 dihilangkan. 
Jadi, bagaimana menghilang tulisan Value (memang isinya Value) pada 
sheet Format BOP-4 cell B6 itu? Bagian mana yang perlu diubah pada VBA 
Code yang ada?


Selengkap silakan lihat lampiran

Terima kasih

Wassalamu'alaikum.

Re: [belajar-excel] textbox

[Agus nanga...@gmail.com [belajar-excel]]

Dear Mas Budi,
bagaimana kalau begini?

If TextBox1.Value < 100 Then
MsgBox "Kekecilen"
TextBox1.SetFocus
End If
If TextBox1.Value > 500 Then
MsgBox "Kebesaren"
TextBox1.SetFocus

On 10/11/2019 16:39, Budi Priyo monexd...@gmail.com [belajar-excel] wrote:

Salam Sejahtera teman2 semua
Saya minta tolong bantu permasalah saya.
Begini, saya buat textbox di userform yang akan diisi dengan angka 
tetapi harus ada nilai minimum dan maximum, misalnya minimum 100 dan 
maximum 500, kalau diluar itu tidak dapat di input.

Apakah itu bisa dibuatkan macronya?
Mungkin temen2 disini ada yg pernah buat.
Trimakasih

Re: [belajar-excel] Mengambil Nilai Kolom Menjadi Baris dengan rumus otomatis [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

Dear Kamirin,
aduh. bagaimana cara menjelaskannya ya.
Tentunya rumus yang saya buat itu merupakan rumus yang tidak bagus, 
karena data yang diambil tidak berkaidah database.
Yang paling bagus kedepannya adalah data tersebut diubah sehingga 
berkaidah database sehingga mudah diolah menggunakan apapun (formula, 
pivot maupun PQ).

Data tersebut dapat diubah dengan judul kolom sebagai berikut:
Kode; Toko; Stok; DO; SISA; Supplier.
Jadi dari contoh data akan ada 9 record.
Perlu diingat bahwa data yang bagus adalah data yang mudah diolah dan 
mudah dibaca komputer. (tidak bagus untuk manusia).

BTW.
Data baru apabila dibaca dari data lama (baris,kolom) adalah:
1,1  1,2  1,3  1,4  2,1  2,2 2,3 2,4   3,1  3,2  3,3  3,4
1,5  1,6  1,7  1,8  2,5  2,6 2,7  2,8  3,5  3,6  3,7  3,8
1,9  1,10  1,11  1,12   2,9  2,10 2,11  2,12    3,9  3,10  3,11  3,12
Untuk mendapatkan nomor baris dengan aturan bahwa setiap 4 kolom selalu 
sama dan bertambah satu setelah kolo, berikutnya. 1,1,1,1,2,2,2,2,3,3,3,3.
Jika nomor kolom dari A1 (column(A1)) saya tambah 3 kemudian saya bagi 
empat akan diperoleh urutan tersebut.

(1 + 3)/4 = 1 diambil bulatnya saja INT((Column(A1)+3)/4) = 1
(2 + 3)/4 = 1,25 diambil bulatnya saja INT((Column(B1)+3)/4) = 1
(3 + 3)/4 = 1,5 diambil bulatnya saja INT((column(C1)+3)/4) = 1
(4 + 3)/4 = 1,76 diambil bulatnya saja INT((Column(D1)+3)/4) = 1
(5 + 3)/4 = 2 diambil bulatnya saja INT((Column(E1)+3)/4) = 2
(6 + 3)/4 = 2,25 diambil bulatnya saja INT((Column(F1)+3)/4) = 2

Sedangkan untuk mendapatkan nomor kolom perlu tenaga ekstra. Nomor 
kolomnya adalah 1,2,3,4,1,2,3,41,2,3,4
nomor ini sebenarnya mudah dicari dengan modulo, namun kalau hanya 
dengan modulo akan menghasilkan angka 1,2,3,0,1,2,3,0,1,2,3,0.  padahal 
pada baris kedua nomor kolom tersebut juga harus berubah menjadi 
5,6,7,8,5,6,7,8 dan baris ketiga menjadi 9,10,11,12.
Formula MOD(COLUMN(A1),4) jika dicopy ke segala arah akan menghasilkan 
angka 1,2,3,0,1,2,3,0,1,2,3,0. agar angka 0 dapat berubah menjadi angka 
4 perlu kita tambah 4 apabila angkanya 0   dengan formula 
+(MOD(COLUMN(A1),4)=0)*4 (jika hasilnya nol kalikan 4) maksudnya jika 
hasilnya tidak nol berarti false = 0 jika dikalikan 4 pun hasilnya nol, 
apabila hasilnya nol berarti true= 1 kali 4 = 4.
Jado formula MOD(COLUMN(A1),4)+(MOD(COLUMN(A1),4)=0)*4 menghasilkan 
barisan bilangan 1,2,3,4,1,2,3,4,1,2,3,4. jika formula ini saya kopi ke 
baris kedua hasilnyapun masih sama 1,2,3,4,1,2,3,4,1,2,3,4.
agar pada baris kedua berubah menjadi 5,6,7,8 dan 9,10,11,12 kita 
perlukan nomor baris (row(A1)).
Jika formula tersebut saya tambah dengan nomor baris saya kurangi 1 
kemudian saya kalikan 4.

artinya baris pertama (1 - 1)*4 = 0 =>  (ROW(A1)-1)*4 =0
baris kedua (2-1)*4= 4  => (ROW(A2)-1)*4 = 4
baris ketiga (3-1)*4 = 8  => (ROW(A3)-1)*4 =8
Jika ketiga formula digabung 
(ROW(A1)-1)*4+MOD(COLUMN(A1),4)+(MOD(COLUMN(A1),4)=0)*4 akan menghasikan 
barisan bilangan 1,2,3,4,1,2,3,4,1,2,3,4. di baris pertama dan akan 
berubah menjadi 5,6,7,8,5,6,7,8,5,6,7,8 dibaris kedua dan menjadi 
9,10,11,12, 9,10,11,12, 9,10,11,12 dibaris ketiga.
apa bila nomor baris dan nomor kolom tersebut digunakan pada formula 
Index, maka komplit sudah, hasilnya sesuai dengan permintaan.
Tentunya formula tersebut tidak disarankan untuk data yang banyak, 
karena akan rumit untuk menentukan nomor baris dan kolom.


Namun akangkah bagusnya apabila datanya saja yang diubah untuk 
mendapatkan data yang berkaidah database sehingga mudah untuk membuat 
formula Report maupun menggunakan Pivot.
On 10/11/2019 16:12, Kamirin Faqoth kamiri...@yahoo.co.id 
[belajar-excel] wrote:

Dear Pak Agus,


Maaf Pak, cara baca rumusnya seperti apa yaa? Saya masih belum 
mengerti soalnya, klo saya cuma copy pasti klo ada case2 sejenisnya, 
saya bakal nanya lagi, tapi saya ingin kedepannya klo menemukan case 
serupa, saya bisa melakukannya sendiri.


Terima Kasih


Pada Jumat, 11 Oktober 2019 09.54.30 WIB, Agus nanga...@gmail.com 
[belajar-excel]  menulis:



Dear Kamirin,
Coba di D10 diketik formula:
=INDEX($D$3:$O$5,INT((COLUMN(A1)+3)/4),(ROW(A1)-1)*4+MOD(COLUMN(A1),4)+(MOD(COLUMN(A1),4)=0)*4)
kopi ke semua cell,
Regard.
NangAgus

On 10/10/2019 17:08, Kamirin Faqoth kamiri...@yahoo.co.id 
<mailto:kamiri...@yahoo.co.id> [belajar-excel] wrote:

Dear Be-Exceler,

Mohon bantuannya, untuk memecahkan masalah dibawah ini, saya 
mempunyai tabel dalam bentuk kolom, tapi saya ingin merubahnya 
menjadi bentuk baris dengan kriteria unik, misalkan saya ingin 
mengambil data stok Apel Toko  A, B & C pada  cell D3. H3, L3, saya 
ingin memindahkannya ke cell D10, D11 & D12,
klo tokonya 3 mungkin bisa dengan rumus =d3 dst, tapi menjadi masalah 
jika tokonya banyak & varian buahnya banyak.


berikut saya lampirkan filenya.

Terim Kasih
kamirin









DataNe.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Mengambil Nilai Kolom Menjadi Baris dengan rumus otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Dear Kamirin,
Coba di D10 diketik formula:
=INDEX($D$3:$O$5,INT((COLUMN(A1)+3)/4),(ROW(A1)-1)*4+MOD(COLUMN(A1),4)+(MOD(COLUMN(A1),4)=0)*4)
kopi ke semua cell,
Regard.
NangAgus

On 10/10/2019 17:08, Kamirin Faqoth kamiri...@yahoo.co.id 
[belajar-excel] wrote:

Dear Be-Exceler,

Mohon bantuannya, untuk memecahkan masalah dibawah ini, saya mempunyai 
tabel dalam bentuk kolom, tapi saya ingin merubahnya menjadi bentuk 
baris dengan kriteria unik, misalkan saya ingin mengambil data stok 
Apel Toko  A, B & C pada  cell D3. H3, L3, saya ingin memindahkannya 
ke cell D10, D11 & D12,
klo tokonya 3 mungkin bisa dengan rumus =d3 dst, tapi menjadi masalah 
jika tokonya banyak & varian buahnya banyak.


berikut saya lampirkan filenya.

Terim Kasih
kamirin

Re: [belajar-excel] Rekapan Kode "Type" antar sheet

[Agus nanga...@gmail.com [belajar-excel]]

Tentu bisa untuk mengambil kode dengan formula.
kelompokan dahulu semua kode di salah satu sheet, kemudian remove duplicate,

On 10/9/2019 18:33, 7 hari menuju Perubahan nunuhassamaw...@gmail.com 
[belajar-excel] wrote:
berarti tuk pengisian kode tidak bisa otomatis y?maksud saya knp sy 
pengen otomatis karena tuk menghindari *_penulisan kode yg sam_a*, krn 
sebenarnya kode masih banyak dan ada yg sama. sehingga bila di*_filter 
dgn rumus_*. kecil kemungkinan penulisan kode yg sama, misal kode SD 
03A dengan SD 03A".


Pada tanggal Rab, 9 Okt 2019 pukul 17.27 Agus nanga...@gmail.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
menulis:


Dear Nunuh,
Assalamu'alaikum warahmatullah wabarakatuh.
Lengkapi dahulu kode pada sheet Zone C. menjadi semua kode yang
berada di semua Zona. (ada 21 kode, sedangkan pada sheet tersebut
hanya 15 kode) maksudnya kode yang digunakan untuk menghitung rekap.

wasalamu'alaikum warahmatullah.
NangAgus
On 10/9/2019 12:39, 7 hari menuju Perubahan
nunuhassamaw...@gmail.com 
[belajar-excel] wrote:

Mungkin pertanyaan sy yg blm jelas,
Sy coba perjelas lagi :
1. Kode/type tiap sheet memang berbeda, sehingga sy ingin
mejumlahkan antar jumlah pd tiap kode dengan otomatis, misal di
sheet zone a, b dan c terdapat kode yg sama SD 01A masing²
jumlahnya 3 berarti rekap di "Sheet Zone C" total SD 01A = 9
Bila di sheet Zone a,b terdapat kode SD 03" masing² 5, dan di
sheet Zone C kode
SD 015 = 6, maka hasil yg di inginkan :
SD 03" = 10
SD 015 = 6
Dan trs berlanjut

Mudah² ini bs membantu sy tuk mendapatkan jwban yg diinginkan

Atas perhatian dan pencerahannya sy haturkan terima kasih

On Tue, Oct 8, 2019, 17:42 iq_bal7...@yahoo.com
 [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> wrote:

Dear Nunuh,

Klo saya lihat di sheet B dan A, table nya belum di isi,
sehingga klo di counting jadinya “”.

Ini capture dari sheet B. highlight merah datanya belum
dimasukkan.

Thanks

Best Regards

Muhammad Iqbal

+62890909010/0811101854

*From:* belajar-ex...@yahoogroups..com

mailto:belajar-excel@yahoogroups.com>>
*Sent:* Monday, October 7, 2019 11:54 PM
*To:* belajar-excel@yahoogroups.com

*Subject:* Re: [belajar-excel] Rekapan Kode "Type" antar sheet

Wa 'alaikumsalam warahmatullah wabarakatuh.

Dear Nunuh.

Yang digunakan untuk menghitung kode yang ada di Zone C
yaaa..

setahu saya semua kode(Type) yang ada pada Zone A, Zone B dab
Zone C ada 21 kode.

Zona A terdapat 8 kode, Zone B terdapat 18 Kode dan zona C
terdapat 15 kode.

Jadi rumus anda tidak salah, yang salah kede-kode nya.

contoh Zone B dengan type SD 03'', SD03A, SD09, SD09B, SD15.
belum dijumlah karena kode tersebut tidak ada di Zone C.

Demikian pula kode SD 03, SD 08 pada Zona A tidak dijumlah,
karena kode tersebut tidak terdapat pada Zona C.

Perhatikan tabel di bawah ini:

No



Kode A



Kode B



Kode C

1



SD 01



SD 01



SD 01

2



SD 01A



SD 01A



SD 01A



SD 03





3







SD 03'

4





SD 03"



5





SD 03A



6





SD 03A''



SD 03A''

7



SD 04



SD 04



SD 04

8





SD 06



SD 06

9







SD 07

10



SD 08





11



SD 08A



SD 08A



SD 08A

12





SD 08B



SD 08B

13





SD 09



14





SD 09'



SD 09'

15





SD 09''



SD 09''

16





SD 0

Re: [belajar-excel] Rekapan Kode "Type" antar sheet

[Agus nanga...@gmail.com [belajar-excel]]

Dear Nunuh,
Assalamu'alaikum warahmatullah wabarakatuh.
Lengkapi dahulu kode pada sheet Zone C. menjadi semua kode yang berada 
di semua Zona. (ada 21 kode, sedangkan pada sheet tersebut hanya 15 
kode) maksudnya kode yang digunakan untuk menghitung rekap.


wasalamu'alaikum warahmatullah.
NangAgus
On 10/9/2019 12:39, 7 hari menuju Perubahan nunuhassamaw...@gmail.com 
[belajar-excel] wrote:

Mungkin pertanyaan sy yg blm jelas,
Sy coba perjelas lagi :
1. Kode/type tiap sheet memang berbeda, sehingga sy ingin mejumlahkan 
antar jumlah pd tiap kode dengan otomatis, misal di sheet zone a, b 
dan c terdapat kode yg sama SD 01A masing² jumlahnya 3 berarti rekap 
di "Sheet Zone C" total SD 01A = 9
Bila di sheet Zone a,b terdapat kode SD 03" masing² 5, dan di sheet 
Zone C kode

SD 015 = 6, maka hasil yg di inginkan :
SD 03" = 10
SD 015 = 6
Dan trs berlanjut

Mudah² ini bs membantu sy tuk mendapatkan jwban yg diinginkan

Atas perhatian dan pencerahannya sy haturkan terima kasih

On Tue, Oct 8, 2019, 17:42 iq_bal7...@yahoo.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Dear Nunuh,

Klo saya lihat di sheet B dan A, table nya belum di isi, sehingga
klo di counting jadinya “”.

Ini capture dari sheet B. highlight merah datanya belum dimasukkan.

Thanks

Best Regards

Muhammad Iqbal

+62890909010/0811101854

*From:* belajar-ex...@yahoogroups..com
mailto:belajar-excel@yahoogroups.com>>
*Sent:* Monday, October 7, 2019 11:54 PM
*To:* belajar-excel@yahoogroups.com

*Subject:* Re: [belajar-excel] Rekapan Kode "Type" antar sheet

Wa 'alaikumsalam warahmatullah wabarakatuh.

Dear Nunuh.

Yang digunakan untuk menghitung kode yang ada di Zone C yaaa..

setahu saya semua kode(Type) yang ada pada Zone A, Zone B dab Zone
C ada 21 kode.

Zona A terdapat 8 kode, Zone B terdapat 18 Kode dan zona C
terdapat 15 kode.

Jadi rumus anda tidak salah, yang salah kede-kode nya.

contoh Zone B dengan type SD 03'', SD03A, SD09, SD09B, SD15. belum
dijumlah karena kode tersebut tidak ada di Zone C.

Demikian pula kode SD 03, SD 08 pada Zona A tidak dijumlah, karena
kode tersebut tidak terdapat pada Zona C.

Perhatikan tabel di bawah ini:

No



Kode A



Kode B



Kode C

1



SD 01



SD 01



SD 01

2



SD 01A



SD 01A



SD 01A



SD 03





3







SD 03'

4





SD 03"



5





SD 03A



6





SD 03A''



SD 03A''

7



SD 04



SD 04



SD 04

8





SD 06



SD 06

9







SD 07

10



SD 08





11



SD 08A



SD 08A



SD 08A

12





SD 08B



SD 08B

13





SD 09



14





SD 09'



SD 09'

15





SD 09''



SD 09''

16





SD 09B



17



SD 11



SD 11



SD 11

18





SD 13



SD 13

19





SD 13A



SD 13A

20



SD 15



SD 15



21





SD 8C



SD 8C

Lengkapilah semua kode agar dapat dijumlah dengan benar..

Wasalamu'alaikum warahmatullah

NangAgus

On 10/5/2019 11:50, 7 hari menuju Perubahan
nunuhassamaw...@gmail.com 
[belajar-excel] wrote:

Assalamualaikum wr wb.

Para Suhu yg selalu diberkahi Allah SWT msh lanjutan Soal yg
kemarin, saya kesulitan tuk merekap kode-kode dari "Type"
antar sheet (file terlampir)

Sebelum dan sesudahnya saya haturkan terima kasih.

-- 


Regards,

Nunuh Sumanta
+628138324,

nunuhassamaw...@gmail.com 

Re: [belajar-excel] Rekapan Kode "Type" antar sheet

[Agus nanga...@gmail.com [belajar-excel]]

Wa 'alaikumsalam warahmatullah wabarakatuh.
Dear Nunuh.

Yang digunakan untuk menghitung kode yang ada di Zone C yaaa.
setahu saya semua kode(Type) yang ada pada Zone A, Zone B dab Zone C ada 
21 kode.

Zona A terdapat 8 kode, Zone B terdapat 18 Kode dan zona C terdapat 15 kode.
Jadi rumus anda tidak salah, yang salah kede-kode nya.
contoh Zone B dengan type SD 03'', SD03A, SD09, SD09B, SD15. belum 
dijumlah karena kode tersebut tidak ada di Zone C.
Demikian pula kode SD 03, SD 08 pada Zona A tidak dijumlah, karena kode 
tersebut tidak terdapat pada Zona C.

Perhatikan tabel di bawah ini:
No  Kode A  Kode B  Kode C
1   SD 01   SD 01   SD 01
2   SD 01A  SD 01A  SD 01A
SD 03   
3   SD 03'
4   SD 03" 
5   SD 03A  
6   SD 03A''SD 03A''
7   SD 04   SD 04   SD 04
8   SD 06   SD 06
9   SD 07
10  SD 08   
11  SD 08A  SD 08A  SD 08A
12  SD 08B  SD 08B
13  SD 09   
14  SD 09'  SD 09'
15  SD 09'' SD 09''
16  SD 09B  
17  SD 11   SD 11   SD 11
18  SD 13   SD 13
19  SD 13A  SD 13A
20  SD 15   SD 15   
21  SD 8C   SD 8C


Lengkapilah semua kode agar dapat dijumlah dengan benar.
Wasalamu'alaikum warahmatullah

NangAgus
On 10/5/2019 11:50, 7 hari menuju Perubahan nunuhassamaw...@gmail.com 
[belajar-excel] wrote:

Assalamualaikum wr wb.

Para Suhu yg selalu diberkahi Allah SWT msh lanjutan Soal yg kemarin, 
saya kesulitan tuk merekap kode-kode dari "Type" antar sheet (file 
terlampir)


Sebelum dan sesudahnya saya haturkan terima kasih.

--
Regards,


Nunuh Sumanta
+628138324,
nunuhassamaw...@gmail.com 

Re: [belajar-excel] Mohon pencerahannya kembali para suhu

[Agus nanga...@gmail.com [belajar-excel]]

Dear Nunuh,
Coba di C9, diganti formula lookup menjadi:
=VLOOKUP(B9,Index!$B$2:$C$42,2,0)

Kopi ke bawah.
Jangan lupa apabila regional settingnya bahasa Indonesia diubah , menjadi ;
Regard
Agus
On 10/4/2019 21:15, 7 hari menuju Perubahan nunuhassamaw...@gmail.com 
[belajar-excel] wrote:
Soal yg pertama sdh closed namun timbul masalah baru angka pd "qty 
total" yg merupakan "angka index produksi" tidak sama (file 
terlampir), mohon maaf para suhu mhn pencerahannya kembali.


Nunuh S

--
Regards,


Nunuh Sumanta
+628138324,
nunuhassamaw...@gmail.com 

Re: [belajar-excel] schematic line

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah,
Saya sebenarnya hari sabtu ingin ikut tapi keadaan lah yang tidak 
memungkinkan untuk ikut.

Mas Kid, bolehkah saya minta file yang dibagikan pada hari Sabtu kemarin?
Kalau saya ada waktu untuk membuka dan mempelajarinya.
Terima kasih
Wasalamu'alaikum warahmatullah wabarakatuh
Agus

On 9/30/2019 21:03, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

wa'alaikumussalam wr wb

sebenarnya, pemakaian Excel itu tidak pernah mengenal salah.
Yang ada hanyalah bermasalah.
Nah... masalah itu sangat relatif pada kondisi setiap data.
Artinya, tidak ada proses yang paling pas untuk sebuah data, hanya 
kebiasaannya (best practice-nya) seperti apa.
Dan semua kebiasaan itu pun suatu saat bisa jadi akan tidak sesuai, 
ditandai dengan munculnya masalah.

Tidak ada yang salah...

Misalnya formula. Banyak sekali varian formula yang bisa disusun dan 
mungkin untuk digunakan.
Tapi kalau berbicara tentang formula yang pas untuk sebuah data, maka 
artinya adalah memilih formula yang tidak menimbulkan masalah dalam 
jangka waktu yang cukup panjang.
Pada kasus ini, bisa jadi dari berbagai formula yang ada di milis, 
Anda rada-rada gak pas memilhnya.
Berarti tinggal kembali saja ke masa saat memilih formula dulu, lalu 
pilih varian formula lainnya. Karena formula pilihan Anda tempo dulu 
itu kurang pas untuk data Anda (walau bisa dipakai, tapi kurang pas).
Biasanya, setiap formula akan tampak jelas batasannya. Paling tidak, 
setiap pembuat formula akan punya perkiraan tentang dampaknya terhadap 
kerja Excel.


Best practice-nya membuat formula sudah tersebar dimana-mana, sebagai 
hal dasar bagi setiap Excel user dan yang paling pokok adalah :
1. Tidak menggunakan fungso-fungsi yang bersifat volatile pada area 
cells berformula yang sangat banyak
2. Merujuk ke area range yang terbatas, yaitu yang berisi data 
(biasanya dipesenin, jangan merujuk seluruh kolom ya, atau jangan 
merujuk ke seluruh baris ya.. begitu)

3. Hindari tersedianya baris berisi formula tapi tidak ada datanya
4. Usahakan selalu datanya rapat tanpa ada baris kosong atau kolom kosong
5. Tidak ada cells kosong dalam setiap baris data yang berarti sama 
dengan atasnya atau sama dengan data baris sebelumnya
6. Tidak ada kolom kosong dalam setiap baris data yang berarti sama 
dengan kirinya atau sama dengan data kolom sebelumnya

7. Hindari merge cells dalam tabel data yang dirujuk formula
8. Manfaatkan kolom bantu untuk menyimpan hasil formula yang akan 
digunakan banyak cells berformula lain berulang-ulang.
Tapi memang best practice seperti ini sering kurang diperhatikan. asal 
sudah dapat formula, terus langsung dipakai saja... gak perlu best 
practice-an segala, egp...

wkwkwk...

Kalau tentang susunan sumber data, asal sudah berkaidah tabel database 
sih sudah enak diolah. Tinggal memutuskan saja, seberapa penting 
hadirnya kolom berformula dalam sumber data.
Kalau tentang susunan output, itu sesuai kebutuhan beserta segala 
syarat batas dari kebutuhan tersebut.
Yang bermasalah itu kan biasanya muncul karena adanya batasan tentang 
cara menyusunnya, seperti harus demikian tanpa pakai tabel bantu atau 
harus dengan formula, dan sebagainya.
Jadi, kalau kasus disampaikan dimilis sudah dengan berbagai batasan, 
biasanya akan segera ketemu masalahnya, karena batasan yang diberikan 
sudah mengarahkan ke pemilihan solusi yang kurang pas. Faktor 
eksternal seperti rada-rada ogah keluar dari comfort zone karena harus 
belajar lagi apalagi hal baru itu diluar pembahasan ini... walau hal 
ini juga besar pengaruhnya.


Jadi, dicoba dulu 7 hal yang tadi sudah ada ya, nanti baru dilihat 
lagi, apakah masih ada potensi masalah kedepannya.
Artinya, ndak usah aneh-aneh beride 'bagaimana kalau pakai vba ? atau 
bagaimana kalau pakai power query ?' karena kasusnya kan bagaimana 
mengurangi masalah dari pilihan saat ini.
Kalau mau ide solusi lainnya, biasanya untuk saat ini, prioritas 
pertama adalah power query beserta atau tanpa power pivot, setelah itu 
formula, setelah itu vba.


Kayaknya BeExceller yang hari minggu lalu sudah mencoba berani iseng 
dengan power query dan power pivot merasakan sendiri tamparan si power 
query n power pivot

hahahahaha.

Re: [belajar-excel] Re: Mohon dibantu untuk FORM VOUCHER PETTY CASH.

[Agus nanga...@gmail.com [belajar-excel]]

Bukan.

Maksudnya database yang anda buat belum tabel yang berkaidah database.
untuk memudahkan seluruh proses yang anda minta, terlebih dahulu tabel 
database yang anda buat perlu diubah dahulu menjadi tabel yang berkaidah 
database.

Menurut petunjuk mas Kid, tabel yang bagus memenuhi:

Tabel memiliki kaidah database dengan ciri khas sebagai berikut : 
(perhatikan tabel TRN)


 * Header
 o diletakkan pada baris 1 dan hanya terdiri dari 1 baris saja
 o setiap kolom Excel berisi sebuah header, jadi kolom A milik
   id_produk dan id_produk pasti hanya di kolom A Excel, begitu
   juga dengan kolom lainnya
 o ditata rapat (dari kiri ke kanan mulai A1), sehingga tidak ada
   kolom kosong tanpa teks header
 o setiap cell header berisi data tertentu dan tidak ada dua atau
   lebih kolom berisi suatu data tanpa header
 o tidak ada header yang di-merge cell, baik merge cell baris
   maupun merge cell kolom
 o setiap header menjadi nama setiap kolom data
 * Kolom
 o setiap kolom data memiliki nama kolom
 o setiap kolom berisi data dengan tipe data yang sama
 o tidak ada pengaturan alignment pada kolom, agar tampak jelas
   kesamaan tipe data dalam kolom tersebut
 * Records
 o record pertama diletakkan tepat pada baris 2
 o tidak ada baris kosong diantara dua record, jadi minimal ada
   satu field dalam record yang memiliki nilai
 o semua field terisi penuh jika seharusnya memiliki suatu nilai
   tertentu, meskipun nilainya sama dengan record sebelumnya (lihat
   id_produk bernilai 1 tertulis disemua record dan tidak hanya di
   record pertama saja)


Tabel-tabel di atas sering disebut sebagai raw data. Susunan tabel yang 
sederhana seperti di atas akan sangat fleksible dalam menerima 
perkembangan kebutuhan output. Hal ini akan dapat dilihat pada 
coretan-coretan pivot table selanjutnya, sehingga dapat dirasakan dan 
dicoba sendiri betapa susunan sederhana yang tidak indah seperti tabel 
di atas jauh lebih indah diolah daripada tabel-tabel yang disusun dan 
disimpan dengan format selera mata manusia.


Silahkan tabel anda diubah dahulu sesuai petunjuk di atas.
Salam
NangAgus
On 9/20/2019 09:25, y.ron...@yahoo.com [belajar-excel] wrote:


Dear Kang Agus,



Maksudnya meggunakan PIVOT TABLE.
Mohon dibantu. Terimakasih



Regards,
Roni

Re: [belajar-excel] Menghapus Row di bawah dan Row setiap Judul

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah wabarakatuh,
Mas Kid,
apa gunanya langkah no. 3?
bagaimana jika langsung ke langkah 4 tanpa melalui langkah 3?
wasalamu'alaikum warahmatullah.
KenangAgus


On 9/20/2019 05:31, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Begini :
1. hide seluruh baris sebelum record pertama, misal baris 1 sampai 14
2. blok sebuah kolom yang pasti berisi nilai, misal kolom Y (klik nama 
kolom Excel-nya, bukan nama kolom datanya)
3. Goto special visible only OK (ctrl G klik special pilih visible 
only tekan ok)

4. Goto special blank
5. klik kanan sebuah cells yang tampak terblok -> pilih delete -> 
pilih entire row

6. unhide semua baris excel

Regards,
Kid





On Thu, Sep 19, 2019 at 5:06 PM dicky zulkifli 
dicky.zulki...@yahoo.co.id  
[belajar-excel] > wrote:


Salam
Rekan rekan Be-Excel,

Saya ada data hasil convert dari system ke Excel,

Mohon arahan dan petunjuknya agar bisa menghapus setiap Row
dibawah Row yang ada data Nilainya Dan Judul pada setiap
halamannya yang terdiri dari beberapa Row (Blok merah pd lampiran
Sheet Data Awal),

Hal ini berulang sampai Row terakhir pada sheet tersebut (bisa
seribuan Row).


Hasil yang diinginkan adalah yang terlampir pada Sheet Data Hasil.
yaitu pada kolom Nilai dan No.Pol Rownya jadi rapat dan berurut.

Terimakasih sebelumnya atas petunjuk dan arahannya.

Regards,
Dicky

Re: [belajar-excel] Mohon dibantu untuk FORM VOUCHER PETTY CASH.

[Agus nanga...@gmail.com [belajar-excel]]

Dear Roni
Database yang anda buat sangat bagus dan enak dipandang. namun data 
tersebut hanya bagus untuk manusia tetapi tidak bagus untuk komputer.
Yang bagus untuk manusia sebaiknya bukan database tetapi report harus 
bagus untuk konsumsi manusia.
Database dibuat untuk pengolahan data komputer, database harus bagus 
untuk komputer. tidak bagus untuk manusia tidak apa-apa karena manusia 
tidak harus membaca database. cukup membaca report atau input saja.
agar diperoleh database yang bagus untuk komputer, silahkan dibaca 
petunjuk Mas Kid di sini 


Regard
NangAgus

On 9/18/2019 12:37, y.ron...@yahoo.com [belajar-excel] wrote:


Dear All,


Mohon dibantu untuk FORM VOUCHER PETTY CASH.

untuk pertanyaan:

1. MEMBUAT NOMOR OTOMATIS PADA KOLOM B3 (SHEET VOUCHER)

2. SAAT KLIK INPUT (WARNA HIJAU) maka hasilnya seperti di SHEET DATABASE

3. SAAT KLIK EDIT (SHEET VOUCHER) maka hasil akan berubah di SHEET 
DATABASE


4. SAAT KLIK SCROLL BAR (WARNA PINK) maka file akan kembali dari sheet 
DATABASE akan muncul di sheet VOUCHER



Terimakasih



Regards,

Roni

Re: [belajar-excel] Re: Mohon dibantu untuk Ketika Tombol EDIT di klik Maka sheet SLIP pada No 1 dan 15 akan teredit dan hasilnya akan muncul di Sheet DATABASE

[Agus nanga...@gmail.com [belajar-excel]]

Dear Roni,

, Jumlahnya hilang ya itu karena perintahnya dari satu sampai 7 
sedangkan datanya ada dua.


Coba diganti dengan cekrip berikut ini:

Sebelumnya hapus dahulu angka 1 pada sheet slip cell A13. (kolom A harus 
kosong, hanya terisi sampai nomor terakhir baris data.)


Dim a As Integer   'perintah MasKid biasanya as 
Double    '

Dim b As Double
Dim c As Integer    'perintah MasKid biasanya as Double
c = Sheets("SLIP").Range("A104").End(xlUp).Row - 1 'menghitung 
banyaknya baris yang terisi di sheet SLIP kolom A, Pastikan kolom A 
hanya berisi data saja sampai baris terakhir dan no database tidak keliru.

For a = 1 To c  'perintah untuk mengulang sebanyak baris yang ada di tabel
b = Sheets("SLIP").Range("A" & a + 1) + 1   ' mencari nomor baris 
'mencari nomor baris darabase ( diambil dari no pada kilam A SLIP)
Sheets("DATABASE").Range("D" & b) = Sheets("SLIP").Range("D" & a + 1)   
'Mengisi kolom D pada databese dengan kolom D pada slip, Jika 
menginginkan kolom yang lain, berarti perintah ini yang perlu ditambahkan.

Next a  ' kembali ke for sampai semua baris dikerjakan

Regard

Agus


On 9/17/2019 10:05, y.ron...@yahoo.com [belajar-excel] wrote:


Dear Nang Agus,


Kenapa di sheet DATABASE pada kolom D1 hilang tulisan JUMLAH?
Mohon dibantu. Terimakasih



Regards,
Roni

Re: [belajar-excel] Mohon dibantu untuk Ketika Tombol EDIT di klik Maka sheet SLIP pada No 1 dan 15 akan teredit dan hasilnya akan muncul di Sheet DATABASE

[Agus nanga...@gmail.com [belajar-excel]]

Dear Roni.
KLik kanan pada tombol Edit. (ingat harus pada designMode), pilih View Code
Ketik cekript:

Dim a As Integer
Dim b As Double
For a = 1 To 7
b = Sheets("SLIP").Range("A" & a + 1) + 1
Sheets("DATABASE").Range("D" & b) = Sheets("SLIP").Range("D" & a + 1)
Next a

Regard
Nang Agus

On 9/16/2019 13:14, y.ron...@yahoo.com [belajar-excel] wrote:


Dear All,


Mohon dibantu untuk Ketika Tombol EDIT di klik Maka sheet SLIP pada No 
1 dan 15 akan teredit dan hasilnya akan muncul di Sheet DATABASE. 
Terimakasih


Terlampir Filenya



Regards,

Roni

Re: [belajar-excel] Mencari Nilai dengan 3 Kriteria

[Agus nanga...@gmail.com [belajar-excel]]

Dear Kamarin,
Coba baca kembali Helepnya Index.

*INDEX*(*array*,row_num,column_num)

*INDEX*(*reference*,row_num,column_num,area_num)

Formula anda dapat diperbaiki dengan dua cara sesuai sintaknya index:
1. Cara pertama menggunakan sintak pertama. (membutuhkan baris bantuan)
-> pada sheet Detail di cell C4 ketik formula =c5&c6
  kopi formulanya ke kanan sampai DL4. Baris ini digunakan untuk 
membuat judul semua kolom berbeda.
-> pada sheet Rekap cell C4 masukkan formula: 
=IFERROR(INDEX(Detail!$C$8:$DL$36,MATCH($A4,Detail!$A$8:$A$36,0),MATCH(C$2&C$3,Detail!$C$4:$DL$4,0)),"")


2. Cara kedua menggunakan sintak yang kedua.
->  sintak secara lengkap adalah: 
=Index((ref1,ref2,ref3,ref4,...dst...),nomor baris, nomor kolom, nomor 
referensi)

-> contoh untuk kasus anda formula untuk nomor 201 sampai 203:
=IFERROR(INDEX((Detail!$C$8:$J$36,Detail!$K$8:$R$36,Detail!$S$8:$Z$36),MATCH($A4,Detail!$A$8:$A$36,0),MATCH(C$3,Detail!$C$6:$DL$6,0),MATCH(C$2,{*201,202,203*},0)),"")
->  ingat formula tersebut hanya untuk nomor 201, 202 dan 203. referensi 
201 berwarna merah, referensi no 202 berwarna hijau dan referensi 203 
berwarna biru.
-> agar formula tersebut berfungsi sampai nomor 216 berarti referensinya 
perlu ditambah sampai 216 dan nomor referensinya (pada formula saya buat 
Bold) perlu ditambah semuanya sampai 216.


Pilih yang mana? kalau saya pilih no 1 karena pekerjaannya lebih ringan.
silahkan mencoba.

Regard
Agus

On 9/14/2019 14:14, Kamirin Faqoth kamiri...@yahoo.co.id [belajar-excel] 
wrote:

Dear Member Be-Excel,

Mohon solusinya, saya sedang mencari suatu nilai dengan 3 kriteria dan 
memakai fungsi Index-Match, tapi kenapa ya, pada sheet rekap, ketika 
sy menggunakan salah satu kriteria dengan angka 201, hasilnya berjalan 
sesuai harapan, tapi ketika angkanya diganti dengan 202, 203 dst koq 
hasilnya blank yaa.



Terima kasih sebelumnya atas support para suhu & member B-Excel.


Salam,
kamirin

Re: Bls: Re: [belajar-excel] tampilkan data pada listbox worksheet excel

[Agus nanga...@gmail.com [belajar-excel]]

Maaf mas Kid menyingkat threat,
Dear Hairul,
Urutkan Abjad. Input, Output baru Proses.
milik anda terbalik. I, P, O
Regard

On 9/5/2019 20:40, HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel] wrote:

Salam Mr.Kid

Maaf Saya nda paham

hmmm
mungkin perlu mengenal fungsi lookup atau vlookup lebih detil lagi. 
Termasuk fungsi match.


Untuk search dengan approximate match membutuhkan data yang terurut.

Terimakasih
Assalamualaikum
Hairul Alam
Pada Kamis, 5 September 2019 01.01.58 WIB, 'Mr. Kid' 
mr.nm...@gmail.com [belajar-excel]  
menulis:



wa'laikumussalam wr wb

hmmm
mungkin perlu mengenal fungsi lookup atau vlookup lebih detil lagi. 
Termasuk fungsi match.


Untuk search dengan approximate match membutuhkan data yang terurut.

wassalamu'alaikum wr wb
Kid







On Wed, Sep 4, 2019 at 10:16 PM HAIRUL ALAM ha_m...@yahoo.co.id 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Salam Mr. Kid

Maaf jika saya mengganggu

kenapa di validasi yang saya rubah dikit datanya, jika dipilih
output hasilnya samadengan input, apa yang salah dari data yang
saya masukkan

Maaf & Terimakasih Banyak

Assalamualaikum
Hairul Alam

Pada Rabu, 4 September 2019 14.20.48 WIB, HAIRUL ALAM
ha_m...@yahoo.co.id  [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> menulis:


Salam Mr.Kid

Terimakasih Banyak
Sudah bisa, Maaf saya kurang menyimak

Assalamualaikum
Hairul Alam

Dikirim dari Yahoo Mail di Android



Pada Rab, 4 Sep 2019 pada 13:53, HAIRUL ALAM
ha_m...@yahoo.co.id  [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> menulis:
Salam Mr.Kid

Terimakasih, saya sudah paham passwordnya, cuma yang belum
paham bagaimana menggunakan validasi agar bisa lookup dengan
Box list seperti yang di lampirkan oleh Mr.Kid, Maaf

Terimakasih Banyak
Hairul Alam

Pada Rabu, 4 September 2019 12.50.38 GMT+7, 'Mr... Kid'
mr.nm...@gmail.com  [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> menulis:


Wa'alaikumussalam wr wb

hehehe...
semua password (andai part di dalam file atau si file itu
sendiri diproteksi) sudah disediakan kok. Kalau gak ada di
dalam file, berarti ada di dalam imil.
sekali-kali main tebak-tebakan mencari password ya...
BeExceller siapa saja bisa membantu kok...
tujuan proteksi sekadar untuk wacana saja, kalau pengennya
diimplementasi pakai proteksi, bisa seperti itu.
Jadi proteksi itu bukan untuk menjaga atau melindungi ilmu
supaya sulit dipelajari loh ya...

Wa'alaikumussalam wr wb
Kid
#gakasikkalopakevba










On Wed, Sep 4, 2019 at 10:56 AM HAIRUL ALAM
ha_m...@yahoo.co.id 
[belajar-excel] mailto:belajar-excel@yahoogroups.com>> wrote:

Assalamualaikum Mr,Kid

Terimakasih filenya, Maaf tapi password filenya nda bisa
saya buka itu gunakan menu apa ya Master

Maaf, Terimakasih

Wassalamualaikum
Hairul Alam

Pada Rabu, 4 September 2019 00.06.12 WIB, 'Mr. Kid'
mr.nm...@gmail..com [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> menulis:


File terlampir

Regards,
Kid
#gakasikkalopakevba


On Sun, Sep 1, 2019 at 3:32 PM HAIRUL ALAM
ha_m...@yahoo.co.id 
[belajar-excel] mailto:belajar-excel@yahoogroups.com>> wrote:

Salam
Rekan Rekan BeExcel

Selamat Malam

Semoga selalu dalam keadaan sehat

saya ingin menampilkan data pada listbox di worksheet
excel dengan macro

bila saya menggunakan code macro :

Private Sub TextBox1_Change()

Range("B7").Value = TextBox1.Value

End Sub


bila saya isi data di B7 dengan kata "SEQUENCE" maka
di listbox akan tetap muncul "SEQUENCE"
bagaimana code macronya bila pada B7 saya ketikkan
"SEQUENCE" maka di listbox akan muncul :

1. Tender
2. Vendor
3. Construction
4. Pre-Commissioning
5. Mechanical Completion
6. Handover

seperti data terlampir

Terimakasih

Assalamualaikum
Hairul Alam

Re: [belajar-excel] Penjumlahan dgn kriteria dan mapping image otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Coba Jawab yaa...
Mungkin tidak sesuai, karena hasil formulanya tidak sama dengan hasil 
manualnya.

Saya tidak tahu mana yang benar (seharusnya formula yang benar)
coba di Cell G52 diketik formula:
=SUMPRODUCT(($F$6:$F$45)*($E$6:$E$45=$E52))+SUMPRODUCT((Zone.B!$D$6:$D$45)*(Zone.B!$C$6:$C$45=$E52))+SUMPRODUCT((Zone.A!$F$6:$F$45)*(Zone.A!$E$6:$E$45=$E52))

dan di Cell H52 diketik formula:
=SUMPRODUCT(($Q$6:$Q$45)*($E$6:$E$45=$E52))+SUMPRODUCT((Zone.B!$O$6:$O$45)*(Zone.B!$C$6:$C$45=$E52))+SUMPRODUCT((Zone.A!$Q$6:$Q$45)*(Zone.A!$E$6:$E$45=$E52))

Srdangkan untuk yang Mapping dapat dibuatkan dahulu tabel komplitnya 
(setiap satu cell mewakili satu tempat). Kemudian dibuatkan sebuah 
Object (misalnya textbox) di setiap petanya (gambar) yang masing-masing 
object tersebut berhubungan dengan Cell dimaksud.
Misal: jika cell E11 berisi angka 1 maka di gambar (textbox tertentu 
yang sudah dikaitkan dengan E11) akan berisi angka 1 yang berwarna merah 
yang akan menutupi gambar dimaksud.


Selamat mencoba.
Regard
NangAgus

On 8/29/2019 17:44, 7 hari menuju Perubahan nunuhassamaw...@gmail.com 
[belajar-excel] wrote:

Mohon maaf sblm suhu sdh merepotkan, baik sy resend tuk file case nya

Salam,
Nunuh S

On Wed, Aug 28, 2019, 23:11 Agus nanga...@gmail.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Wasalamu'alaikum warahmatullahi wabarakatuh
Dear Nunuh,
Mohon maaf saya pusing ..  ...
Pertanyaan yang diajukan tidak sesuai datanya?

kolom ini pengen otomatis jumlah dari syarat "penjumlahan"
berdasarkan kriteria "Type" dan "Qty" dari sheet A,B dan C.

Misalnya SD 01 QTY = 9 sedangkan di sheet "Zone.C" hanya =1.
datanya memang hanya 1 Sheet?


soal kedua datanya dimana?
Salam
KenangAgus

On 8/28/2019 13:09, 7 hari menuju Perubahan
nunuhassamaw...@gmail.com 
[belajar-excel] wrote:

Assalamualaikum wr wb
Salam Para Master Be-Excel yg sllu mendapatkan kebahagian dari
Allah SWT

Mohon bantuannya semoga para Subu berkenan, file case sy
lampirkan, Semoga setiap jawaban dari Para Suhu menjadi catatan
amal yg baik dan bermanfaat bagi orang banyak, Aamiin yra

Salam Be-Excel
Nunuh S

Re: [belajar-excel] Rencana kopdar

[Agus nanga...@gmail.com [belajar-excel]]

*No.   Nama                          Pilihan Topik                    
   Hari (Sabtu/Minggu)    Tempat*
1.     Hairul Alam                   Database Excel                    
 . Kalibata Utara II No22
2..     Muhammad Iqbal      Macro, Power Query           Sabtu        
                     Dekat Superindo Mampang
3.     Hendrik Karnadi            Power Query, Power Pivot  
Sabtu (*Kapasitas +- 20 orang*)

4.     Netty Wuryanti Power Query, Power Pivot      .
5.     Eira I Arie     Power Query, Power Pivot  
..

6.     Adi irawan        Power Query, Power Pivot  Minggu
7.     Afdhol Marthoni Power Query, Power Pivot ...
8. Kiki Tanjung Power Query, Power Pivot     ...
9. Pamor Ron Nessen Power Query, Power Pivot     ..
10. Halkit S Power Query, Power Pivot    Sabtu
11. NangAgus        LockExcel Pivot Libur Panjang
12,
dst,nya



Karena saya orang Udik, masih nunggu kepastian tanggalnya. bisa sampai 
Jakarta atau tidak tanggal tersebut.

Re: [belajar-excel] Penjumlahan dgn kriteria dan mapping image otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Wasalamu'alaikum warahmatullahi wabarakatuh
Dear Nunuh,
Mohon maaf saya pusing .  ...
Pertanyaan yang diajukan tidak sesuai datanya?

kolom ini pengen otomatis jumlah dari syarat "penjumlahan" berdasarkan 
kriteria "Type" dan "Qty" dari sheet A,B dan C.


Misalnya SD 01 QTY = 9 sedangkan di sheet "Zone.C" hanya =1.
datanya memang hanya 1 Sheet?


soal kedua datanya dimana?
Salam
KenangAgus

On 8/28/2019 13:09, 7 hari menuju Perubahan nunuhassamaw...@gmail.com 
[belajar-excel] wrote:

Assalamualaikum wr wb
Salam Para Master Be-Excel yg sllu mendapatkan kebahagian dari Allah SWT

Mohon bantuannya semoga para Subu berkenan, file case sy lampirkan, 
Semoga setiap jawaban dari Para Suhu menjadi catatan amal yg baik dan 
bermanfaat bagi orang banyak,  Aamiin yra


Salam Be-Excel
Nunuh S

Re: [belajar-excel] Merubah Array formula

[Agus nanga...@gmail.com [belajar-excel]]

Bisa pakai kolom bantu

On 8/28/2019 10:49, jackie yunianto tanfidzula...@yahoo.co.id 
[belajar-excel] wrote:


Dear all mohon dibantu,


Berikut adalah sample file untuk extract number, yg saya temukan di 
internet.


Formula nya merupakan array formula.
Untuk case per case (hanya) 1 atau 2 row saja mungkin tidak 
membutuhkan banyak effort.

Tetapi jika row nya ribuan effort nya sama saja dengan mensortir manual.

Apakah dimungkinkan jika array formula berikut di rubah ke formula 
biasa sehingga tidak perlu pencet ctrl + shift + enter agar formulanya 
berjalan?


Thx

Best regards
-Jacke-






Sent from Yahoo Mail on Android 

Re: [belajar-excel] Delete row lebih dari satu kriteria

[Agus nanga...@gmail.com [belajar-excel]]

Dear Saputro,
kalau banyak kriteria dapat menggunakan dan, atau
kriteria 1 dan kerteria 2
kreteria 1 atau kriteria 2

If kriteria 1 and kriteria 2 Then
If kriteria 1 or kriteria 2 Then

Kira-kira begitulah 
Regard
NangAgus
On 8/21/2019 11:30, Stephen Saputro stephensapu...@gmail.com 
[belajar-excel] wrote:

Dear Rekan-rekan semuanya,

Mohon kiranya dapat di bantu kasus saya. scrpt di bawah saya buat 
untuk menghapus row dengan 1 kriteria yang di input di sheet2 A1. 
Pertanyaan saya, bagaimana script untuk menghapus row dengan banyak 
kriteria ? kriteria2 tersebut saya rencananya taruh di sheet2 A1-A30.

---
Private Sub CommandButton1_Click()
Dim lastrow

lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row

For i = lastrow To 2 Step -1

    If ThisWorkbook.Sheets(1).Cells(i, 1) = Sheets(2).Cells(1, 
1).Value Then

        ThisWorkbook.Sheets(1).Rows(i).EntireRow.Delete
    End If

Next i
End Sub

---

Terima kasih

Re: [belajar-excel] Menandai Lunas Bayar dan Kurang Bayar

[Agus nanga...@gmail.com [belajar-excel]]

Dear Abdul,
coba di G20 formulanya ditambahkan menjadi:
=IF(A20=A19,G19,IF(D20="","Belum Ditagih",IF(E20=0,"Belum 
bayar",IF(F20=0,"Lunas",IF(E20>D20,"Lebih Bayar","Kurang Bayar")

dengan asumsi kolom A tidak ada nomor yang meloncat-loncat.
Regard
NangAgus

On 8/8/2019 16:12, Abdoel Khobir glend...@gmail.com [belajar-excel] wrote:

sekali lagi terima kasih atas bantuaanya...
Mohon dibantu untuk kasus berikut pengembangan dari contoh kasus 
sebelumnya...

seperti terlampir dibawah ini

Salam Hormat


Abdul Khobir



On Wed, Aug 7, 2019 at 5:42 PM iq_bal7...@yahoo.com 
 [belajar-excel] 
> wrote:


Mungkin cara sederhana ini bisa dipakai

Thanks

Best Regards

Muhammad Iqbal

+62890909010/0811101854

*From:* belajar-excel@yahoogroups.com

mailto:belajar-excel@yahoogroups.com>>
*Sent:* Tuesday, August 6, 2019 4:04 PM
*To:* belajar-excel@yahoogroups.com

*Subject:* [belajar-excel] Menandai Lunas Bayar dan Kurang Bayar


 Assalaamu'alaikum Wr.Wb

Dear Master Excel dan member milis

Mohon dibantu Permasalahan formula excel yang saya alami

mengenai formula seperti terlampir

Atas bantuannya kami ucapkan banyak Terima kasih

Wassalaamu'alaikum Wr.Wb

Re: [belajar-excel] combobox input data

[Agus nanga...@gmail.com [belajar-excel]]

Wa'alakumusalam waarahmatullah.
Dear Hairul,
coba di sheet4(MAIN) diketik cekript berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
    If Range("B3") = "PANJANG" Then Panjang
    If Range("B3") = "JUMLAH" Then IsiRumus
    End If
End Sub

Wasalamu'alaikum warahmatullah.
Regard
NangAgus
On 8/7/2019 17:39, HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel] wrote:

Salam para Master

data combobox terlampir, seperti apa code macro bila sheets MAIN cell 
B3 dipilih JUMLAH Maka akan menghitung data pada sheet OUTPUT dan jika 
combobox sheets MAIN cell B3 dipilih PANJANG maka akan menghitung data 
pada sheet OUTPUTlength


Assalamualaikum
Hairul Alam

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

[Agus nanga...@gmail.com [belajar-excel]]

Dear Andree,
Sebenarnya saya mau ikut nyoba cekriptnya, namun karena macro dan 
filenya terprotect jadinya tidak bisa ;-)

Coba dicheck lagi email dari Mas Kid!
    kalau bunyi formula ini dipasang dengan VBA, maka sebuah karakter " 
(1 bijik karakter petik dua) harus diubah menjadi "" (2 bijik karakter 
petik dua) :
             cells_target.formula= *"**=text(alamat_cells,"";; 
"")**"*

*
*
coba perhatikan cekrip ketikan anda:
TEXT(F1,"",, "")"

sudah tahu kesalahan anda?
Regard.
NangAgus




Posted by: Andre Rahmaidy 

Reply via web post 
 
	• 	Reply to sender 
 
	• 	Reply to group 
 
	• 	Start a New Topic 
 
	• 	Messages in this topic 
 
(8)



Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic

bergabung ke milis (subscribe), kirim mail kosong ke: 
belajar-excel-subscr...@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-ow...@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : 
belajar-excel-unsubscr...@yahoogroups.com

-
Visit Your Group 
 



Yahoo! Groups 
 

• Privacy 
 • 
Unsubscribe 
 
• Terms of Use 


SPONSORED LINKS
.

Re: [belajar-excel] MENONAKTIFKAN FUNGSI CUT (CTRL+X)

[Agus nanga...@gmail.com [belajar-excel]]

Dear It Dpm,
Tidak bisa!
selama macro dinonaktifkan.
Jika macro aktif dapat digunakan cekrip:

Option Explicit
Private Sub Workbook_Activate()
Application.OnKey "^{x}", ""
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "^{x}"
End Sub

Private Sub Workbook_Open()
Application.OnKey "^{x}", ""
End Sub

Regard
NangAgus

On 7/15/2019 11:19, It Dpm it_...@yahoo.com [belajar-excel] wrote:

Dear para master Excel...

mohon bantuan bagaimana caranya menonaktifkan fungsi CUT (Ctrl+X) 
hanya pada file excel tertentu, tetapi untuk Copy masih diperbolehkan.



terima kasih.






Turn Off Ctrl X.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: [belajar-excel] PivotTable yang bisa dihapus

[Agus nanga...@gmail.com [belajar-excel]]

Dear pak Hendrik,
Bukanya pakai Excel tahun berapa ya?
Kelihatannya terakhir dibuka menggunakan Excel 2013 ke atas yang sudah 
ada fasilitas untuk slicer multi  select. (terakhir dibuka slicer 
dipilih untuk bulan November dan Desember)
Jika dibuka pakai office dibawahnya akan ada error karena tidak ada 
fasilitas tersebut. apalagi dibuka pakai excel 2007 seolah-olah tidak 
ada pivotnya (semua dapat dihapus).

Jika dibuka pakai office 2010 slicernya tidak dapat multi select.
Coba saja untuk dibuka pakai excel 2016 pasti berjalan dengan normal.
Salam
NangAgus


On 7/3/2019 21:47, hendrik karnadi hendrikkarn...@yahoo.com 
[belajar-excel] wrote:

Selamat malam teman2 Be-Excel.
Untuk mengisi waktu luang, saya mencoba membuka Pivot Table lama 
mengenai Trial Balance (Neraca Saldo) Blnan dan Ytd yang mengacu 
kepada file Jurnal(1)...(files terlampir).


Satu keanehan terjadi, /ada sel2 di dalam PivotTable yang bisa 
didelete/beberapa yang saya tes sudah saya beri warna kuning.


/Pertanyaan saya :/
/Kenapa hal itu bisa terjadi dan bagaimana mengatasinya ?/

Terima kasih atas kesediaan teman2 untuk meluangkan waktu memberikan 
jawabannya.


Salam,
HK

Re: [belajar-excel] copy sheet

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah,
Terima kasih Mas Kid, atas penjelasannya.
Sudah berhasil saya coba menggunakan context menu:


sebelumnya saya mengubah menggunakan Commands, ternyata tidak bisa 
membuat yang baru.
Hanya saja ini tidak dapat digunakan di excel 2007, adakah cara lain 
untuk menambahkan context menu di excel 2007?


Wasalamu'alaikum warahmatullah
Regard
NangAgus

On 6/28/2019 10:21, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:


Tentang :

Seandainya dibuatkan macro, bisa apa tidak yaa code untuk klik
kanan dibuat sendiri? 

> hmmm dengan CustomUI terhadap context menu tab sheet, bisa 
dilakukan...
> ribetnya, termasuk mengatur supaya hanya sheet tersebut saja yang 
akan mengerjakan prosedur VBA copy sheet values, sedang sheet lain 
tetap pakai defaultnya, akan ada keribetannya tersendiri.
> secara umum, dimungkinkan... yaitu customui bagian context menu tab 
sheet.


Regards,
Kid

 
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic

bergabung ke milis (subscribe), kirim mail kosong ke: 
belajar-excel-subscr...@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-ow...@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : 
belajar-excel-unsubscr...@yahoogroups.com

-
Visit Your Group 
 



Yahoo! Groups 
 

• Privacy 
 • 
Unsubscribe 
 
• Terms of Use 


SPONSORED LINKS
.

Re: [belajar-excel] copy sheet [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah wabarakatuh
Terima kasih mas Kid,
Kesimpulannya tidak bisa diatur agar klik kanan sheet, move or copy 
hasilnya values.
Seandainya dibuatkan macro, bisa apa tidak yaa code untuk klik kanan 
dibuat sendiri?


Ilustrasi:
Sebuah icon pada sebuah group dapat kita nonaktifkan dengan customUI, 
kemudian icon tersebut kita ganti dengan icon yang baru namun gambarnya 
persis sama dengan icon yang lama.

icon yang baru kita jalankan dengan macro.
sebagai pengguna awam, saya menganggap tidak ada perubahan apapun pada 
tab, walaupun sebenarnya ada icon dengan perintah baru.


Mas Kid, dapat atau tidak klik kanan pada sheet diubah seperti ilustrasi 
di atas?


Terima kasih.
Regard
Wasalamu'alaikum warahmatullah wabarakatuh

NangAgus

On 6/26/2019 23:54, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Wa'alaikumussalam wr wb

mas Nang,

melalui proses tersebut tidak dimungkinkan..
begini :
imgVBAcopysht.gifDari gambar di atas :
1. Proses copy sheet di workbook yang sama dengan context menu milik 
tab sheet
    yaitu proses klik kanan tab sheet -> move or copy -> ke workbook 
yang sama sebelum sheet tertentu -> centang create a copy -> OK
    > hasilnya seperti gambar pojok kiri atas file myData.xlsx window 1 (yaitu di sheet DATA)]> ke gambar pojok kiri 
bawah (myData.xlsx:2)
    > sheet akan di-copy secara utuh (formula, format [termasuk 
conditional formatting], dsb)
    > memanfaatkan VBA, bisa dengan kode berbunyi seperti ini : 
(sesuaikan object dengan keadaan setempat)

           Sheet1.Copy after:=Sheets(Sheets.Count)
    > jadi, ketika ingin hasilnya values tapi tetap menjaga semua 
format, maka hasil copy sheet tersebut yang di-values dengan kode :

           Sheets(Sheets.Count).usedrange.copy
 Sheets(Sheets.Count).usedrange.pastespecial xlpastevalues

2. Proses copy sheet ke workbook baru dengan context menu milik tab sheet
    yaitu proses klik kanan tab sheet -> move or copy -> pilih (new 
book) -> centang create a copy -> OK
    > hasilnya seperti gambar pojok kiri atas file myData.xlsx window 1 (yaitu di sheet DATA)]> ke gambar atas kedua 
dari kiri (book2)
    > sheet akan di-copy secara utuh (formula, format [termasuk 
conditional formatting], dsb) ke workbook baru

    > memanfaatkan VBA, perlu 2 proses, yaitu :
       1. membuat workbook baru sebagai target
       2. copy sheet dari file sumber ke workbook baru
    > hal ini dimungkinkan karena workbook baru dibuat di instance 
Excel yang sama (lihat gambar task manager), yaitu :
       pada instance Microsoft Excel (3) berisi workbook bernama book2 
(hasil buat workbook baru sebagai target lokasi paste) dan workbook 
myData.xlsx (file sumber)
    > terkadang, perlu juga untuk membuang sheets yang dibuat Excel 
saat membentuk workbook baru.

    > secara umum, baris kodenya begini :

    Dim wbkb As Workbook, shta As Worksheet
    Set shta = Sheet1
    Set wbkb = Workbooks.Add
    shta.Copy after:=wbkb.Sheets( wbkb.Sheets.count)

     > jika butuh mem-values formula, maka lakukan copy paste values 
terhadap object wbkb.Sheets( wbkb.Sheets.count)


3. Proses copy sheet ke workbook baru langsung hanya values-nya (tanpa 
formula, tanpa conditional format, dsb)
    > dilakukan dengan cara melakukan copy paste ke workbook baru yang 
ada di-instance Excel yang berbeda
    > hasilnya seperti gambar pojok kiri atas file myData.xlsx window 1 (yaitu di sheet DATA)]> ke gambar kanan 
bawah (book1)
    > pada task manager, workbook myData.xlsx berada di instance 
Microsoft Excel (3) [yang bawah], sedangkan workbook book1 berada di 
instance Microsoft Excel [yang atas]

    > memanfaatkan VBA, perlu 4 proses, yaitu :
       1. membentuk Excel Application baru (instance Excel yang baru)
       2. membentuk workbook baru dalam instance baru tersebut
       3. meng-copy area range data di file sumber (instance Excel sumber)
       4. mem-paste ke sheet target di workbook baru yang ada di 
instance Excel yang baru

    > secara umum, bunyi baris kode-nya begini :

    Dim shta As Worksheet, xlapp2 As Excel.Application, wbkb As
Workbook
    Set shta = Sheet1
    Set xlapp2 = New Excel.Application
    xlapp2.Visible = True
    Set wbkb = xlapp2.Workbooks.Add
    shta.UsedRange.Copy
    wbkb.Sheets(1).Paste
    Set xlapp2 = Nothing


Dari uraian diatas, maka perlu penanganan tersendiri untuk mencegah 
munculnya menu move or copy sheet di dalam context menu tab sheet.
Hal ini bisa dilakukan dengan cara mem-protect struktur workbook 
(cukup strukturnya saja).
Proses proteksi pertama kali bisa dilakukan secara manual melalui menu 
Review -> grup menu Protect -> Protect Workbook -> isi password -> 
centang hanya Structure -> OK -> save workbook

Kemudian dalam proses copy sheet oleh VBA, diawali dengan baris :
       thisworkbook.unprotect "passwordnya"
lalu sebelum proses selesai, dilakukan protek workbook kembali :
      thisworkbook.protect "passwordnya", structure:=true

Kira-kira 

Re: [belajar-excel] copy sheet

[Agus nanga...@gmail.com [belajar-excel]]

Pak Hendrik, yang saya maksudkan mencegah orang lain untuk copy seluruh 
sheet, hanya bisa copy untuk paste values. walaupun caranya menggunakan 
klik kanan paste sheet, hasilnya tetap values.

Jadi bukan tanya caranya copy sheet dengan VBA.
salam
Kenang
On 6/27/2019 11:40, hendrik karnadi hendrikkarn...@yahoo.com 
[belajar-excel] wrote:


Ikutan ya mas Nang.

Coba pakai macro recording.

Salam,
HK


Sent from Yahoo Mail on Android 
<https://overview.mail.yahoo.com/mobile/?.src=Android>


On Wed, Jun 26, 2019 at 20:35, Agus nanga...@gmail.com [belajar-excel]
 wrote:

Assalamu'alaikum warahmatullah wabarakatuh,
Mas Kid mau tanya:
Kalau seandainya saya klik kanan di sheet, terus Move or copy ..
pilih to_book :(newbook).
bisa apa tidak diatur lewat vba hasil copyannya hanya values.
Maksudnya mencegah orang lain untuk copy seluruh sheet, namun
hanya copy values-nya saja.
terima kasih
Wasalamualaikum warahmatullah.
Kenang Agus


On 6/26/2019 10:34, 'Mr. Kid' mr.nm...@gmail.com
<mailto:mr.nm...@gmail.com> [belajar-excel] wrote:

Hai Budi Priyo,

1. apakah ada protec nya menggunakan macro juga. dan apakah
protec tsb tidak berpengaruh dengan macro yg ada
*** yang ini terkait proteksi sheet dan proteksi cells
> pastikan sheet tidak dalam keadaan ter-protect
> blok seluruh cells (atau hanya cells tertentu yang akan
disembunyikan formulanya) -> klik kanan cells terpilih -> format
cells -> tab Protection -> centang Locked dan Hidden -> OK
> lalu protect sheet secara manual
> atau dengan baris kode berbunyi (jalankan di intermediate
window [tekan ctrl G -> tulis baris kodenya -> tekan enter])
    sheets("nama sheetnya").protect "passwordnya"
> jika ingin agar VBA bisa bekerja pada sheet terproteksi tanpa
perlu membuka proteksi sheet, gunakan baris kode berikut ini :
    sheets("nama sheetnya")..protect "passwordnya",
userinterfaceonly:=true
> save workbook

2. apa bila sheet tersebut di copy (copysheet) formula yg ada
dalam sheet tersebut tidak ikut alias values secara otomatis,
*** yang ini terkait copy values sheet
> buat sebuah general module -> buat sebuah blok prosedur jenis
sub, misal bernama CopasValueSheet
> jika sheet diproteksi secara manual atau dengan VBA tanpa opsi
userinterfaceonly:=true, maka perlu di-unprotect dulu dengan
baris kode :
   sheets("nama sheetnya").unprotect "passwordnya"
> proses akan terdiri dari 2 bagian utama, yaitu copy sheet
menjadi sheet baru, kemudian copy values nilai yang ada di hasil
copy sheet tadi
   'jika copy di workbook yang sama
   sheets("nama sheetnya").copy before:=sheets(1)     'copy sheet
   'copy paste values hasil copy sheet
   sheets(1).usedrange.copy
 sheets(1).usedrange.pastespecial xlpastevalues

   'jika copy ke workbook baru :
   dim wbka as workbook, wbkb as workbook
   set wbka=thisworkbook
   set wbkb=workbooks.add
   with wbkb
       wbka.sheets("nama sheetnya").copy before:= .sheets(1)
 'copy sheet
.sheets(1).usedrange.copy
.sheets(1).usedrange.pastespecial xlpastevalues
   end with
   wbka.activate

3. dijalankan dengan macro di sheet
*** ini tentang pemicu (event) yang digunakan agar VBA copy sheet
diproses
> sebaiknya diletakkan di modul Thisworkbook dengan event yang
sesuai, misal event ketika cells a1 di double click (sila
disesuaikan dengan kebutuhan setempat)
> pada modul Thisworkbook -> di object Workbook -> buat event
bernama Workbook_SheetBeforeDoubleClick -> isi dengan baris kode
berikut (sesuaikan dengan keadaan setempat)
   if sht.name <http://sht.name>="nama sheetnya" then
       'jalankan prosedur copy sheet, misal prosedur
CopasValueSheet hasil nomor 2 di atas
       CopasValueSheet
       cancel=true
   endif
> dengan begini, maka VBA code yang ada di sheet yang di-copy
tidak akan terbawa ke hasil copy sheet

Regards,
Kid


On Thu, Jun 20, 2019 at 11:28 AM Budi Priyo monexd...@gmail..com
<mailto:monexd...@gmail.com> [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> wrote:

Salam kenal, saya baru bergabung di sini dan ingin menanyakan,
Saya punya dokument yg dijalankan dengan macro di sheet dan
apa bila sheet tersebut di copy (copysheet) formula yg ada
dalam sheet tersebut tidak ikut alias values secara otomatis,
apakah ada protec nya menggunakan macro juga. dan apakah
protec tsb tidak berpengaruh dengan macro yg ada, karena
dokument tersebut terdapat formula rahasianya.
Mohon rekan milis mungkin ada yg bisa bantu.
Sayaucapkan terima kasih

Re: [belajar-excel] copy sheet

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah wabarakatuh,
Mas Kid mau tanya:
Kalau seandainya saya klik kanan di sheet, terus Move or copy .. pilih 
to_book :(newbook).

bisa apa tidak diatur lewat vba hasil copyannya hanya values.
Maksudnya mencegah orang lain untuk copy seluruh sheet, namun hanya copy 
values-nya saja.

terima kasih
Wasalamualaikum warahmatullah.
Kenang Agus


On 6/26/2019 10:34, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Hai Budi Priyo,

1. apakah ada protec nya menggunakan macro juga. dan apakah protec tsb 
tidak berpengaruh dengan macro yg ada

*** yang ini terkait proteksi sheet dan proteksi cells
> pastikan sheet tidak dalam keadaan ter-protect
> blok seluruh cells (atau hanya cells tertentu yang akan 
disembunyikan formulanya) -> klik kanan cells terpilih -> format cells 
-> tab Protection -> centang Locked dan Hidden -> OK

> lalu protect sheet secara manual
> atau dengan baris kode berbunyi (jalankan di intermediate window 
[tekan ctrl G -> tulis baris kodenya -> tekan enter])

    sheets("nama sheetnya").protect "passwordnya"
> jika ingin agar VBA bisa bekerja pada sheet terproteksi tanpa perlu 
membuka proteksi sheet, gunakan baris kode berikut ini :
    sheets("nama sheetnya")..protect "passwordnya", 
userinterfaceonly:=true

> save workbook

2. apa bila sheet tersebut di copy (copysheet) formula yg ada dalam 
sheet tersebut tidak ikut alias values secara otomatis,

*** yang ini terkait copy values sheet
> buat sebuah general module -> buat sebuah blok prosedur jenis sub, 
misal bernama CopasValueSheet
> jika sheet diproteksi secara manual atau dengan VBA tanpa opsi 
userinterfaceonly:=true, maka perlu di-unprotect dulu dengan baris kode :

   sheets("nama sheetnya").unprotect "passwordnya"
> proses akan terdiri dari 2 bagian utama, yaitu copy sheet menjadi 
sheet baru, kemudian copy values nilai yang ada di hasil copy sheet tadi

   'jika copy di workbook yang sama
   sheets("nama sheetnya").copy before:=sheets(1)  'copy sheet
   'copy paste values hasil copy sheet
   sheets(1).usedrange.copy
   sheets(1).usedrange.pastespecial xlpastevalues

   'jika copy ke workbook baru :
   dim wbka as workbook, wbkb as workbook
   set wbka=thisworkbook
   set wbkb=workbooks.add
   with wbkb
       wbka.sheets("nama sheetnya").copy before:= .sheets(1)    'copy 
sheet

.sheets(1).usedrange.copy
.sheets(1).usedrange.pastespecial xlpastevalues
   end with
   wbka.activate

3. dijalankan dengan macro di sheet
*** ini tentang pemicu (event) yang digunakan agar VBA copy sheet diproses
> sebaiknya diletakkan di modul Thisworkbook dengan event yang sesuai, 
misal event ketika cells a1 di double click (sila disesuaikan dengan 
kebutuhan setempat)
> pada modul Thisworkbook -> di object Workbook -> buat event 
bernama Workbook_SheetBeforeDoubleClick -> isi dengan baris kode 
berikut (sesuaikan dengan keadaan setempat)

   if sht.name ="nama sheetnya" then
       'jalankan prosedur copy sheet, misal prosedur CopasValueSheet 
hasil nomor 2 di atas

       CopasValueSheet
       cancel=true
   endif
> dengan begini, maka VBA code yang ada di sheet yang di-copy tidak 
akan terbawa ke hasil copy sheet


Regards,
Kid


On Thu, Jun 20, 2019 at 11:28 AM Budi Priyo monexd...@gmail..com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Salam kenal, saya baru bergabung di sini dan ingin menanyakan,
Saya punya dokument yg dijalankan dengan macro di sheet dan apa
bila sheet tersebut di copy (copysheet) formula yg ada dalam sheet
tersebut tidak ikut alias values secara otomatis, apakah ada
protec nya menggunakan macro juga. dan apakah protec tsb tidak
berpengaruh dengan macro yg ada, karena dokument tersebut terdapat
formula rahasianya.
Mohon rekan milis mungkin ada yg bisa bantu.
Sayaucapkan terima kasih

Re: [belajar-excel] Minta Ilmunya

[Agus nanga...@gmail.com [belajar-excel]]

Dear Adi,
Pakai formula ini juga bisa,:
=LARGE(IF($A$1:$A$19=G2,$B$1:$B$19),ROW(A1))
jangan lupa ini juga formula array tidak disarankan menggunakan A:A atau B:B
tekan to,bol Ctrl+Shift+ENter bersamaan untuk memasukkan formula (jangan 
cuma enter saja)

Regard
NangAgus

On 6/15/2019 22:43, Adi Tahajudin adi.tahaju...@gmail.com 
[belajar-excel] wrote:

Mau Vlookup, tapi 3 Urutan Teratas.
Untuk lebih jelasnya Buka File yang saya lampirkan,
Mohon Share Ilmunya.
Terimakasih.

Re: [belajar-excel] Minta Ilmunya

[Agus nanga...@gmail.com [belajar-excel]]

Coba di H2 diketik formula:
=INDEX($B$1:$B$19,LARGE(($A$1:$A$19=G2)*(ROW($A$1:$A$19)),COUNTIF(G2:$G$4,G2)))
tekan Ctrl+Shift+Enter secara bersamaan,
Kopi formula ke bawah.
Sesuaikan formula dengan keadaan setempat.
Regard
Agus
On 6/15/2019 22:43, Adi Tahajudin adi.tahaju...@gmail.com 
[belajar-excel] wrote:

Mau Vlookup, tapi 3 Urutan Teratas.
Untuk lebih jelasnya Buka File yang saya lampirkan,
Mohon Share Ilmunya.
Terimakasih.

Re: [belajar-excel] Dasar2 Macro Excel

[Agus nanga...@gmail.com [belajar-excel]]

Belajar bisa dimulai dari tulisan Mr. Kid disini 



On 5/26/2019 13:44, Adi Tahajudin adi.tahaju...@gmail.com 
[belajar-excel] wrote:

Boleh share dong, cara mudah memahami macro excel.

Re: [belajar-excel] UDF PPh21

[Agus nanga...@gmail.com [belajar-excel]]

Pak Hendrik,
Yang salah hanya yang datanya memiliki tiga digit terakhir lebih dari 500;
..> baris ke 12 3 digit terakhir= 565
->baris ke 13: 3 digit terakhir = 987
Coba semua baris diberitiga digit terakhir lebih dari 500, akan menjadi 
berbeda semua

salam
NangAgus

On 5/26/2019 14:03, hendrik karnadi hendrikkarn...@yahoo.com 
[belajar-excel] wrote:


Kayaknya sih memang masalah pembulatan Mr.Kid.
Yang membuat saya penasaran, mengapa hanya terjadi pada 2 baris itu saja.

Salam,
HK


Sent from Yahoo Mail on Android 



On Sun, May 26, 2019 at 4:34, 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]
 wrote:
Mungkin karena round

Sent from my smart enough phone

On May 25, 2019, at 20:48, hendrik karnadi
hendrikkarn...@yahoo.com 
[belajar-excel] mailto:belajar-excel@yahoogroups.com>> wrote:


Dear Be-Excel,

Untuk mengisi waktu luang di malam minggu, saya mencoba me-lihat2
kembali warisan Alm. Mbak Siti (Senior kita).
Di situ saya menemukan UDF untuk menghitung Penghasilan Kena
Pajak, yang secara aturan dibulatkan kebawah (dalam ribuan).

Dalam Worksheet terlampir (saya revisi hanya untuk th 2009),
beliau memperbandingkan hasil perhitungan UDF dengan Formula.

UDF nya adalah sebagai berikut:
Option Explicit

Function fPPh21_2009(PhKP As Currency) As Currency
   Dim LapisPh() As Currency
   Dim Tarif() As *Double**'mbak Siti pakai Single, saya ganti
Double*
   Dim n As Integer, Lps, Trf
   Dim pajak As Currency
   Lps = Split("|50|250|500", "|")
   ReDim LapisPh(1 To UBound(Lps))
   For n = 1 To UBound(Lps): LapisPh(n) = Round((CLng(Lps(n)) *
10 ^ 6), 0): Next n
   Trf = Split("/5/15/25/30", "/")
   ReDim Tarif(1 To UBound(Trf))
   For n = 1 To UBound(Trf): Tarif(n) = Round((C*Dbl*(Trf(n)) /
100), 2): Next n '*Sng saya ganti Dbl*
   PhKP = 1000 * Round(PhKP / 1000, 0)
   Select Case PhKP
      Case Is <= LapisPh(1)
         pajak = PhKP * Tarif(1)
      Case Is <= LapisPh(2)
         pajak = LapisPh(1) * Tarif(1) _
         + (PhKP - LapisPh(1)) * Tarif(2)
      Case Is <= LapisPh(3)
         pajak = LapisPh(1) * Tarif(1) _
         + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
         + (PhKP - LapisPh(2)) * Tarif(3)
      Case Is > LapisPh(3)
         pajak = (LapisPh(1)) * Tarif(1) _
         + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
         + (LapisPh(3) - LapisPh(2)) * Tarif(3) _
         + (PhKP - LapisPh(3)) * Tarif(4)
   End Select
   fPPh21_2009 = Round(pajak)
End Function

Formula pada baris 12 dan 13 adalah sbb:

=IF(C12<=0,0,IF(C12<=5000,5%*C12,IF(C12<=25000,5000*5%+(C12-5000)*15%,IF(C12<=5,5000*5%+2*15%+(C12-25000)*25%,5000*5%+2*15%+25000*25%+(C12-5)*30%


=IF(C13<=0,0,IF(C13<=5000,5%*C13,IF(C13<=25000,5000*5%+(C13-5000)*15%,IF(C13<=5,5000*5%+2*15%+(C13-25000)*25%,5000*5%+2*15%+25000*25%+(C13-5)*30%

Hasilnya */seharusnya sama/* tapi */berbeda beberapa ratus rupiah
hanya pada kedua baris ini/*.

Pertanyaan saya (bukan ngetes):
Apa yang menyebabkan terjadinya perbedaan tsb ?

Untuk lebih jelasnya saya lampirkan workbooknya.

Terima kasih.

Salam,
HK

Re: [belajar-excel] menambahkan 4 variable jika bukan ke dalam rumus array

[Agus nanga...@gmail.com [belajar-excel]]

Dear supriyadi,
Kelihatannya dapat digunakan index untuk pilihannya dan gunakan if atau 
lookup untuk menentukan row atau column-nya

mungkin yang berwarna merah dapat diganti dengan formula:
index(data, if(<>kna,1,if(<>bpa,2,if(<>ljm,3,if(<>FU,4,0,)

regard
NangAgus

On 5/24/2019 09:32, supriyadi_...@yahoo.co.id [belajar-excel] wrote:


pagi milis belajar excel,

saya kebingungan untuk menambahkan 4 variable ke dalam rumus ini,

solusi nya gimana ya, saya sudah coab pakai or, dan if, tapi tetap 
tidak berfungsi


{=IFERROR(INDEX(Sheet1!$A$2:$A$1000;SMALL(IF(Sheet1!$I$2:$I$1000<>"KNA";ROW(Sheet1!$A$2:$A$1000));ROW(1:1))-1;1);""))}


variable yang saya ingin tambahkan adalah :

jika bukan KNA,

jika bukan BPA,

jika bukan LJM,

jika bukan FU

makasih atas bantuannya,

supriyadi

Re: [belajar-excel] VBA multiple variable untuk If dan For.. Next

[Agus nanga...@gmail.com [belajar-excel]]

Wa'alaikumsalam warahmatullah wabarakatuh
Dear Bayu,
coba cekripnya diubah menjadi:
With Sheets("Hit")
    For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
    If .Cells(i, 1).Value = "E" Then
    e = i
    Else
  If .Cells(i, 1).Value = "ABA" Then
    b = i
  Else
    If .Cells(i, 1).Value = "BB" Then
 .Cells(i, 6).FormulaR1C1 = "=RC[-2]+R" 
& e & "C5 + R" & b & "C2"

    End If
  End If
    End If
 Next i
End With

Wasalamu'alaikumsalam warahmatullah
Regard
NangAgus



On 5/22/2019 08:36, Bayu Prasaja prasaja_sat...@yahoo.com 
[belajar-excel] wrote:


Assalamu'alaikum, selamat pagi para guru, mohon bantuannya untuk 
penyelesaian macro excel, karena keterbatasan pemahaman saya, jadi 
saya gbisa menjelaskan secara rinci, jadi langsung saja ke 
attatchment. Terima kasih sebelumnya, semoga menambah pahala dibulan 
Ramadhan ini. Aamiin


Sent from Yahoo Mail on Android 

Re: [belajar-excel] rumus dengan ketentuan yang sangat banyak????

[Agus nanga...@gmail.com [belajar-excel]]

Wa'alaikum salam warahmatullah wabarakatuh
gunakan formula di F2:
=VLOOKUP(E2,$A$2:$B$17,2)
copy ke bawah.
jangan lupa ganti , menjadi ; jika regional setting bahasa indonesia.
wasalamu 'alaikum warah matullah.
nangAgus

On 5/21/2019 00:47, rafael_...@yahoo.com [belajar-excel] wrote:


Assalamualaikum... apa kabar temen2 semuanya, semoga semua dalam 
keadan baik.


saya mau bertanya tentang rumus yang cocok dengan ketentuan yang 
sangat banyak.


biasanya saya menggunakan IF, tapi akan sangat tidak efisien jika 
ketentuannya sangat banyak, untuk lebih jelas file saya lampirkan,

Re: [belajar-excel] rumus copy semua data yang sudah completed

[Agus nanga...@gmail.com [belajar-excel]]

Dear Supriyadi,
Pakai kolom bantu yaa..
Lakukan langkah-langkah sebagai berikut:
1. Pada F1 ketik judul kolom: Kolom Bantu
2. Pada F2 masukkan formula: =IF(E2=$G$2;MAX($F$1:F1)+1;0)
3. Ubah data menjadi tabel agar formula pada hasil bersifat dinamis:
>> blok A1 sampai F19
>> Klik tab Insert, pada kelompk Tables klik Table, OK.
4. Pada H2 ketik formula: 
=IFERROR(INDEX(Table1[PIC];MATCH(ROW(A1);Table1[[Kolom Bantu]:[Kolom 
Bantu]];0));"")

5. Kopi cell H2 ke kanan dan bawah sampai di J22.
6. Format data J2 sampai J22  dengan format tanggal

Jangan lupa ubah formula ; menjadi , apabila komputer setempat regional 
settingnya berbahasa Inggris.
sebenarnya lebih mudah dan lebih bagus menggunakan pivot tabel seperti 
yang dicontohkan Iqbal.


Salam
Regard
NangAgus

On 5/10/2019 13:32, Supriyadi supriyadi_...@yahoo.co.id [belajar-excel] 
wrote:

hi milis belajar-excel,

bagaimana mengcopy semua baris data dengan satu kriteria,
karna data nya akan diisi terus,
jadi rumusnya harus dinamis.
terlampir contoh file nya

dan terimakasih atas bantuannya,

supriyadi

Re: [belajar-excel] Click Button di Internet Explorer dengan objectgetElementsByClassName

[Agus nanga...@gmail.com [belajar-excel]]

Setuju mas Kid, saya yang paling muda (dipanggil nang di kantor)
ikut yang sudah dewasa...
Regard
NangAgus
On 5/1/2019 15:48, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Sila diatur saja.
Saya yang lebih muda nderek yang lebih dewasa saja.

Regards,
Kid
Sent from my smart enough phone

On May 1, 2019, at 14:12, Zainul Ulum zainul_u...@yahoo.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:



Mas Kid & Others,
Sebelumnya mohon maaf, karena permintaan anak2 saya belum bisa 
bergabung untuk kopi darat tanggl 4-5Mei 2019.

Mungkin sekitar bulan Juni 2019 baru bisa.

Terimakasih banyak atas pengertianya.
Wassalam,
-zainul



#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#


On Tuesday, 30 April 2019, 9:19:02 am UTC, 'Mr. Kid' 
mr.nm...@gmail.com  [belajar-excel] 
> wrote:



Insya Allah tanggal 1 ok, 4 ok, 5 ok.
Sila diatur saja lokasi dan waktunya.


On Tue, Apr 30, 2019 at 3:09 PM Zainul Ulum zainul_u...@yahoo.com 
 [belajar-excel] 
> wrote:


be-exceller,
sudah lama nih nggak ngobrol excel.
kalo sabtu/minggu 4/5 mei 2019 ?

Terimakasih,
-zainul

Re: [belajar-excel] Click Button di Internet Explorer dengan objectgetElementsByClassName

[Agus nanga...@gmail.com [belajar-excel]]

Mas Zaenul mau pulangkah tgl 4-5 Mei?
Mampir ke Rumah.
Nang
On 5/1/2019 14:12, Zainul Ulum zainul_u...@yahoo.com [belajar-excel] wrote:

Mas Kid & Others,
Sebelumnya mohon maaf, karena permintaan anak2 saya belum bisa 
bergabung untuk kopi darat tanggl 4-5Mei 2019.

Mungkin sekitar bulan Juni 2019 baru bisa.

Terimakasih banyak atas pengertianya.
Wassalam,
-zainul



#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#


On Tuesday, 30 April 2019, 9:19:02 am UTC, 'Mr. Kid' 
mr.nm...@gmail.com [belajar-excel]  wrote:



Insya Allah tanggal 1 ok, 4 ok, 5 ok.
Sila diatur saja lokasi dan waktunya.


On Tue, Apr 30, 2019 at 3:09 PM Zainul Ulum zainul_u...@yahoo.com 
 [belajar-excel] 
> wrote:


be-exceller,
sudah lama nih nggak ngobrol excel.
kalo sabtu/minggu 4/5 mei 2019 ?

Terimakasih,
-zainul

Re: [belajar-excel] Click Button di Internet Explorer dengan objectgetElementsByClassName

[Agus nanga...@gmail.com [belajar-excel]]

Saya orang udik boleh gak ikut gabung?

On 4/24/2019 08:25, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Ayo kita ngobrolin Excel dimana gitu...
Sabtu Minggu sampai sebelum ramadhan sih ok
Kalau nggak, mungkin mulai akhir juni sabtu minggu juga ok




On Wed, Apr 24, 2019 at 5:44 AM zainul ulum zainul_u...@yahoo.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


mas Kid,
maaf baru bisa replay.
masalahnya solved. Ternyata ada dua buttons dengan classname yang
nama dalam page tsb.

Kapan bisa ketemuan langsung? aku banyak kerjaan yang pakai web
scrapping...

maturnuwun
_zainul.

On Apr 18, 2019 1:39 AM, "'Mr. Kid' mr.nm...@gmail.com
 [belajar-excel]"
mailto:belajar-excel@yahoogroups.com>> wrote:

mas Zain,

Mungkin tipe datanya dijadikan object malah bisa bekerja...
(mungkin loh ya)
Dim oHTML_Element As object




Reply via web post 
 
	• 	Reply to sender 
 
	• 	Reply to group 
 
	• 	Start a New Topic 
 
	• 	Messages in this topic 
 
(4)



Have you tried the highest rated email app? 
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated 
email app on the market. What are you waiting for? Now you can access 
all your inboxes (Gmail, Outlook, AOL and more) in one place. Never 
delete an email again with 1000GB of free cloud storage.



Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic

bergabung ke milis (subscribe), kirim mail kosong ke: 
belajar-excel-subscr...@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-ow...@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : 
belajar-excel-unsubscr...@yahoogroups.com

-
Visit Your Group 
 



Yahoo! Groups 
 

• Privacy 
 • 
Unsubscribe 
 
• Terms of Use 


SPONSORED LINKS
.

Re: [belajar-excel] mencari start date & Finish

[Agus nanga...@gmail.com [belajar-excel]]

Dear Iman,
bukankah thread ini sudah dijawab oleh pak Ghozi?
apakah tidak bisa membaca jawabannya?
silahkan buka di nabble 


regard
NangAgus
On 4/23/2019 08:17, Iman Darusman idz.i...@yahoo.com [belajar-excel] wrote:

Dear Master,

mohon bantuannya (sundul)

salam
Iman

Pada Selasa, 16 April 2019 17.33.52 WIB, idz.i...@yahoo.com 
[belajar-excel]  menulis:



Dear Master.


mohon bantuannya rumus untuk mengetahui start date & finish pada file 
terlampir.



salam

Iman

Re: [belajar-excel] Mohon petunjuk Angka Terbilang dengan desimal

[Agus nanga...@gmail.com [belajar-excel]]

Dear Monang.
1> untuk perbaikan  30 yang dibaca ThirtyZero:
 ubah cekrip pada prosedure GetTens :
        ..
    Result = Result & GetDigit _
    (Right(TensText, 1))  ' Retrieve ones place.
        .
menjadi:
    
If (Right(TensText, 1)) <> "0" Then
    Result = Result & GetDigit _
    (Right(TensText, 1))  ' Retrieve ones place.
End If
    
2> untuk perbaikan **.60 yang dibaca point six (maunya point six zero khan?)
 ubah Prosedure SpellNumber pada baris:
    ...
    Cents = Sent(Format(MyNumber, "#.#"))
    ...
menjadi:
    Cents = Sent(Format(MyNumber, "#.##0")) 'untuk pembacaan 3 
angka dibelakang koma,


atau menjadi:
    Cents = Sent(Format(MyNumber, "#.#0")) 'untuk pembacaan 2 angka 
dibelakang koma,


Jika ingin range tertentu 3 angka dan range lainnya 2 angka silahkan 
ditambah if di depannya.

Misal :
if (angka komanya kurang dari 10) then
dibaca 3 angka
else
dibaca 2 angka
end if

Regard
NangAgus


On 4/15/2019 14:17, Monang Pasaribu monang_pasar...@hotmail.com 
[belajar-excel] wrote:


Dear Mas Agus, confirm sudah bisa.

tapi waktu saya coba, ada beberapa angka yang terbaca belum sempurna 
seperti contoh di bawah Mas.


2.04Percent (%) Two PointZero Fourpercent   
0.06Percent (%) Zero PointZero Sixpercent   
13.76   Percent (%) Thirteen PointSeven Sixpercent  
0.91Percent (%) Zero PointNine Onepercent   
19.10   Percent (%) Nineteen PointOnepercent
6.60Percent (%) Six PointSixpercent 

0.002   Percent (%) Zero PointZero Zero Twopercent  
0.05Percent (%) Zero PointZero Fivepercent  
37.87   Percent (%) Thirty Seven PointEight Sevenpercent
30.10   Percent (%) *Thirty Zero *PointOnepercent   



Best Regards,
Monang Pasaribu

Re: [belajar-excel] Mohon petunjuk Angka Terbilang dengan desimal

[Agus nanga...@gmail.com [belajar-excel]]

Dear Monang.
Macronya belum dihidupkan
silahkan dipilih:
Excel Option, Trust Center, Trust Center Setting, Macro Setting, Enable 
All Macros, OK, OK

Regard
Agus
On 4/12/2019 16:12, Monang Pasaribu monang_pasar...@hotmail.com 
[belajar-excel] wrote:


Mas Agus

terlampir adalah sheet yang saya masukkan script nya, entah kenapa 
kalau sekarang di buka di excel komputer saya malah muncul error 
#NAME?, padahal awalnya


terima kasih banyak sebelumnya

Best Regards,
Monang

Re: [belajar-excel] Mohon petunjuk Angka Terbilang dengan desimal

[Agus nanga...@gmail.com [belajar-excel]]

sudah dicobakah cekripnya?
Untuk sen saya buat fungsi tersendiri,
dicoba dahulu, jika ada kesalahan posting lagi di milis.
Regard
NangAgus

Function SpellNumber(ByVal MyNumber)
    Dim Point, Cents, Temp
    Dim DecimalPlace As Integer, Count As Integer
    ReDim Place(9) As String
    Place(2) = "Thousand "
    Place(3) = "Million "
    Place(4) = "Billion "
    Place(5) = "Trillion "
    ' Position of decimal place 0 if none.
    DecimalPlace = Len(MyNumber) - Len(Int(MyNumber)) - 1
    ' Convert cents and set MyNumber to Point amount.
    If DecimalPlace > 0 Then
    Cents = Sent(Format(MyNumber, "#.##"))
  '  MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
  If Left(MyNumber, 1) = "0" Then
  MyNumber = ""
  Else
  MyNumber = Int(MyNumber)
  MyNumber = Trim(Str(MyNumber))
  End If
    Count = 1
    Do While MyNumber <> ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp <> "" Then Point = Temp & Place(Count) & Point
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Point
    Case ""
    Point = "Zero Point "
    Case "One"
    Point = "One Point "
 Case Else
    Point = Point & "Point "
    End Select
    Select Case Cents
    Case ""
    Cents = "Zero "
    Case "One"
    Cents = "One "
  Case Else
    Cents = " " & Cents
    End Select
    SpellNumber = Point & Cents
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = (Right("000" & Int(MyNumber), 3))
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) <> "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & "Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) <> "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim Result As String
    Result = ""   ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
    Select Case Val(TensText)
    Case 10: Result = "Ten "
    Case 11: Result = "Eleven "
    Case 12: Result = "Twelve "
    Case 13: Result = "Thirteen "
    Case 14: Result = "Fourteen "
    Case 15: Result = "Fifteen "
    Case 16: Result = "Sixteen "
    Case 17: Result = "Seventeen "
    Case 18: Result = "Eighteen "
    Case 19: Result = "Nineteen "
    Case Else
    End Select
    Else ' If value between 20-99...
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1))  ' Retrieve ones place.
    End If
    GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
    Case 0: GetDigit = "Zero "
    Case 1: GetDigit = "One "
    Case 2: GetDigit = "Two "
    Case 3: GetDigit = "Three "
    Case 4: GetDigit = "Four "
    Case 5: GetDigit = "Five "
    Case 6: GetDigit = "Six "
    Case 7: GetDigit = "Seven "
    Case 8: GetDigit = "Eight "
    Case 9: GetDigit = "Nine "
    End Select
End Function

Function Sent(d As String)
Dim c As String, e As String
Dim b As Double, i As Integer
b = Int(d)
If Len(d) - Len(Format(b, "##")) = 0 Then
Sent = ""
Exit Function
End If
c = Right(d, Len(d) - Len(Format(b, "##")) - 1)
For i = 1 To Len(c)
e = e & GetDigit(Mid(c, i, 1))
Next i
Sent = e
End Function
On 4/8/2019 10:3

Re: [belajar-excel] Mohon petunjuk Angka Terbilang dengan desimal

[Agus nanga...@gmail.com [belajar-excel]]

Dear Monang,
Saya bingung lagi nih,
kenapa 0.01 kok dibaca zero point zero zero one bukan dibaca
*zero point zero one ?
*
Regard
Agus

On 4/5/2019 06:46, Monang Pasaribu monang_pasar...@hotmail.com 
[belajar-excel] wrote:


Dear Mas Agus

Mohon maaf kurang jelas ya Mas,

Yang saya butuhkan adalah:

14.003 = fourteen point zero zero three
39.09 = thirty nine point zero nine
*0.01 = zero point zero zero one*
1.98 = one point nine eight

Tapi yang saya butuhkan kalau 3 digit hanyalah kalau angka nya di 
bawah 0 (0.001 sampai 0.09) sementara kalau 0.01 ke atas cukup 2 
digit, misalnya 0.02 (zero point zero two) dan seterusnya


begitu mas, terima kasih sebelumnya untuk respondnya

Best Regards,
Monang Pasaribu


*From:* belajar-excel@yahoogroups.com  
on behalf of Agus nanga...@gmail.com [belajar-excel] 


*Sent:* Friday, April 5, 2019 5:47 AM
*To:* belajar-excel@yahoogroups.com
*Subject:* Re: [belajar-excel] Mohon petunjuk Angka Terbilang dengan 
desimal

Dear Monang
Saya bingung cara membacanya nih,
Maklumkah saya tidak dapat berbahasa Inggris...
mana yang dimaksudkan?
a. 14.003 = fourteen point three
b. 14.003 = fourteen point zero zero three
c. 14.003 = fourteen and three thousandths
d. 14.003 = fourteen point three thousandths
e. 14.003 = fourteen point three thousand
pembacaan mana yang dibutuhkan?
silahkan beri bayak contoh pembacaan.

Lain kali kalau membuat posting baru jangan Reply theat yang sudah ada 
yaa...


Salam
NangAgus
On 4/2/2019 21:53, Monang Pasaribu monang_pasar...@hotmail.com 
<mailto:monang_pasar...@hotmail.com> [belajar-excel] wrote:

dear Senior Excel

Mohon petunjuk dong bagaimana caranya untuk membuat fungsi angka 
terbilang tetapi ada angka desimal di belakang 0 (contoh 0.10 atau 0.01).


terima kasih seblumnya



Best Regards,
Monang

Re: [belajar-excel] Mohon petunjuk Angka Terbilang dengan desimal

[Agus nanga...@gmail.com [belajar-excel]]

Dear mona,
Untuk sen saya buat fungsi tersendiri,
dicoba dahulu, jika ada kesalahan posting lagi di milis.
Regard
NangAgus

Function SpellNumber(ByVal MyNumber)
    Dim Point, Cents, Temp
    Dim DecimalPlace As Integer, Count As Integer
    ReDim Place(9) As String
    Place(2) = "Thousand "
    Place(3) = "Million "
    Place(4) = "Billion "
    Place(5) = "Trillion "
    ' Position of decimal place 0 if none.
    DecimalPlace = Len(MyNumber) - Len(Int(MyNumber)) - 1
    ' Convert cents and set MyNumber to Point amount.
    If DecimalPlace > 0 Then
    Cents = Sent(Format(MyNumber, "#.##"))
  '  MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
  If Left(MyNumber, 1) = "0" Then
  MyNumber = ""
  Else
  MyNumber = Int(MyNumber)
  MyNumber = Trim(Str(MyNumber))
  End If
    Count = 1
    Do While MyNumber <> ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp <> "" Then Point = Temp & Place(Count) & Point
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Point
    Case ""
    Point = "Zero Point "
    Case "One"
    Point = "One Point "
 Case Else
    Point = Point & "Point "
    End Select
    Select Case Cents
    Case ""
    Cents = "Zero "
    Case "One"
    Cents = "One "
  Case Else
    Cents = " " & Cents
    End Select
    SpellNumber = Point & Cents
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = (Right("000" & Int(MyNumber), 3))
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) <> "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & "Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) <> "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim Result As String
    Result = ""   ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
    Select Case Val(TensText)
    Case 10: Result = "Ten "
    Case 11: Result = "Eleven "
    Case 12: Result = "Twelve "
    Case 13: Result = "Thirteen "
    Case 14: Result = "Fourteen "
    Case 15: Result = "Fifteen "
    Case 16: Result = "Sixteen "
    Case 17: Result = "Seventeen "
    Case 18: Result = "Eighteen "
    Case 19: Result = "Nineteen "
    Case Else
    End Select
    Else ' If value between 20-99...
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1))  ' Retrieve ones place.
    End If
    GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
    Case 0: GetDigit = "Zero "
    Case 1: GetDigit = "One "
    Case 2: GetDigit = "Two "
    Case 3: GetDigit = "Three "
    Case 4: GetDigit = "Four "
    Case 5: GetDigit = "Five "
    Case 6: GetDigit = "Six "
    Case 7: GetDigit = "Seven "
    Case 8: GetDigit = "Eight "
    Case 9: GetDigit = "Nine "
    End Select
End Function

Function Sent(d As String)
Dim c As String, e As String
Dim b As Double, i As Integer
b = Int(d)
If Len(d) - Len(Format(b, "##")) = 0 Then
Sent = ""
Exit Function
End If
c = Right(d, Len(d) - Len(Format(b, "##")) - 1)
For i = 1 To Len(c)
e = e & GetDigit(Mid(c, i, 1))
Next i
Sent = e
End Function
On 4/5/2019 06:46, Monang Pasaribu 

Re: [belajar-excel] Mohon petunjuk Angka Terbilang dengan desimal

[Agus nanga...@gmail.com [belajar-excel]]

Dear Monang
Saya bingung cara membacanya nih,
Maklumkah saya tidak dapat berbahasa Inggris...
mana yang dimaksudkan?
a. 14.003 = fourteen point three
b. 14.003 = fourteen point zero zero three
c. 14.003 = fourteen and three thousandths
d. 14.003 = fourteen point three thousandths
e. 14.003 = fourteen point three thousand
pembacaan mana yang dibutuhkan?
silahkan beri bayak contoh pembacaan.

Lain kali kalau membuat posting baru jangan Reply theat yang sudah ada 
yaa...


Salam
NangAgus
On 4/2/2019 21:53, Monang Pasaribu monang_pasar...@hotmail.com 
[belajar-excel] wrote:


dear Senior Excel

Mohon petunjuk dong bagaimana caranya untuk membuat fungsi angka 
terbilang tetapi ada angka desimal di belakang 0 (contoh 0.10 atau 0.01).


terima kasih seblumnya



Best Regards,
Monang

[belajar-excel] Cekrip Print

[Agus nanga...@gmail.com [belajar-excel]]

Assalamualaikum warahmatullah,

Saya mempunyai cekrip sederhana untuk print.

     Range("D1") = seka.Value
     For i = seka.Value To Tekan.Value
     ActiveSheet.PrintOut
     If Range("D1") = Tekan.Value Then
     Exit Sub
     Else
     Range("D1") = Range("D1") + 1
     End If
     Next

Cekrip tersebut berjalan baik jika saya buka di excel 2007 dan 2010, 
namun tidak dapat berjalan baik pada excel 2013 (saya perintah untuk 
print halaman 1 - 20, hanya ngeprint halaman 5 dan 13 saja).

Apakah kesalahannya? atau adakah perbaikannya?

Re: [belajar-excel] Cara penulisan error handling

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum Warahmatullah,
Mas Kid, ikut bertanya.
On error goto 0 adalah mematikan error handling di sebuah prosedur.
jika prosedur tersebut terdapat 4 error handling, apakah 
keempat-empatnya dimatikan atau hanya satu saja di atas on error goto 0?

Terima kasih
Wasalamualaikum Warahmatullah
KenangAgus

On 3/18/2019 05:12, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab 
masalah.

Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..

ya sudah, atur saja deh

Re: [belajar-excel] Cek file open di server apakah dibuka dikomputer sendiri atau di komputer orang lain

[Agus nanga...@gmail.com [belajar-excel]]

Dear All,

Saya gagal paham penulisan Resume next,
yang benar penulisan resume next (on error resume next) di awal atau di 
akhir?

kalau ditulis di akhir gunanya apa?

Regard
NangAgus
On 3/17/2019 18:44, Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel] wrote:


Terima kasih Mr. Kid atas jawabannya. Semoga amal baiknya diterima 
disisiNya. Amiin.


No. 2

Saya sudah buat function berikut untuk menentukan apakah file di 
server dibuka di network atau di computer sendiri. *Tapi belum dicoba. 
Tolong tanggapannya.*


**

*Public Function FileTerbuka() As Boolean*

Dim alamatfilemaster As String

alamatfilemaster = 
"\\AlamatServer\FolderServer\Subfolder\NamaFilenya.xlsx"


FileTerbuka = False

On Error GoTo not_open

Workbooks(alamatfilemaster).Activate

Exit Function

not_open:

    MsgBox "File master terbuka di computer anda" & vbNewLine & 
vbNewLine & _


    "Silahkan tutup file master dulu", vbInformation, "Info"

FileTerbuka = True

    Err.Clear

    Resume Next

*End Function*

**

Re: [belajar-excel] Parameter yang dilihat untuk penggunaan memory [2 Attachments]

[Agus nanga...@gmail.com [belajar-excel]]

Dear Tio,

A merupakan Memory yang sedang digunakan Excel, sedangkan B merupakan 
jumlah memory keseluruhan yang digunakan Komputer

Lihat saja memory habis digunakan untuk program firefox.
Regard
NangAgus
On 3/17/2019 03:22, Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel] wrote:


Salam Be-Exceller.

mailbox:///E:/File%20Email/NangAgusGmail/Inbox?number=955339754&header=quotebody&part=1.2&filename=image001.png

Mau tanya.

1.Parameter yang mana yang  ditunjukkan huruf A atau B yang dijadikan 
acuan untuk melihat penggunaan memory ?


Sebelumnya saya berpikir untuk penggunaan memory adalah di huruf A 
yaitu untuk gambar tersebut adalah sebesar 27.156 K.


Tapi pernah dalam suatu kasus, saya kekurangan memory sehingga tidak 
bisa save file padahal huruf A tersebut hanya 27 K. Apakah huruf B 
juga harus dijadikan parameter juga dalam penggunaan memory atau ada 
parameter lain ataukah ada sebab lain ?


2.Berapa sebaiknya huruf A dan B yang ideal supaya tidak kekurangan 
memory ?


Ini pesan errornya

mailbox:///E:/File%20Email/NangAgusGmail/Inbox?number=955339754&header=quotebody&part=1.3&filename=image003.jpg

Mohon bimbingannya. Kenapa kekurangan memory padahal huruf A cuma 
sebesar 27 K.


Terima kasih . semoga amal baiknya diterima disisiNya. Amiin.

Tio

Re: [belajar-excel] Re: Pindah cell otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Terima kasih
On 3/11/2019 04:46, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

wa'alaikumussalam wr wb

hehehe...
hal tersebut tidak memungkinkan dengan application.onkey
bisa jadi perlu menggunakan api sendmessage

wassalamu'alaikum wr wb
Kid




On Sun, Mar 10, 2019 at 6:34 AM Agus nanga...@gmail.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Assalamu'alaikum warahmatullah.
Mas Kid, mau tanya nih,...
Cekrip di bawah ini:
          application.onkey "1","'myproc 1'"
adalah perintah apabila ditekan rombol 1,

Bagaimana cara mengubah cekripnya, jika diinginkan agar cursor
pindah ke cell selanjutnya jika sudah mengetik angka dari 0 sampai
100?

Terima kasih
Wasalamu'alaikum warahmatullah
NangAgus
On 1/29/2019 10:14, 'Mr. Kid' mr.nm...@gmail.com
 [belajar-excel] wrote:

hmmm

coba begini :
1. di vba, buat general module dan isi dengan 2 prosedur berikut
beserta sebaris deklarasi variabelnya
public wbka as workbook, shta as worksheet     'variabel object
area kerja si penulis nilai

public sub myProc( optional lNilai as long=0 )    'proses menulis
nilai
     if wbka.name =activeworkbook.name
 then
          if shta.codename=activesheet.name
 then
                if activecell.column=1 then
                      if activecell.row>1 and activecell.row<=600
then
application.enableeventts=false
activecell.value=lnilai
application.sendkeys "~"
application.enableeventts=true
                      endif
                endif
          endif
     endif
end sub

public sub AturShortcut(optional bState as boolean=false)
'pengubah shortcut
     if bstate then    'setup tombol dan variabel object area kerja
            'nama object sheet (bukan nama caption sheet [bukan
nama sheet di tab sheet]) -> misal area kerja di sheet bernama
AREA_INPUT dengan nama object sheet adalah Sheet1
            set wbka=thisworkbook:set shta=sheet1
            application.onkey "1","'myproc 1'"
            application.onkey "2","'myproc 2'"
            application.onkey "3","'myproc 3'"
            application.onkey "4","'myproc 4'"
     else
            set wbka=nothing:set shta=nothing
            application.onkey "1"
            application.onkey "2"
            application.onkey "3"
            application.onkey "4"
     endif
end sub

lalu di sheet AREA_INPUT, dibuat prosedur events :
1. Activate dan diisi dengan baris pemanggil AturShortcut dengan
nilai bState adalah true, yaitu : AturShortcut true
2. deActivate dan diisi dengan baris pemanggil AturShortcut
dengan nilai bState adalah false, yaitu : AturShortcut
kemudian di thisworkbook, dibuat events :
1. activate dan diisi dengan baris pemanggil AturShortcut dengan
nilai bState adalah true, yaitu : AturShortcut true
2. deActivate dan diisi dengan baris pemanggil AturShortcut
dengan nilai bState adalah false, yaitu : AturShortcut
3. beforeclose dan diisi dengan baris pemanggil AturShortcut
dengan nilai bState adalah false, yaitu : AturShortcut

Regards,
Kid



On Sun, Jan 27, 2019 at 4:16 PM cheivory_bri...@yahoo.com
 [belajar-excel]
mailto:belajar-excel@yahoogroups.com>> wrote:

Terima kasih Pak Kenang Agus solved..


Mohon maaf, bagaimana kalau di setiap cell kolom A cara
mengisinya dengan cara memasukkan/mengetik 1 pilihan -
pilihannya : 1/2/3/4 (bukan memilih dari data validation) ..
jika sudah mengetik pilihan maka otomatis kursor berpindah
otomatis ke sel bawahnya ..

Terima kasih. Ari

Re: [belajar-excel] Re: Pindah cell otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah.
Mas Kid, mau tanya nih,...
Cekrip di bawah ini:
            application.onkey "1","'myproc 1'"
adalah perintah apabila ditekan rombol 1,

Bagaimana cara mengubah cekripnya, jika diinginkan agar cursor pindah ke 
cell selanjutnya jika sudah mengetik angka dari 0 sampai 100?


Terima kasih
Wasalamu'alaikum warahmatullah
NangAgus
On 1/29/2019 10:14, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

hmmm

coba begini :
1. di vba, buat general module dan isi dengan 2 prosedur berikut 
beserta sebaris deklarasi variabelnya
public wbka as workbook, shta as worksheet  'variabel object area 
kerja si penulis nilai


public sub myProc( optional lNilai as long=0 ) 'proses menulis nilai
     if wbka.name =activeworkbook.name 
 then

          if shta.codename=activesheet.name  then
                if activecell.column=1 then
                      if activecell.row>1 and activecell.row<=600 then
application.enableeventts=false
                            activecell.value=lnilai
                            application.sendkeys "~"
application.enableeventts=true
                      endif
                endif
          endif
     endif
end sub

public sub AturShortcut(optional bState as boolean=false)        
'pengubah shortcut

     if bstate then    'setup tombol dan variabel object area kerja
            'nama object sheet (bukan nama caption sheet [bukan nama 
sheet di tab sheet]) -> misal area kerja di sheet bernama AREA_INPUT 
dengan nama object sheet adalah Sheet1

            set wbka=thisworkbook:set shta=sheet1
            application.onkey "1","'myproc 1'"
            application.onkey "2","'myproc 2'"
            application.onkey "3","'myproc 3'"
            application.onkey "4","'myproc 4'"
     else
            set wbka=nothing:set shta=nothing
            application.onkey "1"
            application.onkey "2"
            application.onkey "3"
            application.onkey "4"
     endif
end sub

lalu di sheet AREA_INPUT, dibuat prosedur events :
1. Activate dan diisi dengan baris pemanggil AturShortcut dengan nilai 
bState adalah true, yaitu : AturShortcut true
2. deActivate dan diisi dengan baris pemanggil AturShortcut dengan 
nilai bState adalah false, yaitu : AturShortcut

kemudian di thisworkbook, dibuat events :
1. activate dan diisi dengan baris pemanggil AturShortcut dengan nilai 
bState adalah true, yaitu : AturShortcut true
2. deActivate dan diisi dengan baris pemanggil AturShortcut dengan 
nilai bState adalah false, yaitu : AturShortcut
3. beforeclose dan diisi dengan baris pemanggil AturShortcut dengan 
nilai bState adalah false, yaitu : AturShortcut


Regards,
Kid



On Sun, Jan 27, 2019 at 4:16 PM cheivory_bri...@yahoo.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Terima kasih Pak Kenang Agus solved..


Mohon maaf, bagaimana kalau di setiap cell kolom A cara mengisinya
dengan cara memasukkan/mengetik 1 pilihan - pilihannya : 1/2/3/4
(bukan memilih dari data validation) .. jika sudah mengetik
pilihan maka otomatis kursor berpindah otomatis ke sel bawahnya ..

Terima kasih. Ari

Re: [belajar-excel] Re: Pindah cell otomatis

[Agus nanga...@gmail.com [belajar-excel]]

On 3/8/2019 07:28, cheivory_bri...@yahoo.com [belajar-excel] wrote:


Yth. Mr. Kid dan Pak Nang Agus


Mohon pencerahannya
Setelah dicoba, terdapat debug seperti gambar terlampir.

Terima kasih






re - lembar jawab excel.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: [belajar-excel] Re: Pindah cell otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warah matullah.
Mas Kid saya coba membuat cekrip seperti contoh thread ini:

MsgBox wbka.Name & vbCrLf & _
ActiveWorkbook.CodeName & vbCrLf & _
ActiveWorkbook.Name & vbCrLf & _
shta.CodeName & vbCrLf & _
ActiveSheet.Name & vbCrLf & _
ActiveSheet.CodeName

hasilnya sebagai berikut:

Apakah, kode mas Kid di bawah ini tidak terbalik?
seharusnya yang diberi CodeName adalah Activesheet bukan ActiveWorkbook
terima kasih
Wasalamu'alaikum Warahmatullah

NangAgus

On 3/7/2019 06:24, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:
mungkin karena beberapa bagian yang salah dari imil lalu (lihat bagian 
yang diberi warna latar)


1. di vba, buat general module dan isi dengan 2 prosedur berikut 
beserta sebaris deklarasi variabelnya
public wbka as workbook, shta as worksheet  'variabel object area 
kerja si penulis nilai


public sub myProc( optional lNilai as long=0 ) 'proses menulis nilai
     if wbka.name =activeworkbook.*code*name 
 then
          if shta.codename=activesheet.name 
 then

                if activecell.column=1 then
                      if activecell.row>1 and activecell.row<=600 then
                            application.enableevents=false
                            activecell.value=lnilai
                            application.sendkeys "~"
                            application.enableevents=true
                      endif
                endif
          endif
     endif
end sub

public sub AturShortcut(optional bState as boolean=false)        
'pengubah shortcut

     if bstate then    'setup tombol dan variabel object area kerja
            'nama object sheet (bukan nama caption sheet [bukan nama 
sheet di tab sheet]) -> misal area kerja di sheet bernama AREA_INPUT 
dengan nama object sheet adalah Sheet1

            set wbka=thisworkbook:set shta=sheet1
            application.onkey "1","'myproc 1'"
            application.onkey "2","'myproc 2'"
            application.onkey "3","'myproc 3'"
            application.onkey "4","'myproc 4'"
     else
            set wbka=nothing:set shta=nothing
            application..onkey "1"
            application.onkey "2"
            application.onkey "3"
            application.onkey "4"
     endif
end sub

On Thu, Mar 7, 2019 at 5:52 AM cheivory_bri...@yahoo.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Yth. Mr. Kid


Terlampir percobaan saya atas arahan Mr. Kid.
Tetapi belum berhasil.

Mohon pencerahannya.

Terima kasih.

Ari

Re: [belajar-excel] menghitung no

[Agus nanga...@gmail.com [belajar-excel]]

Dear Ketut,
Sambil menunggu penjelasan yang lebih lengkap,
file terlampir dapat digunakan untuk pertimbangan
Regard
NangAgus

On 3/2/2019 10:41, ketut budiasa yudix_ke...@yahoo.com [belajar-excel] 
wrote:

Dear All,

Minta bantuan untuk menentukan no nota yang sudah dipergunakan.
Kita menggunakan No yang sudah ada no Serinya
Tiap Bundle Nota, terdapat 2000 Nota ( berserta no Serinya )
Masing-masing bundle Nota ada kodenya.
Setiap hari penggunakan Nota tidak tentu.
Jadi masalah pada saat ada pergantian Bundel Nota di Pertengahan Hari.
Sehingga NO Seri di Nota Berikutnya tidak bisa otomatis.
Mungkin bisa dibantu seprti dalam table berikut

Regards
Ketut







TABEL PENGGUNAAN NOTA GZ.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Array formula- Summary data dan mengurutkan total qty secara descending

[Agus nanga...@gmail.com [belajar-excel]]

File terlampir pakai pivot
On 3/2/2019 21:34, tomad_too...@yahoo.com [belajar-excel] wrote:


Dear maser2 Excel,

Selamat malam...salamk kenal sebelumnya. Ijinkan saya tanya tentang 
pelajaran array formula seperti attachment  terlampir ya.Mungkin 
sebelumnya sudah pernah dibahas. Tapi saya cari2 blm ketemu juga.


Jadi saya beranikan diri utk tanya...maafkan ya kalau memang udah 
pernah. Mohon bantuannya ya teman2




terima kasih

Slam excel selalu







tanya array formulla GZ.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] menghitung no

[Agus nanga...@gmail.com [belajar-excel]]

Dear Ketut,
saya masih bingung dengan data seperti ini:
no  tgl trx no awal notano akhir nota   KODE NOTA
1   02-02-2019  658 181910001   181910660   A1

Apakah yang dimaksud TRX adalah banyaknya nota yang dikeluarkan?
namun pada data di atas, nota yang dikeluarkan sebanyak 660 lembar ( no 
0001 sampai no 0660)
sedangkan TRX hanya 658, kemana 2 nota lainnya? bagaimana kebijakan 
perusahaan?
mohon untuk memperjelas pertanyaannya, karena file yang dilampirkan juga 
masih membingungkan saya,
(pada E15 terdapat formula =I5+E13, namun I5 kosong, apa maksudnya?,) 
semoga member yang lain tidak bingung seperti saya!

terima kasih

On 3/2/2019 10:41, ketut budiasa yudix_ke...@yahoo.com [belajar-excel] 
wrote:

Dear All,

Minta bantuan untuk menentukan no nota yang sudah dipergunakan.
Kita menggunakan No yang sudah ada no Serinya
Tiap Bundle Nota, terdapat 2000 Nota ( berserta no Serinya )
Masing-masing bundle Nota ada kodenya.
Setiap hari penggunakan Nota tidak tentu.
Jadi masalah pada saat ada pergantian Bundel Nota di Pertengahan Hari.
Sehingga NO Seri di Nota Berikutnya tidak bisa otomatis.
Mungkin bisa dibantu seprti dalam table berikut

Regards
Ketut

Re: [belajar-excel] Belajar lookup

[Agus nanga...@gmail.com [belajar-excel]]

Wa'alaikumusalam warahmatullah.
Seingat saya, saya sudah menjawab kasus ini dengan pivot,
Hanya saja kurang lengkap karena tidak saya gabung hasilnya.
Haruskah pakai formula Lookup?
pakai pivot lebih mudah dan lebih sederhana, file terlampir
Wasalamu'alaikum warahmatullah.
NangAgus
On 3/2/2019 21:50, HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel] wrote:

Assalamualaikum
Para Master Excel

Bagaimana agar pada Lookup dengan criteria Tanggal/date dengan hasil 
otomatis bisa bergabung seperti contoh excel terlampir



Terimakasih Banyak
Wassalamualaikum Wr. Wb.









Belajar Look Up GZ.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Tanya kasus pengambilan data

[Agus nanga...@gmail.com [belajar-excel]]

Lihat lampiran yang menggunakan formula

On 2/26/2019 14:19, Piter petcures2...@yahoo.com [belajar-excel] wrote:
Terima kasih banyak mas agus nangagus atas solusinya.. Sebenarnya 
pengen tahu juga yg pakai formula mas.
Mungkin mas agus nangagus bisa bantu atau para suhu excel di grup ini 
ada yg mau berbagi ilmunya..

Terima kasih.
Salam.


On 23 Feb 2019 3:13 am, "Agus nanga...@gmail.com [belajar-excel]" 
 wrote:


Pakai Pivot?
Lihat File Lampiran.
On 2/22/2019 10:29, adrian piter petcures2...@yahoo.com
<mailto:petcures2...@yahoo.com> [belajar-excel] wrote:

Selamat siang Be Excelers..

Mohon bantuannya untuk kasus yang sedang saya coba kerjakan,
terkait pengambilan data.

Data lengkap saya lampirkan dan kasus terkait ada pada /sheet/
TARGET PROV & CAB serta pada /sheet/ RINGKASAN.

Atas solusi dan urun sarannya saya ucapkan terima kasih.

Salam.









Tanya kasus_Ambil data.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Tanya : Konversi Text dari Finger Print

[Agus nanga...@gmail.com [belajar-excel]]

Wasalamu'alaikum warahmatullah,
Dear Eko,
bagaimana kalau dikalikan 1 saja!
=IF(A6**1*<=$A$4,"Ok","Telat")

wasalam
NangAgus

On 2/28/2019 10:20, Wahyu Eko abi_esc...@yahoo.com [belajar-excel] wrote:

Assalamu'alaikum Wr. Wb

Saya mau minta tolong untuk dibantu untuk solusi permasalahan konversi 
data dari fingger Print.
Saya mau membuat formula untuk rekap absensi, akan tetapi daata 
keluaran dari Fingerprint bentuknya Text sepertinya.

MOhon bantuannya..
File Terlampir.

Sebelumnya saya ucapkan terima kasih

Wassalamualaikum, Wr. Wb

Re: [belajar-excel] Formula untuk Source Chart Data Range

[Agus nanga...@gmail.com [belajar-excel]]

Dear Febri,
Saya tidak suka menggunakan formula INDIRECT, karena komputer saya 
adalah komputer Kuno dengan rescue terbatas.
Komputer saya akan menjadi lemot jika banyak menggunakan formula 
"Volatile". formula volatile yang lain adalah today(). now(), rand(), 
offset(), info(), Cell(),

sehingga formula tersebut sedapat mungkin akan saya hindari.

Untuk formula Index:
*COLUMN(cell)    --> formula ini menghasilkan nomor kolom dari cell
--COLUMN(A1) menghasilkan nilai 1
--jika dicopy ke kanan formula ini akan berubah menjadi COLUMN(B1) 
menghasilkan nilai = 2, dan seterusnya sampai kolom terakhir


*MATCH(yang dicari, tempat data, jenis pencarian)   --> formula ini 
mencari nomor ke berapa dari data yang dicari berdasarkan data sebaris 
atau sekolom

-- MATCH($B$9,$T$4:$T$6,0)
-- Jika B9 berisi YtD, maka akan dicari data YtD pada range T4:T6 ada 
pada baris ke berapa? jawabnya adalah 2 yang merupakan hasil fungsi match.


Dari kolom AA rabel Actual sampai kolom AA tabel Ytd, maupun dari kolom 
AA tabel  Ytd sampai kolom AA tabel MtD adalah 6 kolom.
untuk melompat dari kolom AA sampai kolom AA berikutnya butuh lompatan 6 
kali, maka kalikan hasil match dengan 6

(MATCH($B$9,$T$4:$T$6,0-1)*6,
kenapa harus dikurangi satu dahulu sebelum dikalikan 6?
~Jika tidak dikurangi satu dahulu berarti:
Match actual hasilnya 1 ==> dikali 6 = 6, jika ditambah lagi dengan 
Column(A1) hasilnya 7
Match YtD hasilnya 2 ==> dikali 6 = 12, jika ditambah lagi dengan 
Column(A1) hasilnya 13
Match MtD hasilnya 3 ==> dikali 6 = 18, jika ditambah lagi dengan 
Column(A1) hasilnya 19
ini merupakan hasil yang *tidak* diharapkan, karena nomor kolom yang 
benar adalah kolom AA pertama nomor 1 kolom AA kedua nomor 7, kolom AA 
ketiga nomor 13.

makanya harus dikurangi 1 dahulu agar nomor kolomnya benar.
~Jika dikurangi satu dahulu berarti:
Match actual hasilnya 1 ==> dikurangi 1 hasilnya 0, => dikali 6 = 0, 
jika ditambah lagi dengan Column(A1) hasilnya 1
Match YtD hasilnya 2 ==> dikurangi 1 hasilnya 1, => dikali 6 = 6, jika 
ditambah lagi dengan Column(A1) hasilnya 7
Match MtD hasilnya 3 ==> dikurangi 1 hasilnya 2, => dikali 6 = 12, jika 
ditambah lagi dengan Column(A1) hasilnya 13


*INDEX(datanya, nomor baris, nomor kolom) --> menentukan satu data 
berdasarkan nomor baris dan nomor kolom,

Data yang tersedia berada di B5 sampai Q5
data merupakan data satu baris sehingga nomor barisnya tidak diperlukan, 
jadi formula indec menjadi: INDEX(datanya,, nomor kolom)

Index actual atau INDEX(datanya,, 1) menghasilkan 2000
Index Ytd atau INDEX(datanya,, 7) menghasilkan 1000
Index Mtd atau INDEX(datanya,, 13) menghasilkan -1000

Kira-kira demikian, jika kurang lengkap silahkan baca Helpnya 
masing-masing fungsi di Excel


Regard
Agus

*INDEX*(*array*,row_num,column_num)

*Array*   is a range of cells or an array constant.

 *

   If array contains only one row or column, the corresponding row_num
   or column_num argument is optional.

 *

   If array has more than one row and more than one column, and only
   row_num or column_num is used, INDEX returns an array of the entire
   row or column in array.

*Row_num*   selects the row in array from which to return a value. If 
row_num is omitted, column_num is required.


*Column_num*   selects the column in array from which to return a value. 
If column_num is omitted, row_num is required.


*MATCH*(*lookup_value*,*lookup_array*,match_type)

*Lookup_value*   is the value you use to find the value you want in a table.

 *

   Lookup_value is the value you want to match in lookup_array. For
   example, when you look up someone's number in a telephone book, you
   are using the person's name as the lookup value, but the telephone
   number is the value you want.

 *

   Lookup_value can be a value (number, text, or logical value) or a
   cell reference to a number, text, or logical value.

*Lookup_array*   is a contiguous range of cells containing possible 
lookup values. Lookup_array must be an array or an array reference.


*Match_type*   is the number -1, 0, or 1. Match_type specifies how 
Microsoft Excel matches lookup_value with values in lookup_array.


 *

   If match_type is 1, MATCH finds the largest value that is less than
   or equal to lookup_value. Lookup_array must be placed in ascending
   order: ...-2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE.

 *

   If match_type is 0, MATCH finds the first value that is exactly
   equal to lookup_value. Lookup_array can be in any order.

 *

   If match_type is -1, MATCH finds the smallest value that is greater
   than or equal to lookup_value. Lookup_array must be placed in
   descending order: TRUE, FALSE, Z-A, ...2, 1, 0, -1, -2, ..., and so on.

 *

   If match_type is omitted, it is assumed to be 1.

*COLUMN*(reference)

*Reference*   is the cell or range of cells for which you want the 
column number.


 *

   If reference is omitted, it is assumed to be the reference of the
   cell in which the COLUMN function appears.

 *

   If reference is a rang

Re: [belajar-excel] Re: Menampilkan multi data dari sheet lain bedasarkan 1 kriteria

[Agus nanga...@gmail.com [belajar-excel]]

Dear Ria Puspita,
File terlampir masih sama persis dengan file lampiran yang saya kirimkan 
terdahulu.
perbedaannya hanya tempat pivotnya saja. file terdahulu pivot diletakkan 
dibawah tabel, sekarang pivot saya letakkan di atas tabel, sehingga 
Filter AP dapat langsung diletakkan pada tempat permintaan.

Sedangkan pivot disembunyikan (hide)
silahkan ganti filter AP nya
Jika tidak mau menggunakan pivot, maunya menggunakan formula, berarti 
juga memerlukan kolom bantu.

Wasalam
NangAgus
On 2/26/2019 09:21, rpspts...@yahoo.com [belajar-excel] wrote:


Dear Mas Agus,


Terimakasih sebelumnya telah bantu menjawab post saya :)

Namun yang saya maksudkan sebelumnya adalah mengambil data menggunakan 
formula di AP Tracker (di kolom yang telah saya buat >> highlight 
orange), kriteria nya adalah data validation (nomor AP di AP Tracker),

source data nya ada di AP Details (highlight orange).

Pada case ini, saya sudah mencoba menggunakan formula index namun 
hanya bisa mengambil 1 row saja (di AP tracker).

Sedangkan 1 nomor AP mempunyai beberapa data/row di sheet AP details.
Pertanyaan saya adalah bagaimana mengambil keseluruhan data tersebut 
dengan menggunakan formula?


Terimakasih :)






Account Payable Nang.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Vba QR code

[Agus nanga...@gmail.com [belajar-excel]]

Di sini 
 
Ada,

Gunakan secara bijak.

On 2/25/2019 15:07, Kelik kelikpit...@yahoo.com [belajar-excel] wrote:

Dear member Excel yang Budiman,
Adakah yang punya Vba untuk membuat QR code dengan file Excel? Tanpa 
harus terhubung dengan internet,



Terimakasih
Salam
kelik

Re: [belajar-excel] Menampilkan multi data dari sheet lain bedasarkan 1 kriteria

[Agus nanga...@gmail.com [belajar-excel]]

On 2/25/2019 14:56, Ria Puspita Sari Nuh rpspts...@yahoo.com 
[belajar-excel] wrote:

Assalamu'alaikum dan Selamat siang Member B-Excel,

Saya belajar membuat sebuah format tracking data, sehingga tidak perlu 
save file (cukup dengan menginput nomor by data validation), tapi 
terkendala pada formula.

Saya ingin menampilkan data dari AP details ke AP Tracker.
Bagaimana cara menampilkan multi data dari sheet lain berdasarkan 1 
kriteria?

File terlampir dan saya beri warna orange untuk data yang dimaksud.

Mohon bantuan dan arahan dari teman-teman milis :)

Terimakasih :)






Copy of Account Payable.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Data Pivot

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum Warahmatullah.
Bilangnya Mas Kid tidak bisa!

Saya coba saran Odong juga tidak bisa.
Namanya sudah merujuk ke File lain.
Tetap tidak bisa untuk Pivot, namun bisa dipakai untuk formula.
Lihat penjelasan Mas Kid pada threat ini.
Wasalam
NangAgus

On 2/25/2019 11:09, odong nando odongna...@yahoo.com [belajar-excel] wrote:

waalaikum salam warahmatullahi wabarakatuh.

sepertinya harus di tambahkan nama file nya mas, contoh nama file 
"kenang", sehingga table range rujukan menjadi :


='[kenang]'!Dt_Ne

note :1. file rujukan 1 folder sama file hasil
     2. belum di coba, silakan di coba2 lagi...

hehe...

br,

odong nando*
*


Pada Sabtu, 23 Februari 2019 19.38.44 WIB, Agus nanga...@gmail.com 
[belajar-excel]  menulis:



Assalamu'alaikum warahmatullah

Dear member B-Excel,

saya membuat sebuah nama pada sebuah file excel (Define Name)

Nama tersebut merujuk pada sebuah range pada file yang lain.

Nama tersebut dapat saya gunakan dengan baik pada formula excel, 
misalnya menggunakan INDEX(Nama,1,1)


Namun akan bermasalah jika digunakan di Pivot, dengan pesan " Data 
Reference is not valid"


Apakah ada kesalahan pembuatan Nama tersebut? ataukah memang pivot 
tidak dapat menggunakan nama dengan referensi file lain?


Saya membutuhkan referensi yang dinamis sesuai pesan Mas Kid di sini 
<http://excel-mr-kid.blogspot.com/2013/05/pivot-table-2-menata-data-source.html>.


Jika saya menggunakan Eksternal data dapat berjalan dengan baik, Namun 
apakah Eksternal data dengan file excel (xlsx) bersifat dinamis?


alt

Terima kasih

Agus

Re: [belajar-excel] Formula untuk Source Chart Data Range

[Agus nanga...@gmail.com [belajar-excel]]

Wa'alaikum salam warahmatullah.
Seperti inikah?
NangAgus
On 2/24/2019 21:23, febryfer...@yahoo.com [belajar-excel] wrote:


Assalamu'alaikum Wr., Wb.,

Semoga rekan-rekan milis belajar excel sedang dalam keadaan sehat 
wal'afiat.


Mohon bantuan dari rekan-rekan milis terkait hambatan yang sedang saya 
hadapi. Saya mengalami kesulitan ketika ingin mendapatkan data /chart 
data range/, tapi bersumber ke periode yang hanya dipilih saja. Jadi 
/source chart data range/ mengikuti periode yang diinginkan/dipilih.


File dummy berikut penjelasannya sudah saya sertakan di dalam 
/attachment/ pesan ini.


Mohon arahan dari rekan-rekan milis yang bisa membantu saya.

Terima kasih.







Copy of Dummy.xlsx
Description: MS-Excel 2007 spreadsheet

[belajar-excel] Data Pivot

[Agus nanga...@gmail.com [belajar-excel]]

Assalamu'alaikum warahmatullah

Dear member B-Excel,

saya membuat sebuah nama pada sebuah file excel (Define Name)

Nama tersebut merujuk pada sebuah range pada file yang lain.

Nama tersebut dapat saya gunakan dengan baik pada formula excel, 
misalnya menggunakan INDEX(Nama,1,1)


Namun akan bermasalah jika digunakan di Pivot, dengan pesan " Data 
Reference is not valid"


Apakah ada kesalahan pembuatan Nama tersebut? ataukah memang pivot tidak 
dapat menggunakan nama dengan referensi file lain?


Saya membutuhkan referensi yang dinamis sesuai pesan Mas Kid di sini 
.


Jika saya menggunakan Eksternal data dapat berjalan dengan baik, Namun 
apakah Eksternal data dengan file excel (xlsx) bersifat dinamis?


Terima kasih

Agus

Re: [belajar-excel] Tanya kasus pengambilan data

[Agus nanga...@gmail.com [belajar-excel]]

Pakai Pivot?
Lihat File Lampiran.
On 2/22/2019 10:29, adrian piter petcures2...@yahoo.com [belajar-excel] 
wrote:


Selamat siang Be Excelers..

Mohon bantuannya untuk kasus yang sedang saya coba kerjakan, terkait 
pengambilan data.


Data lengkap saya lampirkan dan kasus terkait ada pada /sheet/ TARGET 
PROV & CAB serta pada /sheet/ RINGKASAN.


Atas solusi dan urun sarannya saya ucapkan terima kasih.

Salam.







Tanya kasus_Ambil data.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Belajar lookup

[Agus nanga...@gmail.com [belajar-excel]]

Pivot?
On 2/22/2019 10:01, HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel] wrote:

Yth.Para Master

Assalamualaikum

Mohon Pencerahannya,
Saya memiliki masalah Excel tentang look up dengan criteria seperti 
Terlampir

Wassalamualaikum

Terimakasih

Hairul Alam








Copy of Belajar Look Up.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Membuat resume data [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

Wa'alaikum salam warahmatullah wabarakatuh
Heru,
file lampiran menggunakan dua kolom bantu.
Regard
Wasalam
Agus
On 2/16/2019 18:41, Heru Adi hr_a...@yahoo.com [belajar-excel] wrote:


Asslamu'alaikum teman2 milis excel,

Bagaimana cara menyusun sebuah kumpulan data  didalam suatu range 
excel kedalam suatu kolom ?


saya membutuhkan formula tersebut untuk membuat resume kedatangan 
barang dari customer setiap bulan nya.


sebelumnya saya ucapkan terimakasih banyak atas bantuan teman2 semuanya.

Note : ilustrasi contoh data terlampir


Dikirim dari Yahoo Mail di Android 








resumedata.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Membuat resume data [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

Waalaikumusalam warahmatullahi wabarakatuh

Dear Heru,
File terlampir menggunakan formula berbasis, baris: (terdapat 5 baris 
data sehingga terdapat 5 formula lookup)
=IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(LOOKUP(2, 
1/((COUNTIF(A9:$A$9,$B$4:$AF$4)=0)*($B$4:$AF$4<>"")), 
$B$4:$AF$4),LOOKUP(2, 
1/(((COUNTIF(A9:$A$9,$B$5:$AF$5)=0)*($B$5:$AF$5<>""))), 
$B$5:$AF$5)),LOOKUP(2, 
1/(((COUNTIF(A9:$A$9,$B$6:$AF$6)=0)*($B$6:$AF$6<>""))), 
$B$6:$AF$6)),LOOKUP(2, 
1/(((COUNTIF(A9:$A$9,$B$7:$AF$7)=0)*($B$7:$AF$7<>""))), 
$B$7:$AF$7)),LOOKUP(2, 
1/(((COUNTIF(A9:$A$9,$B$8:$AF$8)=0)*($B$8:$AF$8<>""))), $B$8:$AF$8)),"")


kalau berbasis kolom, berarti ada 31 kolom yang harus ditangani berarti 
terdapat 31 formula lookup:

=IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(LOOKUP(2,1/((COUNTIF(D17:$D$17,$B$4:$B$8)=0)*($B$4:$B$8<>"")),$B$4:$B$8),LOOKUP(2,1/(((COUNTIF(D17:$D$17,$C$4:$C$8)=0)*($C$4:$C$8<>""))),$C$4:$C$8)),LOOKUP(2,1/(((COUNTIF(D17:$D$17,$D$4:$D$8)=0)*($D$4:$D$8<>""))),$D$4:$D$8)),LOOKUP(2,1/(((COUNTIF(D17:$D$17,$E$4:$E$8)=0)*($E$4:$E$8<>""))),$E$4:$E$8)),LOOKUP(2,1/(((COUNTIF(D17:$D$17,$F$4:$F$8)=0)*($F$4:$F$8<>""))),$F$4:$FB$8)),"")
formula di atas baru menangani 5 kolom, masih perlu dibuat formula untuk 
21 kolom berikutnya.

kita tunggu formula yang lebih pendek.

Paling mudah sebenarnya menggunakan remove duplikat, advance filter atau 
dengan pivot table.

Wasalam
Agus

On 2/16/2019 18:41, Heru Adi hr_a...@yahoo.com [belajar-excel] wrote:


Asslamu'alaikum teman2 milis excel,

Bagaimana cara menyusun sebuah kumpulan data  didalam suatu range 
excel kedalam suatu kolom ?


saya membutuhkan formula tersebut untuk membuat resume kedatangan 
barang dari customer setiap bulan nya.


sebelumnya saya ucapkan terimakasih banyak atas bantuan teman2 semuanya.

Note : ilustrasi contoh data terlampir


Dikirim dari Yahoo Mail di Android 








resumedata.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Conditional Formating dengan kriteria khusus [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

Dear Abdul,
Coba file terlampir.
saya tidak punya wps untuk mencoba.
sudah saya coba di libreOffice berjalan normal
salam
Agus
On 2/9/2019 09:42, ab readnow abiez_read...@yahoo.co.id [belajar-excel] 
wrote:

Mohon bantuan para suhu untuk penambahan kriteria Conditional Formatting..
Saya memakai program WPS Spreadsheets 10 bukan MS. Excel tapi saya 
lihat fungsi yang lain bisa diterapkan pada keduanya.



Terima Kasih
Abdul






Copy of Conditional Formatting Kriteria-1.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Meletakkan angka sesuai tempatnya

[Nang Agus nanga...@gmail.com [belajar-excel]]

Dear Nunuk,
Coba di K1 ketik formula:
=COUNTIF($B3:$F3,K$2)*K$2
Jangan lupa ganti karakter , menjadi ; jika regional setting anda bahasa
Indonesia.

untuk menghilangkan nol dari pandangan mata dapat digunakan format Cell:
piluh Custom, kemudian ketik:  #;;;


Regard
NangAgus

On Fri, Feb 8, 2019 at 3:10 PM Nunuk Y Saptaningtyas eny...@gmail.com
[belajar-excel]  wrote:

>
>
> Selamat siang pakar excel yang saya hormati,
> Mohon bantuannya, saya harus memakai rumus seperti apa, untuk menempatkan
> angka sesuai urutan angka yang telah ditentukan.
> Permasalah terlampir.
>
> Terimakasih banyak atas bantuannya
> --
> Regards,
>
> Nunuk Yuliani Saptaningtyas
>
> www.enyees.com
> www.bunbunenyees.blogspot..com 
>
> 
>

Re: [belajar-excel] Fungsi trap error

[Agus nanga...@gmail.com [belajar-excel]]

Wooww Kereen.
ada programmer yang tidak menemukan error dalam programnya

microsoft excel aja ada pacth yang gunanya untuk memperbaiki error.

On 2/3/2019 17:03, Tio Ali tioali2...@yahoo.co.id [belajar-excel] wrote:
OK. Katakanlah saya tidak butuh tampilan. Untuk masalah kalkulasi kan 
bisa si programmer membuat bahwa kalau datanya nol (0) atau tidak 
diisi, maka user wajib isi data itu, kalau tidak diisi, maka tidak 
bisa lanjut ke proses berikutnya seperti proses save (simpan).
Kalau masalah error karena delete file, maka memang perlu trap error 
supaya tidak timbul notifikasi (peringatan). Tapi kalau ketika input 
data, trap error fungsinya apa ya ?
Yang saya maksud trap error seperti syntax On error goto 
labelPeringatan, atau trap error seperti on error goto 0. Kalau on 
error goto 0, ini memang bagus untuk programmer supaya tahu mana code 
yang salahnya. Tapi kalau sudah diantisipasi semua kesalahan data dari 
input user, maka trap error goto 0 sdh tidak berfungsi lagi. Menurut 
saya begitu. Lalu, trap error ketika input data, fungsinya apa ya ? 
Apakah cuma karena mati lampu  shg datanya error atau bagaimana ?


Terima kasih atas jawabannya.


Pada Minggu, 3 Februari 2019 09.22.55 GMT+8, hendrik karnadi 
hendrikkarn...@yahoo.com [belajar-excel] 
 menulis:



Hai Tio,

Setahu saya trap error diperlukan untuk tampilan maupun kalkulasi.

Salam,
HK

Sent from Yahoo Mail on Android 



On Sat, Feb 2, 2019 at 21:34, Tio Ali tioali2...@yahoo.co.id
[belajar-excel]
 wrote:

Maaf mau tanya.

Sebenarnya fungsi trap error untuk apa ya kegunaannya ? Kalau
error terjadi karena user tidak input data, kan programmer itu
bisa buat semacam kewajiban bagi user untuk input data

Terima kasih atas jawabannya...

Re: [belajar-excel] Menulis nilai dengan desimal tertentu dari cell worksheet ke textbox di userform dan mengeluarkan nilainya kembali ke cell tertentu

[Agus nanga...@gmail.com [belajar-excel]]

Dear Tio,
Kenapa angka di cell dan di user form berbeda? apakah memang harus 
ditambah 10.000?
Perlu di ingat bahwa cell excel hanya dapat menampung 15 digit secara 
akurat.
Jadi nilai 1.345.345.567.778,888 tidak dapat dihitung excel dalam cell 
secara akurat, karena sudah 16 digit.
CEll excel akan membulatkannya menjadi 15 digit (1.345.345.567.778,88). 
demikian pula nilai 123.456.789.012.345.678.901 akan diubah menjadi

123.456.789.012.345.000.000

Jika angka yang ditangani tidak sampai 15 digit dapat langsung 
dimasukkan userform dan ke cell.
Jika angka yang ditangani lebih dari 15 digit, disimpan dalam cell 
bertype text dan dihitung di vba dengan type double.


dicoba menggunakan cekrip:
TextBox1.Text = Format(Range("A1"), "#,###.##")
Range("A2") = TextBox1.Text * 3

Salam
KenangAgus


On 1/30/2019 19:59, Tio Ali tioali2...@yahoo.co.id [belajar-excel] wrote:


Salam BeExceller

Saya kesulitan sekali untuk soal ini. Sudah coba googling tetap gak 
ketemu jawabannya.

Soal saya adalah:
Misal di cell A1 tertulis nilai*130*.567,356. Saya ingin menuliskan 
nilai itu sesuai desimal apa adanya tanpa pembulatan.Di userform, yang 
diinginkan juga tertulis di textboxnya adalah *140*.567,356. Yakni 
dengan separator (pemisah) ribuan dan ada nilai desimalnya tepat 
sesuai nilai asalnya.. Kemudian di userform itu dikalikan dengan nilai 
3 misalnya. Hasil dari perkalian itu ditampilkan ke cell A2 tepat 
dengan desimalnya (tanpa ada pembulatan) dan ada pemisah ribuan.
Bagaimana cara melakukan itu semua ? Saya frustasi mencari solusinya. 
Sudah cari ke google, tetap gak ada solusinya.


Terima kasih atas jawabannya. Semoga amal baiknya diterima di sisiNya. 
Amiin


Tio

Re: [belajar-excel] Fw: Memaksa user mengaktifkan Macro

[Agus nanga...@gmail.com [belajar-excel]]

Dear Pak Hendrik.
Pada file tersebut terdapat dua perintah yang dijalankan lewat macro:
1. Perintah pertama memerintah excel untuk membuka (menampakkan 
(visible)) semua sheet kecuali sheet "1". (sheet "1" disembunyikan)
Perintah ini dijalankan pertama kali saat file dibuka dan macronya 
dihidupkan.
2. Perintah kedua memerintah excel untuk menyembunyikan semua sheet 
kecuali sheet "1" (sheet "1" ditampilkan)

Perintah ini dijalankan sesaat sebelum file ditutup. (workbook before Close)

Jadi apabila macronya dimatikan sebelum file ditutup, maka file tersebut 
akan disimpan dalam keadaan saat itu karena macro perintah ke 2 tidak 
dapat dijalankan.


Salam

On 1/30/2019 12:05, hendrik karnadi hendrikkarn...@yahoo.com 
[belajar-excel] wrote:
Ini terjadi di komputer saya sebelum mengirim email ini, namun ketika 
saya download file lampiran yang saya kirim dan *buka pertama 
kalitampilannya benar *(petunjuk untuk mengaktifkan macro).
Tapi jika */sudah "Enable Content"/* dan */buka file/* *lampirannya* 
untuk */kedua kali/* (/*walaupun Macro Setting masih Disable*/)/maka 
*tampilannya Sheets untuk menjalankan Macro*./


Apakah hal tersebut terjadi karena saya *PERNAH* "*Enable Content*" 
(*sekali Enable berlaku terus*)?


Salam,
HK


- Pesan yang Diteruskan -
*Dari:* hendrik karnadi 
*Kepada:* BeExcel 
*Terkirim:* Rabu, 30 Januari 2019 11.47.54 GMT+7
*Judul:* Memaksa user mengaktifkan Macro

Selamat pagi rekan2 BeExcel,

Saya menemukan file ber Macro (kalau ga salah dr Mas Nang Agus) 
mengenai topik di atas.
Tujuannya adalah memaksa user mengaktifkan Macro jika Macronya belum 
aktif.


- Jika User membuka file yang mengandung Macro sementara */Macronya/ 
*/*belum diaktifkan* (/*/disable/*/) /maka akan ditampilkan 1 Sheet 
yang memberikan petunjuk kepada user untuk mengatifkan Macronya.
- Jika user membuka file yang mengandung Macro sementara */Macronya/ 
/sudah diaktifkan/* (/*enable*/) maka akan ditampilkan beberapa Sheet 
(Sheets) untuk menjalankan Macronya.


Macronya spt ini (ada di VBE Sheet (ThisWorkbook) pada file terlampir) :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim w As Worksheet
   Sheets("1").Visible = -1
   For Each w In Worksheets
      If w.Name <> "1" Then w.Visible = 2
   Next w
   If Not ActiveWorkbook.Saved Then
   ThisWorkbook.Save
End If
End Sub

Private Sub Workbook_Open()
   Dim w As Worksheet
    For Each w In Worksheets
      w.Visible = -1
    Next w
   Sheets("1").Visible = 2
End Sub

Sheets("1") berisi cara2 untuk mengaktifkan macro sedangkan Sheets 
lainnya (<> "1") adalah Sheets untuk menjalankan Macro.


*Yang ingin saya tanyakan...*
Pada saat macro dalam keadaaan disable spt ini,
Jadikan gambar sebaris
kemudian saya membuka file tsb...

Mengapa yang tampil adalah Sheets untuk menjalankan Macro bukan 1 
Sheet yang memberikan petunjuk untuk mengatifkan Macro ?


Semoga para sesepuh dapat memberikan pencerahan.

Terima kasih.


Salam,
HK

Re: [belajar-excel] Function: TEXT

[Agus nanga...@gmail.com [belajar-excel]]

Assalamualaikum warahmatullah,
mas Kid, Terima kasih atas penjelasannya
sekarang sudah tahu penggunaan "" dan \
Wasalamualaikum Warahmatullah
Agus
On 1/29/2019 07:17, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

Wa'alaikumussalam wr wb

coba di a1 ditulis formula ="milis ""belajar-excel"" di yahoogroups"
lalu di a2 dan a4 diisi dengan formula =today()
a2 di format cells -> tab number -> item Custom -> tulis di text box 
format bunyi mmm\
a3 di fromat cells -> tab number -> item Custom -> tulis di text box 
format bunyi mmm\\
a4 di fromat cells -> tab number -> item Custom -> tulis di text box 
format bunyi mmm"\"


Jadi, apa manfaat "" ?
dan apa manfaat \\ ?

Wassalamu'alaikum wr wb
Kid





On Fri, Jan 25, 2019 at 5:55 PM Agus nanga...@gmail.com 
 [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> 
wrote:


Assalamualaikum warahmatullahi wabarakatuh.

Menyimak penjelasan mas Kid tentang format text:

=Replace( Lower( Text( a2 , "dd""\"&c2&"\""mmm\\" ) ) , 3 , 0
, Text( b2 , "000" ) ).

saya mencoba untuk mengubah menjadi "nested" function Text:

=TEXT(A2,"dd"""&TEXT(B2,"000")&"\"&C2&"\""mmm\\")

Hasilnya sama persis.

Yang masih menjadi ganjalan dan belum mendapatkan penjelasan
adalah format penggunaan karakter """, dan \\ saya cari di web
maupun di help tidak ada. mohon kiranya untuk menjelaskan aturan
penggunaannya.

terima kasih

Wasalamualaikum warahmatullah wabarakatuh.

Re: [belajar-excel] Re: Pindah cell otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Dear Ari

Tentunya, jika diketik langsung harus ditekan enter untuk memasukkan data.

setahu saya, tidak bisa hanya mengetik angka 1 kemudian otomatis ke 
baris berikutnya. (tanpa tekan enter atau keybord lainnya)


Salam

KenangAgus




On 1/27/2019 13:29, cheivory_bri...@yahoo.com [belajar-excel] wrote:


Terima kasih Pak Kenang Agus solved..


Mohon maaf, bagaimana kalau di setiap cell kolom A cara mengisinya 
dengan cara memasukkan/mengetik 1 pilihan - pilihannya : 1/2/3/4 
(bukan memilih dari data validation) .. jika sudah mengetik pilihan 
maka otomatis kursor berpindah otomatis ke sel bawahnya ..


Terima kasih. Ari

Re: [belajar-excel] Pindah cell otomatis

[Agus nanga...@gmail.com [belajar-excel]]

Dear Ari.
dicoba cekrip berikut:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Single
r = ActiveCell.Row
Range("A" & r + 1).Select
End Sub

salam
NangAgus
On 1/26/2019 17:44, cheivory_bri...@yahoo.com [belajar-excel] wrote:


Yth. Be-exceller


Mohon bantuannya atas kasus saya ...


Misalnya :

di A1:A600 diisi data validation dengan pilihan misalnya 1, 2, 3, 4.

Bagaimana kode macronya bila di setiap cell yang sudah diisi suatu 
pilihan maka, otomatis akan berpindah 1 sel di bawahnya ?



Terima kasih.


Ari

Re: [belajar-excel] Drop Down List

[Agus nanga...@gmail.com [belajar-excel]]

Maaf alamat web mas Kid terlupa : disini 

Mau Belajar ComboBox? belajar dengan Mr Kid di sini 
tempatnya.

Pada lampiran sekedar contoh. tanpa macro sama sekali.
hanya menyesuaikan format control dropdown list.

Salam
Nangagus
On 1/26/2019 11:38, danank...@yahoo.com [belajar-excel] wrote:

Selamat siang teman-teman...

Untuk pertanyaan kemarin mengenai Drop Down List, kali ini sy 
lampirkan contoh case nya. Mungkin ada solusi agar langkah tersebut 
dapat dilakukan.


Combo box "Kategori" akan menampilkan drop down list dari Kategori A, 
B, C, D, E


Combo box "Sublist" akan menampilkan drop down list sesuai kategori 
nya misal Kategori dipilih A maka combo box "Sublist" hanya akan 
menampilkan drop down list dari kategori A yaitu 111, 222, 333, 444, 555


Cell C19 (warna merah) akan berisi rumus yang menghitung hasil 
perkalian dari angka yang dipilih di combo box "Sublist" dikalikan 
dengan 100


1. Bagaimana cara membuat combo box bertingkat tersebut?
2. Bagaimana agar cara ini dapat dilakukan? Apakah harus menggunakan 
Macro atau dengan rumus/fitur di excel?


Terima kasih sebelumnya

Re: [belajar-excel] Drop Down List [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

Mau Belajar ComboBox? belajar dengan Mr Kid di sini tempatnya.
Pada lampiran sekedar contoh. tanpa macro sama sekali.
hanya menyesuaikan format control dropdown list.

Salam
NangAgus
On 1/26/2019 11:38, danank...@yahoo.com [belajar-excel] wrote:

Selamat siang teman-teman...

Untuk pertanyaan kemarin mengenai Drop Down List, kali ini sy 
lampirkan contoh case nya. Mungkin ada solusi agar langkah tersebut 
dapat dilakukan.


Combo box "Kategori" akan menampilkan drop down list dari Kategori A, 
B, C, D, E


Combo box "Sublist" akan menampilkan drop down list sesuai kategori 
nya misal Kategori dipilih A maka combo box "Sublist" hanya akan 
menampilkan drop down list dari kategori A yaitu 111, 222, 333, 444, 555


Cell C19 (warna merah) akan berisi rumus yang menghitung hasil 
perkalian dari angka yang dipilih di combo box "Sublist" dikalikan 
dengan 100


1. Bagaimana cara membuat combo box bertingkat tersebut?
2. Bagaimana agar cara ini dapat dilakukan? Apakah harus menggunakan 
Macro atau dengan rumus/fitur di excel?


Terima kasih sebelumnya






Copy of Case2.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Re: Mohon dinbantu untuk tanggal Jatuh Tempo Pembayaran. Apakah bisa dilakukan perhitungan pada textbox?

[Agus nanga...@gmail.com [belajar-excel]]

Dear Roni,
Kelihatannya anda menggunakan format text untuk tanggal:
contoh:
Txt2.value = Format(Now(), "dd--")
atau cekrip saya kemarin:
Txt10 = Format(tgl + Txt8.Text, "dd--")
hasil data seperti itu tidak dapat dihitung, karena bertipe text, agar 
dapat dihitung harus bertype date.


regards
Agus
On 1/25/2019 17:05, y.ron...@yahoo.com [belajar-excel] wrote:


Dear NangAgus,


Untuk tanggal sebelumnya dia tidak bisa menghitung Due date nya. Mohon 
dibantu lagi dong

Terimakasih


Regards,
Roni

[belajar-excel] Function: TEXT

[Agus nanga...@gmail.com [belajar-excel]]

Assalamualaikum warahmatullahi wabarakatuh.

Menyimak penjelasan mas Kid tentang format text:

=Replace( Lower( Text( a2 , "dd""\"&c2&"\""mmm\\" ) ) , 3 , 0 , 
Text( b2 , "000" ) ).


saya mencoba untuk mengubah menjadi "nested" function Text:

=TEXT(A2,"dd"""&TEXT(B2,"000")&"\"&C2&"\""mmm\\")

Hasilnya sama persis.

Yang masih menjadi ganjalan dan belum mendapatkan penjelasan adalah 
format penggunaan karakter """, dan \\ saya cari di web maupun di help 
tidak ada. mohon kiranya untuk menjelaskan aturan penggunaannya.


terima kasih

Wasalamualaikum warahmatullah wabarakatuh.

Re: [belajar-excel] Drop Down List

[Agus nanga...@gmail.com [belajar-excel]]

Dear Rahagung,
Menurut saya bergantung kebutuhan dan kerumitan formula, bisa dengan 
macro bisa pula dengan formula.
dengan macro-pun dapat diproses di vba baru ditulis di cell, dapat pula 
formula ditulis menggunakan VBA.
Sangat disarankan untuk menggunakan fitur yang sudah disediakan excel 
daripada menggunakan VBA.


On 1/25/2019 07:11, Rahagung Dananjoyo danank...@yahoo.com 
[belajar-excel] wrote:

Selamat pagi teman-teman...

Ada beberapa hal yg ingin sy diskusikan

Misal sy membuat drop down list dari Data Validation di cell A1.
Pada cell A5, sy membuat formula/rumus yg merujuk pada cell 
A1(nilai/kategori yg dipilih dari dropdown list tsb).
Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada 
drop down list tsb.


Pertanyaan nya adalah :
Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro, 
Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa 
tidak pakai Macro?


Terima kasih sebelumnya untuk solusi dan diskusinya


Sent from Yahoo Mail on Android 

Re: [belajar-excel] Re: Mohon dinbantu untuk tanggal Jatuh Tempo Pembayaran. Apakah bisa dilakukan perhitungan pada textbox?

[Agus nanga...@gmail.com [belajar-excel]]

Dear Roni,
Maksud Cekript Mr Kid begini:

Private Sub Txt8_Change()
Dim tgl As Date  'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd--")   'kemudian tambahkan 
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil 
(Txt10=).

End Sub

Salam
NangAgus

On 1/24/2019 11:42, y.ron...@yahoo.com [belajar-excel] wrote:


Dear Mr Kid,


Saya belum paham, bisakah scriptnya dimasukkan ke lampiran ke excel.
Terimakasih



Regards,
Roni

Re: [belajar-excel] Memecah kalimat panjang hasil copy paste dari pdf ke kolom tertentu di beberapa baris di worksheet

[Agus nanga...@gmail.com [belajar-excel]]

Dear Tio,

Bisa dicoba Cekript ini:
Private Sub CommandButton1_Click()
Dim n As Single
Dim i As Single
Dim y As Single
Dim yy As Single
Dim ii As Single
yy = 1
n = Int(Len(TextBox1.Text) / 41)
For i = 1 To n
For ii = 41 + y To 41 + y + 12
If Mid(TextBox1.Text, ii, 1) = " " Then
y = ii
Exit For
End If
Next ii
If i = n Then
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, 40)
Else
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, y - yy)
End If
yy = 1 + y
Next i
End Sub
salam KenangAgus

On 1/23/2019 10:42, Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel] wrote:


Dear Bexceller,

Saya ada pertanyaan.

Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang.

Teks yang panjang ini ditempatkan di userform.

Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat 
panjang itu jadi beberapa baris dan ditempatkan di cell tertentu. 
Contohnya di kolom A di beberapa baris.**


Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat 
yang panjang dan memecahnya ? Dan bagaimana cara meletakkannya di 
beberapa baris di kolom tertentu ?**


**

*Contoh soal terlampir.*

.

Re: [belajar-excel] Re: Mohon dinbantu untuk tanggal Jatuh Tempo Pembayaran. Apakah bisa dilakukan perhitungan pada textbox?

[Agus nanga...@gmail.com [belajar-excel]]

Dear Roni,
Maksud Cekript Mr Kid begini:

Private Sub Txt8_Change()
Dim tgl As Date  'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd--")   'kemudian tambahkan 
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil 
(Txt10=).

End Sub

Salam
NangAgus

On 1/24/2019 11:42, y.ron...@yahoo.com [belajar-excel] wrote:


Dear Mr Kid,


Saya belum paham, bisakah scriptnya dimasukkan ke lampiran ke excel.
Terimakasih



Regards,
Roni

Re: [belajar-excel] Macro untuk mengambil Serial Number Komputer

[Agus nanga...@gmail.com [belajar-excel]]

Dear Pak Hendrik
Selamat malam,
saya menggunakan cekript di bawah pada Visual Basic 6.0.
dicoba dahulu pak Hendrik semoga berfungsi dikomputer pak Hendrik.
saya pakai juga di Excel 2007 berfungsi normal.

Option Explicit
Sub SerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim procid As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.SerialNumber
If procid < objs.Count Then procid = procid & ","
Next
*MsgBox procid*
End Sub

Salam
KenangAgus

On 1/24/2019 11:38, hendrik karnadi hendrikkarn...@yahoo.com 
[belajar-excel] wrote:

Dear Be-Excel,

Selamat pagi, salam sejahtera.

Pada kesempatan ini saya ingin bertanya :
Bagaimanakah perintah Macro di Excel (/*jika bisa*/) untuk mengambil 
Serial Number dari komputer yang sedang kita gunakan ?

Saya akan menggunakan Serial Number ini untuk mem-password file Excel.

Di bawah ini adalah Serial Number yang saya dapatkan melalui perintah 
Cmd:\, WMIC BASEBOARD GET PRODUCT, .


Inline image

Terima kasih.

Salam,
HK

Re: [belajar-excel] Membuat Rekap Beda Tabel dan Beda Kolom [1 Attachment]

[Agus nanga...@gmail.com [belajar-excel]]

ini email dari pak Ghozi
On 1/22/2019 16:34, ghozi alkatiri ghozialkat...@yahoo.co.id 
[belajar-excel] wrote:

di C30
=INDEX($C$5:$L$14,MATCH($B$19,$B$5:$B$14,0),MATCH(B30,$C$3:$L$3,0)+IF(OR($B$19="belanja",$B$19="pulsa",$B$19="komputer"),0,1))

copi ke bawah

wassalam

Ghozi Alkatiri
Pada Selasa, 22 Januari 2019 16.09.09 WIB, Rahagung Dananjoyo 
danank...@yahoo.com [belajar-excel]  
menulis:



Selamat sore...

Alhamdulillah bisa nimbrung lagi ke grup milis ini, setelah beberapa 
tahun sempat nggak monitor karena emailnya lupa password. Banyak 
sekali solusi yang pernah saya dapatkan dari milis ini untuk beberapa 
case dalam mengolah data di excel.


Selamat sore para master excel dan teman-teman di milis ini...

Saat ini ada hal yang ingin saya diskusikan. Saya punya 2 tabel yang 
mempunyai jumlah kolom yang berbeda. Tabel 1 adalah sumber data dan 
Tabel 2 adalah Tabel untuk rekap.
Tabel 1 ada kolom kategori (belanja, pulsa, transportasi, dst) dan ada 
row A,B,C,D,E
A,B,C,D,E tersebut terbagi lagi menjadi 2 kolom Total dan Satuan, yang 
semua ada nilainya

Tabel 2 ada kolom A,B,C,D,E dan kolom nilai

Tujuan saya adalah ketika saya ketik kategori di cell berwarna kuning, 
maka nilai tersebut akan muncul di Tabel 2. Tetapi ada rule nya yaitu 
: Jika yang diinput di cell warna kuning adalah Belanja, Pulsa, 
Komputer, maka data yang akan masuk ke Tabel 2 adalah dari kolom 
Total. Jika yang diinput di cell warna kuning selain Belanja, Pulsa, 
Komputer, maka data yang akan masuk ke Tabel 2 adalah dari kolom Satuan.
Mohon bantuan dan solusi untuk rumus yang harus ditulis pada kolom di 
Tabel 2 agar Rekap yang diinginkan tadi bisa berjalan


Berikut file saya lampirkan di email ini

Terima kasih










Membuat Rekap Beda Tabel dan Beda Kolom22012019.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Membuat Rekap Beda Tabel dan Beda Kolom

[Agus nanga...@gmail.com [belajar-excel]]

Dear Rahagung,
Apakah email dari pak Ghozi tidak terbaca?
email dari pak Ghozi sudah lengkap beserta lampirannya.
Salam
NangAgus
On 1/23/2019 09:11, Rahagung Dananjoyo danank...@yahoo.com 
[belajar-excel] wrote:


Selamat pagi,


Terima kasih Pak Hendrik Karnadi untuk bantuan solusinya. Setelah 
membaca penjelasan yg diberikan sy coba baca baca artikel ttg fungsi 
index, match dan If.

Dan sy jg mulai mencoba utk mendefinisikan rumus yg tepat.
Ada beberapa pertanyaan :
1. Utk fungsi Match, utk range lookup_array nya termasuk kolom 
kategori dan semua nilai nya?
2. Sy kesulitan utk mendefinisikan rumus IF nya, terutama utk 
menentukan pada kolom yg dipilih


Terima kasih sebelumnya

Sent from Yahoo Mail on Android 



On Tue, 22 Jan 2019 at 22:21, hendrik karnadi
hendrikkarn...@yahoo.com [belajar-excel]
 wrote:

Hai Rahagung Dananjoyo,


Coba gunakan fungsi Index.
Penulisannya sbb:
=Index(Range,Baris,Kolom
P
- Range termasuk kolom Kategori
- Untuk menentukan Baris, gunakan fungsi Match antara Kategori
dengan Kategori yang dipilih
- Untuk menentukan Kolom, gunakan fungsi If untuk menentukan kolom
yang dipilih (Total atau Satuan).

Selamat mencoba.

Salam,
HK


Sent from Yahoo Mail on Android


On Tue, Jan 22, 2019 at 16:08, Rahagung Dananjoyo
danank...@yahoo.com [belajar-excel]
 wrote:
Selamat sore...

Alhamdulillah bisa nimbrung lagi ke grup milis ini, setelah
beberapa tahun sempat nggak monitor karena emailnya lupa
password. Banyak sekali solusi yang pernah saya dapatkan dari
milis ini untuk beberapa case dalam mengolah data di excel.

Selamat sore para master excel dan teman-teman di milis ini...

Saat ini ada hal yang ingin saya diskusikan. Saya punya 2
tabel yang mempunyai jumlah kolom yang berbeda. Tabel 1 adalah
sumber data dan Tabel 2 adalah Tabel untuk rekap.
Tabel 1 ada kolom kategori (belanja, pulsa, transportasi, dst)
dan ada row A,B,C,D,E
A,B,C,D,E tersebut terbagi lagi menjadi 2 kolom Total dan
Satuan, yang semua ada nilainya
Tabel 2 ada kolom A,B,C,D,E dan kolom nilai

Tujuan saya adalah ketika saya ketik kategori di cell berwarna
kuning, maka nilai tersebut akan muncul di Tabel 2. Tetapi ada
rule nya yaitu : Jika yang diinput di cell warna kuning adalah
Belanja, Pulsa, Komputer, maka data yang akan masuk ke Tabel 2
adalah dari kolom Total. Jika yang diinput di cell warna
kuning selain Belanja, Pulsa, Komputer, maka data yang akan
masuk ke Tabel 2 adalah dari kolom Satuan.
Mohon bantuan dan solusi untuk rumus yang harus ditulis pada
kolom di Tabel 2 agar Rekap yang diinginkan tadi bisa berjalan

Berikut file saya lampirkan di email ini

Terima kasih

Re: [belajar-excel] Error Fungsi Index,Match,Address

[Agus nanga...@gmail.com [belajar-excel]]

Dear Firman,
Seingat saya saya pernah mengirimkan jawaban untuk kasus ini, di sini 
dibagian paling bawah


atau di sini 
 
dengan lampiran di sini 


kasus ini hanya berbeda kolom dengan kasus yang lalu
Mungkin di E3 dapat digunakan formula:
=IFERROR(INDEX(Data!$A$3:$A$27,MATCH(C3,INDEX(Data!$B$3:$AH$27,,MATCH(D3,Data!$B$2:$AH$2,0)),0)),"")

mohon maaf saya tidak suka menggunakan formula INDIRECT, karena formula 
tersebut termasuk formula *Volatile*.


Salam
KenangAgus

On 1/9/2019 14:24, Firman fseti...@gmail.com [belajar-excel] wrote:

Dear Master Exceler

Saya menjalankan fungsi Index,Match,Address dengan menarik data dari 
sheet yang berbeda, tetapi masih ada data yang #N/A, atau tidak 
terbaca, mohon solusinya..


rumus sbb : formula ada di "Sheet1" dan data di "Data"

="Data!A"&MATCH(C6,INDIRECT("Data!"&ADDRESS(3,MATCH(D6,Data!$A$2:$AH$2,0))&":"&LEFT(ADDRESS(3,MATCH(D6,Data!$A$2:$AH$2,0)),2)&27),0)+2

Trima kasih

Firman

Re: Bls: Bls: [belajar-excel] Xcelsius Multiple Criteria

[Agus nanga...@gmail.com [belajar-excel]]

Assalamualaikum warahmatullah,
Jika disini membicarakan aplikasi Xcelsius maka menjadi topik VOOT, 
nanti bisa ditendang bang Momod.

mohon maaf saya tidak mempelajari Xcelsius.
Wasalam
On 1/9/2019 19:02, odong nando odongna...@yahoo.com [belajar-excel] wrote:

waalaikumsalam warahmatullahi wabarakatuh,
hai mas kenang,

klo saya tidak salah, yang di keluhkan p iman itu tidak berfungsinya, 
formula SUMPRODUCT pada aplikasi xcelsius, beliau menginginkan 
formula penggati dari SUMPRODUCT dan SUMIF, di mohon arahan dari mas 
kenang dan rekan2 belajar excel selanjutnya. karena bisa jadi 
refrensi tambahan bagi pengguna excel, khususnya saya... :)

br,

odong nando*
*



*Dari:* "Agus nanga...@gmail.com [belajar-excel]" 


*Kepada:* belajar-excel@yahoogroups.com
*Dikirim:* Rabu, 9 Januari 2019 6:52
*Judul:* Re: Bls: [belajar-excel] Xcelsius Multiple Criteria

Assalamualaikum warahmatullah,
Dear Iman.

Jika Rumus Mas Odong benar berarti dapat menggunakan SUMPRODUCT:
=SUMPRODUCT(($B$9:$B$17=$C$4)*($C$9:$C$17=$C$5)*(D9:D17))
(bukan array formula)
Wassalam
NangAgus

On 1/8/2019 16:59, odong nando odongna...@yahoo.com 
<mailto:odongna...@yahoo.com> [belajar-excel] wrote:

waalaikumsalam warahmatullahi wabarakatuh,

hai iman,

saya sih ga tau ya gmn program xcelsius, tp sepanjang bisa 
menggunakan array formula yg biasa klo formula di excel diahiri dgn 
ctrl+shif enter, mungkin bisa pake sum yang di padukan dgn if


=SUM(IF($B$9:$B$17=$C$4;IF($C$9:$C$17=$C$5;IF($D$8:$O$8=D$3;$D$9:$O$17

array formula yang diahiri dgn ctrl+shif enter

ganti karakter titik koma ";" dengan koma "," jika regional setingnya 
english


mungkin bisa di coba, klo berhasil info ya, sebelum para master excel 
bertitah...

hehe...
br,

odong nando*
*



*Dari:* "idz.i...@yahoo.com [belajar-excel]" 
<mailto:idz.i...@yahoo.com[belajar-excel]> 
 <mailto:belajar-excel@yahoogroups.com>
*Kepada:* belajar-excel@yahoogroups.com 
<mailto:belajar-excel@yahoogroups.com>

*Dikirim:* Selasa, 8 Januari 2019 10:20
*Judul:* [belajar-excel] Xcelsius Multiple Criteria [1 Attachment]

Assalammualaikum warahamatullah wabarakatuh,

mohon bantuannya, saya lagi buat dashboard di program Xcelsius.
Xcelsius ini banyak sekali tidak support dengan rumus2.

nah saya ada contoh multiple criteria yang biasanya saya pakai 
SUMPRODUCT ataupun SUMIFS, sayangnya untuk Xcelsius dia tidak 
support, saya mau tanya apakah ada logic lain yang bisa 
dibaca/support oleh Xcelsius?


salam
Iman