Senin, 06 Mei 2013

[belajar-excel] Digest Number 2283

6 New Messages

Digest #2283
1a
Re: Kali data by "Mr. Kid" nmkid.family@ymail.com
2a
3a
Re: menghapus data dilistbox by "Mr. Kid" nmkid.family@ymail.com
4a
Re: vba-macro-copypastesort by "Mr. Kid" nmkid.family@ymail.com
4b
Re: vba-macro-copypastesort by "Hendrik Karnadi" hendrikkarnadi
5
rumus eomonth berjalan di combobox by "achmad adi" didon13@ymail.com

Messages

Mon May 6, 2013 3:46 am (PDT) . Posted by:

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

Bisa diceritakan bagaimana proses yang dilakukan, mulai dapat file sumber,
diapakan, lalu di copy atau disalin per cell atau per kolom atau per banyak
kolom ?
Semua cell atau hanya sebagian cell ?

Jika file sumber berisi data untuk waktu tertentu lalu di input (entry atau
copas) per waktu alias bertambah kekanan, maka penyusunan data seperti ini
kurang efisien. btw, secara umum, untuk keadaan tersebut biasanya dengan
sebuah tombol lalu lakukan proses copy dari sheet atau workbook lain yang
berisi sumber data, kemudian paste ke lokasi tujuan di file penyimpanan
data. Artinya, selalu diusahakan mendapatkan suatu file sumber yang sebisa
mungkin berupa excel workbook (seapesnya, bisa berupa text file).

Wassalam,
Kid.

2013/5/5 lkm jktind <lkmjktind@gmail.com>

> **
>
>
> Pak Kid.
>
> Bagaimana cara pakai nya ?
> dengan contoh file (terlampir)
>
> Salam
>
> Lukman
>
> Nb: sumber data dari file PDF .
> Kalau digit nya banyak ---pakai copy , paste .
> Kalau digitnya dikit diketik.
>
> Kalau bisa di ubah di kalikan --- berarti bisa juga langsung di
> kalikan dengan kurs nya -- rows 3.
> untuk disama kan mata uangnya.
>
>
>
>
>
> 2013/5/4 Mr. Kid <mr.nmkid@gmail.com>
>
> **
>>
>>
>> hohoho....
>> ada kalimat berbunyi :
>>
>> nb : biar nga tiap hari . ketik ribuan angka 0.
>> artinya boleh berubah saat dilakukan input, maka bisa juga dengan VBA
>> pada event worksheet change yang diisi begini :
>>
>> with target 'pada range yang berubah isinya
>> if .count=1 then 'cek jumlah cell yang berubah cuma 1 bijik
>> if isnumeric(.value) then 'cek isi yang berubah bisa jadi
>> bertipe numerik
>> application.enableevents=FALSE 'opken eksekusi
>> ipen
>> select case
>> .column 'pilih berdasar nomor
>> indeks kolom
>> case
>> 1
>> 'kolom A (indeks 1) ditambah 6 bijik 0
>>
>> .value=.value*1000000 'nilai
>> di range itu diisi dengan nilai dirange itu juga yang dikali sejuta
>> case
>> 2
>> 'kolom B (indeks 2) ditambah 3 bijik 0
>>
>> .value=.value*1000
>> 'nilai di range itu diisi dengan nilai dirange itu juga yang dikali seribu
>> end
>> select
>> 'selesai pilih-pilih berdasar indeks kolom
>> application.enableevents=TRUE 'onken eksekusi
>> ipen
>> endif 'selesai cek bisa jadi
>> tipe numerik
>> endif 'selesai cek jumlah cell yang
>> berubah isi
>> end with 'selesai kerja di range yang berubah isi
>>
>> jadi ndak perlu pencet ctrl w dan ctrl lainnya. tulis saja dan sim
>> salabim dibantu yak... cling...
>>
>> nah... kalau mengabaikan kalimat n.b. tadi... bisa juga dengan copasspec
>> misal data di kolom A (pencet ctrl w katanya) dikali sejuta
>>
>> dim sHead as string
>> with sheets("namasheetnya&quot;).range("a1").currentregion.resize(,1)
>> shead=.resize(1,1).value
>> .resize(1,1).value=1000000
>> .resize(1,1).copy
>> .pastespecial xlpastevalues,xlpastespecialoperationmultiply,true
>> .resize(1,1).value=shead
>> end with
>>
>> yang ctrl lainnya untuk dikali seribu bisa dibuat sendiri ya
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2013/5/4 lkm jktind <lkmjktind@gmail.com>
>>
>>> **
>>>
>>>
>>> Terima kasih . Pak Wiranata.
>>>
>>> Sudah bisa .
>>>
>>> Cuma Kalau saya rubah menjadi : apa akibatnya ?
>>>
>>>
>>> If IsEmpty(ActiveCell) = False Then
>>> For Each cell In Selection
>>> cell.Value = cell * 1000000
>>> Next cell
>>> End If
>>>
>>> jadi hasil nya langsung di kolom A .
>>>
>>>
>>> Salam
>>>
>>> Lukman
>>>
>>> nb : biar nga tiap hari . ketik ribuan angka 0.
>>>
>>>
>>> On Sat, May 4, 2013 at 12:53 PM, WIRAnata Kemala Deng <
>>> kwiranata@gmail.com> wrote:
>>>
>>>> **
>>>>
>>>>
>>>> bisa dicoba VBA di bawah ini :
>>>>
>>>> Sub columnA()
>>>>
>>>> Dim cell As Range
>>>>
>>>> 'Range("A2").Activate
>>>>
>>>> If IsEmpty(ActiveCell) = False Then
>>>> For Each cell In Selection
>>>> cell.Offset(0, 1).Value = cell * 1000000
>>>> Next cell
>>>> End If
>>>>
>>>> End Sub
>>>>
>>>>
>>>>
>>>> Sub columnD()
>>>>
>>>> Dim cell As Range
>>>>
>>>> 'Range("D2").Activate
>>>>
>>>> If IsEmpty(ActiveCell) = False Then
>>>> For Each cell In Selection
>>>> cell.Offset(0, 1).Value = cell * 1000
>>>> Next cell
>>>> End If
>>>>
>>>>
>>>> End Sub
>>>>
>>>>
>>>> xlm attached.
>>>>
>>>> select rows column A, lalu ctrl+w
>>>> yang satu lagi, select rows column D, lalu ctrl+q
>>>>
>>>> semoga membantu , maap kalo coding nya kurang rapih or canggih :)
>>>>
>>>> regards, Wira
>>>>
>>>>
>>>> 2013/5/4 lkm jktind <lkmjktind@gmail.com>
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Maaf . contoh file, ketinggalan
>>>>>
>>>>>
>>>>> 2013/5/4 lkm jktind <lkmjktind@gmail.com>
>>>>>
>>>>>> Data di kolom A : hendak di kalikan dengan 1.000.000
>>>>>> Data di kolom D : hendak di kalikan dengan 1.000
>>>>>>
>>>>>> Hasil yg di kehendaki :
>>>>>> data di A1:A5 diblok manual ---> tekan ctrl+w -- hasilnya *
>>>>>> 1.juta
>>>>>> data di B1:B5 diblok manual ----> tekan ctrl+q --- hasilnya *
>>>>>> 1.ribu
>>>>>> dengan macro
>>>>>>
>>>>>> Mohon bantuannya .
>>>>>>
>>>>>> Salam
>>>>>>
>>>>>> Lukman
>>>>>>
>>>>>
>>>>>
>>>>
>>>
>>
>
>

Mon May 6, 2013 3:47 am (PDT) . Posted by:

"lapendosol opik" lapendosol

Trimakasih pak HK, sudah berhasil dipasang di excel 2010

Buat Bu Himmah,
Dengan bantuan aplikasi lain register ocx atau yang lain lebih mudah
Perlu di coba Bu
Hehehe

________________________________
From: him mah <himmah.mlg@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, May 6, 2013 4:02 PM
Subject: Re: [belajar-excel] hendrik karnadi shared "MSCAL.zip" with you


 
cuma masukan saja pak, kadang ngga semua user bisa melakukan register
mscal, bisa ngga dibuat menjadi file exe sehingga tinggal klik saja
terus otomatis (tidak manual) akan menjalankan perintah copy dan
register sesuai denagn versi komputernya masing-masing

Pada tanggal 06/05/13, him mah <himmah.mlg@gmail.com> menulis:
> sip pak hendrik, saya coba koq berhasil ya, terima kasih
>
> Pada tanggal 06/05/13, Hendrik via Dropbox <hendrikkarnadi@yahoo.com>
> menulis:
>> Hendrik's message:
>>
>> "Buat teman2 yang telah kehilangan atau belum bisa menginstal Calendar
>> Control, khususnya Excel 2010 bisa connet ke link di bawah ini (saya
>> dapat
>> dari internet).
>>
>> Salam,
>> HK"
>>
>> Click here to view:
>> https://www.dropbox.com/l/XvYLPpovnjBpLNlu2zOjX7
>>
>> (Hendrik shared this file using Dropbox. Enjoy!)
>

Mon May 6, 2013 3:55 am (PDT) . Posted by:

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

Bagaimana jika dijelaskan secara rinci tentang sumber data yang diletakkan
dalam listbox (memiliki unique key atau tidak, dsb) disertai kriteria dan
cara memasukkan data ke dalam listbox yang sudah dimiliki. Contoh data saja
(max 250KB).

Kira-kira gini gambarannya.
- Jika listbox diisi dengan sebuah tabel utuh yang ada di A1:G234, maka
baris yang dipilih dalam listbox adalah cell ke nilai indeks item terpilih
dalam listbox. Contoh, listbox dipilih item ke-7, maka listindex-nya adalah
6. Berarti bisa dengan script :
range("a1:g1").offset( listbox.listindex ).delete xlshiftup
'setelah itu harus ada pembaruan isi listbox

- Jika listbox diisi dengan record-record pilihan dari tabel yang tidak
berurutan letaknya ataupun titik mulanya, maka perlu mencari record
berdasar kolom kuncinya.

Wassalam,
Kid.

2013/5/5 Penggoda Iman <b3ki_cot@yahoo.co.id>

> **
>
>
> bagaimana menghapuys data disheet yang ditampilkan dilistbox
>
>
>

Mon May 6, 2013 3:59 am (PDT) . Posted by:

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

Coba diposting hasil record macro yang error tersebut.
Siapa tahu akan lebih banyak membantu.

Wassalam,
Kid.

2013/5/5 agus salim <agsalimtu@yahoo.co.id>

> **
>
>
> sudah aku coba masbro
>
> tapi macronya erorr terus...kurang paham aku
>
>
> thanks
> asalim
>
> ------------------------------
> *Dari:* hendrik karnadi <hendrikkarnadi@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Minggu, 5 Mei 2013 11:25
> *Judul:* Re: [belajar-excel] vba-macro-copypastesort
>
>
> Coba dengan macro recording kemudian diedit.
>
> Salam,
> HK
>
> ------------------------------
> *From:* agus salim <agsalimtu@yahoo.co.id>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Sunday, 5 May 2013, 8:04
> *Subject:* [belajar-excel] vba-macro-copypastesort
>
>
>
>
>
> Dear All
>
> Mohon penjelasan bagaimana caranya jika menggunakan macro atau VBA
> -Dari sheet "Harian-Record colom A" ==> Copy A2:A16
> -Ke Sheet "N-Cashflow di colom B" ==> Paste B2
> -delete duplicate data
> -delete baris kosong
> -sorting
>
> Nah bagaimana cara macro atau VBA nya....saya coba kok gak bisa ya??
> File Terlampir
>
> mohon penjelasan
>
> trimakasih
> asallim
>
>
>
>
>
>
>
>

Mon May 6, 2013 5:40 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Saran Mr. Kid perlu dipertimbangkan. Dengan mencoba, salah, coba lagi,  akhirnya kita mendapatkan yg benar. Ini akan terserap ke dlm memori kita dan dapat digunakan/dikembangkan di kmdn hari.

Salam,
HK

Sent from Samsung Mobile"Mr. Kid" <mr.nmkid@gmail.com> wrote:Coba diposting hasil record macro yang error tersebut.
Siapa tahu akan lebih banyak membantu.

Wassalam,
Kid.

2013/5/5 agus salim <agsalimtu@yahoo.co.id>
 
sudah aku coba masbro

tapi macronya erorr terus...kurang paham aku

thanks
asalim

Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 5 Mei 2013 11:25
Judul: Re: [belajar-excel] vba-macro-copypastesort

 
Coba dengan macro recording kemudian diedit.

Salam,
HK

From: agus salim <agsalimtu@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Sunday, 5 May 2013, 8:04
Subject: [belajar-excel] vba-macro-copypastesort

 

Dear All

Mohon penjelasan bagaimana caranya jika menggunakan macro atau VBA
-Dari sheet "Harian-Record colom A" ==> Copy A2:A16
-Ke Sheet "N-Cashflow di colom B" ==> Paste  B2
-delete duplicate data
-delete baris kosong
-sorting

Nah bagaimana cara macro atau VBA nya....saya coba kok gak bisa ya??
File Terlampir

mohon penjelasan

trimakasih
asallim

Mon May 6, 2013 5:04 am (PDT) . Posted by:

"achmad adi" didon13@ymail.com

saya lampirkan filenya,,,,mohon pencerahaanya,,,karena saya telah mencoba,,tetapi ketika bulan terakhir dan pergantian tahun,,,rumus tidak jalan,,,
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

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

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

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

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

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

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

Tidak ada komentar:

Posting Komentar