Selasa, 28 Januari 2014

[belajar-excel] Digest Number 2752

15 New Messages

Digest #2752
1a
Re: Menjumlah dengan kriteria by "Hendrik Karnadi" hendrikkarnadi
2a
Mohon bantuannya by "harry siswanto" hsiswanto
3a
Rumus kelipatan by "Bayu Arsyad"
3b
Re: Rumus kelipatan by "Bagus" bagus4bls
3d
5a
Re: Copy Paste Banyak Tabel Terpisah by "Soengging respati naba" respati007
5b
Re: Copy Paste Banyak Tabel Terpisah by "Soengging respati naba" respati007
5c
Re: Copy Paste Banyak Tabel Terpisah [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
6a
menemukan baris terakhir di kolom tertentu by "achmad adi" didon13@ymail.com
7
Format Rupiah by "Eko Noviyanto" nopenk77

Messages

Mon Jan 27, 2014 8:52 pm (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Ada satu pertanyaan yang mungkin  msh bisa ditanyakan:
Apakah jumlah buah pada msg2 kolom selalu hanya 1 (satu)?

Salam,
HK

Sent from Samsung Mobileheru mulyono <hmulyono24@gmail.com> wrote:Terimakasih Hermanto
Sangat memuaskan

Pada 28 Januari 2014 10.15, Hirmanto <hirmanto@bridgestone.co.id> menulis:
 
Dear Heru

 

Dengan formula serbaguna sumproduct bisa kita selesaikan

'=SUMPRODUCT(($L$6:$L$10=B7:H7)*$M$6:$M$10)

 

 

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of heru mulyono
Sent: Tuesday, January 28, 2014 10:10 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menjumlah dengan kriteria [1 Attachment]

 

 

Permasalahn ada di file terlampir

terimaksih atas bantuannya

Mon Jan 27, 2014 9:59 pm (PST) . Posted by:

"harry siswanto" hsiswanto

Dear Senior Excel,

Mohon bantuannya,bagaimana memasukan Daftar nama kedalam sheet "Layout tempat duduk" sesuai dengan nomor Kursinya?
sehingga dengan 1 button, alokasi tempat duduk, akan otomatis  terisi.

terimakasih sebelumnya.

 
Regards

Harry Siswanto

Mon Jan 27, 2014 10:52 pm (PST) . Posted by:

"Bayu Arsyad"

Tolong gimana bahasa formulanya
"BELI 10 BONUS 1, BELI 20 BONUS 2, BELI 30 BONUS 3, dst"

Tapi yg dikurangkan adalah total bayarnya.
Misalnya harga kaos 30rb. Dibeli 11 kaos. Yang dibayar otomatis cuma 10 kan? Yaitu 300rb.

Contoh lain: beli kaos 36. Yang dibayar nanti sisa 33 kaos.

Trims yang sudah membantu

Mon Jan 27, 2014 11:32 pm (PST) . Posted by:

"Bagus" bagus4bls

Hai Arsyad;

File terlampir pakai tabel bantu.
Sila dilihat

Wassalam

~ Bagus ~

----- Original Message -----
From: Bayu Arsyad
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 28, 2014 1:50 PM
Subject: [belajar-excel] Rumus kelipatan

Tolong gimana bahasa formulanya
"BELI 10 BONUS 1, BELI 20 BONUS 2, BELI 30 BONUS 3, dst"

Tapi yg dikurangkan adalah total bayarnya.
Misalnya harga kaos 30rb. Dibeli 11 kaos. Yang dibayar otomatis cuma 10 kan? Yaitu 300rb.

Contoh lain: beli kaos 36. Yang dibayar nanti sisa 33 kaos.

Trims yang sudah membantu

Tue Jan 28, 2014 12:03 am (PST) . Posted by:

"Jan Raisin"

ikutan nyumbang solusi:

misal Qty beli di sel A5, harga di B1
maka formulanya adalah =((Int(A5/11)*10) + Mod(A5,11)) * $B$1

file terlampir

-Miss Jan Raisin-

Pada 28 Januari 2014 14.35, Bagus <bagus@kingjim.co.id> menulis:

>
>
> Hai Arsyad;
>
> File terlampir pakai tabel bantu.
> Sila dilihat
>
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* Bayu Arsyad <ske8ay@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 28, 2014 1:50 PM
> *Subject:* [belajar-excel] Rumus kelipatan
>
>
>
> Tolong gimana bahasa formulanya
> "BELI 10 BONUS 1, BELI 20 BONUS 2, BELI 30 BONUS 3, dst"
>
> Tapi yg dikurangkan adalah total bayarnya.
> Misalnya harga kaos 30rb. Dibeli 11 kaos. Yang dibayar otomatis cuma 10
> kan? Yaitu 300rb.
>
> Contoh lain: beli kaos 36. Yang dibayar nanti sisa 33 kaos.
>
> Trims yang sudah membantu
>
>
>

Tue Jan 28, 2014 12:42 am (PST) . Posted by:

"Bagus" bagus4bls

Atau bisa juga dengan ini:

=Ceiling(A5/1.1 * $B$1,$B$1)

Wassalam

~ Bagus ~

----- Original Message -----
From: Jan Raisin
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 28, 2014 3:03 PM
Subject: Re: [belajar-excel] Rumus kelipatan [1 Attachment]

ikutan nyumbang solusi:

misal Qty beli di sel A5, harga di B1
maka formulanya adalah =((Int(A5/11)*10) + Mod(A5,11)) * $B$1

file terlampir

-Miss Jan Raisin-

Pada 28 Januari 2014 14.35, Bagus <bagus@kingjim.co.id> menulis:

Hai Arsyad;

File terlampir pakai tabel bantu.
Sila dilihat

Wassalam

~ Bagus ~

----- Original Message -----
From: Bayu Arsyad
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 28, 2014 1:50 PM
Subject: [belajar-excel] Rumus kelipatan

Tolong gimana bahasa formulanya
"BELI 10 BONUS 1, BELI 20 BONUS 2, BELI 30 BONUS 3, dst"

Tapi yg dikurangkan adalah total bayarnya.
Misalnya harga kaos 30rb. Dibeli 11 kaos. Yang dibayar otomatis cuma 10 kan? Yaitu 300rb.

Contoh lain: beli kaos 36. Yang dibayar nanti sisa 33 kaos.

Trims yang sudah membantu

Mon Jan 27, 2014 11:00 pm (PST) . Posted by:

"Bagus" bagus4bls

Hai Harry;

File terlampir adalah hasil rekam macro..
Sila dicoba

Wassalam

~ Bagus ~

----- Original Message -----
From: harry siswanto
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 28, 2014 12:42 PM
Subject: [belajar-excel] Mohon bantuannya [1 Attachment]

Dear Senior Excel,

Mohon bantuannya,bagaimana memasukan Daftar nama kedalam sheet "Layout tempat duduk" sesuai dengan nomor Kursinya?
sehingga dengan 1 button, alokasi tempat duduk, akan otomatis terisi.

terimakasih sebelumnya.

Regards

Harry Siswanto

Mon Jan 27, 2014 11:17 pm (PST) . Posted by:

"Jan Raisin"

Selamat.. akhirnya mas Bagus sudah mulai berani bermain-main dengan VBA..
semoga Be-Exceller lain segera mengikuti jejak mas Bagus..
berani untuk mencoba VBA, yang kelihatannya seram tetapi menyenangkan ^_^

angkat 2 jempol untuk mas Bagus ^_^

Jan ikut nyumbang solusi ya.. sayang kalo scriptnya dibuang, karena udah
dibikin xixixix ^_^

Sub TempatDuduk()

Dim rngKursi As Range, Kursi As Range

Dim rngFind As Range

Dim iVal As Integer

Set rngKursi = Union(Range("c3:d9"), Range("f3:g10"))

For Each Kursi In rngKursi

If IsNumeric(rgKursi.Value) Then

iVal = Kursi.Value

With Sheets("DaftarNama")

Set rngFind = .Range("a:a").Find(iVal, lookat:=xlWhole)

If Not rngFind Is Nothing Then

If Len(rngFind.Offset(, 1).Value) <> vbNullString Then

Kursi.Value = rngFind.Offset(, 1).Value

End If

End If

End With

End If

Next Kursi

End Sub

file terlampir, pastikan untuk meng-Enable-kan macronya dahulu

-Miss Jan Raisin-

Pada 28 Januari 2014 14.04, Bagus <bagus@kingjim.co.id> menulis:

>
>
> Hai Harry;
>
> File terlampir adalah hasil rekam macro..
> Sila dicoba
>
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* harry siswanto <hsiswanto@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 28, 2014 12:42 PM
> *Subject:* [belajar-excel] Mohon bantuannya [1 Attachment]
>
>
>
> Dear Senior Excel,
>
> Mohon bantuannya,bagaimana memasukan Daftar nama kedalam sheet "Layout
> tempat duduk" sesuai dengan nomor Kursinya?
> sehingga dengan 1 button, alokasi tempat duduk, akan otomatis terisi.
>
>
> terimakasih sebelumnya.
>
>
> Regards
>
>
> Harry Siswanto
>
>
>

Mon Jan 27, 2014 11:36 pm (PST) . Posted by:

"Bagus" bagus4bls

xixixix ^_^ (pinjem ketawanya ya Miss)...

Bisanya baru rekam2 doank...

Wassalam

~ Bagus ~

----- Original Message -----
From: Jan Raisin
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 28, 2014 2:16 PM
Subject: Re: [belajar-excel] Mohon bantuannya [1 Attachment]

Selamat.. akhirnya mas Bagus sudah mulai berani bermain-main dengan VBA..
semoga Be-Exceller lain segera mengikuti jejak mas Bagus..
berani untuk mencoba VBA, yang kelihatannya seram tetapi menyenangkan ^_^

angkat 2 jempol untuk mas Bagus ^_^

Jan ikut nyumbang solusi ya.. sayang kalo scriptnya dibuang, karena udah dibikin xixixix ^_^

Sub TempatDuduk()

Dim rngKursi As Range, Kursi As Range

Dim rngFind As Range

Dim iVal As Integer

Set rngKursi = Union(Range("c3:d9"), Range("f3:g10"))

For Each Kursi In rngKursi

If IsNumeric(rgKursi.Value) Then

iVal = Kursi.Value

With Sheets("DaftarNama")

Set rngFind = .Range("a:a").Find(iVal, lookat:=xlWhole)

If Not rngFind Is Nothing Then

If Len(rngFind.Offset(, 1).Value) <> vbNullString Then

Kursi.Value = rngFind.Offset(, 1).Value

End If

End If

End With

End If

Next Kursi

End Sub

file terlampir, pastikan untuk meng-Enable-kan macronya dahulu

-Miss Jan Raisin-

Pada 28 Januari 2014 14.04, Bagus <bagus@kingjim.co.id> menulis:

Hai Harry;

File terlampir adalah hasil rekam macro..
Sila dicoba

Wassalam

~ Bagus ~

----- Original Message -----
From: harry siswanto
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 28, 2014 12:42 PM
Subject: [belajar-excel] Mohon bantuannya [1 Attachment]

Dear Senior Excel,

Mohon bantuannya,bagaimana memasukan Daftar nama kedalam sheet "Layout tempat duduk" sesuai dengan nomor Kursinya?
sehingga dengan 1 button, alokasi tempat duduk, akan otomatis terisi.

terimakasih sebelumnya.

Regards

Harry Siswanto

Mon Jan 27, 2014 11:23 pm (PST) . Posted by:

"Soengging respati naba" respati007

Masih sama hasil nya Mr. Kid angka nya tidak sesuai dengan File yang di
import..
dan ada hasil table nya yang tidak sesuai...

Mohon Pencerahan nya Mr.Kid
Terima kasih.

2014-01-27 Mr. Kid <mr.nmkid@gmail.com>

>
>
> Coba ganti rujukan formula di baris :
> .Formula =
> "=IF(H2=""ACCT"",-LEN(H1),(H2<>""TOTAL";")*(N(A1)<>0))*(LEN(L2)>0)"
> 'filter (kol ke-1)
> menjadi :
> .Formula = "=IF(H2=""ACCT"",-LEN(H1),(H2<>""TOTAL";")*(N(A1)<>0))*(LEN(K2)>0)"
> 'filter (kol ke-1)
>
>
>
> Wassalam,
> Kid.
>
>
>
> 2014-01-27 Soengging respati naba <respati007@gmail.com>
>
>
>>
>> Dear All Para Master,,
>> To Mr.Kid
>> Mohon Bantuan Mr. Kid, Macro yang Mr. Kid Berikan ke saya ada sedikit
>> error..
>>
>> Pada saat GETDATA, data yang saya ambil angka nya berubah atau tidak ada
>> sama sekali
>>
>> Mohon Bantuan Mr. KID...
>>
>> Data Terlampir
>>
>>
>>
>
>

Mon Jan 27, 2014 11:27 pm (PST) . Posted by:

"Soengging respati naba" respati007

terlampir prnt scrn error saat import data
pada kolom berwarna merah seharus nya ada isi nya tp koq hanya angka 0,
apakah berpengaruh jika table nya berdempetan apa harus ada space.

2014-01-28 Soengging respati naba <respati007@gmail.com>

> Masih sama hasil nya Mr. Kid angka nya tidak sesuai dengan File yang di
> import..
> dan ada hasil table nya yang tidak sesuai...
>
> Mohon Pencerahan nya Mr.Kid
> Terima kasih.
>
>
> 2014-01-27 Mr. Kid <mr.nmkid@gmail.com>
>
>
>>
>> Coba ganti rujukan formula di baris :
>> .Formula =
>> "=IF(H2=""ACCT"",-LEN(H1),(H2<>""TOTAL";")*(N(A1)<>0))*(LEN(L2)>0)"
>> 'filter (kol ke-1)
>> menjadi :
>> .Formula = "=IF(H2=""ACCT"",-LEN(H1),(H2<>""TOTAL";")*(N(A1)<>0))*(LEN(K2)>0)"
>> 'filter (kol ke-1)
>>
>>
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2014-01-27 Soengging respati naba <respati007@gmail.com>
>>
>>
>>>
>>> Dear All Para Master,,
>>> To Mr.Kid
>>> Mohon Bantuan Mr. Kid, Macro yang Mr. Kid Berikan ke saya ada sedikit
>>> error..
>>>
>>> Pada saat GETDATA, data yang saya ambil angka nya berubah atau tidak ada
>>> sama sekali
>>>
>>> Mohon Bantuan Mr. KID...
>>>
>>> Data Terlampir
>>>
>>>
>>>
>>
>>
>
>

Tue Jan 28, 2014 1:49 am (PST) . Posted by:

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

File terlampir adalah vba beserta contoh bentuk sumber datanya.

Wassalam,
Kid.

2014-01-28 Soengging respati naba <respati007@gmail.com>

>
>
> terlampir prnt scrn error saat import data
> pada kolom berwarna merah seharus nya ada isi nya tp koq hanya angka 0,
> apakah berpengaruh jika table nya berdempetan apa harus ada space.
>
>
> 2014-01-28 Soengging respati naba <respati007@gmail.com>
>
>> Masih sama hasil nya Mr. Kid angka nya tidak sesuai dengan File yang di
>> import..
>> dan ada hasil table nya yang tidak sesuai...
>>
>> Mohon Pencerahan nya Mr.Kid
>> Terima kasih.
>>
>>
>> 2014-01-27 Mr. Kid <mr.nmkid@gmail.com>
>>
>>
>>>
>>> Coba ganti rujukan formula di baris :
>>> .Formula =
>>> "=IF(H2=""ACCT"",-LEN(H1),(H2<>""TOTAL";")*(N(A1)<>0))*(LEN(L2)>0)"
>>> 'filter (kol ke-1)
>>> menjadi :
>>> .Formula = "=IF(H2=""ACCT"",-LEN(H1),(H2<>""TOTAL";")*(N(A1)<>0))*(LEN(K2)>0)"
>>> 'filter (kol ke-1)
>>>
>>>
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> 2014-01-27 Soengging respati naba <respati007@gmail.com>
>>>
>>>
>>>>
>>>> Dear All Para Master,,
>>>> To Mr.Kid
>>>> Mohon Bantuan Mr. Kid, Macro yang Mr. Kid Berikan ke saya ada sedikit
>>>> error..
>>>>
>>>> Pada saat GETDATA, data yang saya ambil angka nya berubah atau tidak
>>>> ada sama sekali
>>>>
>>>> Mohon Bantuan Mr. KID...
>>>>
>>>> Data Terlampir
>>>>
>>>>
>>>>
>>>
>>
>
>

Tue Jan 28, 2014 12:51 am (PST) . Posted by:

"achmad adi" didon13@ymail.com

Dear master,,,
mohon bantuanya,,,untuk menemukan baris terakhir pada kolom tertentu,,,dengan bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada data msuk.,,,gak bisa ke baris terakhir,,

saya lampirkan file contoh,,,

sebelumnya saya ucapkan terimakasih..

Tue Jan 28, 2014 1:10 am (PST) . Posted by:

"Jan Raisin"

coba 3 baris script ini ditulis pada sebuah modul

Sub NextData()
Cells(Rows.Count, 3).End(xlUp).Offset(1).Select
End Sub

lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2
file terlampir

-Miss Jan Raisin-

Pada 28 Januari 2014 15.44, achmad adi <didon13@ymail.com> menulis:

>
>
> Dear master,,,
> mohon bantuanya,,,untuk menemukan baris terakhir pada kolom
> tertentu,,,dengan bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada
> data msuk.,,,gak bisa ke baris terakhir,,
> saya lampirkan file contoh,,,
>
> sebelumnya saya ucapkan terimakasih..
>
>
>

Tue Jan 28, 2014 1:04 am (PST) . Posted by:

"Eko Noviyanto" nopenk77

Dear Master,

Terlampir contoh data yang mau dirubah dalam format Indonesia (Rp), mohon bantuannya untuk memberikan solusinya.

Terimakasih atas bantuannya.

salam, nopenk






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

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

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

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

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

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

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 01.49

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)