Jumat, 06 Desember 2013

[belajar-excel] Digest Number 2680

15 New Messages

Digest #2680
1a
Code VBA Pindah Posisi Data beda Sheat by "Laode Herman Umar" mentor_umb
2a
Bls: [belajar-excel] sub total per halaman by "Eko Suyanto" ekosuyanto@rocketmail.com
6a
Re: Cara merekap data di beda sheet by "Fachry Rizal" p4ch_m4n
6d
Re: Cara merekap data di beda sheet [1 Attachment] by "Ahmad Syaifullah Lubis" syaifullah
6e
Re: Cara merekap data di beda sheet by "Fachry Rizal" p4ch_m4n

Messages

Thu Dec 5, 2013 5:13 pm (PST) . Posted by:

"Laode Herman Umar" mentor_umb

Dear para masterexcel
gimana pindahkan data beda sheet, serta posisinya berubah. terima kasih sebelumnya

Thu Dec 5, 2013 10:57 pm (PST) . Posted by:

"Jan Raisin"

maaf sebelumnya..
tetapi dengan sample workbook yang terlihat tidak teratur seperti ini,
kecil kemungkinan ada yang bisa memberikan solusi yang sesuai..

jika saja data awal disusun berdasarkan kaidah database yang baik,
kelihatannya Pivot Table dapat digunakan untuk solusi kasus ini:

sebagai awalan penyusunan database, bisa baca-baca tulisannya mr Kid di link
http://excel-mr-kid.blogspot.com/2011/02/susun-data-sebagai-tabel-yang-baik.html

Salam,

-Miss Jan Raisin-

Pada 5 Desember 2013 19.52, Laode Herman Umar <mentor_umb@yahoo.co.id>menulis:

>
>
> Dear para masterexcel
> gimana pindahkan data beda sheet, serta posisinya berubah. terima kasih
> sebelumnya
>
>
>

Thu Dec 5, 2013 5:17 pm (PST) . Posted by:

"Eko Suyanto" ekosuyanto@rocketmail.com

trm ksh. ada bbrp daftar yg sdh telanjur saya buat secara manual. 
namun masih ada 3 (tiga) daftar lagi yg sy akan coba buat dg cara ini.
salah satu daftarnya sekitar 250 halaman. hehe
sekali lagi terima kasih Ms. Jan

Pada Rabu, 4 Desember 2013 13:20, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
 وَعَلَيْكُمُ  لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Thread ini sudah 3 hari tidak ada yang menyentuh..
mungkin karena mendekati akhir tahun maka om momod dan Be-Exceller banyak yang sedang sibuk
di kehidupan nyata masing-masing.

Semoga solusinya tidak terlalu telat xixixi ^_^

solusi untuk kasus ini adalah sebagai berikut:

(1)
hilangkan dahulu semua page break yang sudah ada, jika tidak maka harus diatur secara manual 

(2)
tetapkan jumlah baris data yang akan dimasukkan dalam setiap halaman, sebagai contoh bahwa setiap
halaman akan berisi 25 baris data (jumlah baris boleh diubah)

(3)
buat 1 buah kolom bantu untuk menetapkan lokasi halaman

(4)
pada kolom bantu tersebut diisi dengan formula sbb:
=Ceiling(A7/25 , 1)

ceiling berfungsi untuk membulatkan ke atas dengan kelipatan 1
angka 25 adalah banyaknya baris yang telah ditetapkan pada point nomer 2

(5)
blok seluruh data yang ada termasuk header

(6)
pada ribbon "Data", group "Outline", klik "Subtotal";
pada kotak "At each change in" pilih kolom bantu yang tadi sudah dibuat
pada kotak "Use function" pilih "Sum"
pada kotak "Add subtotal to:" beri cek list pada setiap header kolom yang ingin ditambahkan subtotalnya
beri tanda ceklist pada kotak "Page break between groups"
klik "OK"

untuk lebih jelasnya lihat gambar di bawah ini:

insya Allah jika mengikuti cara di atas, maka akan terbentuk sebuah SubTotal di akhir setiap halaman

وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

-Miss Jan Raisin-

Pada 1 Desember 2013 09.05, Eko Suyanto <ekosuyanto@rocketmail.com> menulis:


>assalamu alaikum wr.wb
>
>
>kami akan membayarkan tamsil pnsd dan tunj profesi guru TW IV/2013.
>kami kesulitan  menambahkan sub total per halaman pada baris paling bawah (contoh format terlampir)
>jika ini dapat dilakukan, akan mempermudah mitra kami dlm melakukan koreksi hitung ulang manual  menggunakan tailstrook machine. dampaknya, guru akan lebih cepat menerima haknya.
>mhn bantuan bapak/ibu/bro/sista sekalian.
>
>
>wassalamu alaikum
>
>
>trm ksh,
>eko suyanto

Thu Dec 5, 2013 5:32 pm (PST) . Posted by:

"Jan Raisin"

������������ ��������� ���������� ����� �������������

Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih
mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread
ini.

apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang
berbeda?
jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam
bentuk text atau numeric?

���������� ���������� ���������� ����� �������������

-Miss Jan Raisin-

Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@yahoo.com> menulis:

>
>
> ���������� ���������� ���������� ����� �������������
> Dear Para Pakar Excel
>
> Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter
> "|" keN
> Sebagai contoh data seperti di bawah ini:
>
> A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0
> | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
> A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1
> | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>
> Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
> mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>
>
> �� ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
>

Thu Dec 5, 2013 11:51 pm (PST) . Posted by:

"A. Zainal H." a_zainal_hilmi

 وَعَلَيْكُمُ  لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
 
Saya lampirkan file contohnya Miss Jan
Terimakasih atas bantuannya

وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
 
Zainal

Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
 وَعَلَيْكُمُ  لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread ini.

apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang berbeda?
jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam bentuk text atau numeric?

وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

-Miss Jan Raisin-

Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@yahoo.com> menulis:


>السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>Dear Para Pakar Excel
>
>
>Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter "|" keN
>Sebagai contoh data seperti di bawah ini:
>
>
>A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0 | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
>A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1 | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>
>
>Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
>mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih 
>
>
>
>
>وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
>Zainal

Fri Dec 6, 2013 1:23 am (PST) . Posted by:

"Jan Raisin"

owh.. ternyata ingin mengambil data dan diletakan ke setiap kolom
berdasarkan tanda pemisahnya adalah | ya?
kalo memakai formula akan terlalu panjang, dan mungkin akan lama untuk
dapat memahaminya..
sebagai gambaran, untuk mendapatkan Opening Value maka formula terpendek
yang bisa Jan susun adalah seperti ini:

=--TRIM(SUBSTITUTE(LEFT(MID(A4,FIND("|PC",A4)+5,99),FIND("|",MID(A4,FIND("|PC",A4)+5,99))-1),",",""))

dan akan lebih panjang lagi untuk kolom berikutnya

Jan boleh menawarkan cara yang lain dan tidak biasa?
tentunya cara ini akan lebih mudah, sekali dicoba insya Allah akan berguna
untuk kasus-kasus serupa

caranya adalah memanfaatkan fitur Text to Column bawaan excel
tetapi sebelumnya harus melakukan persiapan data terlebih dahulu, caranya
seperti ini:
solusi menggunakan data mentah pada kolom A

(1)
format angka harus bebas dari tanda titik atau koma, karena itu harus
dihilangkan dulu
caranya:
blok seluruh data dalam kolom A
tekan CTRL H
pada kotak Find what isi dengan tanda koma ,
pada kotak Replace with biarkan kosong, lalu tekan tombol Replace All
[image: Gambar sisip 1]

(2)
masih dengan melakukan blok pada kolom A
pada ribbon Data, group Data Tolls, klik Text to Column
[image: Gambar sisip 2]

(3)
beri tanda pada Delimited, lalu klik Next
[image: Gambar sisip 3]

(4)
Pada kota Delimiter, beri cek list pada Other dan ketik | pada kotak
kosongnya,
tanda | biasanya terletak bersama dengan tanda back slash \
setelah itu klik Next
[image: Gambar sisip 4]

(5)
Pada column data format, pilih General, setelah itu klik tombol Finish
[image: Gambar sisip 5]

dan.. taraaaaa... semua data sudah terpisah pada masing-masing kolom
silakan dipilih data pada kolom yang diinginkan..

kalau ternyata setelah membaca dongeng ini muncul ungkapan seperti ini:
wah.. solusi apaan tuh.. jawabannya gak cocok sama pertanyaan..
solusinya gak canggih.. karena gak pake formula yang panjang..

boleh ditanyakan kembali ke sini.. nanti akan Jan berikan formula yang
panjang dan njlimet tersebut xixixixi ^_^

Salam pusing... ^_^

-Miss Jan Raisin-

Pada 6 Desember 2013 14.24, A. Zainal H. <a_zainal_hilmi@yahoo.com> menulis:

>
>
> ������������ ��������� ���������� ����� �������������
>
> Saya lampirkan file contohnya Miss Jan
> Terimakasih atas bantuannya
>
>
> ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
> Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@gmail.com>
> menulis:
>
> ������������ ��������� ���������� ����� �������������
>
> Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih
> mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread
> ini.
>
> apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang
> berbeda?
> jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
> jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam
> bentuk text atau numeric?
>
> ���������� ���������� ���������� ����� �������������
>
> -Miss Jan Raisin-
>
>
> Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@yahoo.com>menulis:
>
>
> ���������� ���������� ���������� ����� �������������
> Dear Para Pakar Excel
>
> Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter
> "|" keN
> Sebagai contoh data seperti di bawah ini:
>
> A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0
> | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
> A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1
> | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |
>
> Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
> mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih
>
>
> �� ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
>
>

Fri Dec 6, 2013 1:25 am (PST) . Posted by:

"Bagus" bagus4bls

Pak Zainal..

File terlampir semoga sesuai harapan

Wassalam

~ Bagus ~

----- Original Message -----
From: A. Zainal H.
To: belajar-excel@yahoogroups.com
Sent: Friday, December 06, 2013 2:24 PM
Subject: Bls: [belajar-excel] Ambil data antara 2 karakter tertentu [1 Attachment]

وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Saya lampirkan file contohnya Miss Jan
Terimakasih atas bantuannya

وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Zainal

Pada Jumat, 6 Desember 2013 9:32, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Sebuah sample workbook yang menunjukkan hasil yang diingingkan akan lebih mempermudah BeExceller yang ingin membantu memberikan solusi untuk thread ini.

apakah hasil akan diletakan dalam 1 kolom yang sama atau 3 kolom yang berbeda?
jika diletakan dalam 1 kolom yang sama, bagaimana format penulisannya?
jika diletakan dalam 3 kolom yang berbeda, apakah ingin ditampilkan dalam bentuk text atau numeric?

وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

-Miss Jan Raisin-

Pada 5 Desember 2013 09.11, A. Zainal H. <a_zainal_hilmi@yahoo.com> menulis:

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Dear Para Pakar Excel

Mohon bantuannya untuk mengambil kata antara karakter "|" keN s/d karakter "|" keN
Sebagai contoh data seperti di bawah ini:

A1: |1501|2010000493 |ADAPTER 90XS115 |01.11.2013 |05.12.2013 | 2 | 0 | 0 | 2 |PC | 38,000,000 | 0 | 0 | 38,000,000 |IDR |
A2: |1501|2010000495 |AIR CLEANER C125004 |01.11.2013 |05.12.2013 | 1 | 1 | 0 | 2 |PC | 1,063,402 | 1,075,000 | 0 | 2,138,402 |IDR |

Sedangkan data yang akan saya ambil adalah yang ditandain warna kuning
mohon solusinya, sebelum dan sesudahnya saya ucapkan banyak terimakasih

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Zainal

Thu Dec 5, 2013 5:41 pm (PST) . Posted by:

"Jan Raisin"

Hai Tio..

untuk tombol Print Screen kelihatannya memiliki perlakuan yang berbeda..
Jan sudah coba dengan script OnKey tetapi tidak berhasil.. kelihatannya
solusi untuk kasus ini harus bermain-main dengan API,

mungkin nanti mr Kid bisa memberikan sedikit pencerahan.. tetapi
kelihatannya harus bersabar agak lama karena saat ini mr. Kid masih sibuk
kejar setoran xixixixi ^_^
atau mungkin ada BeExeller lain yang memiliki pengetahuan tentang windows
API silakan sharing ilmunya ke sini.

Salam,

-Miss Jan Raisin-

Pada 5 Desember 2013 15.08, Tio Adi Bayu Adjie <tio.adjie@ptssb.co.id>menulis:

>
>
> Salam Excel,
>
>
>
> Adakah para Suhu Excel yang tahu untuk permasalahan saya di bawah ini ?
>
>
>
> Terima kasih dan semoga Allah SWT membalas kebaikan para Suhu.
>
>
>
> Salam,
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Tio Adi Bayu Adjie
> *Sent:* Tuesday, December 03, 2013 3:16 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Perintah macro di Excel agar tidak bisa print
> screen
>
>
>
>
>
> Salam Excel,
>
> Newbie mau tanya, bisakah buat macro di Excel untuk disable tombol print
> screen ?
>
>
>
> Terima kasih,
>
> Salam,
>
> Tio
>
>
>
> _
>

Thu Dec 5, 2013 6:26 pm (PST) . Posted by:

"Odhy" odhyz83_assasaky

Mohon bantuan para Master, atas kasus yg sy alami di atas....

Terima Kasih atas pencerahannya,
 
Odhy.

On Thursday, December 5, 2013 8:31 AM, Odhy <odhyz83_assasaky@yahoo.com> wrote:

 
Dear Mr. Daeng,
bagaimana code macro selengkapnya, sudh sy coba tp belum bisa.. agar tiga kategori judul kolom : plant, material,ClosingBalQty dicopy bersamaan.
 
Terima Kasih atas pencerahannya,
 
Odhy.

On Wednesday, December 4, 2013 9:25 PM, Daeng Ngila <daengngila@gmail.com> wrote:

 
Bagaimana kalau untuk mencari kolomnya pake ... Range("1:1").Find("Plant").Column (... dst tetap pake metode Pak Hendrik) ---
Maaf kalo asbun maklom blum sempat lihat file lampiran!

Pada 4 Desember 2013 15.09, Odhy <odhyz83_assasaky@yahoo.com> menulis:


>Dear Mr. HK,
>Maksud saya mengcopy berdasarkan Header / judul kolom, jadi dimanapun posisi kolom dengan nama header/ judul kolom :Plant, Material, ClosingBalQty, maka itu yang akan dicopy.

>Terima Kasih atas pencerahannya,

>Odhy.
>
>
>
>On Wednesday, December 4, 2013 11:42 AM, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>

>
>
>Jwb atas pertanyaan 1:
>Range("A:A, D:D, F:F").Copy Range("G1")
>
>
>
>Source ; Kolom A,D,F
>Dest : Range("G1")
>
>
>Jwb atas pertanyaan 2:
>
>ActiveWorkbook.Close SaveChanges:=False
>
>
>
>False artinya langsung tutup tanpa Save
>
>
>
>
>Salam,
>HK
>
>
>
>
>
>On Wednesday, 4 December 2013, 11:03, Odhy <odhyz83_assasaky@yahoo.com> wrote:
>

>Dear Para Master,
>1.         Dibawa ini code VBA yang saya gunakan untuk
mengcopy data pada kolom yang sudah saya tentukan, akan tetapi ternyata posisi
kolom yang saya copy posisinya berubah-rubah, yang ingin saya tanyakan
bagaimana caranya mengcopy kolom berdasarkan Header / judul kolom (3 kolom):
>Misalnya saya mau mengcopy semua data pada kolom |Plant|, |Material|,|ClosingBalQty|,
>Private Sub
CommandButton9_Click()
>FileTerpilih =
Application.GetOpenFilename _
> ("Excel 2003(*.xls),*.xls, Excel 2010
(*.xlsx),*.xlsx&quot;, Title:="Open file", MultiSelect:=True)
>    If VarType(FileTerpilih) = vbBoolean Then
> Exit Sub
>    End If
>    NamaFileUtama = ActiveWorkbook.Name
>    JumlahFile = UBound(FileTerpilih)
>    Application.DisplayAlerts = False
>    For i = 1 To JumlahFile
>    Workbooks.Open FileTerpilih(i)
>        With ActiveWorkbook.Worksheets(1)
>            Selection.AutoFilter Field:=3,
Criteria1:=1000
>            BarisTerakhirFilePilihan =
.Cells(.Rows.Count, 1).End(xlUp).Row
>            BarisTerakhirFileUtama =
Workbooks(NamaFileUtama).Worksheets(1) _
>            .Cells(Workbooks(NamaFileUtama).Worksheets(1).Rows.Count,
1).End(xlUp).Row
>.Range("A2:A100,A2:A100,X2:X100&quot;).Copy
>
>//bagaimana mengcopy 3 kolom??
>

>
>
>
>
>End With
>

>With
Workbooks(NamaFileUtama).Worksheets("DATA";)
>            Range("A4").PasteSpecial
Paste:=xlValues      
> End With
>            ActiveWorkbook.Close
>    Next i
>    Application.DisplayAlerts = True
>End Sub
>
>
>2.         Kalau saya menggunakan code : Application.Quit
maka semua workbook akan tertutup semua, atau kadang2 worbook yang lain
terhide, nah bagaimana caranya agar apabila menutup sebuah workbook menggunakan
code VBA hanya workbook tersebut yang tertutup/ diclose.
>
>Terima Kasih atas pencerahannya,

>Odhy.
>
>
>
>

--
Daeng Ngila

Thu Dec 5, 2013 7:19 pm (PST) . Posted by:

"Jan Raisin"

Mungkin seperti ini..

siapkan 1 kolom khusus untuk menyimpan judul2 header yang akan dicopy,
misalnya ada di sheet 1 mulai cel A1 ke arah bawah

deklarasikan sebuah variabel untuk menyimpan koleksi header tersebut
dim rgHeader as range

deklarasikan sebuah variabel untuk menyimpan anggota koleksi di atas
dim rgHead as range

deklarasikan sebuah variabel untuk menyimpan range hasil pencarian header
tersebut
dim rgFind as range

deklarasikan sebuah variabel untuk menyimpan kumpulan range header yang
ingin dicopy
dim rgAsal as range

deklarasikan sebuah variabel untuk menyimpan letak kolom dari masing-masing
header
dim iCol as integer

setelah semua variabel dirasa mencukupi.. set lokasi koleksi header
set rgheader = sheet1.range("a1").end(xldown) ' ==> asumsi: terletak di
sheet 1 mulai cel A1 ke arah bawah pada workbook yang ada skrip vba-nya

cari letak masing2 kolom atas header tersebut dengan looping For Each - Next
jika ketemu, maka simpan nilai kolomnya ke dalam variabel icol

cek apakah rgasal ada isinya apa tidak.
jika masih kosong maka tetapkan rgAsal mulai dari baris 2 sampai baris
terakhir kolom yang ditemukan
jika rgAsal ada isinya, lakukan penggabungan dengan Union atas rgasal
dengan range data yang baru

For Each rgHead In rgHeader
Set rgFind = .Cells.Find(rgHeader.Value) ' mencari header yang sama
If Not rgFind Is Nothing Then ' jika header yang sama
ditemukan
iCol = rgFind.Column ' simpan nilai kolom datanya
If Not rgAsal Is Nothing Then ' cek apakah rgasal sudah ada
datanya atau belum
Set rgAsal = Union(rgAsal, .Range(.Cells(2,
iCol).Cells(baristerakhirfilepilihan, iCol))) ' jika sudah ada data,
lakukan penggabungan
Else ' selain itu berarti rgasal
belum ada datanya
Set rgAsal = .Range(.Cells(2,
iCol).Cells(baristerakhirfilepilihan, iCol)) ' simpan range data yang baru
End If
End If
Next rgHead

jika semua kolom sudah diketahui.. lanjutkan ke proses copy data
rgAsal.Copy

mulai yang For Each - Next ditulis dibagian dalam looping saat membuka
workbook
sedangkan yang deklarasi sampai dengan set rgheader di tulis di bagian atas
sebelum proses pencarian file

semoga solusinya gak salah2 banget.. karena skrip di atas belum dites dan
diketik berdasarkan asumsi langsung di email ini

Salam,

-Miss Jan Raisin-

Pada 6 Desember 2013 09.17, Odhy <odhyz83_assasaky@yahoo.com> menulis:

>
>
> Mohon bantuan para Master, atas kasus yg sy alami di atas....
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
> On Thursday, December 5, 2013 8:31 AM, Odhy <odhyz83_assasaky@yahoo.com>
> wrote:
>
> Dear Mr. Daeng,
> bagaimana code macro selengkapnya, sudh sy coba tp belum bisa.. agar tiga
> kategori judul kolom : plant, material,ClosingBalQty dicopy bersamaan.
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
> On Wednesday, December 4, 2013 9:25 PM, Daeng Ngila <
> daengngila@gmail.com> wrote:
>
> Bagaimana kalau untuk mencari kolomnya pake ...
> Range("1:1").Find("Plant").Column (... dst tetap pake metode Pak Hendrik)
> ---
> Maaf kalo asbun maklom blum sempat lihat file lampiran!
>
>
>
>

Thu Dec 5, 2013 10:06 pm (PST) . Posted by:

"Fachry Rizal" p4ch_m4n

Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat di rubah2 (data terlampir). Terima kasih untuk bantuannyaa....



2013/12/5 Ahmad Syaifullah Lubis <syaifullah@hotmail.com mailto:syaifullah@hotmail.com>

Mr Fachry,
iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena saya lihat macronya Mr Kid. Thanks Mr Kid.
tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi tidak muncul tanda minus (-), buatkan aja rumus ini =IF(OR(I10="";J10="");"";I10*J10
terus copy deh tuh rumus dari baris K11 sampai baris K16.
sekedar itu aja.
ASL

From: p4ch.m4n@gmail.com mailto:p4ch.m4n@gmail.com
To: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com

Date: Thu, 5 Dec 2013 15:11:21 +0700
Subject: Re: [belajar-excel] Cara merekap data di beda sheet


Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal lagi.


















Thu Dec 5, 2013 10:36 pm (PST) . Posted by:

"Lazuardi Biru" lazuardi_biru84

cara paling sederhana adalah di print area pak..
blok data yang mau di print.
pilih tab page layout dan pilih print area.

salam
LB

Pada Jumat, 6 Desember 2013 13:07, Fachry Rizal <p4ch.m4n@gmail.com> menulis:

 
Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat di rubah2 (data terlampir).
Terima kasih untuk bantuannyaa....

2013/12/5 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>


>Mr Fachry,
>iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena saya lihat macronya Mr Kid. Thanks Mr Kid.
>tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi tidak muncul tanda minus (-), buatkan aja rumus ini =IF(OR(I10="";J10="");"";I10*J10
>terus copy deh tuh rumus dari baris K11 sampai baris K16.
>sekedar itu aja.
>ASL
>
>
>
>________________________________
>From: p4ch.m4n@gmail.com
>To: belajar-excel@yahoogroups.com
>Date: Thu, 5 Dec 2013 15:11:21 +0700
>
>Subject: Re: [belajar-excel] Cara merekap data di beda sheet
>

>
>
>Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal lagi.
>
>
>

Thu Dec 5, 2013 10:42 pm (PST) . Posted by:

"Jan Raisin"

Ikutan ya..

pertanyaan nomor 1:
*bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print*

untuk yang printnya, script awal sbb:
ActiveWindow.SelectedSheets.PrintPreview

diganti menjadi:
Dim sht As String ' deklarasi variabel untuk menyimpan nama sheet

sht = ActiveSheet.Name ' ambil nama sheet dan simpan ke variabel
Sheets(sht).Range("a1:k28").PrintPreview ' print preview kolom A sampai
K baris 1 sampai 28

pertanyaan nomor 2:
*bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat
di rubah2*

salah satu dari banyak cara adalah sbb:
(1) klik kanan *HANYA* pada cel yang boleh diubah oleh user
(2) pilih Format Cell
(3) klik tab Protection
(4) hilangkan tanda cek list pada kotak Locked

setelah itu lakukan proteksi terhadap sheet dengan cara:
(1) klik kanan pada nama sheet
(2) pilih Protect sheet
(3) hilangkan tanda ceklist pada Selected locked cells
(4) masukkan password untuk melakukan unprotect, setelah ini akan diminta
konfirmasi ulang

hati-hati, jika anda lupa passwordnya maka anda pun akan kehilangan akses
untuk mengubah isi worksheet
sebagai antisipasi, copy dahulu workbooknya dan simpan dengan nama lain.

semoga penjelasannya sesuai dengan yang diharapkan

Salam,

-Miss Jan Raisin-

Pada 6 Desember 2013 11.36, Fachry Rizal <p4ch.m4n@gmail.com> menulis:

>
>
> Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada
> sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom
> K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel,
> Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya
> unhide agar datanya tidak dapat di rubah2 (data terlampir).
> Terima kasih untuk bantuannyaa....
>
>
> 2013/12/5 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
>
>
>
> Mr Fachry,
> iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena
> saya lihat macronya Mr Kid. Thanks Mr Kid.
> tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi
> tidak muncul tanda minus (-), buatkan aja rumus ini
> =IF(OR(I10="";J10="");"";I10*J10
> terus copy deh tuh rumus dari baris K11 sampai baris K16.
> sekedar itu aja.
> ASL
>
> ------------------------------
> From: p4ch.m4n@gmail.com
> To: belajar-excel@yahoogroups.com
> Date: Thu, 5 Dec 2013 15:11:21 +0700
>
> Subject: Re: [belajar-excel] Cara merekap data di beda sheet
>
>
>
> Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga
> bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal
> pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul
> tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal
> lagi.
>
>
>
>
>

Thu Dec 5, 2013 11:51 pm (PST) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Mr Fachry,
Agar tulisan Print, cancel, save tidak ikut print, cara gampangnya sih cetak invoicenya secara manual dulu (set print area) yaitu dari A1:K28. Maka secara otomatis print macronya tidak akan membaca tulisan "Print, Cancel, Save" tsb.
atau coba buka macro Sub Macro6() tambahkan perintah :
Range("A1:K28").Select
ActiveWindow.SelectedSheets.PrintPreview

Kalo masalah Hasil pirnt Kolom K9:K16 tidak muncul garisnya, saya belum bisa kasih solusi cara praktisnya, karena kolom2nya dilock. (belum kesitu ilmunye) :)
Juga mengenai bgmn cara menglock row dan kolom yg di unhide agar datanya tidak dapat di rubah2, saya belum bisa menjawab. mungkin Mr HK, Mr De Premor dan BeExceller lainnya bisa membantu.
terima kasih,
ASL

From: p4ch.m4n@gmail.com
To: belajar-excel@yahoogroups.com
Date: Fri, 6 Dec 2013 11:36:01 +0700
Subject: Re: [belajar-excel] Cara merekap data di beda sheet [1 Attachment]

Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat di rubah2 (data terlampir).
Terima kasih untuk bantuannyaa....

2013/12/5 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>

Mr Fachry,
iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena saya lihat macronya Mr Kid. Thanks Mr Kid.
tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi tidak muncul tanda minus (-), buatkan aja rumus ini =IF(OR(I10="";J10="");"";I10*J10

terus copy deh tuh rumus dari baris K11 sampai baris K16.
sekedar itu aja.
ASL

From: p4ch.m4n@gmail.com
To: belajar-excel@yahoogroups.com

Date: Thu, 5 Dec 2013 15:11:21 +0700
Subject: Re: [belajar-excel] Cara merekap data di beda sheet

Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal lagi.

Fri Dec 6, 2013 2:05 am (PST) . Posted by:

"Fachry Rizal" p4ch_m4n

Oke Ms. Jan success caranya smua. *Maaf msh ada pertanyaan lagi bgmn cara
merubah no invoicenya secara otomatis, karena skrg sudah no 2374*. Saya
mencoba memodifikasi dengan menambah surat jalan dg cara mencopy dr invoice
hehehehe.... Mr Ahmad trima kasih atas masukannya, sangat bermanfaat..

2013/12/6 Jan Raisin <miss.jan.raisin@gmail.com>

>
>
> Ikutan ya..
>
> pertanyaan nomor 1:
> *bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke
> print*
>
> untuk yang printnya, script awal sbb:
> ActiveWindow.SelectedSheets.PrintPreview
>
> diganti menjadi:
> Dim sht As String ' deklarasi variabel untuk menyimpan nama sheet
>
> sht = ActiveSheet.Name ' ambil nama sheet dan simpan ke variabel
> Sheets(sht).Range("a1:k28").PrintPreview ' print preview kolom A
> sampai K baris 1 sampai 28
>
> pertanyaan nomor 2:
> *bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat
> di rubah2*
>
> salah satu dari banyak cara adalah sbb:
> (1) klik kanan *HANYA* pada cel yang boleh diubah oleh user
> (2) pilih Format Cell
> (3) klik tab Protection
> (4) hilangkan tanda cek list pada kotak Locked
>
> setelah itu lakukan proteksi terhadap sheet dengan cara:
> (1) klik kanan pada nama sheet
> (2) pilih Protect sheet
> (3) hilangkan tanda ceklist pada Selected locked cells
> (4) masukkan password untuk melakukan unprotect, setelah ini akan diminta
> konfirmasi ulang
>
> hati-hati, jika anda lupa passwordnya maka anda pun akan kehilangan akses
> untuk mengubah isi worksheet
> sebagai antisipasi, copy dahulu workbooknya dan simpan dengan nama lain.
>
> semoga penjelasannya sesuai dengan yang diharapkan
>
> Salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 6 Desember 2013 11.36, Fachry Rizal <p4ch.m4n@gmail.com> menulis:
>
>
>>
>> Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada
>> sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom
>> K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel,
>> Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya
>> unhide agar datanya tidak dapat di rubah2 (data terlampir).
>> Terima kasih untuk bantuannyaa....
>>
>>
>> 2013/12/5 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
>>
>>
>>
>> Mr Fachry,
>> iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena
>> saya lihat macronya Mr Kid. Thanks Mr Kid.
>> tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi
>> tidak muncul tanda minus (-), buatkan aja rumus ini
>> =IF(OR(I10="";J10="");"";I10*J10
>> terus copy deh tuh rumus dari baris K11 sampai baris K16.
>> sekedar itu aja.
>> ASL
>>
>> ------------------------------
>> From: p4ch.m4n@gmail.com
>> To: belajar-excel@yahoogroups.com
>> Date: Thu, 5 Dec 2013 15:11:21 +0700
>>
>> Subject: Re: [belajar-excel] Cara merekap data di beda sheet
>>
>>
>>
>> Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga
>> bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal
>> pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul
>> tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal
>> lagi.
>>
>>
>>
>>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

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

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

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

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

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

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

Tidak ada komentar:

Posting Komentar