Kamis, 28 Agustus 2014

[belajar-excel] Digest Number 3056

15 Messages

Digest #3056
1a
Re: tombol kalkulasi by "cahaya optik" cahayaoptikmandiri
2a
Cara Memisahkan data by "abd aziz" aziez_354
2b
Re: Cara Memisahkan data by "Bagus" bagus4bls
2c
Re: Cara Memisahkan data by "Mr. Kid" nmkid.family@ymail.com
2d
Re: Cara Memisahkan data by "Bagus" bagus4bls
4
CommandButton→ ukurannya semakin mengecil. by "D4N1����" dhanie_umarie
5
Macro mencari data 2 by "ris ha" har1sn.excel
6a
Tombol print dengan 4 kondisi by "ris ha" har1sn.excel
6c
Re: Tombol print dengan 4 kondisi [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

Wed Aug 27, 2014 3:13 am (PDT) . Posted by:

"cahaya optik" cahayaoptikmandiri

oh..gitu toh
ok om kid terima kasih yg banyak

yudha

"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

>Hai Yudha,
>
>Untuk pivot di tabel bantu memang di set untuk tidak diubah-ubah agar bisa
>kedinamisan nama range bisa digunakan formula di output.
>Jika ingin menggunakan pivot tabel yang sama, copy pivot table ke sheet
>lain dan ubah sesuai kebutuhan. Caranya :
>0. buat sheet baru
>1. ke sheet yang ada pivot tablenya -> klik pivot table
>2. xl2003 : toolbar Pivot Table -> Pivot Table -> Select -> Entire pivot
>table -> Ctrl C
> xl2007 ke atas : menu Pivot Table Tools -> ribbon Options -> group
>Actions -> Select -> Entire pivot table -> Ctrl C
>3. ke sheet baru -> klik sebuah cell -> Ctrl V
>4. ubah layout pivot table hasil paste sesuai kebutuhan.
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-08-27 18:01 GMT+10:00 Sandra Yudha cahayaoptikmandiri@yahoo.co.id
>[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> salam om kid
>>
>> maaf kayaknya tadi salah balas..
>> kayaknya pake pivot lebih ringan ya..cuman barusan ketika di sheet tabel
>> bantu ( pivot ) aku kasih page..rumusnya di sheet "jual" kok gak berfungsi
>> ya..apa memang pivotnya gak boleh di otak atik
>> trus dirumus vlookup terdapat "_mytblbantu1_" apakah itu range yg biasanya
>> kita buat di define name ?
>>
>> terima kasih
>>
>> yudha
>>
>>
>>

Wed Aug 27, 2014 3:51 am (PDT) . Posted by:

"abd aziz" aziez_354

Assalamu'alaikum,

Yth,
Para Master Excel yang berbahagia.

Mohon dibantu bagaimana cara memisahkan data excel yg ada dalam 1 sel,
contoh:

8/20/2014 6:41 AM        

Saya mau pisahkan menjadi :

tanggal :8/20/2014
jam       : 6:41 am

sebelumnya saya sampaikan terima kasih 

Wassalam,

Aziz

Wed Aug 27, 2014 4:14 am (PDT) . Posted by:

"Bagus" bagus4bls

Wa'alaykum salam warohmatullohi wabarokatuhu..

Pak Aziz;

Misal data ada di cell A1;

Untuk mengambil data,
tanggal: =date(year(a1),month(a1),day(a1))
Jam: =time(hour(a1),minute(a1),second(a1))

Wassalam

~ Bagus ~

----- Original Message -----
From: abd aziz aziez_354@yahoo.com [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Wednesday, August 27, 2014 5:43 PM
Subject: [belajar-excel] Cara Memisahkan data

Assalamu'alaikum,

Yth,
Para Master Excel yang berbahagia.

Mohon dibantu bagaimana cara memisahkan data excel yg ada dalam 1 sel,
contoh:

8/20/2014 6:41 AM

Saya mau pisahkan menjadi :

tanggal :8/20/2014
jam : 6:41 am

sebelumnya saya sampaikan terima kasih

Wassalam,

Aziz

Wed Aug 27, 2014 5:27 am (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Data datetime memiliki 2 sisi, yaitu :
a. sisi Date -> berisi nilai tanggal, berupa bilangan bulat
b. sisi Time -> berisi nilai waktu, berupa bilangan pecahan antara 0 (jam
00:00) dan 1 (setara 1 hari alias 24 jam)

Pada data yang tampak seakan-akan menunjukkan data tanggal dan waktu, belum
tentu memiliki tipedata yang tepat sebagai data bertipe datetime alias data
yang memiliki sisi Date dan sisi Time.

Berikut langkah untuk memeriksa dan mengolahnya.
Langkah 1 :
Sebuah nilai yang tampak seperti data tanggal dan waktu harus diperiksa
apakah benar-benar memiliki tipe data datetime.
Caranya :
klik kanan cell yang bernilai tampak seperti data tanggal dan waktu ->
format cells -> tab Number -> pilih General -> OK
Perhatikan :
- jika penampakan nilai tidak berubah, maka nilai tersebut bertipe Text
(bukan data tanggal dan waktu, tetapi sekedar nilai teks seperti tanggal
dan waktu). Ke Langkah 2.
- jika penampakan nilai berubah menjadi suatu nilai tertentu yang sama
sekali berbeda dengan penampakan awal, maka tipe data nilai tersebut adalah
DateTime. Ke Langkah 3.

Langkah 2 : (khusus untuk hasil Langkah 1 berupa data bertipe Text)
Karena tipe data nilai tersebut bukanlah datetime, maka perlu formula untuk
menyusun nilai tersebut menjadi data bertipe datetime.
Tahapan :
a. perhatikan susunan DMY dan delimiter (pemisah antar elemen) pada
data teks tersebut.
Contoh : 8/7/1945 dan 12/27/1945 memiliki susunan M/D/YYYY
dengan pemisah karakter '/'
08/07/1945 memiliki susunan MM/DD/YYYY dengan
pemisah karakter '/'
dsb
b. perhatikan susunan HMS dan delimiternya (pemisah antar elemen)
Contoh : 7:18 AM dan 11:07 PM memiliki susunan h:mm AM/PM
07:18 dan 23:07 memiliki susunan HH:mm
dsb.
c. susun formula untuk mendapatkan nilai tahun, bulan, dan tanggalnya
8/7/1945 dan 12/27/1945
tahun YYYY : =mid( cell_data , find( "/" , cell_data , 4 ) + 1 ,
4 )
bulan M : =left( cell_data , find( "/" , cell_data ) -1 )
tanggal D : =Substitute( mid( cell_data , find( "/" ,
cell_data ) + 1 , 2 ) , "/" , "" )
d. susun formula untuk mendapatkan nilai waktunya
8/7/1945 9:15 AM
waktu h:mm AM/PM -> =mid( cell_data , find(" ", cell_data)+1 ,
99 )
e. susun formula penyusun data sisi tanggalnya (dengan fungsi Date)
=Date( formula_tahun , formula_bulan , formula_tanggal )
f. susun formula penyusun data sisi waktunya (dengan fungsi TimeValue
atau kadang sekedar dikalikan dengan angka 1)
=TimeValue( formula_waktu )
atau
= 1 * formula_waktu
g. ke langkah 4

Langkah 3 : (khusus untuk hasil Langkah 1 berupa data bertipe Datetime)
Karena datanya sudah bertipe datetime (sisi Date bisa jadi 0 [data waktu
saja] atau sisi Time bisa jadi 0 [data tanggal saja]), maka sisi Date dan
sisi Time bisa didapatkan dengan mudah.

> Sisi Date selalu bilangan bulat. Artinya, nilai data bertipe Datetime
yang telah dihilangkan sisi pecahannya.
> Sisi Time selalu bilangan pecahan antara 0 dan 1. Artinya, sisa dari
nilai data bertipe Datetime yang dibagi angka 1.

Tahapan :
Contoh : 2014-01-17 15:45:03
a. tentukan sisi date-nya
sisi Date : =Int( cell_data ) atau =RoundDown( cell_data , 0
) atau =Trunc( cell_data ) atau =Floor( cell_data , 1 )
b. tentukan sisi time-nya
sisi Time : =Mod( cell_data , 1 ) atau =cell_data - Int(
cell_data )
c. ke langkah 4

Langkah 4 :
Selesai.

Wassalamu'alaikum Wr. Wb.,
Kid.

2014-08-27 20:43 GMT+10:00 abd aziz aziez_354@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum,
>
> Yth,
> Para Master Excel yang berbahagia.
>
> Mohon dibantu bagaimana cara memisahkan data excel yg ada dalam 1 sel,
> contoh:
>
> 8/20/2014 6:41 AM
>
> Saya mau pisahkan menjadi :
>
> tanggal :8/20/2014
> jam : 6:41 am
>
> sebelumnya saya sampaikan terima kasih
>
> Wassalam,
>
> Aziz
>
>
>

Wed Aug 27, 2014 5:38 am (PDT) . Posted by:

"Bagus" bagus4bls

Subhanalloh...

Oom Kid..
Mantabb Penjelasannya..

Alhamdulillah..
dapat ilmu lagi...

Wassalam

~ Bagus ~

----- Original Message -----
From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
To: BeExcel
Sent: Wednesday, August 27, 2014 7:27 PM
Subject: Re: [belajar-excel] Cara Memisahkan data

Wa'alaikumussalam Wr. Wb.

Data datetime memiliki 2 sisi, yaitu :

a. sisi Date -> berisi nilai tanggal, berupa bilangan bulat

b. sisi Time -> berisi nilai waktu, berupa bilangan pecahan antara 0 (jam 00:00) dan 1 (setara 1 hari alias 24 jam)

Pada data yang tampak seakan-akan menunjukkan data tanggal dan waktu, belum tentu memiliki tipedata yang tepat sebagai data bertipe datetime alias data yang memiliki sisi Date dan sisi Time.

Berikut langkah untuk memeriksa dan mengolahnya.
Langkah 1 :
Sebuah nilai yang tampak seperti data tanggal dan waktu harus diperiksa apakah benar-benar memiliki tipe data datetime.
Caranya :

klik kanan cell yang bernilai tampak seperti data tanggal dan waktu -> format cells -> tab Number -> pilih General -> OK

Perhatikan :
- jika penampakan nilai tidak berubah, maka nilai tersebut bertipe Text (bukan data tanggal dan waktu, tetapi sekedar nilai teks seperti tanggal dan waktu). Ke Langkah 2.

- jika penampakan nilai berubah menjadi suatu nilai tertentu yang sama sekali berbeda dengan penampakan awal, maka tipe data nilai tersebut adalah DateTime. Ke Langkah 3.

Langkah 2 : (khusus untuk hasil Langkah 1 berupa data bertipe Text)

Karena tipe data nilai tersebut bukanlah datetime, maka perlu formula untuk menyusun nilai tersebut menjadi data bertipe datetime.

Tahapan :

a. perhatikan susunan DMY dan delimiter (pemisah antar elemen) pada data teks tersebut.

Contoh : 8/7/1945 dan 12/27/1945 memiliki susunan M/D/YYYY dengan pemisah karakter '/'

08/07/1945 memiliki susunan MM/DD/YYYY dengan pemisah karakter '/'
dsb

b. perhatikan susunan HMS dan delimiternya (pemisah antar elemen)

Contoh : 7:18 AM dan 11:07 PM memiliki susunan h:mm AM/PM

07:18 dan 23:07 memiliki susunan HH:mm

dsb.

c. susun formula untuk mendapatkan nilai tahun, bulan, dan tanggalnya
8/7/1945 dan 12/27/1945
tahun YYYY : =mid( cell_data , find( "/" , cell_data , 4 ) + 1 , 4 )

bulan M : =left( cell_data , find( "/" , cell_data ) -1 )

tanggal D : =Substitute( mid( cell_data , find( "/" , cell_data ) + 1 , 2 ) , "/" , "" )

d. susun formula untuk mendapatkan nilai waktunya

8/7/1945 9:15 AM

waktu h:mm AM/PM -> =mid( cell_data , find(" ", cell_data)+1 , 99 )

e. susun formula penyusun data sisi tanggalnya (dengan fungsi Date)

=Date( formula_tahun , formula_bulan , formula_tanggal )

f. susun formula penyusun data sisi waktunya (dengan fungsi TimeValue atau kadang sekedar dikalikan dengan angka 1)

=TimeValue( formula_waktu )

atau

= 1 * formula_waktu

g. ke langkah 4

Langkah 3 : (khusus untuk hasil Langkah 1 berupa data bertipe Datetime)

Karena datanya sudah bertipe datetime (sisi Date bisa jadi 0 [data waktu saja] atau sisi Time bisa jadi 0 [data tanggal saja]), maka sisi Date dan sisi Time bisa didapatkan dengan mudah.

> Sisi Date selalu bilangan bulat. Artinya, nilai data bertipe Datetime yang telah dihilangkan sisi pecahannya.

> Sisi Time selalu bilangan pecahan antara 0 dan 1. Artinya, sisa dari nilai data bertipe Datetime yang dibagi angka 1.

Tahapan :
Contoh : 2014-01-17 15:45:03

a. tentukan sisi date-nya

sisi Date : =Int( cell_data ) atau =RoundDown( cell_data , 0 ) atau =Trunc( cell_data ) atau =Floor( cell_data , 1 )

b. tentukan sisi time-nya

sisi Time : =Mod( cell_data , 1 ) atau =cell_data - Int( cell_data )

c. ke langkah 4

Langkah 4 :

Selesai.

Wassalamu'alaikum Wr. Wb.,

Kid.

2014-08-27 20:43 GMT+10:00 abd aziz aziez_354@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Assalamu'alaikum,

Yth,
Para Master Excel yang berbahagia.

Mohon dibantu bagaimana cara memisahkan data excel yg ada dalam 1 sel,
contoh:

8/20/2014 6:41 AM

Saya mau pisahkan menjadi :

tanggal :8/20/2014
jam : 6:41 am

sebelumnya saya sampaikan terima kasih

Wassalam,

Aziz

Wed Aug 27, 2014 8:58 pm (PDT) . Posted by:

"abd aziz" aziez_354

Dear Mr Kid,

Maaf sebelumnya saya baru balas, sebab OLnya cuma pas ditpt kerja

saya sudah coba apa yg sudah disampaikan oleh Mr Kid,
tetapi kok belum bisa beroperasi yaa....
kira2 masih ada kendala disisi mananya yaa

terima kasih

Terlampir data yang saya coba:

Pada Rabu, 27 Agustus 2014 5:38, "'Bagus' bagus@kingjim.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 

Subhanalloh...
 
Oom Kid..
Mantabb Penjelasannya..
 
Alhamdulillah..
dapat ilmu lagi...
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>To: BeExcel
>Sent: Wednesday, August 27, 2014 7:27 PM
>Subject: Re: [belajar-excel] Cara Memisahkan data
>

>Wa'alaikumussalam Wr. Wb.
>
>Data datetime memiliki 2 sisi, yaitu :
>
>a. sisi Date -> berisi nilai tanggal, berupa bilangan bulat
>
>b. sisi Time -> berisi nilai waktu, berupa bilangan pecahan antara 0 (jam 00:00) dan 1 (setara 1 hari alias 24 jam)
>
>
>
>Pada data yang tampak seakan-akan menunjukkan data tanggal dan waktu, belum tentu memiliki tipedata yang tepat sebagai data bertipe datetime alias data yang memiliki sisi Date dan sisi Time.
>
>
>Berikut langkah untuk memeriksa dan mengolahnya.
>Langkah 1
:
>Sebuah nilai yang tampak seperti data tanggal dan waktu harus diperiksa
apakah benar-benar memiliki tipe data datetime.
>Caranya
:

>    klik kanan cell yang bernilai tampak seperti data tanggal dan waktu -> format cells -> tab Number -> pilih General -> OK
>Perhatikan :
>    - jika penampakan nilai
tidak berubah, maka nilai tersebut bertipe Text (bukan data tanggal dan waktu,
tetapi sekedar nilai teks seperti tanggal dan waktu). Ke Langkah
2.
>    - jika penampakan nilai berubah menjadi suatu nilai tertentu yang sama sekali berbeda dengan penampakan awal, maka tipe data nilai tersebut adalah DateTime. Ke Langkah 3.
>
>
>Langkah 2 : (khusus untuk hasil Langkah 1 berupa data bertipe Text)
>Karena tipe data nilai tersebut bukanlah datetime, maka perlu formula untuk menyusun nilai tersebut menjadi data bertipe datetime.
>Tahapan :
>    a. perhatikan susunan DMY dan delimiter (pemisah antar elemen) pada data teks tersebut.
>            Contoh :    8/7/1945 dan 12/27/1945 memiliki susunan M/D/YYYY dengan pemisah karakter '/'
>                           08/07/1945 memiliki susunan MM/DD/YYYY  dengan pemisah karakter '/'                            dsb
>    b. perhatikan susunan HMS dan delimiternya (pemisah antar elemen)
>           Contoh : 7:18 AM dan 11:07 PM memiliki susunan h:mm AM/PM
>                        07:18 dan 23:07 memiliki susunan HH:mm
>                        dsb.
>
>    c. susun formula untuk mendapatkan nilai tahun, bulan, dan tanggalnya

>           
8/7/1945 dan 12/27/1945  
>          tahun YYYY :  =mid( cell_data , find( "/" , cell_data , 4 ) + 1 , 4 )
>
>          bulan M       :  =left( cell_data , find( "/" , cell_data ) -1 )
>
>          tanggal D     :  =Substitute( mid( cell_data , find( "/" , cell_data ) + 1 , 2 ) , "/" , "" )
>
>    d. susun formula untuk mendapatkan nilai waktunya
>
>            8/7/1945 9:15 AM
>
>          waktu h:mm AM/PM ->   =mid( cell_data , find(" ", cell_data)+1 , 99 )
>
>    e. susun formula penyusun data sisi tanggalnya (dengan fungsi Date)
>
>         =Date( formula_tahun , formula_bulan , formula_tanggal )
>
>    f. susun formula penyusun data sisi waktunya (dengan fungsi TimeValue atau kadang sekedar dikalikan dengan angka 1)
>
>         =TimeValue( formula_waktu )
>
>       atau
>
>         = 1 * formula_waktu
>
>    g. ke langkah 4
>
>
>
>Langkah 3 : (khusus untuk hasil Langkah 1 berupa data bertipe Datetime)
>
>Karena datanya sudah bertipe datetime (sisi Date bisa jadi 0 [data waktu saja] atau sisi Time bisa jadi 0 [data tanggal saja]), maka sisi Date dan sisi Time bisa didapatkan dengan mudah.
>
>
>> Sisi Date selalu bilangan bulat. Artinya, nilai data bertipe Datetime yang telah dihilangkan sisi pecahannya.
>
>> Sisi Time selalu bilangan pecahan antara 0 dan 1. Artinya, sisa dari nilai data bertipe Datetime yang dibagi angka 1.
>
>Tahapan
:
>     Contoh : 2014-01-17 15:45:03
>
>   a. tentukan sisi date-nya
>
>          sisi Date :  =Int( cell_data )   atau =RoundDown( cell_data , 0 )   atau =Trunc( cell_data ) atau =Floor( cell_data , 1 )
>

>   b. tentukan sisi time-nya
>
>          sisi Time :  =Mod( cell_data , 1 )  atau  =cell_data - Int( cell_data )
>
>   c. ke langkah 4
>

>
>
>
>Langkah 4 :
>
>Selesai.
>
>
>Wassalamu'alaikum Wr. Wb.,
>
>Kid.
>
>

>
>
>
>
>
>
>
>
>
>2014-08-27 20:43 GMT+10:00 abd aziz aziez_354@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>> 
>>Assalamu&#39;alaikum,
>>
>>
>>Yth,
>>Para Master Excel yang berbahagia.
>>
>>
>>Mohon dibantu bagaimana cara memisahkan data excel yg ada dalam 1 sel,
>>contoh:
>>
>>
>>8/20/2014 6:41 AM        
>>
>>
>>Saya mau pisahkan menjadi :
>>
>>
>>
>>tanggal :8/20/2014
>>jam       : 6:41 am
>>
>>
>>sebelumnya saya sampaikan terima kasih 
>>
>>
>>Wassalam,
>>
>>
>>Aziz
>

Wed Aug 27, 2014 5:30 am (PDT) . Posted by:

"Bagus" bagus4bls

Hai Emi;

Pakai helper boleh ya..

Sila lihat file terlampir

Wassalam

~ Bagus ~

----- Original Message -----
From: Emi emilestariklcc@yahoo.com [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Wednesday, August 27, 2014 3:32 PM
Subject: Re: [belajar-excel] Transpose data mentah vertikal menjadi table horizontal [1 Attachment]

Dear Mr Kid,

Dikirim ulang file yang udah dibuat text to column.

Mohon solusinya agar data tersebut dapat masuk ke dalam rekap.

Terima kasih

-Emi Lestari

On Tuesday, August 26, 2014 11:40 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

Asalamualaikum warahmatullah,

Mas Kid

Terima kasih penjelasannya,

akan saya coba untuk membuat solusi seperti yang mas kid sarankan.

Tentunya hanya untuk bahan saya belajar, karena belum tahu kapan selesainya.

Terimakasih

Wasalam

Nang

2014-08-23 16:12 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Wa'alaikumussalam Wr. Wb.

mas Agus,

Banyak banget ya pertanyaannya...

hehehe... berhubung sudah sempet lihat kasus beserta urun solusi dari mas Agus, saya coba jawab atu per atu yak...

1. Apakah mungkin data seperti ini digunakan formula?
>> sebenarnya sih mungkin, cuman bisa jadi ndak epektip ato setidaknya ndak epicien gitu.

2. jika memungkinkan apakah perlu dummi?

>> karena memungkinkan, maka bisa pakai dummi (maksudnya cell atau kolom atau baris bantu kan ya), bisa juga gak pakai alias langsungan. Tapi, ya itu tadi dah, bisa jadi ndak epektip ato epicien, apalagi kalau record datanya ada banyak.

>> bisa jadi dengan tabel bantu malah akan jadi efektif dan efisien.

>> setidaknya, dengan kolom bantu juga masih cukup efektif dan efisien

>> dengan cell bantu, bisa jadi masih bisa dibilang efektif dan efisien

>> dengan baris bantu, meski mulai kurang efisien, tapi bisa dibilang masih mending daripada ndak pakai sama sekali

>> tanpa pakai bantuan, kayanya beneran ndak epektip ato setidaknya ndak epicien.

3. Bisa gak ya... kalau pakai formula tanpa dummi?
>> Bisa kayanya.

>> mungkin fungsi-fungsi yang dipakai adalah Row, Index, Match, sedikit Small dan IF, dipoleh fungsi text dikit seperti Mid, Find, Trim, dan Len, disertai trap error seperti IsNumber atau sebangsanya, termasuk si IFError mungkin ya. Bisa jadi masih ada fungsi lain yang biasa dipakai (bertebaran dimilis) yang belum disebut yang bisa digunakan.

>> silakan dicoba saja.

>> usahakan, ndak pakai fungsi-fungsi volatile ya, seperti fungsi Offset, Today, Now, Indirect, Rand, RandBetween dalam jumlah yang banyak (dibanyak cell) untuk antisipasi kalau datanya ada banyak atau cell berformulanya ada banyak, sehingga Excel tidak mudah cepat terlihat lamban.

>> selamat mencoba ya... itung-itung buat latihan dah... soale belum sempat nih.

4. Menurut saya yang paling logis adalah menggunakan text to column kemudian baru digunakan formula.
>> kalo menurut saya, yang paling logis adalah merembug ulang dengan pemberi data agar bersedia memberi akses koneksi database ke sumber data yang diolah menjadi text file yang ndak 'pengolah data prenly'.

>> dengan akses ke database, maka berbagai output bisa dibuat dengan lebih sederhana

>> kalo ndak boleh, ya minta yang bentuknya lebih 'pengolah data prenly' lah, seperti bentuk tabel saja daripada fix report demikian.

>> kalo ndak bisa juga (walah hidup kok sukanya mempersulit pihak lain), buat template pengolah data agar bisa mendapatkan tabel yang baik, lalu tabel itu disimpan ke lokasi baru (copas value) hingga menjadi database yang baik.

>> kalo ndak bisa bikin templatenya, ya belajar

>> kalo malas belajarnya atau kurang semangat belajarnya, atau (alasan paling banyak nih) gak sempet belajarnya, ya cari anggaran yang besar untuk bayar orang membuatkannya.

>> kalo ndak bisa cari anggaran, ya duduk manis saja ngerjain manual

>> kalo dah bosen ngerjain manual, gimana lagi coba ?

5. Kalau menggunakan dummi 31 kolom (dengan asumsi 1 bulan terdapat 31 hari) dan tabelnya selalu tetap seperti contoh. maka formulanya dapat menggunakan mid dan lookup, sedangkan rekapnya dapat menggunakan formula index match.

>> ya betul.

>> kenapa ndak pakai 4 kolom bantu saja ? 3 kolom bantu untuk 3 kolom tanggal, dan 1 kolom bantu berisi branch.

6. Dapatkah formula ini disederhanakan?
>> dapat disederhanakan.

7. atau dapat dikerjakan tanpa dummi?
>> bai piling sih dapat mas.

>> percaya deh... kalo ndak bisa tanpa dummi berarti harus pakai dummi.

:)

Moga-moga ada BeExceller yang terus berusaha mencoba tanpa helper formula.

Yang suka VBA kok ya belum muncul ya...

Wassalamu'alaikum Wr. Wb.

Kid.

2014-08-23 12:43 GMT+10:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Asalamualaikum Mr. Kid

Apakah mungkin data seperti ini digunakan formula?

jika memungkinkan apakah perlu dummi?

Bisa gak ya... kalau pakai formula tanpa dummi?

Menurut saya yang paling logis adalah menggunakan text to column kemudian baru digunakan formula.

Kalau menggunakan dummi 31 kolom (dengan asumsi 1 bulan terdapat 31 hari) dan tabelnya selalu tetap seperti contoh. maka formulanya dapat menggunakan mid dan lookup, sedangkan rekapnya dapat menggunakan formula index match.

Dapatkah formula ini disederhanakan?

atau dapat dikerjakan tanpa dummi?

Terima kasih

Wasalamualaikum Warahmatullah

Nang Agus

2014-08-23 7:24 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Hai Emi,

Berhubung sudah berhari-hari ndak ada yang nyenggol, coba posting ulang dari hasil berikut :

1. lakukan Text To Columns -> fixed -> tentukan batas-batas di kolom tanggal, status yang gak memotong nilai branch,dsb

2. dikolom baru hasil nomor 2 (misal kolom terkiri hasil insert kolom) diisi dengan formula untuk menulis nilai branch setiap blok data (jadi setiap baris setelah baris branch : akan memiliki kolom Branch yang ada isinya).

Setelah itu, baru coba posting hasil text to columns tersebut.

Daripada hasil output yang tersusun ke kanan, coba minta yang tersusun ke bawah saja. Hasil yang tersusun ke bawah akan memudahkan penyusunan output berbagai bentuk (termasuk output kekanan yang sedang Anda minta dan tidak ditanggapi itu).

Proses text to columns bisa di-record macro (anda coba sendiri ya) dan bisa juga disusun dengan formula (sampai sekarang, ndak ada BeExceller yang tertarik melakukannya).

;)

met moncoba

cemunguuud...

Wassalam,

Kid.

2014-08-20 14:45 GMT+10:00 Emi emilestariklcc@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Guru dan teman BeExcel,
Saya ada raw data seperti di kolum A.
Hasil yang saya harapkan adalah sebuah table yang menunjukkan status secara lebih jelas di setiap kolom tanggal.
Sekiaranya status "P" output nya adalah "/"
jika blank (tidak ditulis apa apa) outputnya "0", jika H atau X tetap sama.
Terima kasih
-Emi Lestari

Wed Aug 27, 2014 2:49 pm (PDT) . Posted by:

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

tuh kan...
kalau datanya lebih semakin berbentuk tabel yang baik, maka akan lebih
cepat responnya.
pengolahan data pada tabel yang baik jauh relatif mudah.

ayo sapa lagi yang punya ide ? boleh pakai kolom bantu sesukanya. bahkan
pakai tabel bantu juga boleh. masih belum ada yang pakai VBA nih.

;)

Wassalam,
Kid.

2014-08-27 22:33 GMT+10:00 'Bagus' bagus@kingjim.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> 
> Hai Emi;
>
> Pakai helper boleh ya..
>
> Sila lihat file terlampir
>
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* Emi emilestariklcc@yahoo.com [belajar-excel]
> <emilestariklcc@yahoo.com+[belajar-excel]>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, August 27, 2014 3:32 PM
> *Subject:* Re: [belajar-excel] Transpose data mentah vertikal menjadi
> table horizontal [1 Attachment]
>
>
>
> Dear Mr Kid,
>
> Dikirim ulang file yang udah dibuat text to column.
>
> Mohon solusinya agar data tersebut dapat masuk ke dalam rekap.
>
>
> Terima kasih
>
> -Emi Lestari
>
>
> On Tuesday, August 26, 2014 11:40 AM, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Asalamualaikum warahmatullah,
> Mas Kid
> Terima kasih penjelasannya,
> akan saya coba untuk membuat solusi seperti yang mas kid sarankan.
> Tentunya hanya untuk bahan saya belajar, karena belum tahu kapan
> selesainya.
> Terimakasih
>
> Wasalam
> Nang
>
>
>
> 2014-08-23 16:12 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Wa'alaikumussalam Wr. Wb.
>
> mas Agus,
>
> Banyak banget ya pertanyaannya...
> hehehe... berhubung sudah sempet lihat kasus beserta urun solusi dari mas
> Agus, saya coba jawab atu per atu yak...
>
> 1. Apakah mungkin data seperti ini digunakan formula?
> >> sebenarnya sih mungkin, cuman bisa jadi ndak epektip ato setidaknya
> ndak epicien gitu.
>
> 2. jika memungkinkan apakah perlu dummi?
> >> karena memungkinkan, maka bisa pakai dummi (maksudnya cell atau kolom
> atau baris bantu kan ya), bisa juga gak pakai alias langsungan. Tapi, ya
> itu tadi dah, bisa jadi ndak epektip ato epicien, apalagi kalau record
> datanya ada banyak.
> >> bisa jadi dengan tabel bantu malah akan jadi efektif dan efisien.
> >> setidaknya, dengan kolom bantu juga masih cukup efektif dan efisien
> >> dengan cell bantu, bisa jadi masih bisa dibilang efektif dan efisien
> >> dengan baris bantu, meski mulai kurang efisien, tapi bisa dibilang
> masih mending daripada ndak pakai sama sekali
> >> tanpa pakai bantuan, kayanya beneran ndak epektip ato setidaknya ndak
> epicien.
>
> 3. Bisa gak ya... kalau pakai formula tanpa dummi?
> >> Bisa kayanya.
> >> mungkin fungsi-fungsi yang dipakai adalah Row, Index, Match, sedikit
> Small dan IF, dipoleh fungsi text dikit seperti Mid, Find, Trim, dan Len,
> disertai trap error seperti IsNumber atau sebangsanya, termasuk si IFError
> mungkin ya. Bisa jadi masih ada fungsi lain yang biasa dipakai (bertebaran
> dimilis) yang belum disebut yang bisa digunakan.
> >> silakan dicoba saja.
> >> usahakan, ndak pakai fungsi-fungsi volatile ya, seperti fungsi Offset,
> Today, Now, Indirect, Rand, RandBetween dalam jumlah yang banyak (dibanyak
> cell) untuk antisipasi kalau datanya ada banyak atau cell berformulanya ada
> banyak, sehingga Excel tidak mudah cepat terlihat lamban.
> >> selamat mencoba ya... itung-itung buat latihan dah... soale belum
> sempat nih.
>
> 4. Menurut saya yang paling logis adalah menggunakan text to column
> kemudian baru digunakan formula.
> >> kalo menurut saya, yang paling logis adalah merembug ulang dengan
> pemberi data agar bersedia memberi akses koneksi database ke sumber data
> yang diolah menjadi text file yang ndak 'pengolah data prenly'.
> >> dengan akses ke database, maka berbagai output bisa dibuat dengan lebih
> sederhana
> >> kalo ndak boleh, ya minta yang bentuknya lebih 'pengolah data prenly'
> lah, seperti bentuk tabel saja daripada fix report demikian.
> >> kalo ndak bisa juga (walah hidup kok sukanya mempersulit pihak lain),
> buat template pengolah data agar bisa mendapatkan tabel yang baik, lalu
> tabel itu disimpan ke lokasi baru (copas value) hingga menjadi database
> yang baik.
> >> kalo ndak bisa bikin templatenya, ya belajar
> >> kalo malas belajarnya atau kurang semangat belajarnya, atau (alasan
> paling banyak nih) gak sempet belajarnya, ya cari anggaran yang besar untuk
> bayar orang membuatkannya.
> >> kalo ndak bisa cari anggaran, ya duduk manis saja ngerjain manual
> >> kalo dah bosen ngerjain manual, gimana lagi coba ?
>
> 5. Kalau menggunakan dummi 31 kolom (dengan asumsi 1 bulan terdapat 31
> hari) dan tabelnya selalu tetap seperti contoh. maka formulanya dapat
> menggunakan mid dan lookup, sedangkan rekapnya dapat menggunakan formula
> index match.
> >> ya betul.
> >> kenapa ndak pakai 4 kolom bantu saja ? 3 kolom bantu untuk 3 kolom
> tanggal, dan 1 kolom bantu berisi branch.
>
> 6. Dapatkah formula ini disederhanakan?
> >> dapat disederhanakan.
>
> 7. atau dapat dikerjakan tanpa dummi?
> >> bai piling sih dapat mas.
> >> percaya deh... kalo ndak bisa tanpa dummi berarti harus pakai dummi.
>
> :)
>
> Moga-moga ada BeExceller yang terus berusaha mencoba tanpa helper formula.
> Yang suka VBA kok ya belum muncul ya...
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-08-23 12:43 GMT+10:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Asalamualaikum Mr. Kid
>
> Apakah mungkin data seperti ini digunakan formula?
> jika memungkinkan apakah perlu dummi?
> Bisa gak ya... kalau pakai formula tanpa dummi?
> Menurut saya yang paling logis adalah menggunakan text to column kemudian
> baru digunakan formula.
>
> Kalau menggunakan dummi 31 kolom (dengan asumsi 1 bulan terdapat 31 hari)
> dan tabelnya selalu tetap seperti contoh. maka formulanya dapat menggunakan
> mid dan lookup, sedangkan rekapnya dapat menggunakan formula index match.
> Dapatkah formula ini disederhanakan?
> atau dapat dikerjakan tanpa dummi?
>
> Terima kasih
> Wasalamualaikum Warahmatullah
>
> Nang Agus
>
>
>
> 2014-08-23 7:24 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Hai Emi,
>
> Berhubung sudah berhari-hari ndak ada yang nyenggol, coba posting ulang
> dari hasil berikut :
> 1. lakukan Text To Columns -> fixed -> tentukan batas-batas di kolom
> tanggal, status yang gak memotong nilai branch,dsb
> 2. dikolom baru hasil nomor 2 (misal kolom terkiri hasil insert kolom)
> diisi dengan formula untuk menulis nilai branch setiap blok data (jadi
> setiap baris setelah baris branch : akan memiliki kolom Branch yang ada
> isinya).
>
> Setelah itu, baru coba posting hasil text to columns tersebut.
> Daripada hasil output yang tersusun ke kanan, coba minta yang tersusun ke
> bawah saja. Hasil yang tersusun ke bawah akan memudahkan penyusunan output
> berbagai bentuk (termasuk output kekanan yang sedang Anda minta dan tidak
> ditanggapi itu).
>
> Proses text to columns bisa di-record macro (anda coba sendiri ya) dan
> bisa juga disusun dengan formula (sampai sekarang, ndak ada BeExceller yang
> tertarik melakukannya).
>
> ;)
> met moncoba
> cemunguuud...
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
> 2014-08-20 14:45 GMT+10:00 Emi emilestariklcc@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Guru dan teman BeExcel,
> Saya ada raw data seperti di kolum A.
> Hasil yang saya harapkan adalah sebuah table yang menunjukkan status secara
> lebih jelas di setiap kolom tanggal.
> Sekiaranya status "P" output nya adalah "/"
> jika blank (tidak ditulis apa apa) outputnya "0", jika H atau X tetap
> sama.
> Terima kasih
> -Emi Lestari
>
>
>
>
>
>
>
>
>

Wed Aug 27, 2014 6:34 am (PDT) . Posted by:

"D4N1����" dhanie_umarie

السَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ
Maaf nih mau tanya, ane menggunakan perintah print dg commandbutton, satu
dua kalih berjalan lancar… tapi semakin sering diklik ukurannya semakin
mengecil sampai hanya sebesar titik. Sdh di kotak katik format kontrolnya
dg mencentang lock aspect rasionya blm ada perubahan..
Mhn bantuan teman² semua.
Terimakasih.

Wed Aug 27, 2014 8:56 pm (PDT) . Posted by:

"ris ha" har1sn.excel

Assalamu'alaikum para master Excel, maaf mau tanya lagi.

Bagaimana caranya agar hasil pencarian dari script macro dibawah ini menjadi seperti pada gambar terlampir yaitu tampilan kolom excel tidak berubah, jadi hanya rownya saja yang berubah. Mohon bantuannya. Terima kasih

Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("Masukkan Data Yang Akan Dicari")
    If Trim(FindString) <> "" Then
        With Sheets("Sheet1").Range("G:H", "J:K")
        Set Rng = .Find(What:=FindString, _
        After:=.Cells(1), _
        LookIn:=xlFormulas, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious, _
        MatchCase:=False)
    If Not Rng Is Nothing Then
        Application.Goto Rng, True
        Else
            MsgBox "Data Tidak Ada"
    End If
        End With
    End If

Wed Aug 27, 2014 8:59 pm (PDT) . Posted by:

"ris ha" har1sn.excel

Assalamu'alaikum. Mohon bantuannya lagi pada para master Excel. 

Bagiamana macronya untuk membuat tombol print atau cetak dengan 4 kondisi, yaitu
1. Jika A1 < A2, maka keluar pesan ANDA BENAR
2. Jika A1 > A2, maka keluar pesan A1 harus lebih kecil dari A2
3. Jika A1 = A2, maka keluar pesan ANDA JUGA BENAR
4. Jika A1 & A2 = "" (Kosong), maka keluar pesan ISI DULU DATA A1 & A2

Berikut saya lampirkan gambarnya. Terima kasih

Wed Aug 27, 2014 11:43 pm (PDT) . Posted by:

"Nang Agus"

Dear Haris,

Cetak dimana ya?

coba cekrip:

a = Range("A1").Value
b = Range("A2").Value
If a = 0 Then MsgBox "ISI DULU DATA A1 "
If b = 0 Then MsgBox "ISI DULU DATA A2 "
If (a < b And a > 0) Then MsgBox "ANDA BENAR"
Exit Sub
If a > b Then MsgBox "A1 harus lebih kecil dari A2"
Exit Sub
If a = b Then MsgBox "ANDA JUGA BENAR"

salam
NangAgus

2014-08-28 10:51 GMT+07:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum. Mohon bantuannya lagi pada para master Excel.
>
> Bagiamana macronya untuk membuat tombol print atau cetak dengan 4 kondisi,
> yaitu
> 1. Jika A1 < A2, maka keluar pesan ANDA BENAR
> 2. Jika A1 > A2, maka keluar pesan A1 harus lebih kecil dari A2
> 3. Jika A1 = A2, maka keluar pesan ANDA JUGA BENAR
> 4. Jika A1 & A2 = "" (Kosong), maka keluar pesan ISI DULU DATA A1 & A2
>
> Berikut saya lampirkan gambarnya. Terima kasih
>
>
>

Wed Aug 27, 2014 11:48 pm (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Coba jalan-jalan ke blog milis, khususnya bagian IF dengan VBA yang ada
disini <http://b-excel.blogspot.com/2013/08/belajarvba-008-blok-if.html>.

Wassalamu'alaikum Wr. Wb.
Kid.

2014-08-28 13:51 GMT+10:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum. Mohon bantuannya lagi pada para master Excel.
>
> Bagiamana macronya untuk membuat tombol print atau cetak dengan 4 kondisi,
> yaitu
> 1. Jika A1 < A2, maka keluar pesan ANDA BENAR
> 2. Jika A1 > A2, maka keluar pesan A1 harus lebih kecil dari A2
> 3. Jika A1 = A2, maka keluar pesan ANDA JUGA BENAR
> 4. Jika A1 & A2 = "" (Kosong), maka keluar pesan ISI DULU DATA A1 & A2
>
> Berikut saya lampirkan gambarnya. Terima kasih
>
>
>

Wed Aug 27, 2014 11:12 pm (PDT) . Posted by:

"Nang Agus"

Pak Liem,

Dicoba cekrip begini pak.

Private Sub CommandButton2_Click()
Dim pileku As String
Dim celladd As String
pileku = InputBox(Prompt:="Ketikkan Nama file", _
Title:="Masukkan Nama File", Default:="A.xlsx")
Windows(pileku).Activate
Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 12).Address(False, False)
Sheets("sheet1").Range("B3:" & celladd).Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
Windows(pileku).Activate
Sheets("sheet1").Range("B34:N47").Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

Untuk cell N47 belum saya buat, coba diganti.
Salam

NangAgus

2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> End Sub
> salam
> liem
>
>
> Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
> untuk bunyi yang ini
>
> Sheets("sheet1").Range("B3:N16").Copy
> kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak
> kalo yang di copy itu
> B3:N3 lalu di xldown baru di kopy.
>
> untuk yang dari pak kid belum saya coba
>
> salam
> liem
>
>
> Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Dear Pak Liem!
> Coba Macronya dicoba dahulu seperti ini:
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("B3:N16").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N47").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> End Sub
>
> Salam
> NangAgus
>
> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
> > ini saya coba lampirkan file yang sudah saya dumi kan.
> >
> >
> >
> >
> >
> >
> > Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
> > [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >
> >
> >
> >
> >
> >
> > Dear Pak Liem.
> >
> >
> > Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
> > ngopinya yang manual.
> > Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
> > A1. atau dapat pula diketikkan di userform yang kita buat. Range
> > tersebut kita gunakan untuk acuan Kopi.
> > Kira-kira begini cekripnya:
> > Range(sheet1.range(A1).value).copy
> >
> >
> > Wasalam
> > NangAgus
> >
> >
> > On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> > <belajar-excel@yahoogroups.com> wrote:
> >> pak agus..
> >> nah itu pak agus masalahnya..
> >> gambaran manualnya begini pak
> >>
> >>
> >> saya buka 2 workbok A dan B.
> >> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin manual)
> >> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
> >> ctrl+shift+tanda
> >> panah bawah...lalu saya pilih satu cell dibawahnya
> >> lalu saya paste spesial.
> >>
> >>
> >> nah yang ingin saya wakilkan ke makro adalah proses
> >> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
> >> satu
> >> cell dibawahnya
> >> lalu saya paste spesial value.
> >>
> >>
> >> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
> >> tidah
> >> aktip.
> >>
> >>
> >> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
> >> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >>
> >>
> >>
> >>
> >>
> >>
> >> Dear Pak Liem,
> >>
> >>
> >> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
> >> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
> >> untuk masak belum ada. belikan dulu dong pak!
> >> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
> >>
> >>
> >> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
> >> menjadi:
> >> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> >>
> >>
> >> Salam
> >> NangAgus
> >>
> >>
> >> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> >> <belajar-excel@yahoogroups.com> wrote:
> >>> pak hk dan mr.kid
> >>
> >>>
> >>>
> >>> Sub Macro4()
> >>> Range("f3").End(xlDown).Offset(1).Select
> >>> Selection.PasteSpecial Paste:=xlPasteValues
> >>> End Sub
> >>>
> >>>
> >>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
> >>> menambahkan sekrip paste spesial masih debug.
> >>> (karena keterbatasan pengetahuan saya)
> >>>
> >>>
> >>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
> >>> itu
> >>> datanya per tanggal
> >>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
> >>> A12 berisi 29 agt 2014 B14:K30 berisi data
> >>>
> >>>
> >>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
> >>> ke
> >>> workbook B dengan bantuan si makro tersebut.
> >>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
> >>> manual
> >
> >>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
> >>> (kedua
> >>> workbook dalam keadaan terbuka)
> >>>
> >>>
> >>> (maksudnya biar workbook B bisa berkaidah data yang baik)
> >>>
> >>>
> >>>
> >>>
> >>> salam
> >>> liem
> >>>
> >>>
> >>>
> >>>
> >
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
> >>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Hai Liem,
> >>>
> >>>
> >>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
> >>> di
> >>> F11 (1 cell dibawah cell terakhir data kontinyu)
> >>> Range("f3").end(xldown).offset(1).activate
> >>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
> >>> xlpastevalues (jika ingin paste special values), dsb
> >>>
> >>>
> >>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
> >>> sini.
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Wassalam,
> >>> Kid.
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
> >>> [belajar-excel] <belajar-excel@yahoogroups.com>:
> >>>
> >>>
> >>>
> >>>>
> >>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
> >>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select
> >>>> 1
> >>>> cel dibawahnya setelah dilakukan xldown
> >>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
> >>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
> >>>>mohon arahan skripnya seperti apa..
> >>>
> >>>>
> >>>>
> >>>>
> >>>>Sub Macro4()
> >>>> Range("F3").Select
> >>>> Range(Selection, Selection.End(xlDown)).Select
> >>>>End Sub
> >>>>
> >>>>
> >>>>salam
> >>>>
> >>>
> >>>>
> >>
> >>>>liem
> >>>>
> >>>
> >>>
> >>>
> >>
> >>
> >>
> >
> >
> >
>
>
>
>
>
>

Thu Aug 28, 2014 12:03 am (PDT) . Posted by:

"Liem Suliem" liemsuliem

pak agus.. alhamdulilah

sukses pak maksih pak, dan semua teman2..yang berkenan membantu..
berikut saya sertakan file yang sudah solved

liem

Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 
Pak Liem,

Dicoba cekrip begini pak.

Private Sub CommandButton2_Click()
Dim pileku As String
Dim celladd As String
pileku = InputBox(Prompt:="Ketikkan Nama file", _
          Title:="Masukkan Nama File", Default:="A.xlsx")
    Windows(pileku).Activate

    Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
    celladd = ActiveCell.Offset(-1, 12).Address(False, False)
   Sheets("sheet1").Range("B3:" & celladd).Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
    Windows(pileku).Activate
    Sheets("sheet1").Range("B34:N47").Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

Untuk cell N47 belum saya buat, coba diganti.
Salam

NangAgus

2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:


>sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>
>
>Private Sub CommandButton2_Click()
>Dim pileku As String
>pileku = InputBox(Prompt:="Ketikkan Nama file", _

>Title:="Masukkan Nama
File", Default:="A.xlsx")
>Windows(pileku).Activate
>Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>
>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>Windows(pileku).Activate
>Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>
>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
>End Sub
>
>salam
>liem
>
>
>
>
>Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>

>makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
>untuk bunyi yang ini
>
>Sheets("sheet1").Range("B3:N16").Copy
>kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak kalo yang di copy itu
>B3:N3 lalu di xldown baru di kopy.
>
>
>untuk yang dari pak kid belum saya coba
>
>
>
>salam
>liem
>
>
>
>
>Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>

>
>

>Dear Pak Liem!
>Coba Macronya dicoba dahulu seperti ini:
>
>Private Sub CommandButton2_Click()
>Dim pileku As String
>pileku = InputBox(Prompt:="Ketikkan Nama file", _
>Title:="Masukkan Nama File", Default:="A.xlsx")
>Windows(pileku).Activate
>Sheets("sheet1").Range("B3:N16").Copy
>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>Windows(pileku).Activate
>Sheets("sheet1").Range("B34:N47").Copy
>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
>End Sub
>
>Salam
>NangAgus
>

>On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
><belajar-excel@yahoogroups.com> wrote:
>> ini saya coba lampirkan file yang sudah saya dumi kan.
>>
>>
>>
>>
>>
>>
>> Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>>
>>
>>
>> Dear Pak Liem.
>>
>>
>> Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
>> ngopinya yang manual.
>> Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
>> A1. atau dapat pula diketikkan di userform yang kita buat. Range
>> tersebut kita gunakan untuk acuan Kopi.
>> Kira-kira begini cekripnya:
>> Range(sheet1.range(A1).value).copy
>>
>>
>> Wasalam
>> NangAgus
>>
>>
>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>> <belajar-excel@yahoogroups.com> wrote:
>>> pak agus..
>>> nah itu pak agus masalahnya..
>>> gambaran manualnya begini pak
>>>
>>>
>>> saya buka 2 workbok A dan B.
>>> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin manual)
>>> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
>>> ctrl+shift+tanda
>>> panah bawah...lalu saya pilih satu cell dibawahnya
>>> lalu saya paste spesial.
>>>
>>>
>>> nah yang ingin saya wakilkan ke makro adalah proses
>>> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
>>> satu
>>> cell dibawahnya
>>> lalu saya paste spesial value.
>>>
>>>

>>> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
>>> tidah
>>> aktip.
>>>
>>>
>>> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>
>>>
>>>
>>>
>>>
>>>
>>> Dear Pak Liem,
>>>
>>>
>>> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
>>> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
>>> untuk masak belum ada. belikan dulu dong pak!
>>> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
>>>
>>>
>>> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
>>> menjadi:
>>> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>>
>>>
>>> Salam
>>> NangAgus
>>>
>>>
>>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>>> <belajar-excel@yahoogroups.com> wrote:
>>>> pak hk dan mr.kid
>>>
>>>>
>>>>
>>>> Sub Macro4()
>>>> Range("f3").End(xlDown).Offset(1).Select
>>>> Selection.PasteSpecial Paste:=xlPasteValues
>>>> End Sub
>>>>
>>>>
>>>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
>>>> menambahkan sekrip paste spesial masih debug.
>>>> (karena keterbatasan pengetahuan saya)
>>>>
>>>>
>>>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
>>>> itu
>>>> datanya per tanggal
>>>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
>>>> A12 berisi 29 agt 2014 B14:K30 berisi data
>>>>
>>>>
>>>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
>>>> ke
>>>> workbook B dengan bantuan si makro tersebut.
>>>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
>>>> manual
>>
>>>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
>>>> (kedua
>>>> workbook dalam keadaan terbuka)
>>>>
>>>>
>>>> (maksudnya biar workbook B bisa berkaidah data yang baik)
>>>>
>>>>
>>>>
>>>>
>>>> salam
>>>> liem
>>>>

>>>>
>>>>
>>>>
>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
>>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> Hai Liem,
>>>>
>>>>
>>>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
>>>> di
>>>> F11 (1 cell dibawah cell terakhir data kontinyu)
>>>> Range("f3").end(xldown).offset(1).activate
>>>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
>>>> xlpastevalues (jika ingin paste special values), dsb
>>>>
>>>>
>>>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
>>>> sini.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> Wassalam,
>>>> Kid.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>
>>>>
>>>>>
>>>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
>>>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select
>>>>> 1
>>>>> cel dibawahnya setelah dilakukan xldown
>>>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
>>>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
>>>>>mohon arahan skripnya seperti apa..
>>>>
>>>>>
>>>>>
>>>>>
>>>>>Sub Macro4()
>>>>> Range("F3").Select
>>>>> Range(Selection, Selection.End(xlDown)).Select
>>>>>End Sub
>>>>>
>>>>>
>>>>>salam
>>>>>
>>>>
>>>>>
>>>
>>>>>liem
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
>
>

=====================================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html

Posting lowongan kerja : ke link tersebut dan klik New Topic
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-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