15 New Messages
Digest #1747
2a
Re: Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro by "sin.ur4t@yahoo.com" sin.ur4t
2b
Re: Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro by "hendrik karnadi" hendrikkarnadi
2c
Re: Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro by "hendrik karnadi" hendrikkarnadi
Messages
Wed Aug 29, 2012 8:57 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear Mbak Titis,
Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat terstruktur, mis,
If Condition Then
bla bla bla
Else
la la la
End If
Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda maksud dengan :
"apakah bisa rumus diatas di sum dengan rumus dibawah ini"
Salam,
Hendrik Karnadi
________________________________
From: Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, 29 August 2012, 22:12
Subject: Re: [belajar-excel] MACRO
terimakasih untuk jawabannya Mr.Kid,
tanya lagi..
kalau saya punya rumus dibawah ini:
Sub coba1()
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F7") = "D"
Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F7") = "N"
Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
Range("F135").Select
ActiveCell.FormulaR1C1 = 0
End If
End If
End If
End Sub
apakah bisa rumus diatas di sum dengan rumus dibawah ini:
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F8") = "D" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F8") = "N" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
Range("F135").Select
ActiveCell.FormulaR1C1 = 0
End If
End If
End If
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, August 29, 2012 9:41 PM
Subject: Re: [belajar-excel] MACRO
Koreksi Mods...
Formula :
=SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula :
=SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
dan di-copy ke cell lain.
Wassalam,
Kid.
2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
>salam kenal.
>
>terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
>langsung saja.
>saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
>=SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>
>bagaimana menuliskanya di macro?
>dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana menuliskannya di macro?
>
>terimaksih banyak atas bantuannya
>
>--- Mods ---
>Selamat bergabung dengan milis Belajar-Excel.
>
>File lampiran dapat membantu BeExceller yang ingin turut berbagi alternatif solusi.
>
>Dari penjelasan mbak Wulan di atas :
>Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan dipasang pada cells lain yang pada range A3:G10.
>
>Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan menjadi :
>=SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
>Apakah benar formula di G10 akan berbunyi demikian ?
>------------
>
Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat terstruktur, mis,
If Condition Then
bla bla bla
Else
la la la
End If
Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda maksud dengan :
"apakah bisa rumus diatas di sum dengan rumus dibawah ini"
Salam,
Hendrik Karnadi
____________
From: Titis Ardiyana Wulandari <tiez_2289@yahoo.
To: "belajar-excel@
Sent: Wednesday, 29 August 2012, 22:12
Subject: Re: [belajar-excel] MACRO
terimakasih untuk jawabannya Mr.Kid,
tanya lagi..
kalau saya punya rumus dibawah ini:
Sub coba1()
Range("F135"
ActiveCell.FormulaR
Else
If Range("F7") = "D"
Then
Range("F135"
ActiveCell.FormulaR
Else
If Range("F7") = "N"
Then
Range("F135"
ActiveCell.FormulaR
Else
Range("F135"
ActiveCell.FormulaR
End If
End If
End If
End Sub
apakah bisa rumus diatas di sum dengan rumus dibawah ini:
Range("F135"
ActiveCell.FormulaR
Else
If Range("F8") = "D" Then
Range("F135"
ActiveCell.FormulaR
Else
If Range("F8") = "N" Then
Range("F135"
ActiveCell.FormulaR
Else
Range("F135"
ActiveCell.FormulaR
End If
End If
End If
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, August 29, 2012 9:41 PM
Subject: Re: [belajar-excel] MACRO
Koreksi Mods...
Formula :
=SUM((IF(f8=
adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula :
=SUM((IF(A1=
dan di-copy ke cell lain.
Wassalam,
Kid.
2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
>salam kenal.
>
>terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
>langsung saja.
>saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
>=SUM((IF(A1=
>
>bagaimana menuliskanya di macro?
>dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana menuliskannya di macro?
>
>terimaksih banyak atas bantuannya
>
>--- Mods ---
>Selamat bergabung dengan milis Belajar-Excel.
>
>File lampiran dapat membantu BeExceller yang ingin turut berbagi alternatif solusi.
>
>Dari penjelasan mbak Wulan di atas :
>Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan dipasang pada cells lain yang pada range A3:G10.
>
>Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan menjadi :
>=SUM((IF(f8=
>
>Apakah benar formula di G10 akan berbunyi demikian ?
>-----------
>
Wed Aug 29, 2012 9:05 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
mbak Wulan yang baik,
Sebenarnya permasalahan yang diutarakan mbak Wulan belum sepenuhnya bisa
terbayangkan dengan pasti.
Kira-kira, bolehkah BeExceller mengetahui duduk perkara proses yang akan
disusun ?
Seperti yang diutarakan mods saat moderasi,
formula A3
=SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
merujuk pada suatu range secara bebas (tidak ada tanda $ sebelum indeks
kolom maupun indeks baris).
Kemungkinan 1 :
Andaikan, A1 dan A2 adalah cell input yang tetap (hanya 2 cell ini yang
diisi user), maka pertanyaannya :
'apa maksud dari "dan bila saya ingin menerapkan rumus tsb dari A3:G10"
Kemungkinan 2 :
Nilai A3:G10 akan diberi nilai yang sama seperti nilai A3. Apa benar
demikian ?
Kemungkinan 3 :
Hanya mbak Wulan yang tahu persis maksudnya.
Kemudian, tentang prosedur :
Sub coba1()
'if-nya dimana ya ?
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else 'else dari blok if yang mana ya ?
If Range("F7") = "D" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F7") = "N" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
Range("F135").Select
ActiveCell.FormulaR1C1 = 0
End If
End If
End If 'akhir dari blok if yang mana ya ?
End Sub
ketika muncul pertanyaan :
"apakah bisa rumus diatas di sum dengan rumus dibawah ini:"
bisa jadi (kira-kira) yang dimaksud mbak Wulan adalah nilai di cell F3
adalah jumlah cacah cell F7:F8 yang berisi karakter D atau N (bener gak ya
?)
Sederhananya, kira-kira formula yang dituliskan di cell F135 akan berbunyi
(antara lain) :
=SUM(COUNTIF(F7:F8,{"D","N"})) *-> array formula*
=COUNTIF(F7:F8,"D")+COUNTIF(F7:F8,"N")
=SUMPRODUCT(COUNTIF(F7:F8,{"D","N"}))
rujukan ke range F7:F8 bisa dinamiskan, misalnya dengan sebuah nama range.
Jadi, dengan asumsi yang di-*hijau *di atas, beberapa alternatif formula
yang bisa ditulis langsung kedalam cell oleh user, dituliskan oleh sebuah
prosedur seperti file terlampir.
Wassalam,
Kid.
2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
> **
>
>
> terimakasih untuk jawabannya Mr.Kid,
> tanya lagi..
> kalau saya punya rumus dibawah ini:
>
> Sub coba1()
>
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F7") = "D" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F7") = "N" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 0
> End If
> End If
> End If
> End Sub
>
> apakah bisa rumus diatas di sum dengan rumus dibawah ini:
>
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F8") = "D" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F8") = "N" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 0
> End If
> End If
> End If
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, August 29, 2012 9:41 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Koreksi Mods...
> Formula :
> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
> adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula
> :
> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
> dan di-copy ke cell lain.
>
> Wassalam,
> Kid.
>
>
> 2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
> **
>
> salam kenal.
>
> terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
> langsung saja.
> saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>
> bagaimana menuliskanya di macro?
> dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana
> menuliskannya di macro?
>
> terimaksih banyak atas bantuannya
>
> --- Mods ---
> Selamat bergabung dengan milis Belajar-Excel.
>
> File lampiran dapat membantu BeExceller yang ingin turut berbagi
> alternatif solusi.
>
> Dari penjelasan mbak Wulan di atas :
> Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan
> dipasang pada cells lain yang pada range A3:G10.
>
> Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu
> penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan
> menjadi :
> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
> Apakah benar formula di G10 akan berbunyi demikian ?
> ------------
>
>
>
>
>
>
Sebenarnya permasalahan yang diutarakan mbak Wulan belum sepenuhnya bisa
terbayangkan dengan pasti.
Kira-kira, bolehkah BeExceller mengetahui duduk perkara proses yang akan
disusun ?
Seperti yang diutarakan mods saat moderasi,
formula A3
=SUM((IF(A1=
merujuk pada suatu range secara bebas (tidak ada tanda $ sebelum indeks
kolom maupun indeks baris).
Kemungkinan 1 :
Andaikan, A1 dan A2 adalah cell input yang tetap (hanya 2 cell ini yang
diisi user), maka pertanyaannya :
'apa maksud dari "dan bila saya ingin menerapkan rumus tsb dari A3:G10"
Kemungkinan 2 :
Nilai A3:G10 akan diberi nilai yang sama seperti nilai A3. Apa benar
demikian ?
Kemungkinan 3 :
Hanya mbak Wulan yang tahu persis maksudnya.
Kemudian, tentang prosedur :
Sub coba1()
'if-nya dimana ya ?
Range("F135"
ActiveCell.FormulaR
Else 'else dari blok if yang mana ya ?
If Range("F7") = "D" Then
Range("F135"
ActiveCell.FormulaR
Else
If Range("F7") = "N" Then
Range("F135"
ActiveCell.FormulaR
Else
Range("F135"
ActiveCell.FormulaR
End If
End If
End If 'akhir dari blok if yang mana ya ?
End Sub
ketika muncul pertanyaan :
"apakah bisa rumus diatas di sum dengan rumus dibawah ini:"
bisa jadi (kira-kira) yang dimaksud mbak Wulan adalah nilai di cell F3
adalah jumlah cacah cell F7:F8 yang berisi karakter D atau N (bener gak ya
?)
Sederhananya, kira-kira formula yang dituliskan di cell F135 akan berbunyi
(antara lain) :
=SUM(COUNTIF(
=COUNTIF(F7:
=SUMPRODUCT(
rujukan ke range F7:F8 bisa dinamiskan, misalnya dengan sebuah nama range.
Jadi, dengan asumsi yang di-*hijau *di atas, beberapa alternatif formula
yang bisa ditulis langsung kedalam cell oleh user, dituliskan oleh sebuah
prosedur seperti file terlampir.
Wassalam,
Kid.
2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.
> **
>
>
> terimakasih untuk jawabannya Mr.Kid,
> tanya lagi..
> kalau saya punya rumus dibawah ini:
>
> Sub coba1()
>
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F7") = "D" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F7") = "N" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> Range("F135"
> ActiveCell.FormulaR
> End If
> End If
> End If
> End Sub
>
> apakah bisa rumus diatas di sum dengan rumus dibawah ini:
>
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F8") = "D" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F8") = "N" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> Range("F135"
> ActiveCell.FormulaR
> End If
> End If
> End If
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Wednesday, August 29, 2012 9:41 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Koreksi Mods...
> Formula :
> =SUM((IF(f8=
>
> adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula
> :
> =SUM((IF(A1=
> dan di-copy ke cell lain.
>
> Wassalam,
> Kid.
>
>
> 2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
> **
>
> salam kenal.
>
> terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
> langsung saja.
> saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
> =SUM((IF(A1=
>
> bagaimana menuliskanya di macro?
> dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana
> menuliskannya di macro?
>
> terimaksih banyak atas bantuannya
>
> --- Mods ---
> Selamat bergabung dengan milis Belajar-Excel.
>
> File lampiran dapat membantu BeExceller yang ingin turut berbagi
> alternatif solusi.
>
> Dari penjelasan mbak Wulan di atas :
> Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan
> dipasang pada cells lain yang pada range A3:G10.
>
> Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu
> penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan
> menjadi :
> =SUM((IF(f8=
>
> Apakah benar formula di G10 akan berbunyi demikian ?
> ------------
>
>
>
>
>
>
Wed Aug 29, 2012 5:39 pm (PDT) . Posted by:
"sin.ur4t@yahoo.com" sin.ur4t
Yth pak karnadi..
Rumusan makro yg bpk ajarkan sdh saya coba terapkan, bekerja dgn baik pd sheet baru (misal sheet 'medan0213' sesuai isi sel c3 pd sheet 'sumber'.
Msh ada 2 hal yg kiranya butuh petunjuk:
1. jika kita ingin membuat lagi sheet yg sama, maka akan terbentuk sheet 'medan0213(2)', karena sheet 'medan0213' sdh ada.. Sampai disini sdh sesuai..
Masalahnya adalah sub isisort tetap bekerja pada sheet yg pertama, sehingga sheet yg kedua tetap kosong.. Ini yg blm sesuai..
Bgmn revisi kode makronya pak agar (dlm hal sheet pertama sdh ada) sub isisort bekerja pd sheet yg kedua??
Dlm hal ini Sepertinya yg belum pas dari sub isisort adlh pd bagian "mybase=sheets("sumber").range("c3").value" -->tambahan kode utk sheet baru, sehingga sub isisort TIDAK BEKERJA pada sub buatsheets pd bagian mysheet.name=mybase & "(" & mysuffix & ")".
2. Setelah terbentuk sheet baru (mis: sheet 'medan0213') atas penugasan sub buatsheets, maka giliran sub isisort bertugas.
Sub isisort akan mengaktifkan sheet 'sumber', mengambil data yg sesuai kriteria, lalu mengaktifkan sheet 'medan0213', dan menuliskan hasilnya.
Bgmn revisi makro agar sub isisort bisa langsung menuliskan hasilnya pd sheet 'medan0213' tanpa harus terlebih dahulu mengaktifkan sheet 'sumber'??
Brgkl bahasa verbalnya begini: data pd sheet 'sumber' yg sesuai kriteria dikumpulkan semua terlebih dahulu, lalu dibentuk sheet baru dan diberi nama sesuai isi sel c3 (mis: sheet 'medan0213'), lalu langsung dituliskan hasilnya di sheet tsb..
Saya sdh coba utak atik tapi gagal. :D
Mhn maaf terlalu merepotkan, bimbingan bpk dan pakar2 lain saya harapkan.
Terima kasih sebelumnya.
Wassalam
Sinurat
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 27 Aug 2012 18:39:35
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
sama2 Pak.
Salam,
Hendrik
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Tuesday, 28 August 2012, 0:35
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Makasih pak karnadi atensi dan bimbingannya.. Bsk akan saya coba menerapkan rumusnya pada kasus aktual, dan hasilnya saya laporkan kembali ke milis. Makasih sekali lagi..
Salam
Sinurat
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 27 Aug 2012 09:54:58 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Sortir yang saya lakukan terdiri dari 2 tahap:
- berdasarkan kolom L
- berdasarkan warna jika data di kolom B lebih dari 1
Semoga pas sesuai kebutuhan
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Monday, 27 August 2012, 13:25
Subject: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Salam be-excel
Yth. Para pakar dan rekan2 milis,
Pada module 1 (file terlampir) dgn bimbingan para pakar milis sdh disusun dua buah prosedur sub, yaitu:
Makro1 : sub buatsheets() --> membuat sheet baru dan memberi nama secara otomatis.
Makro2 : sub isidata() -->mengambil data yg sesuai kriteria.
Pertanyaan:
1. Saat ini hasil penugasan makro2 tampil pd sheet yg sama, yakni sheet 'sumber'.. Bgmn revisi kode makro agar hasilnya tampil pd sheet baru hasil penugasan makro1??
2. Jika boleh, sekalian mohon bantuannya merevisi kode Makro2 agar hasilnya dpt tampil terurut sesuai kolom L sheet 'sumber' dari yg terbesar hingga yg terkecil..
Mohon dibantu memecahkan masalah diatas. Terima kasih sebelumnya.
Salam
Imam F. Sinurat - Sumut
Powered by Telkomsel BlackBerry®
Rumusan makro yg bpk ajarkan sdh saya coba terapkan, bekerja dgn baik pd sheet baru (misal sheet 'medan0213' sesuai isi sel c3 pd sheet 'sumber'.
Msh ada 2 hal yg kiranya butuh petunjuk:
1. jika kita ingin membuat lagi sheet yg sama, maka akan terbentuk sheet 'medan0213(2)
Masalahnya adalah sub isisort tetap bekerja pada sheet yg pertama, sehingga sheet yg kedua tetap kosong.. Ini yg blm sesuai..
Bgmn revisi kode makronya pak agar (dlm hal sheet pertama sdh ada) sub isisort bekerja pd sheet yg kedua??
Dlm hal ini Sepertinya yg belum pas dari sub isisort adlh pd bagian "mybase=sheets(
2. Setelah terbentuk sheet baru (mis: sheet 'medan0213') atas penugasan sub buatsheets, maka giliran sub isisort bertugas.
Sub isisort akan mengaktifkan sheet 'sumber', mengambil data yg sesuai kriteria, lalu mengaktifkan sheet 'medan0213', dan menuliskan hasilnya.
Bgmn revisi makro agar sub isisort bisa langsung menuliskan hasilnya pd sheet 'medan0213' tanpa harus terlebih dahulu mengaktifkan sheet 'sumber'??
Brgkl bahasa verbalnya begini: data pd sheet 'sumber' yg sesuai kriteria dikumpulkan semua terlebih dahulu, lalu dibentuk sheet baru dan diberi nama sesuai isi sel c3 (mis: sheet 'medan0213')
Saya sdh coba utak atik tapi gagal. :D
Mhn maaf terlalu merepotkan, bimbingan bpk dan pakar2 lain saya harapkan.
Terima kasih sebelumnya.
Wassalam
Sinurat
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Mon, 27 Aug 2012 18:39:35
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
sama2 Pak.
Salam,
Hendrik
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Tuesday, 28 August 2012, 0:35
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Makasih pak karnadi atensi dan bimbingannya.
Salam
Sinurat
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Mon, 27 Aug 2012 09:54:58 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Sortir yang saya lakukan terdiri dari 2 tahap:
- berdasarkan kolom L
- berdasarkan warna jika data di kolom B lebih dari 1
Semoga pas sesuai kebutuhan
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Monday, 27 August 2012, 13:25
Subject: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Salam be-excel
Yth. Para pakar dan rekan2 milis,
Pada module 1 (file terlampir) dgn bimbingan para pakar milis sdh disusun dua buah prosedur sub, yaitu:
Makro1 : sub buatsheets() --> membuat sheet baru dan memberi nama secara otomatis.
Makro2 : sub isidata() -->mengambil data yg sesuai kriteria.
Pertanyaan:
1. Saat ini hasil penugasan makro2 tampil pd sheet yg sama, yakni sheet 'sumber'.. Bgmn revisi kode makro agar hasilnya tampil pd sheet baru hasil penugasan makro1??
2. Jika boleh, sekalian mohon bantuannya merevisi kode Makro2 agar hasilnya dpt tampil terurut sesuai kolom L sheet 'sumber' dari yg terbesar hingga yg terkecil..
Mohon dibantu memecahkan masalah diatas. Terima kasih sebelumnya.
Salam
Imam F. Sinurat - Sumut
Powered by Telkomsel BlackBerry®
Wed Aug 29, 2012 7:15 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Yth. Pak Sinurat.
Kayaknya agak sulit buat saya apalagi rekan2 lainnya tanpa lampiran Workbook dan penjelasan permasalahannya pada sheet ybs.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Thursday, 30 August 2012, 3:28
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Yth pak karnadi..
Rumusan makro yg bpk ajarkan sdh saya coba terapkan, bekerja dgn baik pd sheet baru (misal sheet 'medan0213' sesuai isi sel c3 pd sheet 'sumber'.
Msh ada 2 hal yg kiranya butuh petunjuk:
1. jika kita ingin membuat lagi sheet yg sama, maka akan terbentuk sheet 'medan0213(2)', karena sheet 'medan0213' sdh ada.. Sampai disini sdh sesuai..
Masalahnya adalah sub isisort tetap bekerja pada sheet yg pertama, sehingga sheet yg kedua tetap kosong.. Ini yg blm sesuai..
Bgmn revisi kode makronya pak agar (dlm hal sheet pertama sdh ada) sub isisort bekerja pd sheet yg kedua??
Dlm hal ini Sepertinya yg belum pas dari sub isisort adlh pd bagian "mybase=sheets("sumber").range("c3").value" -->tambahan kode utk sheet baru, sehingga sub isisort TIDAK BEKERJA pada sub buatsheets pd bagian mysheet.name=mybase "(" mysuffix ")".
2. Setelah terbentuk sheet baru (mis: sheet 'medan0213') atas penugasan sub buatsheets, maka giliran sub isisort bertugas.
Sub isisort akan mengaktifkan sheet 'sumber', mengambil data yg sesuai kriteria, lalu mengaktifkan sheet 'medan0213', dan menuliskan hasilnya.
Bgmn revisi makro agar sub isisort bisa langsung menuliskan hasilnya pd sheet 'medan0213' tanpa harus terlebih dahulu mengaktifkan sheet 'sumber'??
Brgkl bahasa verbalnya begini: data pd sheet 'sumber' yg sesuai kriteria dikumpulkan semua terlebih dahulu, lalu dibentuk sheet baru dan diberi nama sesuai isi sel c3 (mis: sheet 'medan0213'), lalu langsung dituliskan hasilnya di sheet tsb..
Saya sdh coba utak atik tapi gagal. :D
Mhn maaf terlalu merepotkan, bimbingan bpk dan pakar2 lain saya harapkan.
Terima kasih sebelumnya.
Wassalam
Sinurat
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 27 Aug 2012 18:39:35 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
sama2 Pak.
Salam,
Hendrik
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Tuesday, 28 August 2012, 0:35
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Makasih pak karnadi atensi dan bimbingannya.. Bsk akan saya coba menerapkan rumusnya pada kasus aktual, dan hasilnya saya laporkan kembali ke milis. Makasih sekali lagi..
Salam
Sinurat
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 27 Aug 2012 09:54:58 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Sortir yang saya lakukan terdiri dari 2 tahap:
- berdasarkan kolom L
- berdasarkan warna jika data di kolom B lebih dari 1
Semoga pas sesuai kebutuhan
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Monday, 27 August 2012, 13:25
Subject: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Salam be-excel
Yth. Para pakar dan rekan2 milis,
Pada module 1 (file terlampir) dgn bimbingan para pakar milis sdh disusun dua buah prosedur sub, yaitu:
Makro1 : sub buatsheets() --> membuat sheet baru dan memberi nama secara otomatis.
Makro2 : sub isidata() -->mengambil data yg sesuai kriteria.
Pertanyaan:
1. Saat ini hasil penugasan makro2 tampil pd sheet yg sama, yakni sheet 'sumber'.. Bgmn revisi kode makro agar hasilnya tampil pd sheet baru hasil penugasan makro1??
2. Jika boleh, sekalian mohon bantuannya merevisi kode Makro2 agar hasilnya dpt tampil terurut sesuai kolom L sheet 'sumber' dari yg terbesar hingga yg terkecil..
Mohon dibantu memecahkan masalah diatas. Terima kasih sebelumnya.
Salam
Imam F. Sinurat - Sumut
Powered by Telkomsel BlackBerry®
Kayaknya agak sulit buat saya apalagi rekan2 lainnya tanpa lampiran Workbook dan penjelasan permasalahannya pada sheet ybs.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Thursday, 30 August 2012, 3:28
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Yth pak karnadi..
Rumusan makro yg bpk ajarkan sdh saya coba terapkan, bekerja dgn baik pd sheet baru (misal sheet 'medan0213' sesuai isi sel c3 pd sheet 'sumber'.
Msh ada 2 hal yg kiranya butuh petunjuk:
1. jika kita ingin membuat lagi sheet yg sama, maka akan terbentuk sheet 'medan0213(2)
Masalahnya adalah sub isisort tetap bekerja pada sheet yg pertama, sehingga sheet yg kedua tetap kosong.. Ini yg blm sesuai..
Bgmn revisi kode makronya pak agar (dlm hal sheet pertama sdh ada) sub isisort bekerja pd sheet yg kedua??
Dlm hal ini Sepertinya yg belum pas dari sub isisort adlh pd bagian "mybase=sheets(
2. Setelah terbentuk sheet baru (mis: sheet 'medan0213') atas penugasan sub buatsheets, maka giliran sub isisort bertugas.
Sub isisort akan mengaktifkan sheet 'sumber', mengambil data yg sesuai kriteria, lalu mengaktifkan sheet 'medan0213', dan menuliskan hasilnya.
Bgmn revisi makro agar sub isisort bisa langsung menuliskan hasilnya pd sheet 'medan0213' tanpa harus terlebih dahulu mengaktifkan sheet 'sumber'??
Brgkl bahasa verbalnya begini: data pd sheet 'sumber' yg sesuai kriteria dikumpulkan semua terlebih dahulu, lalu dibentuk sheet baru dan diberi nama sesuai isi sel c3 (mis: sheet 'medan0213')
Saya sdh coba utak atik tapi gagal. :D
Mhn maaf terlalu merepotkan, bimbingan bpk dan pakar2 lain saya harapkan.
Terima kasih sebelumnya.
Wassalam
Sinurat
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Mon, 27 Aug 2012 18:39:35 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
sama2 Pak.
Salam,
Hendrik
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Tuesday, 28 August 2012, 0:35
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Makasih pak karnadi atensi dan bimbingannya.
Salam
Sinurat
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Mon, 27 Aug 2012 09:54:58 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Sortir yang saya lakukan terdiri dari 2 tahap:
- berdasarkan kolom L
- berdasarkan warna jika data di kolom B lebih dari 1
Semoga pas sesuai kebutuhan
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Monday, 27 August 2012, 13:25
Subject: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Salam be-excel
Yth. Para pakar dan rekan2 milis,
Pada module 1 (file terlampir) dgn bimbingan para pakar milis sdh disusun dua buah prosedur sub, yaitu:
Makro1 : sub buatsheets() --> membuat sheet baru dan memberi nama secara otomatis.
Makro2 : sub isidata() -->mengambil data yg sesuai kriteria.
Pertanyaan:
1. Saat ini hasil penugasan makro2 tampil pd sheet yg sama, yakni sheet 'sumber'.. Bgmn revisi kode makro agar hasilnya tampil pd sheet baru hasil penugasan makro1??
2. Jika boleh, sekalian mohon bantuannya merevisi kode Makro2 agar hasilnya dpt tampil terurut sesuai kolom L sheet 'sumber' dari yg terbesar hingga yg terkecil..
Mohon dibantu memecahkan masalah diatas. Terima kasih sebelumnya.
Salam
Imam F. Sinurat - Sumut
Powered by Telkomsel BlackBerry®
Wed Aug 29, 2012 10:22 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Barangkali yang anda maksud seperti ini:
1. Bilamana Sheet yang paling baru sdh tebentuk maka tulis data hasil sortir sesuai kriteria pada Sheet tsb..
Karena nama Sheet untuk menyimpan hasil tsb mengacu kepada Sheet "sumber" Range("C3") maka isi sel ini harus diubah dulu, sehingga macronya akan menjadi seperti ini :
Sub buatsheets()
'membuat sheet baru dan dinamai sesuai dengan isi sel c3 sheet sumber...
Set mysheet = Worksheets.Add
mybase = Sheets("sumber").Range("c3").Value
mysuffix = 1
On Error Resume Next
mysheet.Name = mybase
Do Until Err.Number = 0
Err.Clear
mysuffix = mysuffix + 1
mysheet.Name = mybase & "(" & mysuffix & ")"
Loop
Sheets("Sumber").Range("C3").Value = ActiveSheet.Name 'tambahkan code ini
End Sub
2. Pertanyaan ini (revisi macro) memang memancing kreatifitas. Agar kreatifitas bermanfaat tentunya harus jelas dulu apa yang ingin kita capai, mis. penghematan waktu.
Ada dua hal yang perlu dipertimbangkan
- Kriteria yang anda pakai ada pada Sheet "sumber" bukan berasal dari variabel yang dibuat dalam program,
jadi akan lebih mudah menselect (mengaktifkan) dulu Sheet "sumber" untuk mengambil krterianya
- Dikumpulkan dulu yang sesuai kriteria lalu ditulis pada Sheet baru yang diberi nama seuai Sheet "sumber" Range("c3")
Mungkin akan ada perbedaan waktu jika datanya sudah berjumlah ratusan ribu
Salam,
Hendrik Karnadi
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Thursday, 30 August 2012, 9:15
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Yth. Pak Sinurat.
Kayaknya agak sulit buat saya apalagi rekan2 lainnya tanpa lampiran Workbook dan penjelasan permasalahannya pada sheet ybs.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Thursday, 30 August 2012, 3:28
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Yth pak karnadi..
Rumusan makro yg bpk ajarkan sdh saya coba terapkan, bekerja dgn baik pd sheet baru (misal sheet 'medan0213' sesuai isi sel c3 pd sheet 'sumber'.
Msh ada 2 hal yg kiranya butuh petunjuk:
1. jika kita ingin membuat lagi sheet yg sama, maka akan terbentuk sheet 'medan0213(2)', karena sheet 'medan0213' sdh ada.. Sampai disini sdh sesuai..
Masalahnya adalah sub isisort tetap bekerja pada sheet yg pertama, sehingga sheet yg kedua tetap kosong.. Ini yg blm sesuai..
Bgmn revisi kode makronya pak agar (dlm hal sheet pertama sdh ada) sub isisort bekerja pd sheet yg kedua??
Dlm hal ini Sepertinya yg belum pas dari sub isisort adlh pd bagian "mybase=sheets("sumber").range("c3").value" -->tambahan kode utk sheet baru, sehingga sub isisort TIDAK BEKERJA pada sub buatsheets pd bagian mysheet.name=mybase "(" mysuffix ")".
2. Setelah terbentuk sheet baru (mis: sheet 'medan0213') atas penugasan sub buatsheets,
maka giliran sub isisort bertugas.
Sub isisort akan mengaktifkan sheet 'sumber', mengambil data yg sesuai kriteria, lalu mengaktifkan sheet 'medan0213', dan menuliskan hasilnya.
Bgmn revisi makro agar sub isisort bisa langsung menuliskan hasilnya pd sheet 'medan0213' tanpa harus terlebih dahulu mengaktifkan sheet 'sumber'??
Brgkl bahasa verbalnya begini: data pd sheet 'sumber' yg sesuai kriteria dikumpulkan semua terlebih dahulu, lalu dibentuk sheet baru dan diberi nama sesuai isi sel c3 (mis: sheet 'medan0213'), lalu langsung dituliskan hasilnya di sheet tsb..
Saya sdh coba utak atik tapi gagal. :D
Mhn maaf terlalu merepotkan, bimbingan bpk dan pakar2 lain saya harapkan.
Terima kasih sebelumnya.
Wassalam
Sinurat
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 27 Aug 2012 18:39:35 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
sama2 Pak.
Salam,
Hendrik
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Tuesday, 28 August 2012, 0:35
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Makasih pak karnadi atensi dan bimbingannya.. Bsk akan saya coba menerapkan rumusnya pada kasus aktual, dan hasilnya saya laporkan kembali ke milis. Makasih sekali lagi..
Salam
Sinurat
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 27 Aug 2012 09:54:58 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Sortir yang saya lakukan terdiri dari 2 tahap:
- berdasarkan kolom L
- berdasarkan warna jika data di kolom B lebih dari 1
Semoga pas sesuai kebutuhan
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Monday, 27 August 2012, 13:25
Subject: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Salam be-excel
Yth. Para pakar dan rekan2 milis,
Pada module 1 (file terlampir) dgn bimbingan para pakar milis sdh disusun dua buah prosedur sub, yaitu:
Makro1 : sub buatsheets() --> membuat sheet baru dan memberi nama secara otomatis.
Makro2 : sub isidata() -->mengambil data yg sesuai kriteria.
Pertanyaan:
1. Saat ini hasil penugasan makro2 tampil pd sheet yg sama, yakni sheet 'sumber'.. Bgmn revisi kode makro agar hasilnya tampil pd sheet baru hasil penugasan makro1??
2. Jika boleh, sekalian mohon bantuannya merevisi kode Makro2 agar hasilnya dpt tampil terurut sesuai kolom L sheet 'sumber' dari yg terbesar hingga yg terkecil..
Mohon dibantu memecahkan masalah diatas. Terima kasih sebelumnya.
Salam
Imam F. Sinurat - Sumut
Powered by Telkomsel BlackBerry®
1. Bilamana Sheet yang paling baru sdh tebentuk maka tulis data hasil sortir sesuai kriteria pada Sheet tsb..
Karena nama Sheet untuk menyimpan hasil tsb mengacu kepada Sheet "sumber" Range("C3") maka isi sel ini harus diubah dulu, sehingga macronya akan menjadi seperti ini :
Sub buatsheets()
'membuat sheet baru dan dinamai sesuai dengan isi sel c3 sheet sumber...
Set mysheet = Worksheets.Add
mybase = Sheets("sumber"
mysuffix = 1
On Error Resume Next
mysheet.Name = mybase
Do Until Err.Number = 0
Err.Clear
mysuffix = mysuffix + 1
mysheet.Name = mybase & "(" & mysuffix & ")"
Loop
Sheets("Sumber"
End Sub
2. Pertanyaan ini (revisi macro) memang memancing kreatifitas. Agar kreatifitas bermanfaat tentunya harus jelas dulu apa yang ingin kita capai, mis. penghematan waktu.
Ada dua hal yang perlu dipertimbangkan
- Kriteria yang anda pakai ada pada Sheet "sumber" bukan berasal dari variabel yang dibuat dalam program,
jadi akan lebih mudah menselect (mengaktifkan) dulu Sheet "sumber" untuk mengambil krterianya
- Dikumpulkan dulu yang sesuai kriteria lalu ditulis pada Sheet baru yang diberi nama seuai Sheet "sumber" Range("c3")
Mungkin akan ada perbedaan waktu jika datanya sudah berjumlah ratusan ribu
Salam,
Hendrik Karnadi
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Thursday, 30 August 2012, 9:15
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Yth. Pak Sinurat.
Kayaknya agak sulit buat saya apalagi rekan2 lainnya tanpa lampiran Workbook dan penjelasan permasalahannya pada sheet ybs.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Thursday, 30 August 2012, 3:28
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Yth pak karnadi..
Rumusan makro yg bpk ajarkan sdh saya coba terapkan, bekerja dgn baik pd sheet baru (misal sheet 'medan0213' sesuai isi sel c3 pd sheet 'sumber'.
Msh ada 2 hal yg kiranya butuh petunjuk:
1. jika kita ingin membuat lagi sheet yg sama, maka akan terbentuk sheet 'medan0213(2)
Masalahnya adalah sub isisort tetap bekerja pada sheet yg pertama, sehingga sheet yg kedua tetap kosong.. Ini yg blm sesuai..
Bgmn revisi kode makronya pak agar (dlm hal sheet pertama sdh ada) sub isisort bekerja pd sheet yg kedua??
Dlm hal ini Sepertinya yg belum pas dari sub isisort adlh pd bagian "mybase=sheets(
2. Setelah terbentuk sheet baru (mis: sheet 'medan0213') atas penugasan sub buatsheets,
maka giliran sub isisort bertugas.
Sub isisort akan mengaktifkan sheet 'sumber', mengambil data yg sesuai kriteria, lalu mengaktifkan sheet 'medan0213', dan menuliskan hasilnya.
Bgmn revisi makro agar sub isisort bisa langsung menuliskan hasilnya pd sheet 'medan0213' tanpa harus terlebih dahulu mengaktifkan sheet 'sumber'??
Brgkl bahasa verbalnya begini: data pd sheet 'sumber' yg sesuai kriteria dikumpulkan semua terlebih dahulu, lalu dibentuk sheet baru dan diberi nama sesuai isi sel c3 (mis: sheet 'medan0213')
Saya sdh coba utak atik tapi gagal. :D
Mhn maaf terlalu merepotkan, bimbingan bpk dan pakar2 lain saya harapkan.
Terima kasih sebelumnya.
Wassalam
Sinurat
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Mon, 27 Aug 2012 18:39:35 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
sama2 Pak.
Salam,
Hendrik
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Tuesday, 28 August 2012, 0:35
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Makasih pak karnadi atensi dan bimbingannya.
Salam
Sinurat
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Mon, 27 Aug 2012 09:54:58 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Sortir yang saya lakukan terdiri dari 2 tahap:
- berdasarkan kolom L
- berdasarkan warna jika data di kolom B lebih dari 1
Semoga pas sesuai kebutuhan
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Monday, 27 August 2012, 13:25
Subject: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro
Salam be-excel
Yth. Para pakar dan rekan2 milis,
Pada module 1 (file terlampir) dgn bimbingan para pakar milis sdh disusun dua buah prosedur sub, yaitu:
Makro1 : sub buatsheets() --> membuat sheet baru dan memberi nama secara otomatis.
Makro2 : sub isidata() -->mengambil data yg sesuai kriteria.
Pertanyaan:
1. Saat ini hasil penugasan makro2 tampil pd sheet yg sama, yakni sheet 'sumber'.. Bgmn revisi kode makro agar hasilnya tampil pd sheet baru hasil penugasan makro1??
2. Jika boleh, sekalian mohon bantuannya merevisi kode Makro2 agar hasilnya dpt tampil terurut sesuai kolom L sheet 'sumber' dari yg terbesar hingga yg terkecil..
Mohon dibantu memecahkan masalah diatas. Terima kasih sebelumnya.
Salam
Imam F. Sinurat - Sumut
Powered by Telkomsel BlackBerry®
Wed Aug 29, 2012 7:23 pm (PDT) . Posted by:
"Abang Tukang tanya"
Dear Master & teman2 belajar-excel,
Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
Regards
Abang Tukang Tanya
Saya boleh bertanya lagi? Bisakah dalam data terlampir saya bisa membuat grafik ini sifatnya custom atau bisa berubah sesuai dengan bertambahnya kolom D (D1,D2, dstnya) tanpa harus secara manual mengedit grafiknya? Terima kasih
Regards
Abang Tukang Tanya
Wed Aug 29, 2012 7:45 pm (PDT) . Posted by:
"Teti Zhe" teti_zhe
Dear Pak Hendrik,,
Mohon maaf nanya lagi ini... Apakah makro ini bisa digunakan untuk workbook yang berbeda? Misalnya dbase_Parents pada workbook1 dan dbase_Children berada pada workbook2 ? apakah ada yang harus diubah statement makro nya? Boleh kah minta tolong penjelasannya?
Trimakasih banyak sebelumnya ..
Salam,
Teti.
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, August 28, 2012 4:24 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
ya, hapus saja kata "Module1" pada bagian programnya.
Salam,
Hendrik Karnadi
________________________________
From: Teti Zhe <teti_zhe@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 28 August 2012, 16:01
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
trus gimana cara perbaikinya?
Mkasih,,,...
Salam,
Teti.
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, August 28, 2012 3:42 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Jawaban atas pertanyaan 1 ; Ya
'invalid outside procedure' karena ada "Module1" nyasar ke bagian Code.
Salam,
Hendrik Karnadi
________________________________
From: Teti Zhe <teti_zhe@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 28 August 2012, 15:19
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Dear Mas Hendrik,
Thanks untuk pencerahannya,,
Boleh nanya, di line 6 itu :
Cells.Find(What:=a, After:=Range("D3"), LookIn:=xlValues, _
apakah maksud dari After:=Range("D3") ? apakahitumenandakan kolom D pada baris ke 4 pada sheet dbase_Parents?
Oya, jika macro nya saya modifikasi sesuai kebutuhan tapi koq malah error gitu seperti printscreen ini (terlampir , 'invalid outside procedure')..kira2 agar sukses saat run nya perlu diubah dimana ya Mas?
Makasih sebelumnya ,,,
Salam,
Teti.
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, August 27, 2012 2:40 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Coba cek Macro pada Module1, apakah sama dengan di bawah ini:
Sub Cari()
Dim a As String
a = ActiveCell.Value
Sheets("dbase_parents").Select
On Error GoTo PESAN:
Cells.Find(What:=a, After:=Range("D3"), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.Select
Exit Sub
PESAN:
MsgBox "DATA TIDAK ADA"
End Sub
Salam,
Hendrik Karnadi
catatan: saya lampirkan lagi filenya yang ada macro tsb di atas
________________________________
From: Teti Zhe <teti_zhe@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 27 August 2012, 14:23
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
eh iyaa,, maaf kelupaan ng-upload :D
ini dia (terlampir)
Mkasih bnyk sblmnya yaaa
Salam,
Teti.
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, August 27, 2012 2:00 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Dear Teti,
Lampirannya koq ga ada ?
Salam,
Hendrik Karnadi
________________________________
From: Teti Zhe <teti_zhe@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 27 August 2012, 12:17
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Halo Mas,,
Saya uda coba ikutin langkahnya dan saya masih belum berhasil,, ada error nya (printscreen nya terlampir)
di bagian mana nya saya salah?
Trims,,
Salam,
Teti.
Mohon maaf nanya lagi ini... Apakah makro ini bisa digunakan untuk workbook yang berbeda? Misalnya dbase_Parents pada workbook1 dan dbase_Children berada pada workbook2 ? apakah ada yang harus diubah statement makro nya? Boleh kah minta tolong penjelasannya?
Trimakasih banyak sebelumnya ..
Salam,
Teti.
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, August 28, 2012 4:24 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
ya, hapus saja kata "Module1" pada bagian programnya.
Salam,
Hendrik Karnadi
____________
From: Teti Zhe <teti_zhe@yahoo.
To: "belajar-excel@
Sent: Tuesday, 28 August 2012, 16:01
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
trus gimana cara perbaikinya?
Mkasih,,,...
Salam,
Teti.
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, August 28, 2012 3:42 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Jawaban atas pertanyaan 1 ; Ya
'invalid outside procedure' karena ada "Module1" nyasar ke bagian Code.
Salam,
Hendrik Karnadi
____________
From: Teti Zhe <teti_zhe@yahoo.
To: "belajar-excel@
Sent: Tuesday, 28 August 2012, 15:19
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Dear Mas Hendrik,
Thanks untuk pencerahannya,
Boleh nanya, di line 6 itu :
Cells.Find(What:
apakah maksud dari After:=Range(
Oya, jika macro nya saya modifikasi sesuai kebutuhan tapi koq malah error gitu seperti printscreen ini (terlampir , 'invalid outside procedure').
Makasih sebelumnya ,,,
Salam,
Teti.
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Monday, August 27, 2012 2:40 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Coba cek Macro pada Module1, apakah sama dengan di bawah ini:
Sub Cari()
Dim a As String
a = ActiveCell.Value
Sheets("dbase_
On Error GoTo PESAN:
Cells.Find(What:
LookAt:=xlWhole, SearchOrder:
MatchCase:=False, SearchFormat:
Selection.EntireRow
Exit Sub
PESAN:
MsgBox "DATA TIDAK ADA"
End Sub
Salam,
Hendrik Karnadi
catatan: saya lampirkan lagi filenya yang ada macro tsb di atas
____________
From: Teti Zhe <teti_zhe@yahoo.
To: "belajar-excel@
Sent: Monday, 27 August 2012, 14:23
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
eh iyaa,, maaf kelupaan ng-upload :D
ini dia (terlampir)
Mkasih bnyk sblmnya yaaa
Salam,
Teti.
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Monday, August 27, 2012 2:00 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Dear Teti,
Lampirannya koq ga ada ?
Salam,
Hendrik Karnadi
____________
From: Teti Zhe <teti_zhe@yahoo.
To: "belajar-excel@
Sent: Monday, 27 August 2012, 12:17
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Halo Mas,,
Saya uda coba ikutin langkahnya dan saya masih belum berhasil,, ada error nya (printscreen nya terlampir)
di bagian mana nya saya salah?
Trims,,
Salam,
Teti.
Wed Aug 29, 2012 8:37 pm (PDT) . Posted by:
"Teti Zhe" teti_zhe
Kid
Salam,
Teti.
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, August 9, 2012 1:48 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Hai Teti,
Pada sheet parents :
Coba pada kolom i record pertama diberi array formula berikut : (tulis formula dan jangan tekan Enter, tetapi tekan CTRL SHIFT ENTER bersamaan)
=IFERROR(INDEX(Table3[Name],SMALL(IF((Table3[Nama Orang Tua]=$D4)*(Table3[Village]=$C4),Table3[No]),COLUMN()-COLUMN(dbase_Parents!$H$3))),"")
kemudian copy ke kolom lain.
Lakukan juga untuk sheet children dengan fungsi vlookup (kecuali jika orang tua bisa lebih dari 1, maka gunakan array formula di atas dengan menyesuaikan rujukan range-nya).
Wassalam,
Kid.
2012/8/9 Teti Zhe <teti_zhe@yahoo.com >
>
>Dear master Excel,,
>Saya punya data responden pada sheet yang berbeda (terlampir).
>
>
>Sheet 1 (dbase_Children) memiliki relasi dengan sheet 2 (dbase_Parents) yakni pada kolom 'Nama orang tua' .
>
>Apakah memungkinkan jika di sheet 1 (dbase_Children) dibuat link dengan sheet 2 (dbase_Parents) dimana masing-masing data anak terhubung dengan data orang tuanya masing2.. sehingga ketika meng-klik data 'Nama orang tua' di sheet 1 (dbase_Children) akan bisa mengakses data orang tua dimaksud pada sheet 2 (dbase_Parents).
>
>Jika memungkinkan, bagaimana caranya ?
>
>Atau ada ide lain sehingga data masing-masing orang tua tersebut tetap bisa langsung diakses dari sheet 1 (dbase_Children) sesuai dengan nama dari orang tua si anak masing-masing?
>
>
>Terimakasih banyak sebelumnya ...
>
>Salam,
>Teti.
>
Salam,
Teti.
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Thursday, August 9, 2012 1:48 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
Hai Teti,
Pada sheet parents :
Coba pada kolom i record pertama diberi array formula berikut : (tulis formula dan jangan tekan Enter, tetapi tekan CTRL SHIFT ENTER bersamaan)
=IFERROR(INDEX(
kemudian copy ke kolom lain.
Lakukan juga untuk sheet children dengan fungsi vlookup (kecuali jika orang tua bisa lebih dari 1, maka gunakan array formula di atas dengan menyesuaikan rujukan range-nya).
Wassalam,
Kid.
2012/8/9 Teti Zhe <teti_zhe@yahoo.
>
>Dear master Excel,,
>Saya punya data responden pada sheet yang berbeda (terlampir).
>
>
>Sheet 1 (dbase_Children) memiliki relasi dengan sheet 2 (dbase_Parents) yakni pada kolom 'Nama orang tua' .
>
>Apakah memungkinkan jika di sheet 1 (dbase_Children) dibuat link dengan sheet 2 (dbase_Parents) dimana masing-masing data anak terhubung dengan data orang tuanya masing2.. sehingga ketika meng-klik data 'Nama orang tua' di sheet 1 (dbase_Children) akan bisa mengakses data orang tua dimaksud pada sheet 2 (dbase_Parents)
>
>Jika memungkinkan, bagaimana caranya ?
>
>Atau ada ide lain sehingga data masing-masing orang tua tersebut tetap bisa langsung diakses dari sheet 1 (dbase_Children) sesuai dengan nama dari orang tua si anak masing-masing?
>
>
>Terimakasih banyak sebelumnya ...
>
>Salam,
>Teti.
>
Wed Aug 29, 2012 9:49 pm (PDT) . Posted by:
"dwint ruswanto"
assalamu'alaikum,
member millis Be-Excel yang saya hormati,
bagaimana cara menjumlahkan nilai integer dari range("F11:F16") di sheet1
workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan tersebut
tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok If - End
If
saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
tidak sesuai dengan yang saya inginkan.
maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe :-D
wassalam,
-dwint-
member millis Be-Excel yang saya hormati,
bagaimana cara menjumlahkan nilai integer dari range("F11:F16"
workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan tersebut
tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok If - End
If
saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
tidak sesuai dengan yang saya inginkan.
maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe :-D
wassalam,
-dwint-
Wed Aug 29, 2012 10:01 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Waalaikumussalam Wr. Wb.
Coba :
dim lHasil as long
lhasil=evaluate("=Sum(f11:f16)")
'tampilkan hasil di immediate window (tekan ctrl G bila immediate window
belum ada di layar)
debug.print "Hasil Sum F11:F16 adalah " & lhasil
Wassalam,
Kid.
2012/8/30 dwint ruswanto <dwint.ruswanto@gmail.com >
> **
>
>
> assalamu'alaikum,
>
> member millis Be-Excel yang saya hormati,
>
> bagaimana cara menjumlahkan nilai integer dari range("F11:F16") di sheet1
> workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan tersebut
> tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok If - End
> If
> saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
> tidak sesuai dengan yang saya inginkan.
>
> maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe
> :-D
>
> wassalam,
>
> -dwint-
>
>
>
Coba :
dim lHasil as long
lhasil=evaluate(
'tampilkan hasil di immediate window (tekan ctrl G bila immediate window
belum ada di layar)
debug.print "Hasil Sum F11:F16 adalah " & lhasil
Wassalam,
Kid.
2012/8/30 dwint ruswanto <dwint.ruswanto@
> **
>
>
> assalamu'alaikum,
>
> member millis Be-Excel yang saya hormati,
>
> bagaimana cara menjumlahkan nilai integer dari range("F11:F16"
> workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan tersebut
> tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok If - End
> If
> saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
> tidak sesuai dengan yang saya inginkan.
>
> maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe
> :-D
>
> wassalam,
>
> -dwint-
>
>
>
Wed Aug 29, 2012 10:11 pm (PDT) . Posted by:
"dwint ruswanto"
terima kasih Mr. Kid.
ternyata evaluate("=Sum(f11:f16)") adalah coding yang harus saya gunakan,
baru tau ada kode seperti ini hehehe :D
wassalam,
-dwint-
Pada 30 Agustus 2012 12:01, Kid Mr. <mr.nmkid@gmail.com > menulis:
> **
>
>
> Waalaikumussalam Wr. Wb.
>
> Coba :
> dim lHasil as long
> lhasil=evaluate("=Sum(f11:f16)")
> 'tampilkan hasil di immediate window (tekan ctrl G bila immediate window
> belum ada di layar)
> debug.print "Hasil Sum F11:F16 adalah " & lhasil
>
> Wassalam,
> Kid.
>
>
> 2012/8/30 dwint ruswanto <dwint.ruswanto@gmail.com >
>
>> **
>>
>>
>> assalamu'alaikum,
>>
>> member millis Be-Excel yang saya hormati,
>>
>> bagaimana cara menjumlahkan nilai integer dari range("F11:F16") di sheet1
>> workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan tersebut
>> tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok If - End
>> If
>> saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
>> tidak sesuai dengan yang saya inginkan.
>>
>> maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe
>> :-D
>>
>> wassalam,
>>
>> -dwint-
>>
>>
>
>
ternyata evaluate("=Sum(
baru tau ada kode seperti ini hehehe :D
wassalam,
-dwint-
Pada 30 Agustus 2012 12:01, Kid Mr. <mr.nmkid@gmail.
> **
>
>
> Waalaikumussalam Wr. Wb.
>
> Coba :
> dim lHasil as long
> lhasil=evaluate(
> 'tampilkan hasil di immediate window (tekan ctrl G bila immediate window
> belum ada di layar)
> debug.print "Hasil Sum F11:F16 adalah " & lhasil
>
> Wassalam,
> Kid.
>
>
> 2012/8/30 dwint ruswanto <dwint.ruswanto@
>
>> **
>>
>>
>> assalamu'alaikum,
>>
>> member millis Be-Excel yang saya hormati,
>>
>> bagaimana cara menjumlahkan nilai integer dari range("F11:F16"
>> workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan tersebut
>> tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok If - End
>> If
>> saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
>> tidak sesuai dengan yang saya inginkan.
>>
>> maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe
>> :-D
>>
>> wassalam,
>>
>> -dwint-
>>
>>
>
>
Wed Aug 29, 2012 10:38 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Sama-sama.
Coba dengan worksheetfunction.
dim lHasil as long
lHasil = application.worksheetfunction.sum( range("f11:f16") )
debug.print lHasil
Wassalam,
Kid.
2012/8/30 dwint ruswanto <dwint.ruswanto@gmail.com >
> **
>
>
> terima kasih Mr. Kid.
>
> ternyata evaluate("=Sum(f11:f16)") adalah coding yang harus saya
> gunakan, baru tau ada kode seperti ini hehehe :D
>
> wassalam,
>
> -dwint-
>
> Pada 30 Agustus 2012 12:01, Kid Mr. <mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> Waalaikumussalam Wr. Wb.
>>
>> Coba :
>> dim lHasil as long
>> lhasil=evaluate("=Sum(f11:f16)")
>> 'tampilkan hasil di immediate window (tekan ctrl G bila immediate window
>> belum ada di layar)
>> debug.print "Hasil Sum F11:F16 adalah " & lhasil
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/8/30 dwint ruswanto <dwint.ruswanto@gmail.com >
>>
>>> **
>>>
>>>
>>> assalamu'alaikum,
>>>
>>> member millis Be-Excel yang saya hormati,
>>>
>>> bagaimana cara menjumlahkan nilai integer dari range("F11:F16") di
>>> sheet1 workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan
>>> tersebut tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok
>>> If - End If
>>> saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
>>> tidak sesuai dengan yang saya inginkan.
>>>
>>> maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe
>>> :-D
>>>
>>> wassalam,
>>>
>>> -dwint-
>>>
>>>
>>
>
>
Coba dengan worksheetfunction.
dim lHasil as long
lHasil = application.
debug.print lHasil
Wassalam,
Kid.
2012/8/30 dwint ruswanto <dwint.ruswanto@
> **
>
>
> terima kasih Mr. Kid.
>
> ternyata evaluate("=Sum(
> gunakan, baru tau ada kode seperti ini hehehe :D
>
> wassalam,
>
> -dwint-
>
> Pada 30 Agustus 2012 12:01, Kid Mr. <mr.nmkid@gmail.
>
> **
>>
>>
>> Waalaikumussalam Wr. Wb.
>>
>> Coba :
>> dim lHasil as long
>> lhasil=evaluate(
>> 'tampilkan hasil di immediate window (tekan ctrl G bila immediate window
>> belum ada di layar)
>> debug.print "Hasil Sum F11:F16 adalah " & lhasil
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/8/30 dwint ruswanto <dwint.ruswanto@
>>
>>> **
>>>
>>>
>>> assalamu'alaikum,
>>>
>>> member millis Be-Excel yang saya hormati,
>>>
>>> bagaimana cara menjumlahkan nilai integer dari range("F11:F16"
>>> sheet1 workbook1 yang sedang aktif menggunakan macro, hasil penjumlahan
>>> tersebut tidak dimasukkan ke dalam cell manapun, hanya digunakan dalam blok
>>> If - End If
>>> saya sudah mencoba melakukan perekaman macro dengan Sum tetapi hasilnya
>>> tidak sesuai dengan yang saya inginkan.
>>>
>>> maaf pertanyaannya masih ecek2.. maklum masih dalam tahap belajar hehehe
>>> :-D
>>>
>>> wassalam,
>>>
>>> -dwint-
>>>
>>>
>>
>
>
Wed Aug 29, 2012 10:52 pm (PDT) . Posted by:
"lokerhh@ymail.com" lokerhh@ymail.com
PT AXIS TELEKOM membutuhkan beberapa tenaga untuk posisi Sales Support (Admin) untuk ditempatkan di kantor pusat (Mega Kuningan).
Syarat:
- Berijazah min diploma dengan usia maks 30 th
- Memiliki kemampuan Ms Excel tingkat lanjut
- Pekerja keras dan siap kerja lembur
Bagi yang berminat dan memenuhi persyaratan silakan mengirimkan lamaran ke lokerhh@ymail.com (lokerhh at ymail.com) cc. novian.saputra@axisworld.co.id sebelum tanggal 9 September 2012.
Syarat:
- Berijazah min diploma dengan usia maks 30 th
- Memiliki kemampuan Ms Excel tingkat lanjut
- Pekerja keras dan siap kerja lembur
Bagi yang berminat dan memenuhi persyaratan silakan mengirimkan lamaran ke lokerhh@ymail.
Wed Aug 29, 2012 11:04 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Lo koq bisa lolos ya.......
________________________________
From: "lokerhh@ymail.com " <lokerhh@ymail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 30 August 2012, 12:50
Subject: [belajar-excel] Info Lowongan dg skill MsExcel Advance
PT AXIS TELEKOM membutuhkan beberapa tenaga untuk posisi Sales Support (Admin) untuk ditempatkan di kantor pusat (Mega Kuningan).
Syarat:
- Berijazah min diploma dengan usia maks 30 th
- Memiliki kemampuan Ms Excel tingkat lanjut
- Pekerja keras dan siap kerja lembur
Bagi yang berminat dan memenuhi persyaratan silakan mengirimkan lamaran ke lokerhh@ymail.com (lokerhh at ymail.com) cc. novian.saputra@axisworld.co.id sebelum tanggal 9 September 2012.
____________
From: "lokerhh@ymail.
To: belajar-excel@
Sent: Thursday, 30 August 2012, 12:50
Subject: [belajar-excel] Info Lowongan dg skill MsExcel Advance
PT AXIS TELEKOM membutuhkan beberapa tenaga untuk posisi Sales Support (Admin) untuk ditempatkan di kantor pusat (Mega Kuningan).
Syarat:
- Berijazah min diploma dengan usia maks 30 th
- Memiliki kemampuan Ms Excel tingkat lanjut
- Pekerja keras dan siap kerja lembur
Bagi yang berminat dan memenuhi persyaratan silakan mengirimkan lamaran ke lokerhh@ymail.
Wed Aug 29, 2012 11:08 pm (PDT) . Posted by:
"Nizar_fincoN"
Aji mumpung
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of hendrik karnadi
Sent: 30 Agustus 2012 13:04
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Info Lowongan dg skill MsExcel Advance
Lo koq bisa lolos ya.......
_____
From: "lokerhh@ymail.com " <lokerhh@ymail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 30 August 2012, 12:50
Subject: [belajar-excel] Info Lowongan dg skill MsExcel Advance
PT AXIS TELEKOM membutuhkan beberapa tenaga untuk posisi Sales Support (Admin) untuk ditempatkan di kantor pusat (Mega Kuningan).
Syarat:
- Berijazah min diploma dengan usia maks 30 th
- Memiliki kemampuan Ms Excel tingkat lanjut
- Pekerja keras dan siap kerja lembur
Bagi yang berminat dan memenuhi persyaratan silakan mengirimkan lamaran ke lokerhh@ymail.com <mailto:lokerhh%40ymail.com> (lokerhh at ymail.com) cc. novian.saputra@axisworld.co.id <mailto:novian.saputra%40axisworld.co.id> sebelum tanggal 9 September 2012.
----------------------------------------------------------
PT. Bank ICB Bumiputera, Tbk Disclaimer :
The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, re-transmission, dissemination or other use of or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited.
If you receive this in error, please contact the sender and delete the material from your computer.
PT. Bank ICB Bumiputera,Tbk takes all reasonable steps to ensure that its electronic communications are free from viruses. However, given Internet accessibility, the company cannot accept liability for any virus introduced by this e-mail or any attachment and you are advised to use up-to-date virus checking software.
www.icbbumiputera.co.id
From: belajar-excel@
Sent: 30 Agustus 2012 13:04
To: belajar-excel@
Subject: Re: [belajar-excel] Info Lowongan dg skill MsExcel Advance
Lo koq bisa lolos ya.......
_____
From: "lokerhh@ymail.
To: belajar-excel@
Sent: Thursday, 30 August 2012, 12:50
Subject: [belajar-excel] Info Lowongan dg skill MsExcel Advance
PT AXIS TELEKOM membutuhkan beberapa tenaga untuk posisi Sales Support (Admin) untuk ditempatkan di kantor pusat (Mega Kuningan).
Syarat:
- Berijazah min diploma dengan usia maks 30 th
- Memiliki kemampuan Ms Excel tingkat lanjut
- Pekerja keras dan siap kerja lembur
Bagi yang berminat dan memenuhi persyaratan silakan mengirimkan lamaran ke lokerhh@ymail.
------------
PT. Bank ICB Bumiputera, Tbk Disclaimer :
The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, re-transmission, dissemination or other use of or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited.
If you receive this in error, please contact the sender and delete the material from your computer.
PT. Bank ICB Bumiputera,Tbk takes all reasonable steps to ensure that its electronic communications are free from viruses. However, given Internet accessibility, the company cannot accept liability for any virus introduced by this e-mail or any attachment and you are advised to use up-to-date virus checking software.
www.icbbumiputera.
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
---------------------------------------------------------------------
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