Senin, 15 Oktober 2012

[belajar-excel] Digest Number 1845

15 New Messages

Digest #1845
1
trial material substore gudang by "ngademin Thohari" ngademinth
2a
Re: Data Harian menjadi Sebuah JURNAL by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Menggabungkan dua bentuk data by "Mr. Kid" nmkid.family@ymail.com
5
Auto number pada cell by "cecep" juragan_75
6
Mohon bantuannya mengenai auto open untuk formuser by "face_call15@yahoo.com" face_call15

Messages

Mon Oct 15, 2012 4:31 am (PDT) . Posted by:

"ngademin Thohari" ngademinth

be-exceller

saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya

Terima kasih atas dukungannya

amin

Mon Oct 15, 2012 5:07 am (PDT) . Posted by:

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

Coba file terlampir.

Wassalam,
Kid.

2012/10/15 ratim sugianto <ratimsugianto@yahoo.co.id>

> **
>
>
> Halo para master xl
> selamat sore.
> Sebagaimana disebut dalam subjek diatas, mohon kiranya bantuan formula
> utk mendefinisikan sebuah data transaksi harian (rekapitulasi harian) yang
> saya ambil dari copy paste dari aplikasi lain menjadi bentuk "Jurnal Harian"
> Data ini saya simpan di sheet "Transaksi", kemudian untuk keperluan
> penjurnalan di aplikasi lain, dari data ini harus mengisi ke sheet "Jurnal
> Harian" dengan criteria dan aturan yang sudah ditetapkan di sheet "Data"
> yang didalamnya berupa pemetaan jika transkasi A, maka harus dijurnal ke
> jurnal B, dan seterusnya.
> Utk lebih jelasnya, saya lampirkan attachmennya.
> Atas bantuan baik dalambentuk rumus/formula ataupun langsung
> menyempurnakan file yang saya attach, saya ucapkan banyak terima kasih.
> Wassalam
> R. Sugianto
>
>
>

Mon Oct 15, 2012 5:24 am (PDT) . Posted by:

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

Waalaikumussalam Wr. Wb.

Dengan asumsi bahwa sheet data *tidak *ter-sort berdasar kolom ObjcetID (apa
adanya)
Pada sisi data dibutuhkan sebuah kolom bantu untuk menyusun Desc disii
sheet Data.
Misal diletakkan pada kolom G sheet data. Cell G2 diberi formula :
=IF(COUNTIF(B$1:B1,B2),LOOKUP(2,1/(B$1:B1=B2),G$1:G1)&" / ","")&A2

Pada sisi sheet output, kolom Desc me-lookup data terakhir ObjectID terkait
pada sheet Data untuk mengambil nilai Desc sheet Data.
Misal diletakkan pada kolom G sheet 162. Cell G2 diberi formula :
=IF(COUNTIF(Data!$B$1:$B$481,A2)
,LOOKUP(2,1/(Data!$B$1:$B$481=A2),Data!$G$1:$G$481),"")

Pemeriksaan ada atau tidaknya ObjectID terkait dikomputasi dengan fungsi
CountIF.

Wassalam,
Kid.

2012/10/15 Arieyanto <Arieyanto@osielectronics.com>

> **
>
>
> Assalamualaikum Para Masters,****
>
> ** **
>
> Mohon bantuannya pada kasus saya ini.****
>
> Langsung saja dilihat pada lampiran ya..****
>
> ** **
>
> Terima Kasih****
>
> ** **
>
> Wassalam,****
>
> Arie****
>
>
>

Mon Oct 15, 2012 5:37 am (PDT) . Posted by:

"Emi" emilestariklcc

Pak Kid,

Makronya ada error. Mohon di betulkan, 

Terima kasih.

Emi Lestari

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, October 15, 2012 7:13 PM
Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro


 
Silakan dicoba.
- Jangan hapus formula yang sudah ada di sheet Output.
- Jangan hapus baris kosong yang ada dari baris 1 sampai baris berisi tulisan End Report pada sheet output
- Jangan hapus kolom atau insert kolom, kecuali jika dilanjutkan dengan penyesuaian rujukan kolom dalam event click tombol susun data

Wassalam,
Kid.

2012/10/15 Emi <emilestariklcc@yahoo.com>

> 
> Yth Guru dan teman BeExcel,
> 
>Saya mau buat makro untuk menambah beberapa perkara di dalam table.
> 
> 
> 1. Copy data dari sheet1 ke sheet 2
> 2. Convert data dari text ke number format( Col Amount)
> 3. Masukkan filter di row 10 dan sort decending
> 4. Auto numbering di kolum A, sekiranya ada data di kolum B
> 5. Auto sum bagi semua item., di row terakhir
> 6. Setting untk mencetak- orientation = lanscape
> 7. Click margin = narrow
> 8. Click page break view (fit in one page)
> 9. Print title= row to repeat (16-17)
> 10. Print
> 11. Done
> 
>Saya sudah coba buat recording makro, tetapi masih banyak yang kurang berhasil., karena row data berubah ubah.
> 
>Mohon bantuan.
> 
>Terima kasih
> 
>Emi Lestari

Mon Oct 15, 2012 5:40 am (PDT) . Posted by:

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

File datanya mungkin berbeda dengan yang dilampirkan tempo lalu ya.
Bisa jadi posisi header atau apa di sheet data asalnya berbeda,
Bisa dilampirkan juga ?

Kid.

2012/10/15 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Pak Kid,
>
> Makronya ada error. Mohon di betulkan,
>
> Terima kasih.
>
> Emi Lestari
>
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 7:13 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> Silakan dicoba.
> - Jangan hapus formula yang sudah ada di sheet Output.
> - Jangan hapus baris kosong yang ada dari baris 1 sampai baris berisi
> tulisan End Report pada sheet output
> - Jangan hapus kolom atau insert kolom, kecuali jika dilanjutkan dengan
> penyesuaian rujukan kolom dalam event click tombol susun data
>
> Wassalam,
> Kid.
>
>
> 2012/10/15 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Yth Guru dan teman BeExcel,
>
> Saya mau buat makro untuk menambah beberapa perkara di dalam table.
>
>
>
> 1. Copy data dari sheet1 ke sheet 2
> 2. Convert data dari text ke number format( Col Amount)
> 3. Masukkan filter di row 10 dan sort decending
> 4. Auto numbering di kolum A, sekiranya ada data di kolum B
> 5. Auto sum bagi semua item., di row terakhir
> 6. Setting untk mencetak- orientation = lanscape
> 7. Click margin = narrow
> 8. Click page break view (fit in one page)
> 9. Print title= row to repeat (16-17)
> 10. Print
> 11. Done
>
>
> Saya sudah coba buat recording makro, tetapi masih banyak yang kurang
> berhasil., karena row data berubah ubah.
>
> Mohon bantuan.
>
> Terima kasih
>
> Emi Lestari
>
>
>
>
>
>

Mon Oct 15, 2012 5:52 am (PDT) . Posted by:

"Emi" emilestariklcc

Pak Kid,
Saya akan check kemungkinan ada kesalahan pada header.

Dilampirkan data asli nya dan hasil yg diinginkan.

Makasih.

Emi

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, October 15, 2012 8:40 PM
Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro


 
File datanya mungkin berbeda dengan yang dilampirkan tempo lalu ya.
Bisa jadi posisi header atau apa di sheet data asalnya berbeda,
Bisa dilampirkan juga ?

Kid.

2012/10/15 Emi <emilestariklcc@yahoo.com>

> 
>Pak Kid,
>
>
>Makronya ada error. Mohon di betulkan, 
>
>
>Terima kasih.
>
>
>Emi Lestari
>
>
>
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, October 15, 2012 7:13 PM
>
>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>
>
> 
>Silakan dicoba.
>- Jangan hapus formula yang sudah ada di sheet Output.
>- Jangan hapus baris kosong yang ada dari baris 1 sampai baris berisi tulisan End Report pada sheet output
>- Jangan hapus kolom atau insert kolom, kecuali jika dilanjutkan dengan penyesuaian rujukan kolom dalam event click tombol susun data
>
>Wassalam,
>Kid.
>
>
>
>2012/10/15 Emi <emilestariklcc@yahoo.com>
>
>
>> 
>> Yth Guru dan teman BeExcel,
>> 
>>Saya mau buat makro untuk menambah beberapa perkara di dalam table.
>> 
>> 
>> 1. Copy data dari sheet1 ke sheet 2
>> 2. Convert data dari text ke number format( Col Amount)
>> 3. Masukkan filter di row 10 dan sort decending
>> 4. Auto numbering di kolum A, sekiranya ada data di kolum B
>> 5. Auto sum bagi semua item., di row terakhir
>> 6. Setting untk mencetak- orientation = lanscape
>> 7. Click margin = narrow
>> 8. Click page break view (fit in one page)
>> 9. Print title= row to repeat (16-17)
>> 10. Print
>> 11. Done
>> 
>>Saya sudah coba buat recording makro, tetapi masih banyak yang kurang berhasil., karena row data berubah ubah.
>> 
>>Mohon bantuan.
>> 
>>Terima kasih
>> 
>>Emi Lestari
>
>
>

Mon Oct 15, 2012 6:25 am (PDT) . Posted by:

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

Coba yang file terlampir.
- Masih belum ketemu kenapa kok tidak mau PasteSpecial Values Add
- Diperbaiki proses penghapusan data lamanya
- Ditambah cek hasil hapus data kolom B yang blank
- Diubah cara penentuan area data yang ada di sheet data menjadi :
>> Berdasar teks : 'Activity Log summary'
>> Header selalu dianggap 3 baris dan membentuk 1 area dengan data (tidak
ada baris kosong pada header atau record data)
>> Jumlah kolom selalu 9 kolom

Wassalam,
Kid

2012/10/15 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Pak Kid,
> Saya akan check kemungkinan ada kesalahan pada header.
>
> Dilampirkan data asli nya dan hasil yg diinginkan.
>
> Makasih.
>
> Emi
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 8:40 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> File datanya mungkin berbeda dengan yang dilampirkan tempo lalu ya.
> Bisa jadi posisi header atau apa di sheet data asalnya berbeda,
> Bisa dilampirkan juga ?
>
> Kid.
>
> 2012/10/15 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Pak Kid,
>
> Makronya ada error. Mohon di betulkan,
>
> Terima kasih.
>
> Emi Lestari
>
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 7:13 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> Silakan dicoba.
> - Jangan hapus formula yang sudah ada di sheet Output.
> - Jangan hapus baris kosong yang ada dari baris 1 sampai baris berisi
> tulisan End Report pada sheet output
> - Jangan hapus kolom atau insert kolom, kecuali jika dilanjutkan dengan
> penyesuaian rujukan kolom dalam event click tombol susun data
>
> Wassalam,
> Kid.
>
>
> 2012/10/15 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Yth Guru dan teman BeExcel,
>
> Saya mau buat makro untuk menambah beberapa perkara di dalam table.
>
>
>
> 1. Copy data dari sheet1 ke sheet 2
> 2. Convert data dari text ke number format( Col Amount)
> 3. Masukkan filter di row 10 dan sort decending
> 4. Auto numbering di kolum A, sekiranya ada data di kolum B
> 5. Auto sum bagi semua item., di row terakhir
> 6. Setting untk mencetak- orientation = lanscape
> 7. Click margin = narrow
> 8. Click page break view (fit in one page)
> 9. Print title= row to repeat (16-17)
> 10. Print
> 11. Done
>
>
> Saya sudah coba buat recording makro, tetapi masih banyak yang kurang
> berhasil., karena row data berubah ubah.
>
> Mohon bantuan.
>
> Terima kasih
>
> Emi Lestari
>
>
>
>
>
>
>
>
>

Mon Oct 15, 2012 6:43 am (PDT) . Posted by:

"Emi" emilestariklcc

Pak Kid,
Error nya masih pada PasteSpecial Values Add,
Bagaimana kalau data sheet 1 tak perlu di copy ke sheet 2. Cukup hanya bekerja di sheet 1 sahaja.

Kita cuma perlu tambah apa yang kurang di sheet 1
1) Tambah numbering di Kolum A
2) Convert data amoun dari TEXT menjadi number, accounting format agar bisa di sorting.
3) Buatkan sort descending pada amount.
4) Buatkan jumlah di bagian bawah amount.
5)Buatkan setting untuk printing lanscape
6) Buatkan title repeat pada header bagi setiap page yang dicetak.

Terima kasih

Emi.

.

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, October 15, 2012 9:25 PM
Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro


 
Coba yang file terlampir.
- Masih belum ketemu kenapa kok tidak mau PasteSpecial Values Add
- Diperbaiki proses penghapusan data lamanya
- Ditambah cek hasil hapus data kolom B yang blank
- Diubah cara penentuan area data yang ada di sheet data menjadi :
>> Berdasar teks : 'Activity Log summary'
>> Header selalu dianggap 3 baris dan membentuk 1 area dengan data (tidak ada baris kosong pada header atau record data)
>> Jumlah kolom selalu 9 kolom

Wassalam,
Kid

2012/10/15 Emi <emilestariklcc@yahoo.com>

> 
>Pak Kid,
>Saya akan check kemungkinan ada kesalahan pada header.
>
>
>Dilampirkan data asli nya dan hasil yg diinginkan.
>
>
>Makasih.
>
>
>Emi
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, October 15, 2012 8:40 PM
>
>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>
>
>
> 
>File datanya mungkin berbeda dengan yang dilampirkan tempo lalu ya.
>Bisa jadi posisi header atau apa di sheet data asalnya berbeda,
>Bisa dilampirkan juga ?
>
>Kid.
>
>
>2012/10/15 Emi <emilestariklcc@yahoo.com>
>
>
>> 
>>Pak Kid,
>>
>>
>>Makronya ada error. Mohon di betulkan, 
>>
>>
>>Terima kasih.
>>
>>
>>Emi Lestari
>>
>>
>>
>>
>>
>>
>>
>>________________________________
>> From: Mr. Kid <mr.nmkid@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Monday, October 15, 2012 7:13 PM
>>
>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>
>>
>> 
>>Silakan dicoba.
>>- Jangan hapus formula yang sudah ada di sheet Output.
>>- Jangan hapus baris kosong yang ada dari baris 1 sampai baris berisi tulisan End Report pada sheet output
>>- Jangan hapus kolom atau insert kolom, kecuali jika dilanjutkan dengan penyesuaian rujukan kolom dalam event click tombol susun data
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>2012/10/15 Emi <emilestariklcc@yahoo.com>
>>
>>
>>> 
>>> Yth Guru dan teman BeExcel,
>>> 
>>>Saya mau buat makro untuk menambah beberapa perkara di dalam table.
>>> 
>>> 
>>> 1. Copy data dari sheet1 ke sheet 2
>>> 2. Convert data dari text ke number format( Col Amount)
>>> 3. Masukkan filter di row 10 dan sort decending
>>> 4. Auto numbering di kolum A, sekiranya ada data di kolum B
>>> 5. Auto sum bagi semua item., di row terakhir
>>> 6. Setting untk mencetak- orientation = lanscape
>>> 7. Click margin = narrow
>>> 8. Click page break view (fit in one page)
>>> 9. Print title= row to repeat (16-17)
>>> 10. Print
>>> 11. Done
>>> 
>>>Saya sudah coba buat recording makro, tetapi masih banyak yang kurang berhasil., karena row data berubah ubah.
>>> 
>>>Mohon bantuan.
>>> 
>>>Terima kasih
>>> 
>>>Emi Lestari
>>
>>
>>
>
>
>

Mon Oct 15, 2012 6:55 am (PDT) . Posted by:

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

Justru yang bikin error adalah proses pengkonversian kolom amount dari text
menjadi numerik.
Bagaimana jika tidak usah dikonversi ?
Gak mungkin kan ya...
Sekarang coba hapus bagian :
'tambahkan nilai 0 pada kolom nilai agar pasti jadi numerik
'kadang-kadang hasil replace tidak mengubah tipedata
Sheet2.Range("i8").Value = 0
Sheet2.Range("i8").Copy
.PasteSpecial xlPasteValues ', xlPasteSpecialOperationAdd
Sheet2.Range("i8").ClearContents
Asumsinya, hasil replace akan konsisten mengubah tipedata.

Wassalam
Kid.

2012/10/15 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Pak Kid,
> Error nya masih pada PasteSpecial Values Add,
> Bagaimana kalau data sheet 1 tak perlu di copy ke sheet 2. Cukup hanya
> bekerja di sheet 1 sahaja.
>
> Kita cuma perlu tambah apa yang kurang di sheet 1
> 1) Tambah numbering di Kolum A
> 2) Convert data amoun dari TEXT menjadi number, accounting format agar
> bisa di sorting.
> 3) Buatkan sort descending pada amount.
> 4) Buatkan jumlah di bagian bawah amount.
> 5)Buatkan setting untuk printing lanscape
> 6) Buatkan title repeat pada header bagi setiap page yang dicetak.
>
> Terima kasih
>
> Emi.
>
> .
>
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 9:25 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> Coba yang file terlampir.
> - Masih belum ketemu kenapa kok tidak mau PasteSpecial Values Add
> - Diperbaiki proses penghapusan data lamanya
> - Ditambah cek hasil hapus data kolom B yang blank
> - Diubah cara penentuan area data yang ada di sheet data menjadi :
> >> Berdasar teks : 'Activity Log summary'
> >> Header selalu dianggap 3 baris dan membentuk 1 area dengan data (tidak
> ada baris kosong pada header atau record data)
> >> Jumlah kolom selalu 9 kolom
>
> Wassalam,
> Kid
>
> 2012/10/15 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Pak Kid,
> Saya akan check kemungkinan ada kesalahan pada header.
>
> Dilampirkan data asli nya dan hasil yg diinginkan.
>
> Makasih.
>
> Emi
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 8:40 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> File datanya mungkin berbeda dengan yang dilampirkan tempo lalu ya.
> Bisa jadi posisi header atau apa di sheet data asalnya berbeda,
> Bisa dilampirkan juga ?
>
> Kid.
>
> 2012/10/15 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Pak Kid,
>
> Makronya ada error. Mohon di betulkan,
>
> Terima kasih.
>
> Emi Lestari
>
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 7:13 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> Silakan dicoba.
> - Jangan hapus formula yang sudah ada di sheet Output.
> - Jangan hapus baris kosong yang ada dari baris 1 sampai baris berisi
> tulisan End Report pada sheet output
> - Jangan hapus kolom atau insert kolom, kecuali jika dilanjutkan dengan
> penyesuaian rujukan kolom dalam event click tombol susun data
>
> Wassalam,
> Kid.
>
>
> 2012/10/15 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Yth Guru dan teman BeExcel,
>
> Saya mau buat makro untuk menambah beberapa perkara di dalam table.
>
>
>
> 1. Copy data dari sheet1 ke sheet 2
> 2. Convert data dari text ke number format( Col Amount)
> 3. Masukkan filter di row 10 dan sort decending
> 4. Auto numbering di kolum A, sekiranya ada data di kolum B
> 5. Auto sum bagi semua item., di row terakhir
> 6. Setting untk mencetak- orientation = lanscape
> 7. Click margin = narrow
> 8. Click page break view (fit in one page)
> 9. Print title= row to repeat (16-17)
> 10. Print
> 11. Done
>
>
> Saya sudah coba buat recording makro, tetapi masih banyak yang kurang
> berhasil., karena row data berubah ubah.
>
> Mohon bantuan.
>
> Terima kasih
>
> Emi Lestari
>
>
>
>
>
>
>
>
>
>
>
>

Mon Oct 15, 2012 7:34 am (PDT) . Posted by:

"Emi" emilestariklcc

Setelah dihapus datanya kosong.

Bisa saja tidak dikonversi asalkan bisa di sort descending.

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, October 15, 2012 9:55 PM
Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro


 
Justru yang bikin error adalah proses pengkonversian kolom amount dari text menjadi numerik.
Bagaimana jika tidak usah dikonversi ?
Gak mungkin kan ya...
Sekarang coba hapus bagian :
            'tambahkan nilai 0 pada kolom nilai agar pasti jadi numerik
            'kadang-kadang hasil replace tidak mengubah tipedata
            Sheet2.Range("i8").Value = 0
            Sheet2.Range("i8").Copy
            .PasteSpecial xlPasteValues     ', xlPasteSpecialOperationAdd
            Sheet2.Range("i8").ClearContents
Asumsinya, hasil replace akan konsisten mengubah tipedata.

Wassalam
Kid.

2012/10/15 Emi <emilestariklcc@yahoo.com>

> 
>Pak Kid,
>Error nya masih pada PasteSpecial Values Add,
>Bagaimana kalau data sheet 1 tak perlu di copy ke sheet 2. Cukup hanya bekerja di sheet 1 sahaja.
>
>
>Kita cuma perlu tambah apa yang kurang di sheet 1
>1) Tambah numbering di Kolum A
>2) Convert data amoun dari TEXT menjadi number, accounting format agar bisa di sorting.
>3) Buatkan sort descending pada amount.
>4) Buatkan jumlah di bagian bawah amount.
>5)Buatkan setting untuk printing lanscape
>6) Buatkan title repeat pada header bagi setiap page yang dicetak.
>
>
>Terima kasih
>
>
>Emi.
>
>
>.
>
>
>
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, October 15, 2012 9:25 PM
>
>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>
>
>
> 
>Coba yang file terlampir.
>- Masih belum ketemu kenapa kok tidak mau PasteSpecial Values Add
>- Diperbaiki proses penghapusan data lamanya
>- Ditambah cek hasil hapus data kolom B yang blank
>- Diubah cara penentuan area data yang ada di sheet data menjadi :
>>> Berdasar teks : 'Activity Log summary'
>>> Header selalu dianggap 3 baris dan membentuk 1 area dengan data (tidak ada baris kosong pada header atau record data)
>>> Jumlah kolom selalu 9 kolom
>
>Wassalam,
>Kid
>
>
>2012/10/15 Emi <emilestariklcc@yahoo.com>
>
>
>> 
>>Pak Kid,
>>Saya akan check kemungkinan ada kesalahan pada header.
>>
>>
>>Dilampirkan data asli nya dan hasil yg diinginkan.
>>
>>
>>Makasih.
>>
>>
>>Emi
>>
>>
>>
>>________________________________
>> From: Mr. Kid <mr.nmkid@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Monday, October 15, 2012 8:40 PM
>>
>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>
>>
>>
>> 
>>File datanya mungkin berbeda dengan yang dilampirkan tempo lalu ya.
>>Bisa jadi posisi header atau apa di sheet data asalnya berbeda,
>>Bisa dilampirkan juga ?
>>
>>Kid.
>>
>>
>>2012/10/15 Emi <emilestariklcc@yahoo.com>
>>
>>
>>> 
>>>Pak Kid,
>>>
>>>
>>>Makronya ada error. Mohon di betulkan, 
>>>
>>>
>>>Terima kasih.
>>>
>>>
>>>Emi Lestari
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>________________________________
>>> From: Mr. Kid <mr.nmkid@gmail.com>
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Monday, October 15, 2012 7:13 PM
>>>
>>>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>>>
>>>
>>> 
>>>Silakan dicoba.
>>>- Jangan hapus formula yang sudah ada di sheet Output.
>>>- Jangan hapus baris kosong yang ada dari baris 1 sampai baris berisi tulisan End Report pada sheet output
>>>- Jangan hapus kolom atau insert kolom, kecuali jika dilanjutkan dengan penyesuaian rujukan kolom dalam event click tombol susun data
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>2012/10/15 Emi <emilestariklcc@yahoo.com>
>>>
>>>
>>>> 
>>>> Yth Guru dan teman BeExcel,
>>>> 
>>>>Saya mau buat makro untuk menambah beberapa perkara di dalam table.
>>>> 
>>>> 
>>>> 1. Copy data dari sheet1 ke sheet 2
>>>> 2. Convert data dari text ke number format( Col Amount)
>>>> 3. Masukkan filter di row 10 dan sort decending
>>>> 4. Auto numbering di kolum A, sekiranya ada data di kolum B
>>>> 5. Auto sum bagi semua item., di row terakhir
>>>> 6. Setting untk mencetak- orientation = lanscape
>>>> 7. Click margin = narrow
>>>> 8. Click page break view (fit in one page)
>>>> 9. Print title= row to repeat (16-17)
>>>> 10. Print
>>>> 11. Done
>>>> 
>>>>Saya sudah coba buat recording makro, tetapi masih banyak yang kurang berhasil., karena row data berubah ubah.
>>>> 
>>>>Mohon bantuan.
>>>> 
>>>>Terima kasih
>>>> 
>>>>Emi Lestari
>>>
>>>
>>>
>>
>>
>>
>
>
>

Mon Oct 15, 2012 7:54 am (PDT) . Posted by:

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

Sekarang coba pakai formula saja konversinya.
Kalau masih gak bisa, berarti ada yang aneh.
File terlampir sudah disertai contoh hasilnya.
Cukup tekan tombol saja.

Wassalam,
Kid.

2012/10/15 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Setelah dihapus datanya kosong.
>
> Bisa saja tidak dikonversi asalkan bisa di sort descending.
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 9:55 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> Justru yang bikin error adalah proses pengkonversian kolom amount dari
> text menjadi numerik.
> Bagaimana jika tidak usah dikonversi ?
> Gak mungkin kan ya...
> Sekarang coba hapus bagian :
> 'tambahkan nilai 0 pada kolom nilai agar pasti jadi numerik
> 'kadang-kadang hasil replace tidak mengubah tipedata
> Sheet2.Range("i8").Value = 0
> Sheet2.Range("i8").Copy
> .PasteSpecial xlPasteValues ', xlPasteSpecialOperationAdd
> Sheet2.Range("i8").ClearContents
> Asumsinya, hasil replace akan konsisten mengubah tipedata.
>
> Wassalam
> Kid.
>
>
>

Mon Oct 15, 2012 8:23 am (PDT) . Posted by:

"Emi" emilestariklcc

Masih gak bisa Pak.
Mungkin di sheet output pake formula aja ganti makro. Untuk mencetak aja buatkan makro.

Makasih.

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, October 15, 2012 10:54 PM
Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro


 
Sekarang coba pakai formula saja konversinya.
Kalau masih gak bisa, berarti ada yang aneh.
File terlampir sudah disertai contoh hasilnya.
Cukup tekan tombol saja.

Wassalam,
Kid.

2012/10/15 Emi <emilestariklcc@yahoo.com>

> 
>Setelah dihapus datanya kosong.
>
>
>Bisa saja tidak dikonversi asalkan bisa di sort descending.
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, October 15, 2012 9:55 PM
>
>Subject: Re: [belajar-excel] Auto Numbering, Totalling, Sorting & Printing dengan makro
>
>
>
> 
>Justru yang bikin error adalah proses pengkonversian kolom amount dari text menjadi numerik.
>Bagaimana jika tidak usah dikonversi ?
>Gak mungkin kan ya...
>Sekarang coba hapus bagian :
>            'tambahkan nilai 0 pada kolom nilai agar pasti jadi numerik
>            'kadang-kadang hasil replace tidak mengubah tipedata
>            Sheet2.Range("i8").Value = 0
>            Sheet2.Range("i8").Copy
>            .PasteSpecial xlPasteValues     ', xlPasteSpecialOperationAdd
>            Sheet2.Range("i8").ClearContents
>Asumsinya, hasil replace akan konsisten mengubah tipedata.
>
>Wassalam
>Kid.
>
>
>

Mon Oct 15, 2012 8:26 am (PDT) . Posted by:

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

boleh dikirim file yang gak bisa itu ?
Kid

2012/10/15 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Masih gak bisa Pak.
> Mungkin di sheet output pake formula aja ganti makro. Untuk mencetak aja
> buatkan makro.
>
> Makasih.
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 10:54 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> Sekarang coba pakai formula saja konversinya.
> Kalau masih gak bisa, berarti ada yang aneh.
> File terlampir sudah disertai contoh hasilnya.
> Cukup tekan tombol saja.
>
> Wassalam,
> Kid.
>
> 2012/10/15 Emi <emilestariklcc@yahoo.com>
>
> **
>
> Setelah dihapus datanya kosong.
>
> Bisa saja tidak dikonversi asalkan bisa di sort descending.
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 9:55 PM
>
> *Subject:* Re: [belajar-excel] Auto Numbering, Totalling, Sorting &
> Printing dengan makro
>
>
> Justru yang bikin error adalah proses pengkonversian kolom amount dari
> text menjadi numerik.
> Bagaimana jika tidak usah dikonversi ?
> Gak mungkin kan ya...
> Sekarang coba hapus bagian :
> 'tambahkan nilai 0 pada kolom nilai agar pasti jadi numerik
> 'kadang-kadang hasil replace tidak mengubah tipedata
> Sheet2.Range("i8").Value = 0
> Sheet2.Range("i8").Copy
> .PasteSpecial xlPasteValues ', xlPasteSpecialOperationAdd
> Sheet2.Range("i8").ClearContents
> Asumsinya, hasil replace akan konsisten mengubah tipedata.
>
> Wassalam
> Kid.
>
>
>
>
>
>
>

Mon Oct 15, 2012 7:32 am (PDT) . Posted by:

"cecep" juragan_75

Hallo para beExceller

Apakah di excel bisa membuat auto number pada cell ketika dipreview seperti
di word?

Data excel saya ada row yg dibuat repeat row..nah pada cell I1 saya mau
memasukan nomor halaman kemudian ketika dipreview maka otomatis row tsb akan
ikut juga pada halaman berikutnya. Saya ingin nomornnya berubah secara
otomatis sesuai halamanya dan adanya di cell, bukan page number. Bisa tidak
ya?

Contoh data terlampir

Regards

CW

Mon Oct 15, 2012 8:02 am (PDT) . Posted by:

"face_call15@yahoo.com" face_call15

Assalamualaikum...
Yang terhormat para mastr exel, ada beberapa hal yang ingin sy tanyakan, dan mohon bantuannya
Yang ingin sy tanyakan bagaimana kode macro untuk auto open user form, yang pada saat mengklik file woorkbook/excel langsung muncul user form tanpa menampilkan workbooknya,
Atas bantuannya sebelumnya sy ucapkan terima kasih
Powered by Telkomsel BlackBerry®
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

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

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

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

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

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar