[belajar-excel] Tanya Rumus untuk Pembayaran

2020-12-09 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Kepada para master dan anggota milis. Saya ingin mengisi kolom K (judul
kolom: UNTUK PEMBAYARAN) secara otomatis berdasarkan nilai pada kolom J
(judul: NOMOR BUKTI). Tabel data yang digunakan adalah tabel yang
disebelahnya (URAIAN KEGIATAN). Tolong dibantu untuk rumus di kolom K
tersebut.

Selengkapnya silakan lihat lampiran.

Terima kasih atas bantuannya.


Tanya Rumus untuk Pembayaran.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Mohon buatkan kode [1 Attachment]

2020-07-23 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Coba ini Pak.

On Thu, Jul 23, 2020 at 4:45 PM pragaan laoksatu pragaanlaoks...@gmail.com
[belajar-excel]  wrote:

>
>
> Bingun gak bisa bisamohon solosinya para suhu
> pada gambar (1) d2 berisi validasi data dan D3& d4 hasil vlookupPada cell
> J4 berisi =Today(), ketika disave syan ining tanggal tsb  tersimpan di data
> base range (D2 : d6).
> Maksih
>
> 
>


PragaanLaok1.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Isi nomor serial berulang penanda minggu ke-

2020-07-22 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih Master. Sudah sesuai dengan yang diharapkan

On Tue, Jul 21, 2020 at 9:01 PM Sandy sandywars...@yahoo.com
[belajar-excel]  wrote:

>
>
> Silahkan dicek apakah sudah sesuai.
> Sepertinya minggu ke-8 di sheet yang dicontohkan hanya muncul 5 kali (dari
> yang seharusnya 6 kali sesuai yang diinginkan)
>
> Sandy
>
> On Monday, July 20, 2020, 3:54:25 PM GMT+8, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> wrote:
>
>
>
>
> Sebagai tambahan, Kolom D adalah hasil yang saya inginkan. Jadi kolom D
> jangan dilibatkan dalam formula.
>
> Terima kasih
>
> On Mon, Jul 20, 2020 at 2:37 PM Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]  wrote:
>
>
>
> Terima kasih atas tanggapan Pak Bagus.
> Menjawab pertanyaan bapak: Kenapa minggu kedua dst. koq dimulai dari hari
> rabu..
>
> Jawabnya: Kebetulan saja dimulai dari rabu. Karena hari liburnya dinamis,
> tidak tetap. Yang saya butuhkan adalah menandai hari-hari selain hari
> minggu, hari libur dan hari yang ada kegiatan-kegiatan tertentu. Hari-hari
> dimaksud mau dikasih nomor mulai dari nomor 1 sampai sekian-masing-masing
> nomor (1 sampai sekian) sebanyak 6 kali, kecuali nomor terakhir (gak sampai
> 6 kali gak apa-apa karena itu dianggap sebagai sisa.
>
> Demikian terima kasih
>
>
> On Mon, Jul 20, 2020 at 8:39 AM Bagus bagus4...@gmail.com [belajar-excel]
>  wrote:
>
>
>
> Wa'alaykum salam warohmatullohi wabarokatuhu
>
> Kenapa minggu kedua dst. koq dimulai dari hari rabu..
> silah lihat file terlampir.
>
>
> Wassalam
>Bagus
>
>
> Pada tanggal Min, 19 Jul 2020 pukul 10.25 Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> menulis:
>
>
>
> Assalamu'alaikum.
>
> Kepada para Master dan anggota milis, tolong dibantu. Saya ingin
> memasukkan nomor urut yang berulang sebanyak 6 kali (sebagai penanda minggu
> ke berapa dalam 1 satu tahun setelah dikurangi libur dan kegiatan lainnya
> pada cell kosong di kolom D di sheet "Tanya").
>
> Sheet "Diinginkan" adalah adalah hasil yang diinginkan, yang saya kerjakan
> secara manual.
>
> Selama ini saya kerjakan secara manual yang cukup menyita waktu dan rawan
> kesalahan. Selengkapnya, silakan lihat lampiran.
>
> Tolong dibuatkan rumus atau VBA Code-nya
>
> Atas bantuannya diucapkan terima kasih.
>
> Wassalamu'alaikum
>
> 
>


Re: [belajar-excel] Isi nomor serial berulang penanda minggu ke-

2020-07-20 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Sebagai tambahan, Kolom D adalah hasil yang saya inginkan. Jadi kolom D
jangan dilibatkan dalam formula.

Terima kasih

On Mon, Jul 20, 2020 at 2:37 PM Cari Kebenaran cahayailm...@gmail.com
[belajar-excel]  wrote:

>
>
> Terima kasih atas tanggapan Pak Bagus.
> Menjawab pertanyaan bapak: Kenapa minggu kedua dst. koq dimulai dari hari
> rabu..
>
> Jawabnya: Kebetulan saja dimulai dari rabu. Karena hari liburnya dinamis,
> tidak tetap. Yang saya butuhkan adalah menandai hari-hari selain hari
> minggu, hari libur dan hari yang ada kegiatan-kegiatan tertentu. Hari-hari
> dimaksud mau dikasih nomor mulai dari nomor 1 sampai sekian-masing-masing
> nomor (1 sampai sekian) sebanyak 6 kali, kecuali nomor terakhir (gak sampai
> 6 kali gak apa-apa karena itu dianggap sebagai sisa.
>
> Demikian terima kasih
>
>
> On Mon, Jul 20, 2020 at 8:39 AM Bagus bagus4...@gmail.com [belajar-excel]
>  wrote:
>
>>
>>
>> Wa'alaykum salam warohmatullohi wabarokatuhu
>>
>> Kenapa minggu kedua dst. koq dimulai dari hari rabu..
>> silah lihat file terlampir.
>>
>>
>> Wassalam
>>Bagus
>>
>>
>> Pada tanggal Min, 19 Jul 2020 pukul 10.25 Cari Kebenaran
>> cahayailm...@gmail.com [belajar-excel] 
>> menulis:
>>
>>>
>>>
>>> Assalamu'alaikum.
>>>
>>> Kepada para Master dan anggota milis, tolong dibantu. Saya ingin
>>> memasukkan nomor urut yang berulang sebanyak 6 kali (sebagai penanda minggu
>>> ke berapa dalam 1 satu tahun setelah dikurangi libur dan kegiatan lainnya
>>> pada cell kosong di kolom D di sheet "Tanya").
>>>
>>> Sheet "Diinginkan" adalah adalah hasil yang diinginkan, yang saya
>>> kerjakan secara manual.
>>>
>>> Selama ini saya kerjakan secara manual yang cukup menyita waktu dan
>>> rawan kesalahan. Selengkapnya, silakan lihat lampiran.
>>>
>>> Tolong dibuatkan rumus atau VBA Code-nya
>>>
>>> Atas bantuannya diucapkan terima kasih.
>>>
>>> Wassalamu'alaikum
>>>
>>> 
>


Re: [belajar-excel] Isi nomor serial berulang penanda minggu ke-

2020-07-20 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas tanggapan Pak Bagus.
Menjawab pertanyaan bapak: Kenapa minggu kedua dst. koq dimulai dari hari
rabu..

Jawabnya: Kebetulan saja dimulai dari rabu. Karena hari liburnya dinamis,
tidak tetap. Yang saya butuhkan adalah menandai hari-hari selain hari
minggu, hari libur dan hari yang ada kegiatan-kegiatan tertentu. Hari-hari
dimaksud mau dikasih nomor mulai dari nomor 1 sampai sekian-masing-masing
nomor (1 sampai sekian) sebanyak 6 kali, kecuali nomor terakhir (gak sampai
6 kali gak apa-apa karena itu dianggap sebagai sisa.

Demikian terima kasih


On Mon, Jul 20, 2020 at 8:39 AM Bagus bagus4...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Wa'alaykum salam warohmatullohi wabarokatuhu
>
> Kenapa minggu kedua dst. koq dimulai dari hari rabu..
> silah lihat file terlampir.
>
>
> Wassalam
>Bagus
>
>
> Pada tanggal Min, 19 Jul 2020 pukul 10.25 Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> menulis:
>
>>
>>
>> Assalamu'alaikum.
>>
>> Kepada para Master dan anggota milis, tolong dibantu. Saya ingin
>> memasukkan nomor urut yang berulang sebanyak 6 kali (sebagai penanda minggu
>> ke berapa dalam 1 satu tahun setelah dikurangi libur dan kegiatan lainnya
>> pada cell kosong di kolom D di sheet "Tanya").
>>
>> Sheet "Diinginkan" adalah adalah hasil yang diinginkan, yang saya
>> kerjakan secara manual.
>>
>> Selama ini saya kerjakan secara manual yang cukup menyita waktu dan rawan
>> kesalahan. Selengkapnya, silakan lihat lampiran.
>>
>> Tolong dibuatkan rumus atau VBA Code-nya
>>
>> Atas bantuannya diucapkan terima kasih.
>>
>> Wassalamu'alaikum
>>
>> 
>


[belajar-excel] Isi nomor serial berulang penanda minggu ke- [1 Attachment]

2020-07-18 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum.

Kepada para Master dan anggota milis, tolong dibantu. Saya ingin memasukkan
nomor urut yang berulang sebanyak 6 kali (sebagai penanda minggu ke berapa
dalam 1 satu tahun setelah dikurangi libur dan kegiatan lainnya pada cell
kosong di kolom D di sheet "Tanya").

Sheet "Diinginkan" adalah adalah hasil yang diinginkan, yang saya kerjakan
secara manual.

Selama ini saya kerjakan secara manual yang cukup menyita waktu dan rawan
kesalahan. Selengkapnya, silakan lihat lampiran.

Tolong dibuatkan rumus atau VBA Code-nya

Atas bantuannya diucapkan terima kasih.

Wassalamu'alaikum


Tanya Minggu Ke- dalam Kalender.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Data tabel tidak terpaste, cuma header-nya saja yang terpaste [1 Attachment]

2020-05-30 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih Pak Hendrik atas tanggapannya.

Hasil yang diinginkan adalah seperti sheet "Diharapkan".

Silakan lihat lampiran


On Sat, May 30, 2020 at 8:25 PM hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel]  wrote:

>
>
> Daripada Repot2 cari2 salahnya dimana, coba gambarkan output yang
> diinginkan di Sheet2.
> Kita coba pakai looping berjenjang.
>
> Kalau urusan mem Pivot/mem Unpivot serahkan saja pada Power Query.
>
> Salam,
> HK
>
>
> On Saturday, 30 May 2020, 06:55:04 pm GMT+7, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> wrote:
>
>
>
>
> Assalamu'alaikum.
>
> Para master dan anggota milis.
>
> Saya punya VBA Code yang tugasnya melakukan UNPIVOT. Kode tersebut saya
> dapat dari internet. Tetapi setelah saya coba jalankan hanya mempaste
> header tabel saja sedangkan isi atau data dari tabel tidak terpaste. Apakah
> gerangan yang menjadi penyebabnya..?
>
> Demikian terima kasih
>
> File terlampir. Terima kasih
>
> 
>


Sample2.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


[belajar-excel] Data tabel tidak terpaste, cuma header-nya saja yang terpaste [1 Attachment]

2020-05-30 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum.

Para master dan anggota milis.

Saya punya VBA Code yang tugasnya melakukan UNPIVOT. Kode tersebut saya
dapat dari internet. Tetapi setelah saya coba jalankan hanya mempaste
header tabel saja sedangkan isi atau data dari tabel tidak terpaste. Apakah
gerangan yang menjadi penyebabnya..?

Demikian terima kasih

File terlampir. Terima kasih


Sample.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Conditional Formatting tidak Jalan

2020-02-04 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih Pak Ade. Penjelasan Pak Ade sangat gamblang dan mudah
dimengerti bagi saya yang awam ini. Terima kasih juga kalendernya, sangat
bermanfaat. Bisa ubah-ubah tahun.

On Mon, Feb 3, 2020 at 2:32 PM 'M.Ade Alfarid' q...@kkmi.co.id
[belajar-excel]  wrote:

>
>
> Salah di formula conditonal formattingnya,
>
> Coba pelajari lampiran
>
>
>
> ade
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, January 31, 2020 10:48 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Conditional Formatting tidak Jalan [1
> Attachment]
>
>
>
>
>
> Assalamu'alaikum
>
>
>
> Para Master dan segenap anggota milis tolong dibantu.
>
>
>
> Saya ingin mewarnai cell (dengan warna merah) pada kalender yang merupakan
> hari libur. Hari libur dimaksud ada pada range AA5:AA10. Saya sudah
> merealisasikannya dengan CONDITIONAL FORMATTING tetapi tidak berhasil.
> Entah apa kesalahannya. File terlampir.
>
>
>
> Mohon kiranya para Master dan anggota milis membantu permasalahan
> conditional formatting ini agar berjalan sesuai harapan.
>
>
>
> Demikian terima kasih
>
>
>
> Wassalamu'alaikum
>
> 
>


Re: [belajar-excel] Conditional Formatting tidak Jalan

2020-01-30 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas tanggapan Master Hendrik.

Yang saya inginkan adalah ketika saya menulis tanggal di range AA5 s.d.
AA10 maka secara otomatis cell di kalender (A6:H61) akan berwarna merah
sesuai dengan tanggal yang saya tulis di range AA5 s.d. AA10. Dalam
lampiran saya menulis tanggal sebagai berikut:

02/01/2020
maka yang saya inginkan adalah Cell H6 berwarna merah
03/02/2020
maka yang saya inginkan adalah Cell E16 berwarna merah
11/03/2020
maka yang saya inginkan adalah Cell F27 berwarna merah

Demikian seterusnya

Terima kasih



On Fri, Jan 31, 2020 at 11:43 AM hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel]  wrote:

>
>
> Dalam Conditional Formatting, Komputer akan memberikan format berdasarkan
> kondisi atau Kriteria yang kita inginkan.
> Apa Kriteria untuk mewarnai hari libur di AA5:AA10 ?
> Apakak Kriterianya adalah kata "libur" di AA4 ?
>
> Salam,
> HK
>
>
>
> On Friday, 31 January 2020, 10:48:50 am GMT+7, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> wrote:
>
>
>
>
> Assalamu'alaikum
>
> Para Master dan segenap anggota milis tolong dibantu.
>
> Saya ingin mewarnai cell (dengan warna merah) pada kalender yang merupakan
> hari libur. Hari libur dimaksud ada pada range AA5:AA10. Saya sudah
> merealisasikannya dengan CONDITIONAL FORMATTING tetapi tidak berhasil.
> Entah apa kesalahannya. File terlampir.
>
> Mohon kiranya para Master dan anggota milis membantu permasalahan
> conditional formatting ini agar berjalan sesuai harapan.
>
> Demikian terima kasih
>
> Wassalamu'alaikum
>
> 
>


[belajar-excel] Conditional Formatting tidak Jalan [1 Attachment]

2020-01-30 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum

Para Master dan segenap anggota milis tolong dibantu.

Saya ingin mewarnai cell (dengan warna merah) pada kalender yang merupakan
hari libur. Hari libur dimaksud ada pada range AA5:AA10. Saya sudah
merealisasikannya dengan CONDITIONAL FORMATTING tetapi tidak berhasil.
Entah apa kesalahannya. File terlampir.

Mohon kiranya para Master dan anggota milis membantu permasalahan
conditional formatting ini agar berjalan sesuai harapan.

Demikian terima kasih

Wassalamu'alaikum


Tanya Conditional Formatting.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Unpivot gagal yang selalu gagal

2019-11-20 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas tanggapannya. Alhamdulillah, sudah sukses.

On Sun, Nov 17, 2019 at 9:58 AM iq_bal7...@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Hi,
>
>
>
> Boleh di tuliskan langkah langkah melakukannya? Karena saya coba dengan
> data tersebut tidak ada masalah dengan unpivot :
>
>1. Saya convet kembali dalam bentuk range
>2. Block and ubah data menjadi bentuk table
>3. Data>get data> from other source/table>
>4. Klik table name, and blok kolom PAUD A – PAUD H
>5. Klik transform > unpivot
>6. Klik closed and load
>7. Done.
>
>
>
> Thanks
>
> Best Regards
>
> Muhammad Iqbal
>
> +62890909010/0811101854
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com 
> *Sent:* Tuesday, November 12, 2019 9:05 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Unpivot gagal yang selalu gagal
>
>
>
>
>
> Assalamu'alaikum Wr. Wb.
>
>
>
> Kepada para Master dan segenap anggota milis. Tolong dibantu. Saya ingin
> melakukan unpivot (melalui power query) terhadap suatu tabel (terlampir).
> Tetapi selalu gagal. Pesan kesalahannya juga saya lampirkan. Mohon
> penjelasan dan atau solusi mengapa tindakan unpivot saya selalu gagal.
>
>
>
> Atas perhatian dan bantuannya, saya ucapkan terima kasih.
>
>
>
>   Wassalamu'alaikum Wr. Wb.
>
> 
>


[belajar-excel] Unpivot gagal yang selalu gagal

2019-11-16 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Wr. Wb.

Kepada para Master dan segenap anggota milis. Tolong dibantu. Saya ingin
melakukan unpivot (melalui power query) terhadap suatu tabel (terlampir).
Tetapi selalu gagal. Pesan kesalahannya juga saya lampirkan. Mohon
penjelasan dan atau solusi mengapa tindakan unpivot saya selalu gagal.

Atas perhatian dan bantuannya, saya ucapkan terima kasih.

  Wassalamu'alaikum Wr. Wb.


Error.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Tanya Pivot

2019-10-13 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas masukannya. Peroslan Value sudah beres.

On Sat, Oct 12, 2019 at 7:32 PM Agus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

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


[belajar-excel] Tanya Pivot [1 Attachment]

2019-10-12 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
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.


Tanya Pivot Table.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Membuat Laporan dengan Pivot Table

2019-10-10 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih master kid. Petunjuk Master sudah saya coba dan berhasil.

On Thu, Oct 10, 2019 at 2:57 AM 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]  wrote:

>
>
> Wa'alaikumussalam wr wb
>
> Jika dikalkulasi dengan fungsi Max atau Min akan menampilkan nilai yang
> benar, maka letakkan kolom tanggal (bertipe date) dan no bukti (bertipe
> numerik) ke bagian values.
> Atur keduanya agar menggunakan agregat Max (klik si field -> Value Field
> Settings -> tab Summarize value by -> pilih Max -> OK) atur number format
> bila perlu.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> On Wed, Oct 9, 2019 at 9:27 PM Cari Kebenaran cahayailm...@gmail...com
> [belajar-excel]  > wrote:
>
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Kepada para Master dan segenap anggota milis mohon bantuannya.
>>
>> Saya ingin membuat laporan seperti pada sheet LAPORAN. Sedangkan sumber
>> datanya yang ingin dibuat laporan adalah sheet TRANSAKSI, jumlah data cukup
>> banyak-lampiran hanya contoh. Saya coba membuat laporan yang diinginkan
>> dengan menggunakan pivot table tetapi tidak bisa mengisi kolom Tgl/Bulan
>> dan No. Bukti. Sheet LAPORAN yang ada saya buat secara manual. Selengkap
>> bisa dilihat pada lampiran.
>>
>> Demikian terima kasih.
>>
>>   Wassalamu'alaikum Wr. Wb.
>>
>>
>


[belajar-excel] Membuat Laporan dengan Pivot Table [1 Attachment]

2019-10-09 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Wr. Wb.

Kepada para Master dan segenap anggota milis mohon bantuannya.

Saya ingin membuat laporan seperti pada sheet LAPORAN. Sedangkan sumber
datanya yang ingin dibuat laporan adalah sheet TRANSAKSI, jumlah data cukup
banyak-lampiran hanya contoh. Saya coba membuat laporan yang diinginkan
dengan menggunakan pivot table tetapi tidak bisa mengisi kolom Tgl/Bulan
dan No. Bukti. Sheet LAPORAN yang ada saya buat secara manual. Selengkap
bisa dilihat pada lampiran.

Demikian terima kasih.

  Wassalamu'alaikum Wr. Wb.


Bagaimana Membuat Laporan dengan Pivot.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Mengubah Nilai Angka dari Rumus Menjadi Text

2019-09-29 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Alhamdulillah. Terima kasih kepada para Master dan anggota milis. Masalah
saya sudah terselesaikan.

On Sun, Sep 29, 2019 at 11:18 AM ghozi alkatiri ghozialkat...@yahoo.co.id
[belajar-excel]  wrote:

>
>
> sory  rumus yang betul adalah
>
> =SUBSTITUTE(TRIM(IF(MOD(LEN(C5*D5),3)=0," ",LEFT(C5*D5,MOD(LEN(C5*D5),3)))&"
> "(C5*D5,MOD(LEN(C5*D5),3)+1,3)&" "(C5*D5,MOD(LEN(C5*D5),3)+4,3)&"
> "(C5*D5,MOD(LEN(C5*D5),3)+7,3)&"
> "(C5*D5,MOD(LEN(C5*D5),3)+10,3)(C5*D5,MOD(LEN(C5*D5),3)+113,3)),"
> ",".")
>
> silahkan dicoba
>
> wassalam
>
> Ghozi Alkatiri
>
> Pada Minggu, 29 September 2019 08.23.03 WIB, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> menulis:
>
>
>
>
> Terima kasih atas tanggapan para Master dan anggota milis.
>
> Rumus dari Bapak Ghozi sudah saya coba terapkan. Kalau
> separator/pemisah-nya sudah betul. Tetapi mohon maaf, mengapa hasil
> perkalian rumusnya kurang tepat.
> Sebagai contoh: 10*1.000 = 2.000 seharusnya hasilnya adalah 10.000 bukan?.
> File terlampir.
>
>
> Terima kasih.
>
>
>
> On Sun, Sep 29, 2019 at 6:09 AM Cari Kebenaran 
> wrote:
>
> Terima kasih atas tanggapannya.
> Iya, supaya pemisah ribuannya jadi titik seperti yang dipakai Indonesia
>
> On Fri, Sep 27, 2019 at 5:21 PM 'Mr. Kid' mr.nm...@gmail.com
> [belajar-excel]  wrote:
>
>
>
> wa'alaikumussalam wr wb
>
> Boleh tahu kenapa diubah jadi bertipe text ?
> Apakah karena supaya pemisah ribuannya jadi titik seperti yang dipakai
> Indonesia ?
>
>
>
>
>
>
> On Fri, Sep 27, 2019 at 4:59 PM Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]  wrote:
>
>
>
> Assalamu'alaikum Wr. Wb.
>
> Para master dan anggota milis yang saya hormati. Tolong dibantu untuk
> keperluan saya.
>
> Saya ingin mengubah nilai angka pada suatu range yang dihasilkan dari
> rumus menjadi berformat text  tanpa menghilangkan tanda titik (.) sebagai
> separator ribuannya. Selengkapnya silakan lihat lampiran.
>
> Atas perhatian dan bantuannya saya ucapkan terima kasih
>
>
>
>


Re: [belajar-excel] Mengubah Nilai Angka dari Rumus Menjadi Text

2019-09-28 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas tanggapannya.
Iya, supaya pemisah ribuannya jadi titik seperti yang dipakai Indonesia

On Fri, Sep 27, 2019 at 5:21 PM 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]  wrote:

>
>
> wa'alaikumussalam wr wb
>
> Boleh tahu kenapa diubah jadi bertipe text ?
> Apakah karena supaya pemisah ribuannya jadi titik seperti yang dipakai
> Indonesia ?
>
>
>
>
>
>
> On Fri, Sep 27, 2019 at 4:59 PM Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]  wrote:
>
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Para master dan anggota milis yang saya hormati. Tolong dibantu untuk
>> keperluan saya.
>>
>> Saya ingin mengubah nilai angka pada suatu range yang dihasilkan dari
>> rumus menjadi berformat text  tanpa menghilangkan tanda titik (.) sebagai
>> separator ribuannya. Selengkapnya silakan lihat lampiran.
>>
>> Atas perhatian dan bantuannya saya ucapkan terima kasih
>>
>>
>>
>


Re: [belajar-excel] Mengubah Nilai Angka dari Rumus Menjadi Text

2019-09-28 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas tanggapannya.
Ya, saya ingin pemisah ribuannya jadi titik seperti yang dipakai Indonesia.

On Fri, Sep 27, 2019 at 5:21 PM 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]  wrote:

>
>
> wa'alaikumussalam wr wb
>
> Boleh tahu kenapa diubah jadi bertipe text ?
> Apakah karena supaya pemisah ribuannya jadi titik seperti yang dipakai
> Indonesia ?
>
>
>
>
>
>
> On Fri, Sep 27, 2019 at 4:59 PM Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]  wrote:
>
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Para master dan anggota milis yang saya hormati. Tolong dibantu untuk
>> keperluan saya.
>>
>> Saya ingin mengubah nilai angka pada suatu range yang dihasilkan dari
>> rumus menjadi berformat text  tanpa menghilangkan tanda titik (.) sebagai
>> separator ribuannya. Selengkapnya silakan lihat lampiran.
>>
>> Atas perhatian dan bantuannya saya ucapkan terima kasih
>>
>>
>>
>


Re: [belajar-excel] Mengubah Nilai Angka dari Rumus Menjadi Text

2019-09-28 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas tanggapan para Master dan anggota milis.

Rumus dari Bapak Ghozi sudah saya coba terapkan. Kalau
separator/pemisah-nya sudah betul. Tetapi mohon maaf, mengapa hasil
perkalian rumusnya kurang tepat.
Sebagai contoh: 10*1.000 = 2.000 seharusnya hasilnya adalah 10.000 bukan?.
File terlampir.


Terima kasih.



On Sun, Sep 29, 2019 at 6:09 AM Cari Kebenaran 
wrote:

> Terima kasih atas tanggapannya.
> Iya, supaya pemisah ribuannya jadi titik seperti yang dipakai Indonesia
>
> On Fri, Sep 27, 2019 at 5:21 PM 'Mr. Kid' mr.nm...@gmail.com
> [belajar-excel]  wrote:
>
>>
>>
>> wa'alaikumussalam wr wb
>>
>> Boleh tahu kenapa diubah jadi bertipe text ?
>> Apakah karena supaya pemisah ribuannya jadi titik seperti yang dipakai
>> Indonesia ?
>>
>>
>>
>>
>>
>>
>> On Fri, Sep 27, 2019 at 4:59 PM Cari Kebenaran cahayailm...@gmail.com
>> [belajar-excel]  wrote:
>>
>>>
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Para master dan anggota milis yang saya hormati. Tolong dibantu untuk
>>> keperluan saya.
>>>
>>> Saya ingin mengubah nilai angka pada suatu range yang dihasilkan dari
>>> rumus menjadi berformat text  tanpa menghilangkan tanda titik (.) sebagai
>>> separator ribuannya. Selengkapnya silakan lihat lampiran.
>>>
>>> Atas perhatian dan bantuannya saya ucapkan terima kasih
>>>
>>>
>>>
>>
>


Mengubah Nilai Angka dari Rumus Menjadi Text.xlsx
Description: MS-Excel 2007 spreadsheet


[belajar-excel] Mengubah Nilai Angka dari Rumus Menjadi Text [1 Attachment]

2019-09-27 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Wr. Wb.

Para master dan anggota milis yang saya hormati. Tolong dibantu untuk
keperluan saya.

Saya ingin mengubah nilai angka pada suatu range yang dihasilkan dari rumus
menjadi berformat text  tanpa menghilangkan tanda titik (.) sebagai
separator ribuannya. Selengkapnya silakan lihat lampiran.

Atas perhatian dan bantuannya saya ucapkan terima kasih


Mengubah Nilai Angka dari Rumus Menjadi Text.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Tanya Buat Judul Header Otomatis

2019-07-13 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Baik Master Kid, terima kasih

On Sat, Jul 13, 2019 at 4:17 AM 'Mr. Kid' mr...nm...@gmail.com
[belajar-excel]  wrote:

>
>
> Begini :
> 1. Jalankan Record macro
> 2.. Lakukan langkah manual copy paste yang biasa dilakukan
> 3. Stop Recording
>
>
> Regards,
> Kid
>
>
> On Tue, Jul 9, 2019 at 6:13 PM Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]  wrote:
>
>>
>>
>> Kepada segenap master dan anggota milis.
>>
>> Tolong dibantu bagaimana membuat judul header secara otomatis setelah
>> menekan tobol " BUAT HEADER"
>> yang ada di sheet NILAI.
>>
>> Selama ini saya menggunakan cara manual, yaitu:
>>
>> Untuk mengisi cell A6 dan B6 pada sheet NILAI. Saya melakukan langkah:
>> Buka sheet INDIKATOR, lalu pilih cell A6:B6, klik Copy. Lalu buka sheet
>> NILAI, klik cell A6,
>> kemudian klik menu down arrow Paste, pilih Value.
>>
>> Untuk mengisi cell C6 pada sheet NILAI, saya tulis secara manual judul
>> header tersebut (TANGGAL)..
>>
>> Untuk mengisi range D6:S6 pada sheet NILAI. Saya melakukan langkah:
>> Buka sheet SISWA, pilih range C2:C17 (range/kolom ini bersifat dinamis).
>> Lalu, klik menu Copy.
>> Buka sheet NILAI, klik cell D6. Kemudian, klik down arrow Paste - pilih
>> Value - pilih Transpose - OK.
>>
>> Hasilnya kerja manual dapat dilihat pada lampiran.
>>
>> Terima kasih
>>
>>
>


[belajar-excel] Tanya Buat Judul Header Otomatis

2019-07-09 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Kepada segenap master dan anggota milis.

Tolong dibantu bagaimana membuat judul header secara otomatis setelah
menekan tobol " BUAT HEADER"
yang ada di sheet NILAI.

Selama ini saya menggunakan cara manual, yaitu:

Untuk mengisi cell A6 dan B6 pada sheet NILAI. Saya melakukan langkah:
Buka sheet INDIKATOR, lalu pilih cell A6:B6, klik Copy. Lalu buka sheet
NILAI, klik cell A6,
kemudian klik menu down arrow Paste, pilih Value.

Untuk mengisi cell C6 pada sheet NILAI, saya tulis secara manual judul
header tersebut (TANGGAL).

Untuk mengisi range D6:S6 pada sheet NILAI. Saya melakukan langkah:
Buka sheet SISWA, pilih range C2:C17 (range/kolom ini bersifat dinamis).
Lalu, klik menu Copy.
Buka sheet NILAI, klik cell D6. Kemudian, klik down arrow Paste - pilih
Value - pilih Transpose - OK.

Hasilnya kerja manual dapat dilihat pada lampiran.

Terima kasih


Tanya Header Copy Paste Transpose.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Modif VBA Code Jadi Copy Paste Value

2019-03-29 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Baik, terima kasih Master. Akan saya coba


On Fri, Mar 29, 2019 at 12:23 AM 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]  wrote:

>
>
> Kalau begitu, bisa dilakukan record macro dengan cara :
> 1. aktifkan autofilter di sumber data
> 2. jalankan record macro
> 3. turn off autofilter di data
> 4. turn on autofilter di data
> 5. filter kolom dimaksud
> 6. blok range data hasil filter beserta 1 baris kosong dibawah hasil filter
> 7. CTRL G -> klik Special -> pilih visible cells only -> OK
> 8. CTRL (copy)
> 9. ke sheet hasil
> 10. klik cells a1
> 11. tekan CTRL G -> tulis cells A100 -> OK (ke cells kosong yang jauh
> di bawah sana)
> 12. tekan CTRL panah ke atas di keyboard (sampai record terakhir tabel
> hasil)
> 13. tekan panah ke bawah 1 kali saja (supaya pindah ke cells kosong
> pertama dibawah record data hasil)
> 14. klik kanan pilih paste special -> pilih values and number format -> OK
> 15. kembali ke sheet sumber data
> 16. turn off auto filter
> 17. stop record macro
> > sudah jadi
>
> Kalau ingin sekalian menghilagkan duplicate di tabel hasil, maka kolom
> kriteria filter diikut sertakan saat proses copy, sebagai alat sort
> nantinya.
> Jadi, nomor
> 6 : blok range data hasil filter beserta 1 baris kosong dibawah hasil
> filter (termasuk kolom yang difilter)
>
> dari nomor 14 sampai dengan 15 menjadi begini :
> 14. klik kanan pilih paste special -> pilih values and number format ->
> OK
> 14a. ke cells a1, aktifkan autofilter di tabel hasil, sort kolom terkanan
> secara descending
> 14b. lakukan remove duplicate berdasar seluruh kolom selain kolom terkanan
> 14c. buang kolom terkanan (delete column)
> 15. kembali ke sheet sumber data
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
> On Thu, Mar 28, 2019 at 7:55 PM Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]  wrote:
>
>>
>>
>> Terima kasih atas tanggapan master.
>>
>> Kalau secara manual, saya menggunakan filter. Klik di cell A6 pada sheet
>> DATA. Lalu klik Tab Menu "Data", lalu pilih "Filter". Di sub menu filter
>> ini saya pilih "LULUS" sebagai fileternya. Maka hanya  baris yang
>> mengandung kata filter saja yang tampil. Selanjutnya saya pilih semua kolom
>> kecuali kolom terakhir (kolom E). Kemudian copy dan paste value ke sheet
>> KET.
>>
>> Begitulah yang saya lakukan secara manual.
>>
>> Terima kasih
>>
>>
>


Re: [belajar-excel] Modif VBA Code Jadi Copy Paste Value

2019-03-28 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas tanggapan master.

Kalau secara manual, saya menggunakan filter. Klik di cell A6 pada sheet
DATA. Lalu klik Tab Menu "Data", lalu pilih "Filter". Di sub menu filter
ini saya pilih "LULUS" sebagai fileternya. Maka hanya  baris yang
mengandung kata filter saja yang tampil. Selanjutnya saya pilih semua kolom
kecuali kolom terakhir (kolom E). Kemudian copy dan paste value ke sheet
KET.

Begitulah yang saya lakukan secara manual.

Terima kasih


[belajar-excel] Modif VBA Code Jadi Copy Paste Value [1 Attachment]

2019-03-27 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Kepada para master dan para anggota milis, tolong dibantu.

Pertama, bagaimana mengubah/memodifikasi VBA Code agar yang di-copy paste
itu adalah VALUE. VBA code yang ada saat bukan hanya copy paste value,
tetapi dengan formatnya.

Kedua, mengapa VBA code yang ada saat ini memakan waktu agak lama ketika
dijalankan. Apakah VBA code-nya kurang efektif?

Atas perhatian dan jawabannya, diucapkan terima kasih.


Modif VBA Code Jadi Copy Paste Value.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Tanya Transpose Table

2019-02-20 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih Pak Hendrik atas masukannya.

File terlampir adalah hasil perpaduan antara saran Pak Hendrik dengan rumus
dari Pak Ghozy. Di file ini, untuk melakukan transpose tabel, saya harus
memilih cell C2:C73 lalu klik tombol TRANSPOSE. Saya menginginkan tidak
perlu memilih range C2:C73 TETAPI hanya cukup memilih cell C2 lalu tekan
tombol TRANSPOSE di sheet TRANSPOSE (lihat lampiran), maka itu sangat
mempersingkat pekerjaan.  Bagaimana VBA Code-nya Pak. Tolong dimodif.
Terima kasih.

On Wed, Feb 20, 2019 at 1:54 PM hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel]  wrote:

>
>
> Boleh ikutan jawab ya.
>
> Pertanyaan:
> Jika menggunakan rumus dari Pak Ghozy memunculkan 1 pertanyaan: Apakah
> jumlah baris yang diperlukan untuk hasil transpose tabel adalah sejumlah
> perkalian BARIS DAN KOLOM...? Dalam contoh saya ada 6 baris dan 12 kolom,
> maka 6 x 12 = 72.
>
> Jawab:
> Ya (baris x kolom +1 (judul)), jadi 73 baris
> Jika baris dan kolom barubah maka
> INPUT!$A$9:$A$14
> INPUT!$B$8:$M$8
> INPUT!$B$9:$M$14
> bisa diganti dengan nama2 Range (mis. Indikator, Nama, dan Data) dan
> jumlah barisnya akan berubah juga (baris x kolom + 1)
>
> Salam,
> HK
>
>
>
> Pada Rabu, 20 Februari 2019 12.05.29 GMT+7, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> menulis:
>
>
>
>
> Terima kasih kepada para master yang telah menjawab pertanyaan saya. Rumus
> dari Pak Ghozy berjalan dengan baik. Masukkan Pak Hendrik telah menambah
> pengetahuan dan telah saya coba. Jika menggunakan rumus dari Pak Ghozy
> memunculkan 1 pertanyaan: Apakah jumlah baris yang diperlukan untuk hasil
> transpose tabel adalah sejumlah perkalian BARIS DAN KOLOM.? Dalam contoh
> saya ada 6 baris dan 12 kolom, maka 6 x 12 = 72..?  Mohon tanggapannya.
> Terima kasih
>
> On Tue, Feb 19, 2019 at 2:33 PM Pak Cik Lukman pakcikluk...@gmail.com
> [belajar-excel]  wrote:
>
>
>
> Terima kasih Pak Hendrik atas info dan penjelasannya
>
> Wasalam,
>
> On Tue, Feb 19, 2019, 09:53 hendrik karnadi hendrikkarn...@yahoo.com
> [belajar-excel] 
>
>
> Sedikit tambahan
> Dengan merekam, di VBE sheet akan tampak ..FormulaR1C1.
> Jika formula ingin ditulis (mis pada sel yang aktif) maka penulisannya
> menjadi:
> ActiveCell.Formula = "" dimana
>  adalah formula yang tampak pada Formula Bar pada sheet yang
> aktif..
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview..mail.yahoo.com/mobile/?.src=Android>
>
> On Tue, Feb 19, 2019 at 9:37, hendrik karnadi
>  wrote:
> Hai Lukman,
> Bisa, dengan merekam macro.
>
> Sebelum menulis formula, klik Macro Recording melalui melalui menu View
> Macro atau Developer.
> Setelah selesai menulis formula dan menekan Enter klik Stop Recording.
>
> Formula akan tertulis secara otomatis di VBE Sheetuntuk melihatnya
> tekan Alt F11.
> Simpan File dengan extension :
> .xls (Excel 2003 dan sebel.)
> .xlsm atau .xlsb (Excel 2007 ke atas).
>
> Sebelum menjalankan macro (Excel 2007/2010 ke atas)...macronya harus
> diaktifkan terlebih dahulu mel menu Developer, Macro Security.
> Jika belum ada Developer dalam Ribbon...maka harus ditampilkan terlebih
> dahulu dengan mengklik kanan Ribbon kemudian centang Developer pada
> checkbox disampingnya.
>
> Semoga bermanfaat.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview..mail.yahoo.com/mobile/?..src=Android>
>
> On Tue, Feb 19, 2019 at 8:45, Pak Cik Lukman pakcikluk...@gmail.com
> [belajar-excel]
>  wrote:
>
>
> Dear pak Ghozi,
>
> Diskusi sedikit... saya tdk faham ttg VBA, tetapi bisa kah formula pak
> Ghozi di translate ke VBA? Misal dgn memasukan formula (yg sdh ditranslate
> ke dlm bhs vba) ke dlm commanbutton "transpose" ??
>
> Salam
>
> On Mon, Feb 18, 2019, 19:08 ghozi alkatiri ghozialkat...@yahoo.co..id
>  [belajar-excel]  wrote:
>
>
>
> Waalaikum Salam WarohmatuLLAHI WabarokaaTUH
> sambil nunggu solusi Vba
>
> saya menawarkan solusi pakai formula barang kali ada gunanya..
>
> sheet DATANILAI
>
> untuk isian tabel indikator tulis di A2
> =INDEX(INPUT!$A$9:$A$14,TRUNC((ROW(A1)-1)/12)+1)
> copy ke bawah
>
> untuk isian tabel Nama tulis di B2
> =INDEX(INPUT!$B$8:$M$8,MOD(ROW(A1)-1,12)+1) copy ke bawah
>
> untuk isian tabel Nama tulis di B2
>
> =INDEX(INPUT!$B$9:$M$14,TRUNC((ROW(A1)-1)/12)+1,MATCH(B2,INPUT!$B$8:$M$8,0))
> copy ke bawah
>
> wassalam
>
> Ghozi Alkatiri
> Pada Senin, 18 Februari 2019 18.24.16 WIB, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> menulis:
>
>
>
>
> Assalamu'alaikum Wr. Wb.
>
> Kepada para Master dan anggota milis. T

Re: [belajar-excel] Tanya Transpose Table

2019-02-20 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih Pak Hendrik atas masukannya.

File terlampir adalah hasil perpaduan antara saran Pak Hendrik dengan rumus
dari Pak Ghozy. Di file ini, untuk melakukan transpose tabel, saya harus
memilih cell C2:C73 lalu klik tombol TRANSPOSE. Saya menginginkan tidak
perlu memilih range C2:C73 TETAPI hanya cukup memilih cell C2 lalu tekan
tombol TRANSPOSE, maka itu sangat mempersingkat pekerjaan.  Bagaimana VBA
Code-nya Pak. Tolong dimodif. Terima kasih.

On Wed, Feb 20, 2019 at 1:54 PM hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel]  wrote:

>
>
> Boleh ikutan jawab ya.
>
> Pertanyaan:
> Jika menggunakan rumus dari Pak Ghozy memunculkan 1 pertanyaan: Apakah
> jumlah baris yang diperlukan untuk hasil transpose tabel adalah sejumlah
> perkalian BARIS DAN KOLOM...? Dalam contoh saya ada 6 baris dan 12 kolom,
> maka 6 x 12 = 72.
>
> Jawab:
> Ya (baris x kolom +1 (judul)), jadi 73 baris
> Jika baris dan kolom barubah maka
> INPUT!$A$9:$A$14
> INPUT!$B$8:$M$8
> INPUT!$B$9:$M$14
> bisa diganti dengan nama2 Range (mis. Indikator, Nama, dan Data) dan
> jumlah barisnya akan berubah juga (baris x kolom + 1)
>
> Salam,
> HK
>
>
>
> Pada Rabu, 20 Februari 2019 12.05.29 GMT+7, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> menulis:
>
>
>
>
> Terima kasih kepada para master yang telah menjawab pertanyaan saya. Rumus
> dari Pak Ghozy berjalan dengan baik. Masukkan Pak Hendrik telah menambah
> pengetahuan dan telah saya coba. Jika menggunakan rumus dari Pak Ghozy
> memunculkan 1 pertanyaan: Apakah jumlah baris yang diperlukan untuk hasil
> transpose tabel adalah sejumlah perkalian BARIS DAN KOLOM...? Dalam contoh
> saya ada 6 baris dan 12 kolom, maka 6 x 12 = 72..?  Mohon tanggapannya.
> Terima kasih
>
> On Tue, Feb 19, 2019 at 2:33 PM Pak Cik Lukman pakcikluk...@gmail.com
> [belajar-excel]  wrote:
>
>
>
> Terima kasih Pak Hendrik atas info dan penjelasannya
>
> Wasalam,
>
> On Tue, Feb 19, 2019, 09:53 hendrik karnadi hendrikkarn...@yahoo.com
> [belajar-excel] 
>
>
> Sedikit tambahan
> Dengan merekam, di VBE sheet akan tampak ..FormulaR1C1.
> Jika formula ingin ditulis (mis pada sel yang aktif) maka penulisannya
> menjadi:
> ActiveCell.Formula = "" dimana
>  adalah formula yang tampak pada Formula Bar pada sheet yang
> aktif..
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview..mail.yahoo.com/mobile/?.src=Android>
>
> On Tue, Feb 19, 2019 at 9:37, hendrik karnadi
>  wrote:
> Hai Lukman,
> Bisa, dengan merekam macro.
>
> Sebelum menulis formula, klik Macro Recording melalui melalui menu View
> Macro atau Developer.
> Setelah selesai menulis formula dan menekan Enter klik Stop Recording.
>
> Formula akan tertulis secara otomatis di VBE Sheetuntuk melihatnya
> tekan Alt F11.
> Simpan File dengan extension :
> .xls (Excel 2003 dan sebel.)
> .xlsm atau .xlsb (Excel 2007 ke atas).
>
> Sebelum menjalankan macro (Excel 2007/2010 ke atas)...macronya harus
> diaktifkan terlebih dahulu mel menu Developer, Macro Security.
> Jika belum ada Developer dalam Ribbon...maka harus ditampilkan terlebih
> dahulu dengan mengklik kanan Ribbon kemudian centang Developer pada
> checkbox disampingnya.
>
> Semoga bermanfaat.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview..mail.yahoo.com/mobile/?..src=Android>
>
> On Tue, Feb 19, 2019 at 8:45, Pak Cik Lukman pakcikluk...@gmail.com
> [belajar-excel]
>  wrote:
>
>
> Dear pak Ghozi,
>
> Diskusi sedikit... saya tdk faham ttg VBA, tetapi bisa kah formula pak
> Ghozi di translate ke VBA? Misal dgn memasukan formula (yg sdh ditranslate
> ke dlm bhs vba) ke dlm commanbutton "transpose" ??
>
> Salam
>
> On Mon, Feb 18, 2019, 19:08 ghozi alkatiri ghozialkat...@yahoo.co..id
>  [belajar-excel]  wrote:
>
>
>
> Waalaikum Salam WarohmatuLLAHI WabarokaaTUH
> sambil nunggu solusi Vba
>
> saya menawarkan solusi pakai formula barang kali ada gunanya..
>
> sheet DATANILAI
>
> untuk isian tabel indikator tulis di A2
> =INDEX(INPUT!$A$9:$A$14,TRUNC((ROW(A1)-1)/12)+1)
> copy ke bawah
>
> untuk isian tabel Nama tulis di B2
> =INDEX(INPUT!$B$8:$M$8,MOD(ROW(A1)-1,12)+1) copy ke bawah
>
> untuk isian tabel Nama tulis di B2
>
> =INDEX(INPUT!$B$9:$M$14,TRUNC((ROW(A1)-1)/12)+1,MATCH(B2,INPUT!$B$8:$M$8,0))
> copy ke bawah
>
> wassalam
>
> Ghozi Alkatiri
> Pada Senin, 18 Februari 2019 18.24.16 WIB, Cari Kebenaran
> cahayailm...@gmail.com [belajar-excel] 
> menulis:
>
>
>
>
> Assalamu'alaikum Wr. Wb.
>
> Kepada para Master dan anggota milis. Tolong dibantu vba code. Saya ingin

[belajar-excel] Mengisi Range Sesuai Jumlah Baris di Kolom Sebelahnya

2019-02-20 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Wr. Wb.


Para Master dan anggota milis. Saya mau bertanya lagi. Mohon dibantu VBA
Code. Saya ingin mengisi range berdasarkan keberadaan data di kolom
sampingnya. Dengan menekan tombol COPY, saya ingin mengisi range D2:G10 di
sheet ini (DATANILAI) dengan nilai (value) yang berasal dari range C5:F5 di
sheet INPUT.

Dalam contoh ini memang yang perlu diisi adalah range D2:G10, tetapi perlu
diingat bahwa tabel bersifat dinamis. Bisa jadi suatu ketika yang perlu
diisi adalah D11:G25 tergantung keberadaan data pada kolom A, B, dan C yang
bersifat dinamis.


Lihat lampiran. Terima kasih


Mengisi Range Sesuai Jumlah Baris di Kolom Sebelahnya.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Tanya Transpose Table

2019-02-19 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih kepada para master yang telah menjawab pertanyaan saya. Rumus
dari Pak Ghozy berjalan dengan baik. Masukkan Pak Hendrik telah menambah
pengetahuan dan telah saya coba. Jika menggunakan rumus dari Pak Ghozy
memunculkan 1 pertanyaan: Apakah jumlah baris yang diperlukan untuk hasil
transpose tabel adalah sejumlah perkalian BARIS DAN KOLOM...? Dalam contoh
saya ada 6 baris dan 12 kolom, maka 6 x 12 = 72..?  Mohon tanggapannya.
Terima kasih

On Tue, Feb 19, 2019 at 2:33 PM Pak Cik Lukman pakcikluk...@gmail.com
[belajar-excel]  wrote:

>
>
> Terima kasih Pak Hendrik atas info dan penjelasannya
>
> Wasalam,
>
> On Tue, Feb 19, 2019, 09:53 hendrik karnadi hendrikkarn...@yahoo.com
> [belajar-excel] 
>>
>>
>> Sedikit tambahan
>> Dengan merekam, di VBE sheet akan tampak ..FormulaR1C1.
>> Jika formula ingin ditulis (mis pada sel yang aktif) maka penulisannya
>> menjadi:
>> ActiveCell.Formula = "" dimana
>>  adalah formula yang tampak pada Formula Bar pada sheet yang
>> aktif..
>>
>> Salam,
>> HK
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Tue, Feb 19, 2019 at 9:37, hendrik karnadi
>>  wrote:
>> Hai Lukman,
>> Bisa, dengan merekam macro.
>>
>> Sebelum menulis formula, klik Macro Recording melalui melalui menu View
>> Macro atau Developer.
>> Setelah selesai menulis formula dan menekan Enter klik Stop Recording.
>>
>> Formula akan tertulis secara otomatis di VBE Sheet..untuk melihatnya
>> tekan Alt F11.
>> Simpan File dengan extension :
>> .xls (Excel 2003 dan sebel.)
>> .xlsm atau .xlsb (Excel 2007 ke atas).
>>
>> Sebelum menjalankan macro (Excel 2007/2010 ke atas)...macronya harus
>> diaktifkan terlebih dahulu mel menu Developer, Macro Security.
>> Jika belum ada Developer dalam Ribbon...maka harus ditampilkan terlebih
>> dahulu dengan mengklik kanan Ribbon kemudian centang Developer pada
>> checkbox disampingnya.
>>
>> Semoga bermanfaat.
>>
>> Salam,
>> HK
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?..src=Android>
>>
>> On Tue, Feb 19, 2019 at 8:45, Pak Cik Lukman pakcikluk...@gmail.com
>> [belajar-excel]
>>  wrote:
>>
>>
>> Dear pak Ghozi,
>>
>> Diskusi sedikit... saya tdk faham ttg VBA, tetapi bisa kah formula pak
>> Ghozi di translate ke VBA? Misal dgn memasukan formula (yg sdh ditranslate
>> ke dlm bhs vba) ke dlm commanbutton "transpose" ??
>>
>> Salam
>>
>> On Mon, Feb 18, 2019, 19:08 ghozi alkatiri ghozialkat...@yahoo.co..id
>>  [belajar-excel] <
>> belajar-excel@yahoogroups.com wrote:
>>
>>
>>
>> Waalaikum Salam WarohmatuLLAHI WabarokaaTUH
>> sambil nunggu solusi Vba
>>
>> saya menawarkan solusi pakai formula barang kali ada gunanya..
>>
>> sheet DATANILAI
>>
>> untuk isian tabel indikator tulis di A2
>> =INDEX(INPUT!$A$9:$A$14,TRUNC((ROW(A1)-1)/12)+1)
>> copy ke bawah
>>
>> untuk isian tabel Nama tulis di B2
>> =INDEX(INPUT!$B$8:$M$8,MOD(ROW(A1)-1,12)+1) copy ke bawah
>>
>> untuk isian tabel Nama tulis di B2
>>
>> =INDEX(INPUT!$B$9:$M$14,TRUNC((ROW(A1)-1)/12)+1,MATCH(B2,INPUT!$B$8:$M$8,0))
>> copy ke bawah
>>
>> wassalam
>>
>> Ghozi Alkatiri
>> Pada Senin, 18 Februari 2019 18.24.16 WIB, Cari Kebenaran
>> cahayailm...@gmail.com [belajar-excel] 
>> menulis:
>>
>>
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Kepada para Master dan anggota milis... Tolong dibantu vba code. Saya ingin
>> melakukan transpose table. Table INDIKATOR PENILAIAN di sheet INPUT ingin
>> saya transpose secara otomatis di sheet DATANILAI dengan menekan tombol
>> "TRANSPOSE".. Selama ini saya melakukannya secara manual yaitu melalui
>> fasilitas bawaan excel: PIVOTTABLE AND PIVOTCHART WIZARD. Hasilnya bisa
>> dilihat di sheet DATANILAI.
>>
>> Mohon dibuatkan kode VBA-nya. Syukur kalau kotak dialog untuk memilih
>> cell (disheet tertentu) untuk menempatkan tabel hasil transpose.
>>
>> Demikian terima kasih.
>>
>> Wassalamu'alaikum Wr. Wb.
>>
>>
>


[belajar-excel] Tanya Transpose Table [1 Attachment]

2019-02-18 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Wr. Wb.

Kepada para Master dan anggota milis. Tolong dibantu vba code. Saya ingin
melakukan transpose table. Table INDIKATOR PENILAIAN di sheet INPUT ingin
saya transpose secara otomatis di sheet DATANILAI dengan menekan tombol
"TRANSPOSE". Selama ini saya melakukannya secara manual yaitu melalui
fasilitas bawaan excel: PIVOTTABLE AND PIVOTCHART WIZARD. Hasilnya bisa
dilihat di sheet DATANILAI.

Mohon dibuatkan kode VBA-nya. Syukur kalau kotak dialog untuk memilih cell
(disheet tertentu) untuk menempatkan tabel hasil transpose.

Demikian terima kasih.

Wassalamu'alaikum Wr. Wb.


TANYA TRANSPOSE TABLE.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Mengisi range berdasarkan 3 kriteria.

2018-12-09 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
> Pakai contoh lagi deh
> Misal ada folder bernama DATA di drive D berisi files yang mau diproses.
> Kelas_A.xlsx dan sebagainya, yang pasti ada sheet bernama HARIAN
>
> 0. Ambil 1 file dulu, misal Kelas_A.xlsx pakai cara di atas tadi dari
> langkah 1 sampai 6 (langkah 99 nya nanti saja kalau sudah selesai semua
> proses setiap file dalam folder)
> 7. di dalam PowerQuery Editor, edit query HARIAN : klik kanan nama query
> HARIAN -> pilih Advanced Editor -> muncul banyak tulisan tuh
> -> di baris pertama, di-Enter supaya ada baris kosong -> lalu tambahin
> bunyi set variabel berbunyi [ini case sensitive ya, jadi harus persis] :
> (isiFILE as binary) =>
> * nama variabelnya adalah isiFILE
> -> lalu lihat baris Source = blabla, ganti bagian berbunyi
> *File.Contents("D:\DATA\Kelas_A.xlsx")*  dengan nama variabelnya, yaitu
> isiFILE (case sensitive ya)
> -> tekan DONE
> *** ini namanya membuat function di dalam powerquery, supaya bisa
> dipakai dalam formula.
> seperti ini jadinya isi si query HARIAN :
>
> [image: rng25.gif]
>
>
> 8. Sekarang mau membuat daftar file dan mengangkut semua sheet dari
> masing-masing file ke dalam PowerQuery, caranya adalah dengan membuat query
> baru :
> di PowerQuery Editor -> di sisi kiri ada bagian Queries -> klik kanan
> bagian Queries -> pilih New Query -> File -> pilih Folder -> tunjuk folder
> DATA yang berisi banyak file itu -> OK
> -> muncul daftar file -> EDIT
> Seperti ini : (nama query barunya adalah DATA [isinya daftar file
> beserta isinya])
>
> [image: rng26.gif]
>
> nah loh... mau bikin daftar file lengkap dengan berbagai info tentang file
> juga bisa dilakukan dengan langkah 8 ini kan...
>
> tinggal pilih kolom mana yang harus dihapus
>
> Kolom [Content] itu isinya semua data di setiap sheet dalam file tersebut
>
> 9. ok, misal hasil akhir pengen ada nama filenya di kolom pertama ya...
> jadi kolom yang dipakai cuma kolom [Content] dan kolom [Name]. Kolom
> lainnya dibuang.
> gini : klik kolom Name -> tekan CTRL jangan dilepasin -> klik kolom
> Content   [ini namanya cara blok banyak kolom sesuai selera]
> -> klik kanan kolom-kolom yang terblok -> pilih remove other columns
>
> 10. kalau mau supaya ekstension file nya hilang, bisa di-replace. Atau
> kalau ada file lainnya, bisa difilter. Atur saja seperti pakai autofilter.
> 11. Mengeluarkan tabel sheet harian dari setiap file
>   -> menu Add Column -> add custom column -> muncul tempat nulis
> formula
>   *** masih ingat ya, tadi ada function baca sebuah file sheet harian
> bernama HARIAN
>  -> tulis di tempat nulis formula tersebut bunyi function HARIAN dan
> isi variabel dengan kolom Content (kolom Content isinya semua data di dalam
> file kan ya)
>  -> tekan OK
>  Begini :
>
> [image: rng27..gif]
>
> dan hasil query jadi begini :
>
> [image: rng28.gif]
>
>  kolom baru (dalam contoh ini bernama [Custom]) berisi table hasil
> proses function HARIAN. Isinya ya seperti data HARIAN yang sudah diproses
> jadi vertikal itu.
>
> 12. Membuka isi kolom berisi Table (dalam contoh ini di kolom Custom)
>   > di kolom Custom ada panah berlok kiri dan kanan -> klik panah
> belok kiri kanan itu untuk Expand -> muncul daftar kolom -> centang semua
> kolom
>   -> hilangkan centang dari item 'Use original blabla' -> tekan OK
> 13. buang kolom Content (karena tidak dipakai lagi), ubah nama kolom Name
> menjadi bernama KELAS, atur tipe data setiap kolom, bila perlu filter kolom
> NILAI remove empty
> 14. Close & Load To -> muncul window lokasi peletakan hasil
>   > Kalau data hasil gabungan files dan transformasi itu bisa lebih
> dari 1 juta (misal, sampai 2 juta atau 40 juta lebih gitu) atau ingin
> disimpan dalam data model, maka :
>  pilih Connection Only -> centang Add to data model -> OK
> [ini supaya bisa langsung digunakan oleh PowerPivot dan jadi lebih cepat]
>   > Kalau ingin disimpan dalam sheet (khusus hasil tidak lebih dari
> jumlah baris Excel), maka :
>  pilih Sheet -> HILANGKAN CENTANG dari Add to data model -> OK
> (supaya file tidak besar banget karena nyimpan di 2 tempat sekaligus)
> *** Kalau sudah sampai langkah 14, proses dalam data model bisa dilakukan
> seperti dongeng jauh di atas sana tentang power pivot tadi.
>
>
> sudah begini pun, masih ada yang bilang :
> "w... data saya itu ada di banyak sub folder tauk... gak sesimpel
> itu..."
> > walah, jadi orang kok gak simpel.. kacian deh lu...
> > ya sudah lah... yang waras ngalah
> > mau ditaruh di s

Re: [belajar-excel] Mengisi range berdasarkan 3 kriteria.

2018-12-09 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima Bapak NangAgus. Rumusnya berjalan. Mohon maaf kalau Bapak pusing
melihat tabel penilaian di PAUD. Itu tuntutan kurikulum PAUD 2013.

Untuk Master Kid yang menanyakan apakah tabel datanya diubah jadi ke bawah
bagaimana ?
Jawaban saya: Silakan diubah. Kami dengan senang hati akan menerima tiap
masukan.
Oke Master, saya jadi sangat pingin lihat perubahan tersebut.

Terima kasih



On Sun, Dec 9, 2018 at 12:06 AM 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]  wrote:

>
>
> Kalau tabel datanya diubah jadi ke bawah bagaimana ?
>
> Cuma iseng nanya kok
> Biasanya dijawab gak bisa dengan berbagai alasan.
>
> Tapi, sapa tahu yang ini gak biasa, jadi tabelnya akan diubah jadi ke
> bawah.
>
> Sent from my smart enough phone
>
> On Dec 8, 2018, at 21:32, Agus nanga...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> wrote:
>
>
>
> Aduh,.
> Format nilainya membuat saya pusing.
> untuk satu siswa saja harus mengisi sangat banyak dan demikian rumitnya.
> saya sedang membayangkan jika ada seorang guru membuat nilai untuk 1.000
> siswa seperti saya berapa banyak yang harus diisikan! maklumlah saya tidak
> pernah belajar untuk menjadi guru anak kecil,
> Mohon maaf atas segala kesalahan.
> Coba di D6 diketik pormula:
>
> *=IFERROR(INDEX(HARIAN!$I$2:$AV$8,MATCH(D$5&$C6,INDEX(DAY(HARIAN!$F$2:$F$8)!$D$2:$D$8,,),0),MATCH($B$2,HARIAN!$I$1:$AV$1,0)),"")*
>
> Kopi pormula tersebut ke semua area.
> Perlu diingat formula tersebut hanya membaca tanggal saja sesuai dengan
> permintaan, namun belum dapat membedakan tanggal untuk bulan berbeda
> apalagi tahun yang berbeda pasti tidak dapat dibedakan.
> Jika menghendaki sesuai tanggal yang benar lakukan hal berikut:
> 1. ubah saja value di D5 menjadi 1-11-18 dan ubah pula formatnya agar
> menampilkan tanggal saja.
> 2. ubah formula di atas dengan menghapus DAY
> Salam
> NangAgus
>
> On 12/8/2018 08:59, Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
> wrote:
>
>
> Kepada Yth. Para Master dan segenap anggota milis. Tolong dibantu.
>
> Dalam kasus ini saya punya dua sheet, yaitu HARIAN dan BULANAN.
> Persoalannya adalah:
>
> Saya ingin mengisi nilai siswa pada range D6:AH167 (pada sheet BULANAN)
> secara otomatis
> berdasarkan nilai yang dicapai oleh siswa pada sheet HARIAN sesuai dengan
> nama NAMA, INDIKATOR, DAN TANGGAL. Jadi ada 3 kriteria untuk mengisi range
> D6:AH167 sheet HARIAN, yaitu NAMA, INDIKATOR, DAN *TANGGAL*
>
> Nama siswa sebagai filter-nya ada di cell B2 pada (sheet BULANAN). Ketika
> saya mengubah nama siswa pada cell B2 (sebagai filter) di sheet BULANAN
> maka hanya nilai dari siswa tersebut yang muncul di range nilai (D6:AH167,
> sheet BULANAN).
>
> Range D5:AH5 (sheet BULANAN) merupakan  tanggal (1 sampai dengan tanggal
> akhir bulan).
> Dalam file terlampir saya berikan contoh nilai atas nama siswa HASAN (nama
> hanya contoh saja).
>
> Pakai formula atau VBA tidak masalah. Pakai keduanya pun saya lebih
> senang.
>
> Atas perhatian dan bantuannya saya mengucapkan terima kasih.
>
>
> 
>
>
>


[belajar-excel] Mengisi range berdasarkan 3 kriteria. [1 Attachment]

2018-12-07 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Kepada Yth. Para Master dan segenap anggota milis. Tolong dibantu.

Dalam kasus ini saya punya dua sheet, yaitu HARIAN dan BULANAN.
Persoalannya adalah:

Saya ingin mengisi nilai siswa pada range D6:AH167 (pada sheet BULANAN)
secara otomatis
berdasarkan nilai yang dicapai oleh siswa pada sheet HARIAN sesuai dengan
nama NAMA, INDIKATOR, DAN TANGGAL. Jadi ada 3 kriteria untuk mengisi range
D6:AH167 sheet HARIAN, yaitu NAMA, INDIKATOR, DAN TANGGAL

Nama siswa sebagai filter-nya ada di cell B2 pada (sheet BULANAN). Ketika
saya mengubah nama siswa pada cell B2 (sebagai filter) di sheet BULANAN
maka hanya nilai dari siswa tersebut yang muncul di range nilai (D6:AH167,
sheet BULANAN).

Range D5:AH5 (sheet BULANAN) merupakan  tanggal (1 sampai dengan tanggal
akhir bulan).
Dalam file terlampir saya berikan contoh nilai atas nama siswa HASAN (nama
hanya contoh saja).

Pakai formula atau VBA tidak masalah. Pakai keduanya pun saya lebih senang.

Atas perhatian dan bantuannya saya mengucapkan terima kasih.


ISI RANGE NILAI BERDASARKAN NAMA DAN TANGGAL.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Bagaimana mendapatkan kembali file lampiran di masa yang lalu

2018-08-12 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih Master. Solved

On Sat, Aug 11, 2018 at 7:21 PM 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]  wrote:

>
>
> Backup milis di Nabble :
>
> http://milis-belajar-excel.1048464.n5.nabble...com/belajar-excel-Memberi-nomor-unik-pada-nilai-yg-ganda-duplicate-td5737904.html#a5737914
>
> On Sat, Aug 11, 2018 at 4:43 PM Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]  wrote:
>
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Kepada para master dan anggota milis, mohon bantuannya. Saya ingin
>> mendownload file lampiran (attachment) pada masa yang lalu. Setelah saya
>> cari, percapakapannya saya dapatkan, tetapi file balasan (file attachment
>> dari Master Kid) tidak ada. Adapun file arsipnya adalah berikut ini:
>>
>> https://www.mail-archive.com/belajar-excel@yahoogroups.com/msg33158..html
>> <https://www.mail-archive.com/belajar-excel@yahoogroups.com/msg33158.html>
>>
>> Bagaimanakah mendapatkan file attachment (balasan) dari Master Kid dalam
>> posting masa lalu tersebut? Saya butuh file tersebut, karena tanpa sengaja
>> harddisk saya diformat pada partisi yang berisi data. Terima kasih.
>>
>> Wassalamu'alaikum Wr. Wb.
>>
>
>


[belajar-excel] Bagaimana mendapatkan kembali file lampiran di masa yang lalu

2018-08-11 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Wr. Wb.

Kepada para master dan anggota milis, mohon bantuannya. Saya ingin
mendownload file lampiran (attachment) pada masa yang lalu. Setelah saya
cari, percapakapannya saya dapatkan, tetapi file balasan (file attachment
dari Master Kid) tidak ada. Adapun file arsipnya adalah berikut ini:

https://www.mail-archive.com/belajar-excel@yahoogroups.com/msg33158.html

Bagaimanakah mendapatkan file attachment (balasan) dari Master Kid dalam
posting masa lalu tersebut? Saya butuh file tersebut, karena tanpa sengaja
harddisk saya diformat pada partisi yang berisi data. Terima kasih.

Wassalamu'alaikum Wr. Wb.


Re: [belajar-excel] Mengisi Deskripsi Tugas secara Otomatis

2018-05-20 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
 Rumus dari Bapak Nangagus sudah diterapkan dan OK. Maaf, baru ingat ini
saya: bagaimana kalau dalam 1 minggu ada lebih dari 1 (satu) tugas yang
dijadwalkan..? Terkait dengan pertanyaan saya ini, apakah saya harus
membuat postingan baru atau melanjutkan dari postingan yang sudah ada
(postingan ini)? Karena ada file yang harus saya lampirkan, Terima kasih

File terlampir

2018-05-19 14:26 GMT+07:00 Cari Kebenaran <cahayailm...@gmail.com>:

> Rumus dari Bapak Nangagus sudah diterapkan dan OK. Maaf, baru ingat ini
> saya: bagaimana kalau dalam 1 minggu ada lebih dari 1 (satu) tugas yang
> dijadwalkan..? Terkait dengan pertanyaan saya ini, apakah saya harus
> membuat postingan baru atau melanjutkan dari postingan yang sudah ada
> (postingan ini)? Karena ada file yang harus saya lampirkan, Terima kasih
>
>
>
> 2018-05-19 13:38 GMT+07:00 Cari Kebenaran <cahayailm...@gmail.com>:
>
>> Terima kasih. Solved.
>>
>> Ternyata kurang koma-nya.
>>
>> 2018-05-19 10:41 GMT+07:00 NangAgus nanga...@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Pada file anda formulanya:
>>>
>>> =INDEX(TAHUNAN!$B$7:$B$20,MATCH("X",INDEX(TAHUNAN!$E$7:$BD$20*,*J7),0))
>>>
>>> Pada formula nangAgus:
>>> =INDEX(TAHUNAN!$B$7:$B$20,MATCH("X",INDEX(TAHUNAN!$E$7:$BD$20*,**,*
>>> J7),0))
>>>
>>> salam
>>>
>>> On 5/19/2018 5:56 AM, Cari Kebenaran cahayailm...@gmail.com
>>> [belajar-excel] wrote:
>>>
>>>
>>> Terima kasih atas respon para Master. Maaf, saya coba menggunakan rumus
>>> yang diberikan oleh Bapak Nangagus. Tetapi muncul pesan kesalahan #Ref! di
>>> excel saya. Mengapa demikian? Apa ada settingan di excel saya yang salah?
>>> Ini filenya saya lampirkan. Terima kasih
>>>
>>> 2018-05-19 2:01 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>> Wa'alaikumussalam wr wb
>>>>
>>>> File terlampir iseng menyusun tabel data lebih dulu.
>>>> Kumudian seluruh output (seperti sheet Tahunan dan Triwulan)
>>>> ditampilkan dengan pivot table, walau tidak sama persis dengan contoh
>>>> output.
>>>> Pada Excel 2010 ke atas, pivot table beserta slicer dapat digunakan.
>>>> Pada Excel 2007 ke bawah, hanya pivot table yang dapat digunakan.
>>>>
>>>> Wassalamu'alaikum wr wb
>>>> Kid
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> 2018-05-18 8:30 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>> salamu'alaikum Wr. Wb.
>>>>>
>>>>> Kepada para Master dan anggota milis, tolong dibantu. Saya ingin
>>>>> memasukkan "Deskripsi Tugas" pada kolom K7 sampai dengan K11 pada sheet
>>>>> "Triwulan1" secara otomatis berdasarkan BULAN dan MINGGU KE-. BULAN DAN
>>>>> MINGGU KE- yang menjadi acuan/patokan adalah sheet TAHUNAN. Ketikkan huruf
>>>>> X (capital) pada range e7:i20 di sheet TAHUNAN maka warna cell
>>>>> tempat huruf X dimasukkan akan berubah jadi hijau. Dan itu merupakan
>>>>> acuan untuk mengisi deskripsi tugas pada kolom K7 s.d. K11 di sheet
>>>>> Triwulan1.
>>>>>
>>>>> Deskripsi tugas yang ada sekarang diisikan secara manual. Inginkan
>>>>> otomatis. File terlampir
>>>>>
>>>>> Terima kasih. Semoga bisa dipahami. Atas bantuannya disampaikan terima
>>>>> kasih.
>>>>>
>>>>>
>>>>> Wassalamu'alaikum Wr. Wb.
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>


Deskripsi Tugas-Seminggu Lebih dari 1 Tugas.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Mengisi Deskripsi Tugas secara Otomatis

2018-05-19 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Rumus dari Bapak Nangagus sudah diterapkan dan OK. Maaf, baru ingat ini
saya: bagaimana kalau dalam 1 minggu ada lebih dari 1 (satu) tugas yang
dijadwalkan..? Terkait dengan pertanyaan saya ini, apakah saya harus
membuat postingan baru atau melanjutkan dari postingan yang sudah ada
(postingan ini)? Karena ada file yang harus saya lampirkan, Terima kasih



2018-05-19 13:38 GMT+07:00 Cari Kebenaran <cahayailm...@gmail.com>:

> Terima kasih. Solved...
>
> Ternyata kurang koma-nya.
>
> 2018-05-19 10:41 GMT+07:00 NangAgus nanga...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Pada file anda formulanya:
>>
>> =INDEX(TAHUNAN!$B$7:$B$20,MATCH("X",INDEX(TAHUNAN!$E$7:$BD$20*,*J7),0))
>>
>> Pada formula nangAgus:
>> =INDEX(TAHUNAN!$B$7:$B$20,MATCH("X",INDEX(TAHUNAN!$E$7:$BD$20*,**,*
>> J7),0))
>>
>> salam
>>
>> On 5/19/2018 5:56 AM, Cari Kebenaran cahayailm...@gmail.com
>> [belajar-excel] wrote:
>>
>>
>> Terima kasih atas respon para Master. Maaf, saya coba menggunakan rumus
>> yang diberikan oleh Bapak Nangagus. Tetapi muncul pesan kesalahan #Ref! di
>> excel saya. Mengapa demikian? Apa ada settingan di excel saya yang salah?
>> Ini filenya saya lampirkan. Terima kasih
>>
>> 2018-05-19 2:01 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>> Wa'alaikumussalam wr wb
>>>
>>> File terlampir iseng menyusun tabel data lebih dulu.
>>> Kumudian seluruh output (seperti sheet Tahunan dan Triwulan) ditampilkan
>>> dengan pivot table, walau tidak sama persis dengan contoh output.
>>> Pada Excel 2010 ke atas, pivot table beserta slicer dapat digunakan.
>>> Pada Excel 2007 ke bawah, hanya pivot table yang dapat digunakan.
>>>
>>> Wassalamu'alaikum wr wb
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2018-05-18 8:30 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>> salamu'alaikum Wr. Wb.
>>>>
>>>> Kepada para Master dan anggota milis, tolong dibantu. Saya ingin
>>>> memasukkan "Deskripsi Tugas" pada kolom K7 sampai dengan K11 pada sheet
>>>> "Triwulan1" secara otomatis berdasarkan BULAN dan MINGGU KE-. BULAN DAN
>>>> MINGGU KE- yang menjadi acuan/patokan adalah sheet TAHUNAN. Ketikkan huruf
>>>> X (capital) pada range e7:i20 di sheet TAHUNAN maka warna cell
>>>> tempat huruf X dimasukkan akan berubah jadi hijau. Dan itu merupakan
>>>> acuan untuk mengisi deskripsi tugas pada kolom K7 s.d. K11 di sheet
>>>> Triwulan1.
>>>>
>>>> Deskripsi tugas yang ada sekarang diisikan secara manual. Inginkan
>>>> otomatis. File terlampir
>>>>
>>>> Terima kasih. Semoga bisa dipahami. Atas bantuannya disampaikan terima
>>>> kasih.
>>>>
>>>>
>>>> Wassalamu'alaikum Wr. Wb.
>>>>
>>>
>>>
>>
>>
>>
>
>


Re: [belajar-excel] Mengisi Deskripsi Tugas secara Otomatis

2018-05-19 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih. Solved.

Ternyata kurang koma-nya.

2018-05-19 10:41 GMT+07:00 NangAgus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Pada file anda formulanya:
>
> =INDEX(TAHUNAN!$B$7:$B$20,MATCH("X",INDEX(TAHUNAN!$E$7:$BD$20*,*J7),0))
>
> Pada formula nangAgus:
> =INDEX(TAHUNAN!$B$7:$B$20,MATCH("X",INDEX(TAHUNAN!$E$7:$BD$20*,**,*J7),0))
>
> salam
>
> On 5/19/2018 5:56 AM, Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] wrote:
>
>
> Terima kasih atas respon para Master. Maaf, saya coba menggunakan rumus
> yang diberikan oleh Bapak Nangagus. Tetapi muncul pesan kesalahan #Ref! di
> excel saya. Mengapa demikian? Apa ada settingan di excel saya yang salah?
> Ini filenya saya lampirkan. Terima kasih
>
> 2018-05-19 2:01 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>> Wa'alaikumussalam wr wb
>>
>> File terlampir iseng menyusun tabel data lebih dulu.
>> Kumudian seluruh output (seperti sheet Tahunan dan Triwulan) ditampilkan
>> dengan pivot table, walau tidak sama persis dengan contoh output.
>> Pada Excel 2010 ke atas, pivot table beserta slicer dapat digunakan.
>> Pada Excel 2007 ke bawah, hanya pivot table yang dapat digunakan.
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>>
>>
>>
>>
>>
>> 2018-05-18 8:30 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>> salamu'alaikum Wr. Wb.
>>>
>>> Kepada para Master dan anggota milis, tolong dibantu. Saya ingin
>>> memasukkan "Deskripsi Tugas" pada kolom K7 sampai dengan K11 pada sheet
>>> "Triwulan1" secara otomatis berdasarkan BULAN dan MINGGU KE-. BULAN DAN
>>> MINGGU KE- yang menjadi acuan/patokan adalah sheet TAHUNAN. Ketikkan huruf
>>> X (capital) pada range e7:i20 di sheet TAHUNAN maka warna cell
>>> tempat huruf X dimasukkan akan berubah jadi hijau. Dan itu merupakan
>>> acuan untuk mengisi deskripsi tugas pada kolom K7 s.d. K11 di sheet
>>> Triwulan1.
>>>
>>> Deskripsi tugas yang ada sekarang diisikan secara manual. Inginkan
>>> otomatis. File terlampir
>>>
>>> Terima kasih. Semoga bisa dipahami. Atas bantuannya disampaikan terima
>>> kasih.
>>>
>>>
>>> Wassalamu'alaikum Wr. Wb.
>>>
>>
>>
>
>
>


Re: [belajar-excel] Mengisi Deskripsi Tugas secara Otomatis

2018-05-18 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih atas respon para Master. Maaf, saya coba menggunakan rumus
yang diberikan oleh Bapak Nangagus. Tetapi muncul pesan kesalahan #Ref! di
excel saya. Mengapa demikian? Apa ada settingan di excel saya yang salah?
Ini filenya saya lampirkan. Terima kasih

2018-05-19 2:01 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Wa'alaikumussalam wr wb
>
> File terlampir iseng menyusun tabel data lebih dulu.
> Kumudian seluruh output (seperti sheet Tahunan dan Triwulan) ditampilkan
> dengan pivot table, walau tidak sama persis dengan contoh output.
> Pada Excel 2010 ke atas, pivot table beserta slicer dapat digunakan.
> Pada Excel 2007 ke bawah, hanya pivot table yang dapat digunakan.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
>
>
> 2018-05-18 8:30 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> salamu'alaikum Wr. Wb.
>>
>> Kepada para Master dan anggota milis, tolong dibantu. Saya ingin
>> memasukkan "Deskripsi Tugas" pada kolom K7 sampai dengan K11 pada sheet
>> "Triwulan1" secara otomatis berdasarkan BULAN dan MINGGU KE-. BULAN DAN
>> MINGGU KE- yang menjadi acuan/patokan adalah sheet TAHUNAN. Ketikkan huruf
>> X (capital) pada range e7:i20 di sheet TAHUNAN maka warna cell
>> tempat huruf X dimasukkan akan berubah jadi hijau. Dan itu merupakan
>> acuan untuk mengisi deskripsi tugas pada kolom K7 s.d. K11 di sheet
>> Triwulan1.
>>
>> Deskripsi tugas yang ada sekarang diisikan secara manual. Inginkan
>> otomatis. File terlampir
>>
>> Terima kasih. Semoga bisa dipahami. Atas bantuannya disampaikan terima
>> kasih.
>>
>>
>> Wassalamu'alaikum Wr. Wb.
>>
>>
>
>


Deskripsi Tugas - Muncul #Ref!.xlsx
Description: MS-Excel 2007 spreadsheet


[belajar-excel] Mengisi Deskripsi Tugas secara Otomatis [1 Attachment]

2018-05-17 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
salamu'alaikum Wr. Wb.

Kepada para Master dan anggota milis, tolong dibantu. Saya ingin memasukkan
"Deskripsi Tugas" pada kolom K7 sampai dengan K11 pada sheet "Triwulan1"
secara otomatis berdasarkan BULAN dan MINGGU KE-. BULAN DAN MINGGU KE- yang
menjadi acuan/patokan adalah sheet TAHUNAN. Ketikkan huruf X (capital) pada
range e7:i20 di sheet TAHUNAN maka warna cell
tempat huruf X dimasukkan akan berubah jadi hijau. Dan itu merupakan acuan
untuk mengisi deskripsi tugas pada kolom K7 s.d. K11 di sheet Triwulan1.

Deskripsi tugas yang ada sekarang diisikan secara manual. Inginkan
otomatis. File terlampir

Terima kasih. Semoga bisa dipahami. Atas bantuannya disampaikan terima
kasih.


Wassalamu'alaikum Wr. Wb.


Deskripsi Tugas.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Copy paste data menurut posisi cell [1 Attachment]

2018-04-11 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Baik Pak. Ini saya kirim lagi filenya. Maaf kemarin salah kirim.

Saya ingin apabila TABEL 2 (A7 sampai dengan C21) sudah terisi penuh, maka
code VBA tidak dapat dijalankan lagi (dengan kata lain tidak bisa melakukan
copy paste lagi) meskipun saya memasukkan angka pada TABEL 1 (range K13
sampai dengan L17).


Saat ini masih bisa melakukan copy paste meskipun TABEL 2 sudah penuh.
Silakan masukkan angka pada range K13 sampai  L17. Dengan syarat angka pada
range L13 s/d L17 lebih besar dari 6.

Selengkapnya lihat lampiran.





On Wed, Apr 11, 2018 at 9:34 AM, Toby kenzo tobyke...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Yang anda inginkan sebenarnya seperti apa...
> Coba kirim filenya lagi dan hasil yang anda inginkan semuanya biar
> teman-teman disini juga mengerti..
>
>
> TerimaKasih
>
>
>
> Pada Rabu, 11 April 2018 6:52, "Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Pak Toby Kenzo, terima kasih atas responnya.
>
> Code saya ubah jadi seperti berikut ini:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Application.Intersect(Range("L13:L17"), Range(Target..Address)) Is
> Nothing Then
> If Range(Target.Address) > 0 Then
> Worksheets("INVOICE").Range(ActiveCell.Offset(-1, 0),
> ActiveCell.Offset(-1, -2)).Copy
> Worksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial
> xlPasteValues
> Application.CutCopyMode = False
> Range(Target.Address).Offset(0, -1) = ""
> Range(Target.Address).Offset(0, 0) = ""
> Worksheets("INVOICE").Range("K12").Select
> End If
> End If
> End Sub
>
>
> Yang belum terpecahkan adalah: apabila  baris ke 21 sudah terisi,
> pinginnya aktivitas copy paste berhenti karena sudah tidak tempat kosong
> lagi. Ini sebagai antisipasi salah input . Code VBA ini yang masih belum
> bisa saya susun.
>
> Terima kasih
>
> On Tue, Apr 10, 2018 at 4:55 PM, Toby kenzo tobyke...@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Coba ganti scriptnya :
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo 0
> If Not Intersect(Target, Range("L13:L17")) Is Nothing Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 2).Value
> Sheet1.Range("B" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 1).Value
> Sheet1.Range("C" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column).Value
> On Error Resume Next
> If Target.Value < 7 Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> If Target.Value = "" Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6))..Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> Else
> End If
> End If
> End If
> End Sub
>
>
> TerimaKasih
>
>
>
>
>
>
>
>
> Pada Senin, 9 April 2018 14:15, "Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
>
>
>
> Assalamu'alaikum warahmatullahi wabarakatuh
>
> Kepada Para Master dan segenap anggota
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai C7 (dibawah baris yang sudah terisi data).  Dan apabila baris A21
> sampai dengan C7 sudah terisi data (record), maka perintah (code VBA) tidak
> boleh dijalankan lagi. VBA Code yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13".
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
> Wassalamu'alaikum warahmatullahi wabarakatuh
>
>
>
>
>
>
>
>
>


Belajar Target.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Copy paste data menurut posisi cell

2018-04-10 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Pak Toby Kenzo, terima kasih atas responnya.

Code saya ubah jadi seperti berikut ini:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("L13:L17"), Range(Target.Address)) Is
Nothing Then
If Range(Target.Address) > 0 Then
Worksheets("INVOICE").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1,
-2)).Copy
Worksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
Application.CutCopyMode = False
Range(Target.Address).Offset(0, -1) = ""
Range(Target.Address).Offset(0, 0) = ""
Worksheets("INVOICE").Range("K12").Select
End If
End If
End Sub


Yang belum terpecahkan adalah: apabila  baris ke 21 sudah terisi, pinginnya
aktivitas copy paste berhenti karena sudah tidak tempat kosong lagi. Ini
sebagai antisipasi salah input . Code VBA ini yang masih belum bisa saya
susun.

Terima kasih

On Tue, Apr 10, 2018 at 4:55 PM, Toby kenzo tobyke...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Coba ganti scriptnya :
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo 0
> If Not Intersect(Target, Range("L13:L17")) Is Nothing Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 2).Value
> Sheet1.Range("B" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 1).Value
> Sheet1.Range("C" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column).Value
> On Error Resume Next
> If Target.Value < 7 Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> If Target.Value = "" Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> Else
> End If
> End If
> End If
> End Sub
>
>
> TerimaKasih
>
>
>
>
>
>
>
>
> Pada Senin, 9 April 2018 14:15, "Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Assalamu'alaikum warahmatullahi wabarakatuh
>
> Kepada Para Master dan segenap anggota
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai C7 (dibawah baris yang sudah terisi data).  Dan apabila baris A21
> sampai dengan C7 sudah terisi data (record), maka perintah (code VBA) tidak
> boleh dijalankan lagi. VBA Code yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13".
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
> Wassalamu'alaikum warahmatullahi wabarakatuh
>
>
>
>
>
>


[belajar-excel] Copy paste data menurut posisi cell [1 Attachment]

2018-04-09 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum warahmatullahi wabarakatuh


Kepada Para Master dan segenap anggota


Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
sebagai berikut:


apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
sampai C7 (dibawah baris yang sudah terisi data).  Dan apabila baris A21
sampai dengan C7 sudah terisi data (record), maka perintah (code VBA) tidak
boleh dijalankan lagi. VBA Code yang ada cuma bisa di 1 cell saja , yaitu
cell "L13".


Atas perhatian dan bantuannya, saya mengucapkan terima kasih


Wassalamu'alaikum warahmatullahi wabarakatuh


Belajar Target.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Seperti ini ya master:

saya ambil dari:
http://b-excel.blogspot.co.id/2013/08/belajarvba-007-property-methods-events.html

Lihat lampiran.

2018-03-16 15:53 GMT+07:00 Cari Kebenaran <cahayailm...@gmail.com>:

> Maaf Master, hasil akhirnya seperti apa..? Biar nanti saya pelajari line
> by line (kalau sudah script-nya jalan). Hee hee
> Maunya ingin copy dalam sheet yang  sama (bukan paste ke sheet lain).
>
> Terima kasih Master.
>
> 2018-03-16 15:40 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> eh...
>>
>> baris copy-nya betul begitu.
>> tapi prosedurnya pakai prosedur event milik sheet lokasi input. Tentang
>> event object dalam Excel VBA bisa dilihat disini
>> <http://b-excel.blogspot...co.id/2013/08/belajarvba-007-property-methods-events.html>
>> .
>>
>>
>>
>>
>> 2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Jadi seperti ini ya Master?
>>>
>>> Sub copas()
>>> If target.Count = 1 Then 'hanya 1 cells yang berubah isinya
>>>If target.Column = 1 Then 'yaitu di kolom ke-1 [A]
>>>   Application.EnableEvents = False 'cegah terpicunya events
>>>   target.copy
>>>   With Sheets("DATA")   'pada sheet 'lokasi paste'
>>>  .cells( ..rows.count , "C" ).end(xlup)..offset(1).pastespecial
>>> xlpastevalues  'paste values ke cells pertama di bawah data terakhir di
>>> kolom C
>>>   End With   'selesai kerja di sheet 'lokasi paste'
>>>   Application.EnableEvents = True 'events boleh terpicu lagi
>>>End If
>>> End If
>>> End Sub
>>>
>>> 2018-03-16 15:20 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Oh sorry, belum ada baris copy nya
>>>> Sebelum baris :   With blabla
>>>> Diberi baris : target..copy
>>>>
>>>> Hehehe.
>>>> Mohon maaf atas ketidak nyamanannya
>>>>
>>>> Sent from my smart enough phone
>>>>
>>>> On Mar 16, 2018, at 09:27, Cari Kebenaran cahayailm...@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>>>
>>>>
>>>>
>>>> Terima kasih master atas responnya.
>>>>
>>>> Saya sudah coba code yang master berikan, tetapi gak jalan master.
>>>> Untuk menjalankan code itu pakai tombol apa Master? Saya lampirkan file
>>>> excel yang sudah "mengandung" VBA code dimaksud.
>>>>
>>>> Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar
>>>> sheet. Terima kasih.
>>>>
>>>> 2018-03-16 7:49 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
>>>> <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Wa'alaikumussalam wr wb
>>>>>
>>>>> Bisa, tetapi terlalu beresiko.
>>>>> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah
>>>>> input data, harusnya input record client A, malah input record client B),
>>>>> maka akan ribet mengatur perbaikannya..
>>>>>
>>>>> Caranya dengan memanfaatkan event change milik worksheet.
>>>>> Contoh script dalam event change milik worksheet, untuk salin isi
>>>>> cells yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>>>>>
>>>>> if target.count=1 then  'hanya 1 cells yang berubah isinya
>>>>>if target.column=1 then   'yaitu di kolom ke-1 [A]
>>>>>   application.enableevents=false   'cegah terpicunya events
>>>>>   with sheets("lokasi paste")   'pada sheet 'lokasi paste'
>>>>>  .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial
>>>>> xlpastevalues  'paste values ke cells pertama di bawah data terakhir di
>>>>> kolom C
>>>>>   end with   'selesai kerja di sheet 'lokasi paste'
>>>>>   application.enableevents=true   'events boleh terpicu lagi
>>>>>endif
>>>>> endif
>>>>>
>>>>> Wassalamu'alaikum wr wb
>>>>> Kid
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> Assalamu'alaikum Wr. Wb.
>>>>>>
>>>>>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat
>>>>>> bermanfaat dari Master Kid tentang copy paste, maka muncul pertanyaan 
>>>>>> baru,
>>>>>> yaitu: bisakah excel melakukan copy paste dengan hanya 1 (baca: satu)
>>>>>> tombol di keyboard, misalnya pakai tombol ENTER atau F1, F2, dan
>>>>>> sebagainya..? Jadi tidak menggunakan shape atau button atau shortcut 
>>>>>> macro
>>>>>> untuk mengeksekusi/menjalankan macro/VBA code.
>>>>>>
>>>>>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>>>>>
>>>>>> Terima kasih
>>>>>>
>>>>>> Assalamu'alaikum Wr. Wb.
>>>>>>
>>>>>>
>>>>>
>>>> 
>>>>
>>>>
>>>
>>
>>
>
>


event.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Maaf Master, hasil akhirnya seperti apa..? Biar nanti saya pelajari line by
line (kalau sudah script-nya jalan). Hee hee
Maunya ingin copy dalam sheet yang  sama (bukan paste ke sheet lain).

Terima kasih Master.

2018-03-16 15:40 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> eh...
>
> baris copy-nya betul begitu.
> tapi prosedurnya pakai prosedur event milik sheet lokasi input. Tentang
> event object dalam Excel VBA bisa dilihat disini
> <http://b-excel.blogspot.co.id/2013/08/belajarvba-007-property-methods-events.html>
> .
>
>
>
>
> 2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Jadi seperti ini ya Master?
>>
>> Sub copas()
>> If target.Count = 1 Then 'hanya 1 cells yang berubah isinya
>>If target.Column = 1 Then 'yaitu di kolom ke-1 [A]
>>   Application.EnableEvents = False 'cegah terpicunya events
>>   target.copy
>>   With Sheets("DATA")   'pada sheet 'lokasi paste'
>>  .cells( ..rows.count , "C" ).end(xlup)..offset(1).pastespecial
>> xlpastevalues  'paste values ke cells pertama di bawah data terakhir di
>> kolom C
>>   End With   'selesai kerja di sheet 'lokasi paste'
>>   Application.EnableEvents = True 'events boleh terpicu lagi
>>End If
>> End If
>> End Sub
>>
>> 2018-03-16 15:20 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Oh sorry, belum ada baris copy nya
>>> Sebelum baris :   With blabla
>>> Diberi baris : target..copy
>>>
>>> Hehehe...
>>> Mohon maaf atas ketidak nyamanannya
>>>
>>> Sent from my smart enough phone
>>>
>>> On Mar 16, 2018, at 09:27, Cari Kebenaran cahayailm...@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>>
>>>
>>>
>>> Terima kasih master atas responnya.
>>>
>>> Saya sudah coba code yang master berikan, tetapi gak jalan master. Untuk
>>> menjalankan code itu pakai tombol apa Master? Saya lampirkan file excel
>>> yang sudah "mengandung" VBA code dimaksud.
>>>
>>> Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar
>>> sheet. Terima kasih...
>>>
>>> 2018-03-16 7:49 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Wa'alaikumussalam wr wb
>>>>
>>>> Bisa, tetapi terlalu beresiko.
>>>> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah
>>>> input data, harusnya input record client A, malah input record client B),
>>>> maka akan ribet mengatur perbaikannya..
>>>>
>>>> Caranya dengan memanfaatkan event change milik worksheet.
>>>> Contoh script dalam event change milik worksheet, untuk salin isi cells
>>>> yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>>>>
>>>> if target.count=1 then  'hanya 1 cells yang berubah isinya
>>>>if target.column=1 then   'yaitu di kolom ke-1 [A]
>>>>   application.enableevents=false   'cegah terpicunya events
>>>>   with sheets("lokasi paste")   'pada sheet 'lokasi paste'
>>>>  .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial
>>>> xlpastevalues  'paste values ke cells pertama di bawah data terakhir di
>>>> kolom C
>>>>   end with   'selesai kerja di sheet 'lokasi paste'
>>>>   application.enableevents=true   'events boleh terpicu lagi
>>>>endif
>>>> endif
>>>>
>>>> Wassalamu'alaikum wr wb
>>>> Kid
>>>>
>>>>
>>>>
>>>>
>>>> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Assalamu'alaikum Wr. Wb.
>>>>>
>>>>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat
>>>>> bermanfaat dari Master Kid tentang copy paste, maka muncul pertanyaan 
>>>>> baru,
>>>>> yaitu: bisakah excel melakukan copy paste dengan hanya 1 (baca: satu)
>>>>> tombol di keyboard, misalnya pakai tombol ENTER atau F1, F2, dan
>>>>> sebagainya..? Jadi tidak menggunakan shape atau button atau shortcut macro
>>>>> untuk mengeksekusi/menjalankan macro/VBA code.
>>>>>
>>>>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>>>>
>>>>> Terima kasih
>>>>>
>>>>> Assalamu'alaikum Wr. Wb.
>>>>>
>>>>>
>>>>
>>> 
>>>
>>>
>>
> 
>


Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Jadi seperti ini ya Master?

Sub copas()
If target.Count = 1 Then 'hanya 1 cells yang berubah isinya
   If target.Column = 1 Then 'yaitu di kolom ke-1 [A]
  Application.EnableEvents = False 'cegah terpicunya events
  target.copy
  With Sheets("DATA")   'pada sheet 'lokasi paste'
 .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial
xlpastevalues  'paste values ke cells pertama di bawah data terakhir di
kolom C
  End With   'selesai kerja di sheet 'lokasi paste'
  Application.EnableEvents = True 'events boleh terpicu lagi
   End If
End If
End Sub

2018-03-16 15:20 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Oh sorry, belum ada baris copy nya
> Sebelum baris :   With blabla
> Diberi baris : target.copy
>
> Hehehe...
> Mohon maaf atas ketidak nyamanannya
>
> Sent from my smart enough phone
>
> On Mar 16, 2018, at 09:27, Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Terima kasih master atas responnya.
>
> Saya sudah coba code yang master berikan, tetapi gak jalan master. Untuk
> menjalankan code itu pakai tombol apa Master? Saya lampirkan file excel
> yang sudah "mengandung" VBA code dimaksud.
>
> Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar sheet.
> Terima kasih.
>
> 2018-03-16 7:49 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Wa'alaikumussalam wr wb
>>
>> Bisa, tetapi terlalu beresiko.
>> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah input
>> data, harusnya input record client A, malah input record client B), maka
>> akan ribet mengatur perbaikannya
>>
>> Caranya dengan memanfaatkan event change milik worksheet.
>> Contoh script dalam event change milik worksheet, untuk salin isi cells
>> yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>>
>> if target.count=1 then  'hanya 1 cells yang berubah isinya
>>if target.column=1 then   'yaitu di kolom ke-1 [A]
>>   application.enableevents=false   'cegah terpicunya events
>>   with sheets("lokasi paste")   'pada sheet 'lokasi paste'
>>  .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial
>> xlpastevalues  'paste values ke cells pertama di bawah data terakhir di
>> kolom C
>>   end with   'selesai kerja di sheet 'lokasi paste'
>>   application.enableevents=true   'events boleh terpicu lagi
>>endif
>> endif
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>>
>> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat bermanfaat
>>> dari Master Kid tentang copy paste, maka muncul pertanyaan baru, yaitu:
>>> bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) tombol di
>>> keyboard, misalnya pakai tombol ENTER atau F1, F2, dan sebagainya..? Jadi
>>> tidak menggunakan shape atau button atau shortcut macro untuk
>>> mengeksekusi/menjalankan macro/VBA code.
>>>
>>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>>
>>> Terima kasih
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>>
>>
> 
>
>
>


Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih master atas responnya.

Saya sudah coba code yang master berikan, tetapi gak jalan master. Untuk
menjalankan code itu pakai tombol apa Master? Saya lampirkan file excel
yang sudah "mengandung" VBA code dimaksud.

Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar sheet.
Terima kasih.

2018-03-16 7:49 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Wa'alaikumussalam wr wb
>
> Bisa, tetapi terlalu beresiko.
> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah input
> data, harusnya input record client A, malah input record client B), maka
> akan ribet mengatur perbaikannya..
>
> Caranya dengan memanfaatkan event change milik worksheet.
> Contoh script dalam event change milik worksheet, untuk salin isi cells
> yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>
> if target.count=1 then  'hanya 1 cells yang berubah isinya
>if target.column=1 then   'yaitu di kolom ke-1 [A]
>   application.enableevents=false   'cegah terpicunya events
>   with sheets("lokasi paste")   'pada sheet 'lokasi paste'
>  .cells( .rows.count , "C" ).end(xlup).offset(1).pastespecial
> xlpastevalues  'paste values ke cells pertama di bawah data terakhir di
> kolom C
>   end with   'selesai kerja di sheet 'lokasi paste'
>   application.enableevents=true   'events boleh terpicu lagi
>endif
> endif
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat bermanfaat
>> dari Master Kid tentang copy paste, maka muncul pertanyaan baru, yaitu:
>> bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) tombol di
>> keyboard, misalnya pakai tombol ENTER atau F1, F2, dan sebagainya..? Jadi
>> tidak menggunakan shape atau button atau shortcut macro untuk
>> mengeksekusi/menjalankan macro/VBA code.
>>
>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>
>> Terima kasih
>>
>> Assalamu'alaikum Wr. Wb.
>>
>>
>
>


Copy Data dengan 1 Tombol Keyboard.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: Fw: Re: [belajar-excel] VBA Code tidak Jalan

2018-03-14 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih para master sekalian. Tutorial yang sangat bagus dan mudah
dimengerti.

2018-03-12 17:36 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Ok baiklah...
>
> 0. Kita anggap ada dua sheet dalam workbook saya, yaitu sheet INPUTAN dan
> sheet DATA
> > artinya, tidak ada Excel Table Object di dalam sheet. Jadi data adalah
> disuatu area range.
> > dari gambar,
>- sheet bernama New (sebagai sheet INPUTAN) : (lokasi copy)
>  -> header 1 baris saja di baris 1 Excel, mulai kolom A sampai kolom C
> (3 kolom)
>  -> records-nya rapat mulai baris 2 Excel.
>- sheet bernama Data (sebagai sheet DATA) : (lokasi paste)
>  -> header 1 baris saja di baris 1 Excel, mulai kolom A sampai kolom C
> (3 kolom)
>  -> records-nya rapat mulai baris 2 Excel.
>
> 1. Di sheet INPUTAN saya blok semua record (header tabel TIDAK ikut
> diblok).  Lalu klik kanan, pilih Copy
> > setara dengan kegiatan berikut :
>   klik sheet bernama New
> ->Sheets("New").
>   klik header di kolom pertama data (A1)->
> Range("a1").
>   lalu tekan CTRL A (select all),
> -> CurrentRegion.
>   lalu area yang terblok digeser turun 1 baris Excel (offset
> +1 baris dan 0 kolom), ->   Offset( 1 , 0 ).
>   kemudian CTRL C (copy)
> -> Copy
> > jadi di dapat 1 baris kode :
>  Sheets("New")...Range("a1").CurrentRegion.Offset(1,0).Copy
>
> 2. Klik sheet DATA, letakkan cursor di cell A2 (cell A1 ada header tabel).
> Klik kanan, di Paste option pilih Value
> 5. Anggap ada data baru dan selesai diketik di sheet INPUTAN. Maka lakukan
> lagi langkah 1 dan 2, tapi ingat letakkan data baru (record-record baru)
> itu di bawah baris yang sudah terisi di sheet DATA.
> > dua proses ini berarti selalu *paste values* di baris baru di sheet
> data.
> > Kegiatan yang setara adalah :
>ke sheet bernama Data
>
> ->   Sheets("Data").
>menuju baris terakhir Excel di kolom A (header pertama di kolom
> A)  ->   Cells(
> Sheets("Data").Rows.Count , "A" ).
>naik ke data terakhir dengan CTRL panah ke
> atas
> ->   End(xlUp).
>lalu dari cells terakhir berisi data dilakukan turun 1 baris
> Excel (offset +1 baris dan 0 kolom)->   Offset( 1 , 0 ).
>kemudian klik kanan pilih *paste special* dan pilih *values 
> *diakhir
> tekan OK   ->   PasteSpecial xlPasteValues
> > jadi di dapat 1 baris kode :
>   Sheets("Data").Cells(  Sheets("Data").Rows.Count  ,  "A"
> ).End(xlUp).Offset(1,0).PasteSpecial xlPasteValues
>
> * dengan 2 baris kode, sudah selesai proses copy paste
> * lebih simpel dan bagus daripada yang di dapat dari internet yang
> diposting itu kan..
>
> 3. Setelah record tercopy/paste di sheet DATA, maka cursor kembali ke
> sheet INPUTAN untuk menghapus semua record yang sudah dimasukkan ke sheet
> DATA.
> > ini berarti menghapus isi area sheet New yang di-copy tadi kan...
> bedanya hanya kegiatan yang dilakukan, yaitu berubah dari CTRL C menjadi
> menekan tombol DELETE di keyboard
>   klik sheet bernama New
> ->Sheets("New").
>   klik header di kolom pertama data (A1)->
> Range("a1").
>   lalu tekan CTRL A (select all),
> -> CurrentRegion.
>   lalu area yang terblok digeser turun 1 baris Excel (offset
> +1 baris dan 0 kolom), ->   Offset( 1 , 0 ).
>   tekan tombol DELETE di keyboard  ->
> ClearContents
> > jadi di dapat 1 baris kode :
>  Sheets("New").Range("a1").CurrentRegion.Offset(1,0).ClearContents
>
> 4. Masih di sheet INPUTAN, klik cell A2  (untuk bersiap-siap
> memasukkan/mengetik data baru.
> > ini berarti menuju ke header di kolom pertama di sheet bernama New, lalu
> aktifkan cells A2
> CTRL G lalu tulis alamat cells A1 (header pertama di A1)
> beserta lokasi sheet-nya tekan OK->Application.Goto
> Sheets("New").Range("A1") ,  TRUE
> klik cells A2 agar menjadi cells aktif
>
> ->Sheets("New").Range("A2").Activate
> > dapat 2 baris kode :
>Application.Goto  Sheets("New").Range("A1") ,  TRUE
>Sheets("New").Range("A2").Activate
>
> 6. Begitu seterusnya.
> > di VBE, buat sebuah proced

[belajar-excel] VBA Code tidak Jalan

2018-03-11 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum

Kepada para master dan anggota milis. Tolong saya dibantu untuk menemukan
kesalahan VBA code yang saya sertakan dalam email ini. Kode tersebut untuk
melakukan copy paste antar sheet, tetapi tidak jalan di PC saya. Sekali
lagi tolong dibetulkan kesalahannya dimana/apa. Untuk diketahui, code
tersebut saya dapat di youtube. Di videonya bisa jalan, tetapi di komputer
saya tidak jalan. Ini link videonya:

https://www.youtube.com/watch?v=_2h2Buzhcf4

Demikian atas bantuannya disampaikan terima kasih.



Assalamu'alaikum


one two.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


[belajar-excel] Copy Paste antar Sheet

2018-03-09 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Asslamu'alaikum Warhmatullahi Wabarakatuh.

Kepada para Master dan segenap anggota milis.

Tolong dibantu VBA CODE. Saya ingin melakukan copy paste dari satu sheet ke
sheet lain.

Saya ingin melakukan copy data tertentu dari sheet SUMBER ke sheet HASIL
dengan menekan tombol SIMPAN yang ada pada sheet SUMBER. Setelah menekan
tombol SIMPAN, baris ke 7 (A7) pada sheet SUMBER menjadi bersih dan siap
diisi lagi.

Apabila sheet HASIL sudah terisi data dan saya ingin men-copy lagi data
baru dari sheet SUMBER maka letakkan data baru ini di baris berikutnya yg
masih kosong biar tidak menindih data yang sudah ada (di sheet HASIL).

- Data yang ingin dicopy ada di sheet SUMBER
- Hasil yang diinginkan ada di sheet HASIL

Selengkapnya lihat lampiran.

Asslamu'alaikum Warhmatullahi Wabarakatuh.


COPY DATA ANTAR SHEET.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Memberi nomor unik pada nilai yg ganda (duplicate)

2018-03-03 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih, master Kid. Rumusnya bekerja dengan baik dan memudahkan saya
dalam menemukan nilai yg duplikat. Semoga Allah SWT membalas kebaikan
master dengan pahala yg berlimpah dan memudahkan semua urusan master.

2018-03-02 23:31 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Wa'alaikumussalam wr wb
>
> Kalau datanya tidak lebih dari 400rb, mungkin pakai formula yang dipasang
> langsung dikolom sampingnya beserta conditional formatting akan lebih cepat
> daripada pakai VBA, kalau tidak mau pakai pivot table.
> Tapi kalau datanya lebih dari atau sama dengan 400rb, pivot table bisa
> membantu dengan sangat cepat. Opsi menggunakan formula dan conditional
> formatting sudah kurang efisien. Apalagi jika butuh sort dan filter.
> *** 400rb hanyalah perkiraan saja, lebih baik dicoba sendiri.
>
> File terlampir sekadar contoh. Kolom DupStat1 dan DupStat2 adalah contoh
> jika menggunakan formula. Kolom DupStat1 dan DupStat2 tidak dibutuhkan
> ketika menggunakan Pivot Table.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2018-03-02 13:18 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamu'alaikum Wr Wb.
>>
>> Kepada para master dan segenap anggota milis. Tolong dibantu untuk
>> modifikasi VBA Code.
>>
>> VBA code yang ada saat ini hanya bisa memberi warna pada data yang ganda
>> (duplicate).
>>
>> Saya ingin menambahkan nomor yang sama dari nilai yang ganda (duplicate)
>> pada kolom
>>
>> sebelahnya (lihat lampiran). Ini akan memudahkan dalam melakukan sortir
>>
>> terhadap data yang ganda tersebut mengingat datanya sangat banyak
>> (ribuan). Tolong
>>
>> dimodifikasi VBA code yang ada. Terima kasih
>>
>>
>>
>> Wassalamu'alaikum Wr Wb.
>>
>>
>
>


[belajar-excel] Memberi nomor unik pada nilai yg ganda (duplicate)

2018-03-02 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Wr Wb.

Kepada para master dan segenap anggota milis. Tolong dibantu untuk
modifikasi VBA Code.

VBA code yang ada saat ini hanya bisa memberi warna pada data yang ganda
(duplicate).

Saya ingin menambahkan nomor yang sama dari nilai yang ganda (duplicate)
pada kolom

sebelahnya (lihat lampiran). Ini akan memudahkan dalam melakukan sortir

terhadap data yang ganda tersebut mengingat datanya sangat banyak (ribuan).
Tolong

dimodifikasi VBA code yang ada. Terima kasih



Wassalamu'alaikum Wr Wb.


Duplicate.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: [belajar-excel] Rumus Kelompok Anak Menurut Usia dan Jenis Kelamin

2018-01-28 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih kepada para Master yang telah membantu pe-rumus-an naskah
saya... Banyak ilmu yang saya dapat. Semoga Allah SWT membalasnya dengan
pahala yang banyak.

2018-01-29 2:30 GMT+07:00 Nangagus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Filenya ketinggalan
>
> On 29/01/2018 2:28, Nangagus wrote:
>
> Asalamualaikum warahmarullah,
>
> Bisa Juga kolom W yang dibuat formulanya,
> (tidak sesuai permintaan) namum kolom W tidak lagi dibuat manual.
>
> Wasalamualaikum warahmatullah
>
> Agus
>
> On 28/01/2018 23:23, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:
>
>
> wa'alaikumussalam wr wb
>
> File terlampir.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> 2018-01-27 15:17 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>> Assalamu'alaikum Warahmatullahi Wabarakatuh
>>
>> Kepada Para Master dan Anggota Milis. Tolong dibantu. Bagaimana rumusnya
>> jika saya ingin mengisi kolom K sampai dengan V secara otomatis TANPA
>> menggunakan kolom W (KLP USIA). Selama ini kolom W (KLP USIA) merupakan
>> kolom bantu dalam mengisi kolom K sampai dengan V. Saya rasa akan lebih
>> praktis jika tidak usah menggunakan kolom W sebagai kolom bantu.
>> Selengkapnya lihat lampiran.
>>
>> Atas perhatian dan bantuannya diucapkan terima kasih
>>
>>
>>
>> Wassalamu'alaikum Warahmatullahi Wabarakatuh
>>
>
>
>
>
>


[belajar-excel] Rumus Kelompok Anak Menurut Usia dan Jenis Kelamin

2018-01-27 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum Warahmatullahi Wabarakatuh


Kepada Para Master dan Anggota Milis. Tolong dibantu. Bagaimana rumusnya
jika saya ingin mengisi kolom K sampai dengan V secara otomatis TANPA
menggunakan kolom W (KLP USIA). Selama ini kolom W (KLP USIA) merupakan
kolom bantu dalam mengisi kolom K sampai dengan V. Saya rasa akan lebih
praktis jika tidak usah menggunakan kolom W sebagai kolom bantu.
Selengkapnya lihat lampiran.


Atas perhatian dan bantuannya diucapkan terima kasih






Wassalamu'alaikum Warahmatullahi Wabarakatuh


Rumus Mencari Kelompok Usia Anak.xlsx
Description: MS-Excel 2007 spreadsheet


Re: [belajar-excel] Bagaimana menjumlah berdasarkan kode yang sama

2017-12-29 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Terima kasih Master Kid. Sudah terselesaikan

2017-12-29 14:24 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Wa'alaikumussalam wr wb
>
> SumIFs( range_yang_dijumlahkan , range_kriteria1 , nilai_kriteria1 )
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> 2017-12-29 10:29 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamu'alaikum.
>>
>> Kepada para master dan segenap anggota milis. Tolong dibantu rumus
>> excelnya...
>> Bagaimana rumus untuk menjumlah berdasarkan kode yang sama pada sheet
>> TRX?. Hasil penjumlahannya ingin diletakkan di sheet TOTAL. Sebenarnya
>> kasus ini bisa diselesaikan dengan pivot table (silakan lihat sheet
>> "PIVOT", tetapi saya ingin selesaikan dengan formula. Selengkapnya silakan
>> lihat lampiran.
>>
>> Atas perhatiannya, saya ucapkan terima kasih. Wassalamu'alaikum
>>
>>
>
>


[belajar-excel] Bagaimana menjumlah berdasarkan kode yang sama

2017-12-28 Terurut Topik Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
Assalamu'alaikum.

Kepada para master dan segenap anggota milis. Tolong dibantu rumus excelnya.
Bagaimana rumus untuk menjumlah berdasarkan kode yang sama pada sheet TRX?.
Hasil penjumlahannya ingin diletakkan di sheet TOTAL. Sebenarnya kasus ini
bisa diselesaikan dengan pivot table (silakan lihat sheet "PIVOT", tetapi
saya ingin selesaikan dengan formula. Selengkapnya silakan lihat lampiran.

Atas perhatiannya, saya ucapkan terima kasih. Wassalamu'alaikum


Menjumlah Berdasarkan Kode yang Sama.xlsx
Description: MS-Excel 2007 spreadsheet