15 Messages
Digest #4495
1a
Re: Tanya Rumus Growth (%) dan Achievement (%) [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Copy Paste Data ke Sheet Berbeda pada Range Data [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
Messages
Fri May 4, 2018 7:46 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Gama,
Umumnya begini :
=(nilai_akhir - nilai_awal) / abs(nilai_awal)
Hasil formula >0 artinya pertumbuhan
Hasil formula =0 artinya tetap
Hasil formula <0 artinya perlambatan (pertumuhan negatif)
Contoh :
1. Pertumbuhan
Nilai awal = nilai tahun 2016 sebesar 100
Nilai akhir = nilai tahun 2017 sebesar 175
=( 175 - 100 ) / abs( 100 ) = 75/100 = 0.75 = 75%
Nilai awal = nilai tahun 2016 sebesar -100
Nilai akhir = nilai tahun 2017 sebesar 150
=( 150 - -100 ) / abs( -100 ) = 250/100 = 2.5 = 250%
2. Perlambatan
Nilai awal = nilai tahun 2016 sebesar 100
Nilai akhir = nilai tahun 2017 sebesar 75
=( 75 - 100 ) / abs( 100 ) = -25/100 = -0.25 = -25%
Nilai awal = nilai tahun 2016 sebesar -100
Nilai akhir = nilai tahun 2017 sebesar -150
=( -150 - -100 ) / abs( -100 ) = -50/100 = -0.5 = -50%
Hasil formula bisa diberi conditional formatting jika ingin menampilkan
tanda naik, tetap, atau turun
Hasil formula bisa dipaksa tidak menampilkan tanda negatif (sebaiknya
ketika sudah ada tanda naik, tetap, atau turun dengan conditional
formatting atau dengan cara lainnya), dengan cara menata format cells :
klik kanan cells hasil formula -> pilih format cells -> tab Number ->
pilih item CUSTOM -> pada textbox tulis : 0.0#%;0.0#%;0% -> tekan OK
Regards,
Kid
2018-05-04 14:11 GMT+07:00 gama ancol gama.ancol@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Para Master Excel,
>
> Selamat siang,
>
> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
> (%) dan pencapaian (%) atas Net Income
>
> Berikut ini saya lampirkan filenya ^_^
>
> Atas perhatiannya saya ucapkan terimakasih banyak
>
> Best Regards,
>
> *Gama *
>
>
>
Umumnya begini :
=(nilai_akhir - nilai_awal) / abs(nilai_awal)
Hasil formula >0 artinya pertumbuhan
Hasil formula =0 artinya tetap
Hasil formula <0 artinya perlambatan (pertumuhan negatif)
Contoh :
1. Pertumbuhan
Nilai awal = nilai tahun 2016 sebesar 100
Nilai akhir = nilai tahun 2017 sebesar 175
=( 175 - 100 ) / abs( 100 ) = 75/100 = 0.75 = 75%
Nilai awal = nilai tahun 2016 sebesar -100
Nilai akhir = nilai tahun 2017 sebesar 150
=( 150 - -100 ) / abs( -100 ) = 250/100 = 2.5 = 250%
2. Perlambatan
Nilai awal = nilai tahun 2016 sebesar 100
Nilai akhir = nilai tahun 2017 sebesar 75
=( 75 - 100 ) / abs( 100 ) = -25/100 = -0.25 = -25%
Nilai awal = nilai tahun 2016 sebesar -100
Nilai akhir = nilai tahun 2017 sebesar -150
=( -150 - -100 ) / abs( -100 ) = -50/100 = -0.5 = -50%
Hasil formula bisa diberi conditional formatting jika ingin menampilkan
tanda naik, tetap, atau turun
Hasil formula bisa dipaksa tidak menampilkan tanda negatif (sebaiknya
ketika sudah ada tanda naik, tetap, atau turun dengan conditional
formatting atau dengan cara lainnya), dengan cara menata format cells :
klik kanan cells hasil formula -> pilih format cells -> tab Number ->
pilih item CUSTOM -> pada textbox tulis : 0.0#%;0.0#%;0% -> tekan OK
Regards,
Kid
2018-05-04 14:11 GMT+07:00 gama ancol gama.ancol@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Para Master Excel,
>
> Selamat siang,
>
> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
> (%) dan pencapaian (%) atas Net Income
>
> Berikut ini saya lampirkan filenya ^_^
>
> Atas perhatiannya saya ucapkan terimakasih banyak
>
> Best Regards,
>
> *Gama *
>
>
>
Tue May 8, 2018 1:06 am (PDT) . Posted by:
"gama ancol"
Dear Master Mr. Kid,
Terimakasih banyak atas pencerahannya, saya jadi paham konsep pertumbuhan
dan perlambatannya. ^_^
Tapi untuk yang achievement (%) itu konsepnya adalah pencapaian anggarannya
pak, jadi untuk *Mar18 Actual* itu di bandingkan dengan *Mar18 Budget *ada
berapa persen (%) pencapaian thd anggarannya.
Misalnya : Mar18 Actual = 50
Mar18Budget = 100
Achievement/pencapaiannya = 50%
Mohon bantuan rumus dari master Mr. Kid :)
Best Regards,
*Gama*
Pada 5 Mei 2018 09.45, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Hai Gama,
>
> Umumnya begini :
> =(nilai_akhir - nilai_awal) / abs(nilai_awal)
> Hasil formula >0 artinya pertumbuhan
> Hasil formula =0 artinya tetap
> Hasil formula <0 artinya perlambatan (pertumuhan negatif)
>
> Contoh :
> 1. Pertumbuhan
> Nilai awal = nilai tahun 2016 sebesar 100
> Nilai akhir = nilai tahun 2017 sebesar 175
> =( 175 - 100 ) / abs( 100 ) = 75/100 = 0.75 = 75%
>
> Nilai awal = nilai tahun 2016 sebesar -100
> Nilai akhir = nilai tahun 2017 sebesar 150
> =( 150 - -100 ) / abs( -100 ) = 250/100 = 2.5 = 250%
>
> 2. Perlambatan
> Nilai awal = nilai tahun 2016 sebesar 100
> Nilai akhir = nilai tahun 2017 sebesar 75
> =( 75 - 100 ) / abs( 100 ) = -25/100 = -0.25 = -25%
>
> Nilai awal = nilai tahun 2016 sebesar -100
> Nilai akhir = nilai tahun 2017 sebesar -150
> =( -150 - -100 ) / abs( -100 ) = -50/100 = -0.5 = -50%
>
> Hasil formula bisa diberi conditional formatting jika ingin menampilkan
> tanda naik, tetap, atau turun
> Hasil formula bisa dipaksa tidak menampilkan tanda negatif (sebaiknya
> ketika sudah ada tanda naik, tetap, atau turun dengan conditional
> formatting atau dengan cara lainnya), dengan cara menata format cells :
> klik kanan cells hasil formula -> pilih format cells -> tab Number ->
> pilih item CUSTOM -> pada textbox tulis : 0.0#%;0.0#%;0% -> tekan OK
>
> Regards,
> Kid
>
>
>
> 2018-05-04 14:11 GMT+07:00 gama ancol gama.ancol@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Para Master Excel,
>>
>> Selamat siang,
>>
>> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
>> (%) dan pencapaian (%) atas Net Income
>>
>> Berikut ini saya lampirkan filenya ^_^
>>
>> Atas perhatiannya saya ucapkan terimakasih banyak
>>
>> Best Regards,
>>
>> *Gama *
>>
>>
>
>
Terimakasih banyak atas pencerahannya, saya jadi paham konsep pertumbuhan
dan perlambatannya. ^_^
Tapi untuk yang achievement (%) itu konsepnya adalah pencapaian anggarannya
pak, jadi untuk *Mar18 Actual* itu di bandingkan dengan *Mar18 Budget *ada
berapa persen (%) pencapaian thd anggarannya.
Misalnya : Mar18 Actual = 50
Mar18Budget = 100
Achievement/pencapaiannya = 50%
Mohon bantuan rumus dari master Mr. Kid :)
Best Regards,
*Gama*
Pada 5 Mei 2018 09.45, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Hai Gama,
>
> Umumnya begini :
> =(nilai_akhir - nilai_awal) / abs(nilai_awal)
> Hasil formula >0 artinya pertumbuhan
> Hasil formula =0 artinya tetap
> Hasil formula <0 artinya perlambatan (pertumuhan negatif)
>
> Contoh :
> 1. Pertumbuhan
> Nilai awal = nilai tahun 2016 sebesar 100
> Nilai akhir = nilai tahun 2017 sebesar 175
> =( 175 - 100 ) / abs( 100 ) = 75/100 = 0.75 = 75%
>
> Nilai awal = nilai tahun 2016 sebesar -100
> Nilai akhir = nilai tahun 2017 sebesar 150
> =( 150 - -100 ) / abs( -100 ) = 250/100 = 2.5 = 250%
>
> 2. Perlambatan
> Nilai awal = nilai tahun 2016 sebesar 100
> Nilai akhir = nilai tahun 2017 sebesar 75
> =( 75 - 100 ) / abs( 100 ) = -25/100 = -0.25 = -25%
>
> Nilai awal = nilai tahun 2016 sebesar -100
> Nilai akhir = nilai tahun 2017 sebesar -150
> =( -150 - -100 ) / abs( -100 ) = -50/100 = -0.5 = -50%
>
> Hasil formula bisa diberi conditional formatting jika ingin menampilkan
> tanda naik, tetap, atau turun
> Hasil formula bisa dipaksa tidak menampilkan tanda negatif (sebaiknya
> ketika sudah ada tanda naik, tetap, atau turun dengan conditional
> formatting atau dengan cara lainnya), dengan cara menata format cells :
> klik kanan cells hasil formula -> pilih format cells -> tab Number ->
> pilih item CUSTOM -> pada textbox tulis : 0.0#%;0.0#%;0% -> tekan OK
>
> Regards,
> Kid
>
>
>
> 2018-05-04 14:11 GMT+07:00 gama ancol gama.ancol@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Para Master Excel,
>>
>> Selamat siang,
>>
>> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
>> (%) dan pencapaian (%) atas Net Income
>>
>> Berikut ini saya lampirkan filenya ^_^
>>
>> Atas perhatiannya saya ucapkan terimakasih banyak
>>
>> Best Regards,
>>
>> *Gama *
>>
>>
>
>
Tue May 8, 2018 1:07 am (PDT) . Posted by:
"gama ancol"
Dear Master Nang Agus,
Terimakasih banyak atas respon dan rumus yang powerfulnya ^_^,
Tapi untuk yang achievement (%) itu konsepnya adalah pencapaian anggarannya
pak, jadi untuk *Mar18 Actual* itu di bandingkan dengan *Mar18 Budget *ada
berapa persen pencapaian thd anggarannya.
Contoh : Mar18 Actual = 50
Mar18Budget = 100
Achievement/pencapaiannya = 50%
Mohon bantuan rumus dari master Nang Agus :)
Best Regards,
*Gama*
Pada 5 Mei 2018 07.52, NangAgus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Dear Gama,
>
> mungkin dapat menggunakan formula:
>
> ABS((C4-B4)/B4)*((B4<C4)*2-1) dan
>
> ABS((E4-C4)/C4)*((C4<E4)*2-1)
>
> Regard
>
> NangAgus
>
> On 5/4/2018 2:11 PM, gama ancol gama.ancol@gmail.com [belajar-excel]
> wrote:
>
>
> Dear Para Master Excel,
>
> Selamat siang,
>
> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
> (%) dan pencapaian (%) atas Net Income
>
> Berikut ini saya lampirkan filenya ^_^
>
> Atas perhatiannya saya ucapkan terimakasih banyak
>
> Best Regards,
>
> *Gama *
>
>
>
>
Terimakasih banyak atas respon dan rumus yang powerfulnya ^_^,
Tapi untuk yang achievement (%) itu konsepnya adalah pencapaian anggarannya
pak, jadi untuk *Mar18 Actual* itu di bandingkan dengan *Mar18 Budget *ada
berapa persen pencapaian thd anggarannya.
Contoh : Mar18 Actual = 50
Mar18Budget = 100
Achievement/pencapaiannya = 50%
Mohon bantuan rumus dari master Nang Agus :)
Best Regards,
*Gama*
Pada 5 Mei 2018 07.52, NangAgus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Dear Gama,
>
> mungkin dapat menggunakan formula:
>
> ABS((C4-B4)/B4)*((B4<C4)*2-1) dan
>
> ABS((E4-C4)/C4)*((C4<E4)*2-1)
>
> Regard
>
> NangAgus
>
> On 5/4/2018 2:11 PM, gama ancol gama.ancol@gmail.com [belajar-excel]
> wrote:
>
>
> Dear Para Master Excel,
>
> Selamat siang,
>
> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
> (%) dan pencapaian (%) atas Net Income
>
> Berikut ini saya lampirkan filenya ^_^
>
> Atas perhatiannya saya ucapkan terimakasih banyak
>
> Best Regards,
>
> *Gama *
>
>
>
>
Tue May 8, 2018 1:10 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pencapaian = Nilai_Riil / Nilai_Ideal
Kasus Anda :
Nilai_Riil = Nilai_Aktual
Nilai_Ideal = Nilai_Target
Regards,
Kid
2018-05-08 11:34 GMT+07:00 gama ancol gama.ancol@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Master Mr.. Kid,
>
> Terimakasih banyak atas pencerahannya, saya jadi paham konsep pertumbuhan
> dan perlambatannya. ^_^
>
> Tapi untuk yang achievement (%) itu konsepnya adalah pencapaian
> anggarannya pak, jadi untuk *Mar18 Actual* itu di bandingkan dengan *Mar18
> Budget *ada berapa persen (%) pencapaian thd anggarannya.
>
> Misalnya : Mar18 Actual = 50
> Mar18Budget = 100
> Achievement/pencapaiannya = 50%
>
> Mohon bantuan rumus dari master Mr. Kid :)
>
>
> Best Regards,
>
> *Gama*
>
> Pada 5 Mei 2018 09.45, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Hai Gama,
>>
>> Umumnya begini :
>> =(nilai_akhir - nilai_awal) / abs(nilai_awal)
>> Hasil formula >0 artinya pertumbuhan
>> Hasil formula =0 artinya tetap
>> Hasil formula <0 artinya perlambatan (pertumuhan negatif)
>>
>> Contoh :
>> 1. Pertumbuhan
>> Nilai awal = nilai tahun 2016 sebesar 100
>> Nilai akhir = nilai tahun 2017 sebesar 175
>> =( 175 - 100 ) / abs( 100 ) = 75/100 = 0.75 = 75%
>>
>> Nilai awal = nilai tahun 2016 sebesar -100
>> Nilai akhir = nilai tahun 2017 sebesar 150
>> =( 150 - -100 ) / abs( -100 ) = 250/100 = 2.5 = 250%
>>
>> 2.. Perlambatan
>> Nilai awal = nilai tahun 2016 sebesar 100
>> Nilai akhir = nilai tahun 2017 sebesar 75
>> =( 75 - 100 ) / abs( 100 ) = -25/100 = -0.25 = -25%
>>
>> Nilai awal = nilai tahun 2016 sebesar -100
>> Nilai akhir = nilai tahun 2017 sebesar -150
>> =( -150 - -100 ) / abs( -100 ) = -50/100 = -0.5 = -50%
>>
>> Hasil formula bisa diberi conditional formatting jika ingin menampilkan
>> tanda naik, tetap, atau turun
>> Hasil formula bisa dipaksa tidak menampilkan tanda negatif (sebaiknya
>> ketika sudah ada tanda naik, tetap, atau turun dengan conditional
>> formatting atau dengan cara lainnya), dengan cara menata format cells :
>> klik kanan cells hasil formula -> pilih format cells -> tab Number
>> -> pilih item CUSTOM -> pada textbox tulis : 0.0#%;0.0#%;0% -> tekan OK
>>
>> Regards,
>> Kid
>>
>>
>>
>> 2018-05-04 14:11 GMT+07:00 gama ancol gama.ancol@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear Para Master Excel,
>>>
>>> Selamat siang,
>>>
>>> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
>>> (%) dan pencapaian (%) atas Net Income
>>>
>>> Berikut ini saya lampirkan filenya ^_^
>>>
>>> Atas perhatiannya saya ucapkan terimakasih banyak
>>>
>>> Best Regards,
>>>
>>> *Gama *
>>>
>>>
>>
>
>
Kasus Anda :
Nilai_Riil = Nilai_Aktual
Nilai_Ideal = Nilai_Target
Regards,
Kid
2018-05-08 11:34 GMT+07:00 gama ancol gama.ancol@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Master Mr.. Kid,
>
> Terimakasih banyak atas pencerahannya, saya jadi paham konsep pertumbuhan
> dan perlambatannya. ^_^
>
> Tapi untuk yang achievement (%) itu konsepnya adalah pencapaian
> anggarannya pak, jadi untuk *Mar18 Actual* itu di bandingkan dengan *Mar18
> Budget *ada berapa persen (%) pencapaian thd anggarannya.
>
> Misalnya : Mar18 Actual = 50
> Mar18Budget = 100
> Achievement/pencapaiannya = 50%
>
> Mohon bantuan rumus dari master Mr. Kid :)
>
>
> Best Regards,
>
> *Gama*
>
> Pada 5 Mei 2018 09.45, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Hai Gama,
>>
>> Umumnya begini :
>> =(nilai_akhir - nilai_awal) / abs(nilai_awal)
>> Hasil formula >0 artinya pertumbuhan
>> Hasil formula =0 artinya tetap
>> Hasil formula <0 artinya perlambatan (pertumuhan negatif)
>>
>> Contoh :
>> 1. Pertumbuhan
>> Nilai awal = nilai tahun 2016 sebesar 100
>> Nilai akhir = nilai tahun 2017 sebesar 175
>> =( 175 - 100 ) / abs( 100 ) = 75/100 = 0.75 = 75%
>>
>> Nilai awal = nilai tahun 2016 sebesar -100
>> Nilai akhir = nilai tahun 2017 sebesar 150
>> =( 150 - -100 ) / abs( -100 ) = 250/100 = 2.5 = 250%
>>
>> 2.. Perlambatan
>> Nilai awal = nilai tahun 2016 sebesar 100
>> Nilai akhir = nilai tahun 2017 sebesar 75
>> =( 75 - 100 ) / abs( 100 ) = -25/100 = -0.25 = -25%
>>
>> Nilai awal = nilai tahun 2016 sebesar -100
>> Nilai akhir = nilai tahun 2017 sebesar -150
>> =( -150 - -100 ) / abs( -100 ) = -50/100 = -0.5 = -50%
>>
>> Hasil formula bisa diberi conditional formatting jika ingin menampilkan
>> tanda naik, tetap, atau turun
>> Hasil formula bisa dipaksa tidak menampilkan tanda negatif (sebaiknya
>> ketika sudah ada tanda naik, tetap, atau turun dengan conditional
>> formatting atau dengan cara lainnya), dengan cara menata format cells :
>> klik kanan cells hasil formula -> pilih format cells -> tab Number
>> -> pilih item CUSTOM -> pada textbox tulis : 0.0#%;0.0#%;0% -> tekan OK
>>
>> Regards,
>> Kid
>>
>>
>>
>> 2018-05-04 14:11 GMT+07:00 gama ancol gama.ancol@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear Para Master Excel,
>>>
>>> Selamat siang,
>>>
>>> Saya newbie mau bertanya bagaimanakah rumus untuk menghitung pertumbuhan
>>> (%) dan pencapaian (%) atas Net Income
>>>
>>> Berikut ini saya lampirkan filenya ^_^
>>>
>>> Atas perhatiannya saya ucapkan terimakasih banyak
>>>
>>> Best Regards,
>>>
>>> *Gama *
>>>
>>>
>>
>
>
Fri May 4, 2018 8:03 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Andrie,
Jika kolom terakhir (lokasi total) adalah tetap (misal di kolom Z [kolom
ke-26 Excel]) dan kolom ke-1 (kolom A) selalu ada isinya (seperti
keterangan item), penyalinan mulai baris 1, bisa begini :
with worksheets("SumberData").range("a1:a25")
Worksheets("LokasiPaste").cells( 1 , 26
).end(xltoleft).offset(0,1).value= .value
end with
Jika ingin diberi pemeriksaan apakah masih ada ruang kosong sebelum kolom Z
(misal data bisa disalin sampai kolom Y, dan supaya tidak terpaste ke kolom
Z (kolom total)
with worksheets("SumberData").range("a1:a25")
if len( Worksheets("LokasiPaste").cells( 1 , 25 ).value )=0 then
Worksheets("LokasiPaste").cells( 1 , 26
).end(xltoleft).offset(0,1).value= .value
endif
end with
Jika kolom total tidak tetap, tapi selalu terkanan jauh :
with worksheets("SumberData").range("a1:a25")
Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count
).end(xltoleft).end(xltoleft).offset(0,1).value= .value 'yup, pakai 2
kali end()
end with
Jika kolom total tidak tetap, tapi selalu terkanan jauh DAN ingin diberi
pemeriksaan apakah masih ada ruang kosong sebelum kolom total (yang
terkanan jauh)
with worksheets("SumberData").range("a1:a25")
if len( Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count ).end(xltoleft).offset(0,-1).value
)=0 then
Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count
).end(xltoleft).end(xltoleft).offset(0,1).value= .value 'yup, pakai 2
kali end()
endif
end with
Regards,
Kid
2018-05-04 15:05 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel...
> Mohon bantuannya, ane punya data disheet1 dan ingin mengcopy pastekannya
> ketabel disheet2 (range A1:I25) dikolom terakhir yg kosong dengan
> menggunakan:
>
> With Worksheets("Sheet1")
> AD = .Range("A1:A25").Value
> End With
>
> With Worksheets("Sheet2")
> ColumnTerakhir = .Cells(1, .Columns.Count).End(xlToLeft).Column
> ColumnTujuan = ColumnTerakhir + 1
> .Range(.Cells(1, ColumnTujuan), .Cells(25, ColumnTujuan)).Value =
> AD
> End With
>
> Permasalahannya diujung tabel ada kolom untuk jumlah, ketika script
> dijalankan data sheet1 malah terpaste keujung kolom disebelah kanan kolom
> jumlah bkn dikolom terakhir yg kosong didalam range table...
>
> Mohon kiranya dapat memberikan solusi untuk permasalahan ane, terimakasih
> sebelumnya...
>
> File ane lampirkan....
>
>
>
> Andrie Amorius, SE. Ak
> Task Force PSAK 71
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> Pekanbaru - Riau (28116)
>
>
>
Jika kolom terakhir (lokasi total) adalah tetap (misal di kolom Z [kolom
ke-26 Excel]) dan kolom ke-1 (kolom A) selalu ada isinya (seperti
keterangan item), penyalinan mulai baris 1, bisa begini :
with worksheets("SumberData").range("a1:a25")
Worksheets("LokasiPaste").cells( 1 , 26
).end(xltoleft).offset(0,1).value= .value
end with
Jika ingin diberi pemeriksaan apakah masih ada ruang kosong sebelum kolom Z
(misal data bisa disalin sampai kolom Y, dan supaya tidak terpaste ke kolom
Z (kolom total)
with worksheets("SumberData").range("a1:a25")
if len( Worksheets("LokasiPaste").cells( 1 , 25 ).value )=0 then
Worksheets("LokasiPaste").cells( 1 , 26
).end(xltoleft).offset(0,1).value= .value
endif
end with
Jika kolom total tidak tetap, tapi selalu terkanan jauh :
with worksheets("SumberData").range("a1:a25")
Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count
).end(xltoleft).end(xltoleft).offset(0,1).value= .value 'yup, pakai 2
kali end()
end with
Jika kolom total tidak tetap, tapi selalu terkanan jauh DAN ingin diberi
pemeriksaan apakah masih ada ruang kosong sebelum kolom total (yang
terkanan jauh)
with worksheets("SumberData").range("a1:a25")
if len( Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count ).end(xltoleft).offset(0,-1).value
)=0 then
Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count
).end(xltoleft).end(xltoleft).offset(0,1).value= .value 'yup, pakai 2
kali end()
endif
end with
Regards,
Kid
2018-05-04 15:05 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel...
> Mohon bantuannya, ane punya data disheet1 dan ingin mengcopy pastekannya
> ketabel disheet2 (range A1:I25) dikolom terakhir yg kosong dengan
> menggunakan:
>
> With Worksheets("
> AD = .Range("
> End With
>
> With Worksheets("
> ColumnTerakhir = .Cells(1, .Columns.Count)
> ColumnTujuan = ColumnTerakhir + 1
> .Range(.Cells(
> AD
> End With
>
> Permasalahannya diujung tabel ada kolom untuk jumlah, ketika script
> dijalankan data sheet1 malah terpaste keujung kolom disebelah kanan kolom
> jumlah bkn dikolom terakhir yg kosong didalam range table...
>
> Mohon kiranya dapat memberikan solusi untuk permasalahan ane, terimakasih
> sebelumnya..
>
> File ane lampirkan...
>
>
>
> Andrie Amorius, SE. Ak
> Task Force PSAK 71
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> Pekanbaru - Riau (28116)
>
>
>
Sun May 6, 2018 7:48 am (PDT) . Posted by:
"Andrie Amorius"
Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
With Worksheets("Sheet1").Range("A1:A25")
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).Value =
...Value
End If
End With
Koq cm baris pertama aja yg tercopy paste gan, kan range copynya ada
25baris.
Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
Terimakasih, maaf ngerepotin...
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)
With Worksheets("
If Len(Worksheets(
Worksheets("
...Value
End If
End With
Koq cm baris pertama aja yg tercopy paste gan, kan range copynya ada
25baris.
Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
Terimakasih, maaf ngerepotin..
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)
Sun May 6, 2018 7:50 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
With Worksheets("Sheet1")..Range("A1:A25")
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
1).resize(.rows.count,1).Value = .Value
End If
End With
2018-05-06 21:45 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
>
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).Value
> = .Value
> End If
> End With
>
> Koq cm baris pertama aja yg tercopy paste gan, kan range copynya ada
> 25baris.
> Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
>
> Terimakasih, maaf ngerepotin...
>
>
> Andrie Amorius, SE. Ak
> Divisi Manajemen Risiko (MRI)
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=gmail&source=g>
> Pekanbaru - Riau (28116
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=gmail&source=g>
> )
>
>
>
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
1).resize(.rows.count,1).Value = .Value
End If
End With
2018-05-06 21:45 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
>
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).Value
> = .Value
> End If
> End With
>
> Koq cm baris pertama aja yg tercopy paste gan, kan range copynya ada
> 25baris.
> Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
>
> Terimakasih, maaf ngerepotin...
>
>
> Andrie Amorius, SE. Ak
> Divisi Manajemen Risiko (MRI)
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=gmail&source=g>
> Pekanbaru - Riau (28116
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=
> )
>
>
>
Sun May 6, 2018 8:17 am (PDT) . Posted by:
"Andrie Amorius"
Solved gan terimakasih buanyak...
Satu lg gan klu wat menghapusnya gmn gan, data yg terhapus adalah data pada
kolom terakhir dirange tabel dengan kolom jumlah selalu berada diujung
kanan kolom.
Terimakasih....
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)
Satu lg gan klu wat menghapusnya gmn gan, data yg terhapus adalah data pada
kolom terakhir dirange tabel dengan kolom jumlah selalu berada diujung
kanan kolom.
Terimakasih.
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)
Sun May 6, 2018 8:20 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
With Worksheets("Sheet1")..Range("A1:A25")
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1,
9).End(xlToLeft).resize(.rows.count,1).clearcontents
else
Worksheets("Sheet2").Cells(1,
8).resize(.rows.count,1).clearcontents
End If
End With
2018-05-06 22:02 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Solved gan terimakasih buanyak...
>
> Satu lg gan klu wat menghapusnya gmn gan, data yg terhapus adalah data
> pada kolom terakhir dirange tabel dengan kolom jumlah selalu berada diujung
> kanan kolom.
>
> Terimakasih....
>
>
>
> Andrie Amorius, SE. Ak
> Divisi Manajemen Risiko (MRI)
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=gmail&source=g>
> Pekanbaru - Riau (28116
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=gmail&source=g>
> )
>
>
>
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1,
9).End(xlToLeft).resize(.rows.count,1).clearcontents
else
Worksheets("Sheet2").Cells(1,
8).resize(.rows.count,1).clearcontents
End If
End With
2018-05-06 22:02 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Solved gan terimakasih buanyak...
>
> Satu lg gan klu wat menghapusnya gmn gan, data yg terhapus adalah data
> pada kolom terakhir dirange tabel dengan kolom jumlah selalu berada diujung
> kanan kolom.
>
> Terimakasih....
>
>
>
> Andrie Amorius, SE. Ak
> Divisi Manajemen Risiko (MRI)
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=gmail&source=g>
> Pekanbaru - Riau (28116
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+(28116&entry=
> )
>
>
>
Sun May 6, 2018 9:17 am (PDT) . Posted by:
"Andrie Amorius"
Solved lagi gan terimakasih buanyak...
Maaf ngerepotin terus neh, Sukses selalu & sehat wal afiat... Amiiiinnnn...
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)
Maaf ngerepotin terus neh, Sukses selalu & sehat wal afiat... Amiiiinnnn..
Andrie Amorius, SE. Ak
Divisi Manajemen Risiko (MRI)
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)
Sun May 6, 2018 6:27 pm (PDT) . Posted by:
"NangAgus"
Asalamualaikum warahmatullah,
Mohon maaf mas Kid, ikut bertanya:
tentang dua titik pada cekrip pertama?
With Worksheets("Sheet1")..Range("A1:A25")
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
1).resize(.rows.count,1).Value = .Value
End If
End With
Sukron
Wasalamualaikum warahmatullah,
On 5/6/2018 9:49 PM, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
> 1).resize(.rows.count,1).Value = .Value
> End If
> End With
>
> 2018-05-06 21:45 GMT+07:00 Andrie Amorius bm78ar@gmail.com
> <mailto:bm78ar@gmail.com> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>>:
>
> Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
>
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
> 1).Value = .Value
> End If
> End With
>
> Koq cm baris pertama aja yg tercopy paste gan, kan range copynya
> ada 25baris.
> Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
>
> Terimakasih, maaf ngerepotin...
>
>
> Andrie Amorius, SE. Ak
> Divisi Manajemen Risiko (MRI)
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+%2828116&entry=gmail&source=g>
> Pekanbaru - Riau (28116
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+%2828116&entry=gmail&source=g>)
>
>
>
Mohon maaf mas Kid, ikut bertanya:
tentang dua titik pada cekrip pertama?
With Worksheets("Sheet1")..Range("A1:A25")
If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
1).resize(.rows.count,1).Value = .Value
End If
End With
Sukron
Wasalamualaikum warahmatullah,
On 5/6/2018 9:49 PM, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
> 1).resize(.rows.count,1).Value = .Value
> End If
> End With
>
> 2018-05-06 21:45 GMT+07:00 Andrie Amorius bm78ar@gmail.com
> <mailto:bm78ar@gmail.com> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>>:
>
> Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
>
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0,
> 1).Value = .Value
> End If
> End With
>
> Koq cm baris pertama aja yg tercopy paste gan, kan range copynya
> ada 25baris.
> Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
>
> Terimakasih, maaf ngerepotin...
>
>
> Andrie Amorius, SE. Ak
> Divisi Manajemen Risiko (MRI)
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+%2828116&entry=gmail&source=g>
> Pekanbaru - Riau (28116
> <https://maps.google.com/?q=JL.+Jend.+Sudirman+No.+462+Pekanbaru+-+Riau+%2828116&entry=gmail&source=g>)
>
>
>
Sun May 6, 2018 10:02 pm (PDT) . Posted by:
"Andrie Amorius"
Maaf NangAgus, keknya itu cm kesalahan ketik aja soalnya pas dipastekan tu
script ke VBA pasti error jadi warna merah n setelah didelete titiknya 1 br
jadi hitam n g error lg...
Sudah terjawab pertanyaan saya dgn kedua script dr Mr. Kid...
Sekali lagi terimakasih Mr. Kid, jgn bosen ngasi solusi wat ane n yg
laennya n sukses selalu...
script ke VBA pasti error jadi warna merah n setelah didelete titiknya 1 br
jadi hitam n g error lg...
Sudah terjawab pertanyaan saya dgn kedua script dr Mr. Kid...
Sekali lagi terimakasih Mr. Kid, jgn bosen ngasi solusi wat ane n yg
laennya n sukses selalu...
Sun May 6, 2018 10:04 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Hehehe...
Typo..
Cukup 1 titik saja
Makasih ya..
Wassalamu'alaikum wr wb
Kid
Sent from my smart enough phone
> On May 7, 2018, at 08:27, NangAgus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Asalamualaikum warahmatullah,
> Mohon maaf mas Kid, ikut bertanya:
>
> tentang dua titik pada cekrip pertama?
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).resize(.rows.count,1).Value = .Value
> End If
> End With
>
> Sukron
> Wasalamualaikum warahmatullah,
>
>> On 5/6/2018 9:49 PM, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>>
>> With Worksheets("Sheet1")..Range("A1:A25")
>> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
>> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).resize(.rows.count,1).Value = .Value
>> End If
>> End With
>>
>> 2018-05-06 21:45 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>> Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
>>>
>>> With Worksheets("Sheet1")..Range("A1:A25")
>>> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
>>> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).Value = .Value
>>> End If
>>> End With
>>>
>>> Koq cm baris pertama aja yg tercopy paste gan, kan range copynya ada 25baris.
>>> Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
>>>
>>> Terimakasih, maaf ngerepotin...
>>>
>>>
>>> Andrie Amorius, SE. Ak
>>> Divisi Manajemen Risiko (MRI)
>>> PT. Bank Riau Kepri
>>> Gedung Menara Dang Merdu Bank Riau Kepri
>>> JL. Jend. Sudirman No. 462
>>> Pekanbaru - Riau (28116)
>>
>
>
Hehehe...
Typo..
Cukup 1 titik saja
Makasih ya..
Wassalamu'alaikum wr wb
Kid
Sent from my smart enough phone
> On May 7, 2018, at 08:27, NangAgus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Asalamualaikum warahmatullah,
> Mohon maaf mas Kid, ikut bertanya:
>
> tentang dua titik pada cekrip pertama?
> With Worksheets("Sheet1")..Range("A1:A25")
> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).resize(.rows.count,1).Value = .Value
> End If
> End With
>
> Sukron
> Wasalamualaikum warahmatullah,
>
>> On 5/6/2018 9:49 PM, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>>
>> With Worksheets("Sheet1")..Range("A1:A25")
>> If Len(Worksheets("Sheet2").Cells(1, 8).Value) = 0 Then
>> Worksheets("Sheet2").Cells(1, 9).End(xlToLeft).Offset(0, 1).resize(.rows.count,1).Value = .Value
>> End If
>> End With
>>
>> 2018-05-06 21:45 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>> Terimakasih Mr. Kid py setelah ane ubah scriptnmya jadi:
>>>
>>> With Worksheets("
>>> If Len(Worksheets(
>>> Worksheets("
>>> End If
>>> End With
>>>
>>> Koq cm baris pertama aja yg tercopy paste gan, kan range copynya ada 25baris.
>>> Apa ada yg salah ato kurang, mohon bantuannya lagi gan...
>>>
>>> Terimakasih, maaf ngerepotin..
>>>
>>>
>>> Andrie Amorius, SE. Ak
>>> Divisi Manajemen Risiko (MRI)
>>> PT. Bank Riau Kepri
>>> Gedung Menara Dang Merdu Bank Riau Kepri
>>> JL. Jend. Sudirman No. 462
>>> Pekanbaru - Riau (28116)
>>
>
>
Fri May 4, 2018 8:26 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai triyaswahyu,
Harus VBA ya...
hmm... yang ini tidak pakai VBA (sila tunggu yang pakai VBA ya)
Ikuti langkah berikut dengan seksama :
1. tulis header di A1 sampai C1
misal A1 diberi kata RANDOM, B1 ber-header FIX, C1 berisi STATUS
2. blok A1:C2 (yup, 2 baris x 3 kolom) -> ribbon HOME -> grup menu STYLES
-> klik Format as Table -> pilih salah satu style (bebas) -> muncul dialog,
centang has header -> OK
3. cells A2 isi dengan formula : [pakai regional setting English]
=RandBetween(0,100000)
4. cells C2 isi dengan formula :
=len(b2) * (b2<>a2)
5. atur format di C2 :
klik kanan cells C2 -> pilih Format cells -> tab Number -> pilih item
CUSTOM -> pada textbox tulis bunyi berikut ini lalu tekan OK
"DONE";;"ERROR"
6. pada cells B2 isi angka 3
pada cells B3 isi angka 17
ulangi terus sampai sepuasnya
(TIDAK perlu copy baris, langsung klik B2 ketik 3 ENTER ketik 17 ENTER
ketik angka berikut ENTER berikutnya ENTER sampai capek)
Sampai disini, pertanyaan 1 sudah clear.
Untuk pertanyaan 2, dibuat di sheet baru saja, supaya mudah dipelajari.
Berikut langkahnya :
1. ikuti langkah 1 sampai 5 pada cara di atas. (yup, hanya sampai langkah 5
saja dulu)
2. pada cells B2 tulis formula =2*RandBetween( 0 , 50000 )
3. perhatikan baik-baik :
di kanan bawah cells C2 ada segitiga kecil, itu batas kanan bawah Excel
Table
klik terus menerus segitiga kecil itu, tarik ke bawah sampai baris
Excel yang Anda sukai.
4. kalau punya data di cells lain, misal di cells G1:G10 diblok, ketik
formula =2*RandBetween( 0 , 50000 ) (JANGAN TEKAN ENTER), tapi tekan
bersamaan CTRL SHIFT ENTER
copy cells G1:G10
klik kanan cells kosong pertama di kolom B
pilih Paste Special -> pilih Values -> tekan OK
ulangi sampai Anda puas
Regards,
Kid
2018-05-04 1:57 GMT+07:00 triyaswahyu@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Hallo teman2 saya mohon bantunnya urgent
>
> @ kolom kuantitas C2 sampai row akhir nilainya random angka
> @ kolom input D2 sampai row akhir nilainya di input angka
> @ kolom result E2 sampai row akhir hasil error bila angka C2 DAN D2 TIDAK
> SAMA
>
> Permasalahan jika kolom D2 diinput angka kelipatan 2 atau 4 atau 8
> seterusnya 100 ribu dan nilainya sama dengan kolom E2 kuantitas maka
> resultnya di kolom E2 DONE, Apabila angka kelipatan tidak sama maka E2
> ERROR.
>
> 1. bagaimana caranya codingnya di VBA kalau kolom C2 (kuantitas) diisi auto
> dynamic.
> 2. bagaimana caranya codingnya di VBA PERULANGAN kelipatan 2 atau 4 atau 8
> dan seterusnya 100 ribu.
>
>
Harus VBA ya...
hmm... yang ini tidak pakai VBA (sila tunggu yang pakai VBA ya)
Ikuti langkah berikut dengan seksama :
1. tulis header di A1 sampai C1
misal A1 diberi kata RANDOM, B1 ber-header FIX, C1 berisi STATUS
2. blok A1:C2 (yup, 2 baris x 3 kolom) -> ribbon HOME -> grup menu STYLES
-> klik Format as Table -> pilih salah satu style (bebas) -> muncul dialog,
centang has header -> OK
3. cells A2 isi dengan formula : [pakai regional setting English]
=RandBetween(0,100000)
4. cells C2 isi dengan formula :
=len(b2) * (b2<>a2)
5. atur format di C2 :
klik kanan cells C2 -> pilih Format cells -> tab Number -> pilih item
CUSTOM -> pada textbox tulis bunyi berikut ini lalu tekan OK
"DONE";;"ERROR"
6. pada cells B2 isi angka 3
pada cells B3 isi angka 17
ulangi terus sampai sepuasnya
(TIDAK perlu copy baris, langsung klik B2 ketik 3 ENTER ketik 17 ENTER
ketik angka berikut ENTER berikutnya ENTER sampai capek)
Sampai disini, pertanyaan 1 sudah clear.
Untuk pertanyaan 2, dibuat di sheet baru saja, supaya mudah dipelajari.
Berikut langkahnya :
1. ikuti langkah 1 sampai 5 pada cara di atas. (yup, hanya sampai langkah 5
saja dulu)
2. pada cells B2 tulis formula =2*RandBetween( 0 , 50000 )
3. perhatikan baik-baik :
di kanan bawah cells C2 ada segitiga kecil, itu batas kanan bawah Excel
Table
klik terus menerus segitiga kecil itu, tarik ke bawah sampai baris
Excel yang Anda sukai.
4. kalau punya data di cells lain, misal di cells G1:G10 diblok, ketik
formula =2*RandBetween( 0 , 50000 ) (JANGAN TEKAN ENTER), tapi tekan
bersamaan CTRL SHIFT ENTER
copy cells G1:G10
klik kanan cells kosong pertama di kolom B
pilih Paste Special -> pilih Values -> tekan OK
ulangi sampai Anda puas
Regards,
Kid
2018-05-04 1:57 GMT+07:00 triyaswahyu@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Hallo teman2 saya mohon bantunnya urgent
>
> @ kolom kuantitas C2 sampai row akhir nilainya random angka
> @ kolom input D2 sampai row akhir nilainya di input angka
> @ kolom result E2 sampai row akhir hasil error bila angka C2 DAN D2 TIDAK
> SAMA
>
> Permasalahan jika kolom D2 diinput angka kelipatan 2 atau 4 atau 8
> seterusnya 100 ribu dan nilainya sama dengan kolom E2 kuantitas maka
> resultnya di kolom E2 DONE, Apabila angka kelipatan tidak sama maka E2
> ERROR.
>
> 1. bagaimana caranya codingnya di VBA kalau kolom C2 (kuantitas) diisi auto
> dynamic.
> 2. bagaimana caranya codingnya di VBA PERULANGAN kelipatan 2 atau 4 atau 8
> dan seterusnya 100 ribu.
>
>
Fri May 4, 2018 8:44 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Hai Muhabka,
Array formula (tulis formula langsung tekan CTRL SHIFT ENTER bersamaan) :
[regional setting English]
1. Jika parameter tersusun Descending
=INDEX($E$2:$E$4,MIN(IF(ISNUMBER(MATCH("*"&$E$2:$E$4&"*",B2,0)),{1;2;3})))
2. Jika parameter tersusun Ascending
=INDEX($E$2:$E$4,MAX(IFERROR(MATCH("*"&$E$2:$E$4&"*",B2,0)*{1;2;3},0)))
Wassalamu'alaikum wr wb
Kid
2018-05-04 21:22 GMT+07:00 Abid Kausar muhabka@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear master
>
> mohon bantuannya...
>
> saya memiliki data risk level yang terdiri dari High, Moderate dan Low
> dari data tersebut terdapat beberapa risk level tergabung dalam satu kolom.
>
> saya ingin dari kolom tsb mengeluarkan satu hasil risk level yang
> tertinggi saja.
> seperti terlihat pada contoh di attachment
>
> Terima kasih sebelumnya Master atas bantuannya
>
>
> Wassalam
> Muhabka
>
>
>
Hai Muhabka,
Array formula (tulis formula langsung tekan CTRL SHIFT ENTER bersamaan) :
[regional setting English]
1. Jika parameter tersusun Descending
=INDEX($E$2:$E$4,MIN(IF(ISNUMBER(MATCH("*"&$E$2:$E$4&"*",B2,0)),{1;2;3})))
2. Jika parameter tersusun Ascending
=INDEX($E$2:$E$4,MAX(IFERROR(MATCH("*"&$E$2:$E$4&"*",B2,0)*{1;2;3},0)))
Wassalamu'alaikum wr wb
Kid
2018-05-04 21:22 GMT+07:00 Abid Kausar muhabka@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear master
>
> mohon bantuannya..
>
> saya memiliki data risk level yang terdiri dari High, Moderate dan Low
> dari data tersebut terdapat beberapa risk level tergabung dalam satu kolom.
>
> saya ingin dari kolom tsb mengeluarkan satu hasil risk level yang
> tertinggi saja.
> seperti terlihat pada contoh di attachment
>
> Terima kasih sebelumnya Master atas bantuannya
>
>
> Wassalam
> Muhabka
>
>
>
============================================================
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
---------------------------------------------------------------------
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