Minggu, 05 Mei 2013

[belajar-excel] Digest Number 2281

9 New Messages

Digest #2281
1a
Re: Kopi darat belum mendarat? by "Aliif Akbar" aliif.akbar
2a
vba-macro-copypastesort by "agus salim" agsalimtu
2b
Re: vba-macro-copypastesort by "hendrik karnadi" hendrikkarnadi
2d
Re: vba-macro-copypastesort by "WIRAnata Kemala Deng" kwiranata
3a
Re: Kali data by "lkm jktind" lkmjkt
4a
5
menghapus data dilistbox by "Penggoda Iman" b3ki_cot

Messages

Sat May 4, 2013 6:40 pm (PDT) . Posted by:

"Aliif Akbar" aliif.akbar

Terimakasih pak,
Di note,

Salam,

AA,


Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "aderusliana@gmail.com" <aderusliana@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sat, 4 May 2013 22:37:06
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Kopi darat belum mendarat?

Pak Ali IF,



Saya ada usul sedikit.

Sekalian fasilitasi juga untuk BeExceller yang berhalangan hadir di kopdar untuk mendapatkan oleh2nya, dipaket saja kengkap isinya bias berupa kaos, CD materi, dan lainnya yang diras perlu. tentukan jumlah, pengiriman dan batas waktu pembiayaannya.

Terimakasih semoga Sukses.



Salam,

Ade Rusliana


Sent from Windows Mail


From: Aliif Akbar
Sent: ‎May‎ ‎5‎, ‎2013 ‎3‎:‎00‎ ‎AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kopi darat belum mendarat?






Melengkapi sedikit,

Saya lagi desain baju buat oleh2 saat kopdar, atau hadiah buat yang diluar kota Jakarta (tapi bayar ya? Heheheheee)
Baju saya buat dengan 2 type, Type kemeja dengan kaos polo berkerah, dengan kisaran harga kemeja kira2 85-100rb, dan POLO harga 50-65rb,
Desain dan harga fix akan saya sampaikan email berikutnya, mungkin senin akan saya sampaikan, semoga dari supplier bisa bawa samplenya,

Terlalu cepat g ya info ini? G ya?

Tambahan lagi, yang mau support jadi panitia kopdar, biar cepet mendarat silahkan bisa hubungi saya, melalui milis atau japri,

Salam,

Aliif,



Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!



From: "Mr. Kid" <mr.nmkid@gmail.com>

Sender: belajar-excel@yahoogroups.com

Date: Sat, 4 May 2013 23:47:18 +0700

To: BeExcel<belajar-excel@yahoogroups.com>

ReplyTo: belajar-excel@yahoogroups.com

Subject: Re: [belajar-excel] Kopi darat belum mendarat?















Pak Hendrik,


Gimana kalau dicoba untuk disusun langkah persiapan sejak sekarang untuk kegiatan tanggal 16 Juni 2013 ?
Tanggal 6 Juni 2013 (Kamis) ada hari libur. Biasanya banyak yang mudik (Insya Allah saya ndak mudik). Jadi Minggu tanggal 9 Juni 2013 bisa jadi akan membuat BeExceller yang kadung punya acara mudik jadi agak kecewa.

Panitia silakan cari personil tambahan, terutama BeExceller yang bersedia menyediakan waktu untuk ber-repot ria mempersiapkannya.

Tentang materi,
Jika dengan bekal dari 22 BeExceller yang mengisi database tentang permasalahan Excel yang dihadapi, cenderung kebanyakan tentang :

1. formula


>> sepertinya bisa diawali dengan pemahaman fungsi IF. Kemudian dilanjutkan dengan fungsi-fungsi kelompok lookup and reference seperti VlookUp, Match, Index, LookUp. Array formula menjadi ujungnya. Penerapan array formula bisa disinggung sedikit dulu supaya ndak membingungkan.



1 setengah. Mungkin fitur dasar Excel seperti Copy, Paste, Paste Special, Goto Special, Sort, AutoFilter. Untuk fitur dasar yang lebih spesifik seperti Conditional Formatting, Data Validation, Text To Columns (xl2007 ke atas), Chart, Pivot Table bisa sedikit disinggung.





2. dasar VBA

>> sepertinya bisa diawali dengan gambaran VBA kemudian dasar-dasar tentang variabel dan tipe data sampai pada proses otomasi sederhana seperti copas beda sheet. Pengenalan conditional (IF atau Select Case dalam VBA) bisa disinggung. Untuk loop (For Next, For Each Next, Do While, dsb) membutuhkan kenyamanan dalam melihat script terlebih dulu. Artinya, dengan melihat script, sudah terbayang proses dalam worksheet atau penampakan real nya seperti apa.

Sekarang, ingin berapa lama acara ini dilangsungkan ?
Membahas nomor 1 saja bisa seharian, kecuali kalau sekedar memberi berita seperti kalimat 'eh tau gak, excel bisa gini loh' mungkin 1/2 hari juga kelar.
Membahas nomor 2 akan efektif ketika BeExceller sudah relatif familiar dengan berbagai fitur dasar Excel seperti Copy, Paste dan Paste Special, Goto Special, Sort, AutoFilter (bahkan akan lebih enak jika sudah nyaman dalam menggunakan advanced filter).




Targetnya mungkin untuk pertemuan pertama adalah menyamakan cara pandang tentang dasar-dasar Excel.


Kadang kala atau mungkin kebanyakan pengguna Excel merasa atau kalau ditanya bisa Excel atau ndak cenderung akan memiliki keakuan bisa, padahal beberapa dasar Excel yang pokok malah masih membuatnya bingung. Misal, pertanyaan ada berapakah tipe data yang bisa ditampilkan sebuah cell Excel dan bagaimana mengenalinya ?.






Pembicara...


Sapa yang mau ?


ndak harus saya kan ya... nanti ndak yang tambah pinter cuman saya doang...


Yang mau, silakan hubungi Pak Anton, mas Dwint, dan Pak Hendrik (asal main tunjuk saja wakakaka), untuk membahas bersama materi yang akan dibawakan. Jadi ndak nyusun sendiri, jangan kuatir. Dengan begitu, materinya akan tetap sarat ilmu siapapun dan berapapun yang membawakannya.



Mbak Raddini bersedia ikutan bawakan materi ndak ?


miss Jan (wuaduh... harus tanya walinya dulu nih... ya wis bebas saja deh buat miss Jan)


BeExceller yang diluar Jakarta (Pak Ghozi, Pak Bagus, atau siapa aja yang bersedia datang dan bawa acara) juga boleh... (sepertinya kalau langsung ditunjuk bakal menyusahkan karena diluar Jakarta, coba ada di Jakarta, bisa kena tunjuk juga kali ya)





Acaranya dibuat ada masa tanya jawab ya... BeExceller bertanya dan BeExceller menjawab, bukan hadirin bertanya dan pembicara menjawab.





hehehe... sepertinya terlalu dasar ya, jadi ndak begitu menarik... wakakaka....



Bagaimana pendapat BeExceller semuanya ? Ayo... berpendapat !!!
supaya acaranya bisa seusai dengan kebutuhan.











Oh ya, yang bersedia jadi panitia, hubungi Pak Aliif di : aliif.akbar@yahoo.co.id


Untuk bisa diusahakan tanggal 16 Juni, kira-kira apa saja yang harus disiapkan panitia ?



monggo... silakan didiskusiken...





Wassalam,


Kid.





2013/5/4 Hendrik Karnadi <hendrikkarnadi@yahoo.com>







Bung Mods,

Kira2 kapan ya kopi darat bisa mendarat dengan topik yang hangat?




Salam,

HK








Sent from Samsung Mobile






Sat May 4, 2013 7:32 pm (PDT) . Posted by:

rbhtlkm99

Saya setuju dgn usulan ini

Tp klo bs jgn mahal2 ya harganya ;)


Delivered by ALLAH PowerBerry INDOSAT

-----Original Message-----
From: "Aliif Akbar" <aliif.akbar@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sat, 4 May 2013 23:02:07
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kopi darat belum mendarat?

Terimakasih pak,
Di note,

Salam,

AA,


Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "aderusliana@gmail.com" <aderusliana@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sat, 4 May 2013 22:37:06
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Kopi darat belum mendarat?

Pak Ali IF,



Saya ada usul sedikit.

Sekalian fasilitasi juga untuk BeExceller yang berhalangan hadir di kopdar untuk mendapatkan oleh2nya, dipaket saja kengkap isinya bias berupa kaos, CD materi, dan lainnya yang diras perlu. tentukan jumlah, pengiriman dan batas waktu pembiayaannya.

Terimakasih semoga Sukses.



Salam,

Ade Rusliana


Sent from Windows Mail


From: Aliif Akbar
Sent: ‎May‎ ‎5‎, ‎2013 ‎3‎:‎00‎ ‎AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kopi darat belum mendarat?






Melengkapi sedikit,

Saya lagi desain baju buat oleh2 saat kopdar, atau hadiah buat yang diluar kota Jakarta (tapi bayar ya? Heheheheee)
Baju saya buat dengan 2 type, Type kemeja dengan kaos polo berkerah, dengan kisaran harga kemeja kira2 85-100rb, dan POLO harga 50-65rb,
Desain dan harga fix akan saya sampaikan email berikutnya, mungkin senin akan saya sampaikan, semoga dari supplier bisa bawa samplenya,

Terlalu cepat g ya info ini? G ya?

Tambahan lagi, yang mau support jadi panitia kopdar, biar cepet mendarat silahkan bisa hubungi saya, melalui milis atau japri,

Salam,

Aliif,



Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!



From: "Mr. Kid" <mr.nmkid@gmail.com>

Sender: belajar-excel@yahoogroups.com

Date: Sat, 4 May 2013 23:47:18 +0700

To: BeExcel<belajar-excel@yahoogroups.com>

ReplyTo: belajar-excel@yahoogroups.com

Subject: Re: [belajar-excel] Kopi darat belum mendarat?















Pak Hendrik,


Gimana kalau dicoba untuk disusun langkah persiapan sejak sekarang untuk kegiatan tanggal 16 Juni 2013 ?
Tanggal 6 Juni 2013 (Kamis) ada hari libur. Biasanya banyak yang mudik (Insya Allah saya ndak mudik). Jadi Minggu tanggal 9 Juni 2013 bisa jadi akan membuat BeExceller yang kadung punya acara mudik jadi agak kecewa.

Panitia silakan cari personil tambahan, terutama BeExceller yang bersedia menyediakan waktu untuk ber-repot ria mempersiapkannya.

Tentang materi,
Jika dengan bekal dari 22 BeExceller yang mengisi database tentang permasalahan Excel yang dihadapi, cenderung kebanyakan tentang :

1. formula


>> sepertinya bisa diawali dengan pemahaman fungsi IF. Kemudian dilanjutkan dengan fungsi-fungsi kelompok lookup and reference seperti VlookUp, Match, Index, LookUp. Array formula menjadi ujungnya. Penerapan array formula bisa disinggung sedikit dulu supaya ndak membingungkan.



1 setengah. Mungkin fitur dasar Excel seperti Copy, Paste, Paste Special, Goto Special, Sort, AutoFilter. Untuk fitur dasar yang lebih spesifik seperti Conditional Formatting, Data Validation, Text To Columns (xl2007 ke atas), Chart, Pivot Table bisa sedikit disinggung.





2. dasar VBA

>> sepertinya bisa diawali dengan gambaran VBA kemudian dasar-dasar tentang variabel dan tipe data sampai pada proses otomasi sederhana seperti copas beda sheet. Pengenalan conditional (IF atau Select Case dalam VBA) bisa disinggung. Untuk loop (For Next, For Each Next, Do While, dsb) membutuhkan kenyamanan dalam melihat script terlebih dulu. Artinya, dengan melihat script, sudah terbayang proses dalam worksheet atau penampakan real nya seperti apa.

Sekarang, ingin berapa lama acara ini dilangsungkan ?
Membahas nomor 1 saja bisa seharian, kecuali kalau sekedar memberi berita seperti kalimat 'eh tau gak, excel bisa gini loh' mungkin 1/2 hari juga kelar.
Membahas nomor 2 akan efektif ketika BeExceller sudah relatif familiar dengan berbagai fitur dasar Excel seperti Copy, Paste dan Paste Special, Goto Special, Sort, AutoFilter (bahkan akan lebih enak jika sudah nyaman dalam menggunakan advanced filter).




Targetnya mungkin untuk pertemuan pertama adalah menyamakan cara pandang tentang dasar-dasar Excel.


Kadang kala atau mungkin kebanyakan pengguna Excel merasa atau kalau ditanya bisa Excel atau ndak cenderung akan memiliki keakuan bisa, padahal beberapa dasar Excel yang pokok malah masih membuatnya bingung. Misal, pertanyaan ada berapakah tipe data yang bisa ditampilkan sebuah cell Excel dan bagaimana mengenalinya ?.






Pembicara...


Sapa yang mau ?


ndak harus saya kan ya... nanti ndak yang tambah pinter cuman saya doang...


Yang mau, silakan hubungi Pak Anton, mas Dwint, dan Pak Hendrik (asal main tunjuk saja wakakaka), untuk membahas bersama materi yang akan dibawakan. Jadi ndak nyusun sendiri, jangan kuatir. Dengan begitu, materinya akan tetap sarat ilmu siapapun dan berapapun yang membawakannya.



Mbak Raddini bersedia ikutan bawakan materi ndak ?


miss Jan (wuaduh... harus tanya walinya dulu nih... ya wis bebas saja deh buat miss Jan)


BeExceller yang diluar Jakarta (Pak Ghozi, Pak Bagus, atau siapa aja yang bersedia datang dan bawa acara) juga boleh... (sepertinya kalau langsung ditunjuk bakal menyusahkan karena diluar Jakarta, coba ada di Jakarta, bisa kena tunjuk juga kali ya)





Acaranya dibuat ada masa tanya jawab ya... BeExceller bertanya dan BeExceller menjawab, bukan hadirin bertanya dan pembicara menjawab.





hehehe... sepertinya terlalu dasar ya, jadi ndak begitu menarik... wakakaka....



Bagaimana pendapat BeExceller semuanya ? Ayo... berpendapat !!!
supaya acaranya bisa seusai dengan kebutuhan.











Oh ya, yang bersedia jadi panitia, hubungi Pak Aliif di : aliif.akbar@yahoo.co.id


Untuk bisa diusahakan tanggal 16 Juni, kira-kira apa saja yang harus disiapkan panitia ?



monggo... silakan didiskusiken...





Wassalam,


Kid.





2013/5/4 Hendrik Karnadi <hendrikkarnadi@yahoo.com>







Bung Mods,

Kira2 kapan ya kopi darat bisa mendarat dengan topik yang hangat?




Salam,

HK








Sent from Samsung Mobile






Sat May 4, 2013 6:40 pm (PDT) . Posted by:

"agus salim" agsalimtu



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

Sat May 4, 2013 9:25 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

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

Sat May 4, 2013 11:22 pm (PDT) . Posted by:

"agus salim" agsalimtu

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

Sun May 5, 2013 6:19 am (PDT) . Posted by:

"WIRAnata Kemala Deng" kwiranata

mungkin bisa dicoba codes di bawah ini
excuse codes nya yah, maklum baru belajar vba :)
Notes: sepertinya table bikin jadi xml error warning gitu deh, tapi IMHO
jalan sih .
semoga bisa bermanfaat untuk dijadikan referensi, silakan dikotak-kotak
seperlu nya .

' belajar VBA excel
' 5 may 2013
' wira

Sub copypastesort()

Dim cell As Long
Dim lastrow1 As Long
Dim lastrow2 As Long

'turn of filtering sheet1
Sheets("HARIAN-RECORD&quot;).Select
Range("A1").Select
Selection.AutoFilter

'turn of filtering sheet2
Sheets("N-CASHFLOW").Select
Range("A1:B1").Select
Selection.AutoFilter

'Dari sheet "Harian-Record colom A"
Sheets("HARIAN-RECORD&quot;).Select
lastrow1 = Range("A65536").End(xlUp).Row
Range("A2: A" & lastrow1).Select
Selection.Copy

'Ke Sheet "N-Cashflow di colom B"
Sheets("N-CASHFLOW").Select
Range("b2").Select
Application.DisplayAlerts = False
Selection.PasteSpecial Paste:=xlPasteValues

'delete duplicate data
ActiveSheet.Range(Selection, Selection.End(xlDown)).RemoveDuplicates
Columns:=2, Header:=xlYes

'delete baris kosong
For cell = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("B" & cell).Value = "" Then
Rows(cell).EntireRow.Delete
End If
Next cell

'sorting
lastrow2 = Range("B65536").End(xlUp).Row

ActiveWorkbook.Worksheets("N-CASHFLOW").Sort.SortFields.Add
Key:=Range("B2:B" & lastrow2) _
, SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("N-CASHFLOW").Sort
.SetRange Range("A1:B" & lastrow2)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'done
Range("A2").Select

'5/5/2013 7:55:45 PM
End Sub

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

> **
>
>
>
>
>
> 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
>
>
>
>

Sat May 4, 2013 11:23 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

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
>>>>>
>>>>
>>>>
>>>
>>
>
>

Sat May 4, 2013 11:45 pm (PDT) . Posted by:

"basyoir Bas"

Dear Mr Kid,

Alhamdulillah jawabannya lebih dari yang saya harapakan (sangat puas), terima kasih atas pencerahannya dan semoga be-excel tetap jaya..... Aminnn

Thanks & regards,
Bas

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Saturday, May 4, 2013 9:59 PM
Subject: Re: [belajar-excel] Formula Reconcile Data


 
hehehe....

Kalau array formula VLookUp Offset tanpa kolom bantu masih bisa.
kira-kira bunyi array formula untuk G4 :
=NOT(ISERROR(VLOOKUP(F4,OFFSET($K$3,MATCH(B4,$J$4:$J$47,0),0,SUM(1*(MATCH(B4,$J$4:$J$47,0) = MATCH(ROW($J$4:$J$52), IF(LEN($J$4:$J$52),ROW($J$4:$J$52)),1)))),1,0)))

Kehadiran fungsi Offset yang bersifat volatile bisa memberi kesan bahwa Excel bekerja sangat lamban ketika cell berformulanya atau data referensinya ada buanyak.

Sepertinya agak baikan array formula Match Match tanpa kolom bantu.
kira-kira bunyi array formula untuk G4 :
=ISNUMBER(MATCH(MATCH(B4,$J$4:$J$47,0)&F4,MATCH(ROW($J$4:$J$52),IF(LEN($J$4:$J$52),ROW($J$4:$J$52)),1)&$K$4:$K$52,0))

File terlampir.

Wassalam,

Kid.

2013/5/4 WIRAnata Kemala Deng <kwiranata@gmail.com>


>Tadi nyoba gabung vlookup dengan offset ga berhasil,  memang ga bisa ya kombinasi tsb?
>regards, Wira 鄧又銘
>On May 4, 2013 10:53 PM, "Mr. Kid" <mr.nmkid@gmail.com> wrote:
>
>
>> 
>>Hai Bas,
>>
>>File terlampir dibantu 2 kolom agar data referensi bisa lebih berkaidah database, yaitu setiap baris terisi penuh.
>>Jadi, walau FG baris itu sama dengan data baris sebelumnya, tetap harus diisi teks FG-nya alias tidak dikosongkan.
>>Bentuk seperti ini namanya berperi kemesinan.
>>Karena yang bekerja keras adalah mesinnya. Jadi, dengan memudahkan mesin bisa mendapatkan kemudahan juga.
>>
>>
>>
>>Kolom bantu id untuk memudahkan komputasi saja, supaya mesin ndak perlu mengolah array berulang kali tapi user ndak bingung cara nyusun formulanya.
>>
>>
>>Kolom hasil menggunakan fungsi Match untuk mencari padanan di data referensi. Karena ingin hasilnya TRUE/FALSE, maka sifat Match yang akan menghasilkan error ketika tidak menemukan suatu nilai di data referensi, maka digunakanlah fungs IsNumber.
>>
>>
>>
>>Wassalam,
>>
>>Kid.
>>
>>
>>
>>
>>
>>
>>2013/5/4 basyoir Bas <basyoir_bas@yahoo.com>
>>
>>
>>> 
>>>Dear pakar excel yang budiman,
>>>
>>>Terlampir mempertanyakan tentang rumus apa yang harus digunakan untuk mengetahui kolom itu sudah sesui dengan kolom yg telah ditentukan, silahkan lihat lampiran diatas.
>>>
>>>Thanks
>>>Bas
>>>
>>

Sat May 4, 2013 11:45 pm (PDT) . Posted by:

"Penggoda Iman" b3ki_cot

bagaimana menghapuys data disheet yang ditampilkan dilistbox
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