[belajar-excel] Digest Number 1666

Milis Belajar Microsoft Excel

Messages In This Digest (17 Messages)

1a.

Re: sort data From: Purnomo Sidi

1b.

Re: sort data From: hendrik karnadi

2a.

Re: Mari berlatih membuat Macro From: Rara Wilis

2b.

Re: Mari berlatih membuat Macro From: hendrik karnadi

3a.

Re: Memodifikasi CODE VBA From: guru muda

3b.

Re: Memodifikasi CODE VBA From: Kid Mr.

3c.

Re: Memodifikasi CODE VBA From: guru muda

4a.

RoundUp dan RoundDown dengan kriteria From: PEACE

4b.

Bls: [belajar-excel] RoundUp dan RoundDown dengan kriteria From: dwint ruswanto

4c.

Re: RoundUp dan RoundDown dengan kriteria From: -uhr- | @uharyanto

4d.

Re: RoundUp dan RoundDown dengan kriteria From: Boypeace BeComp

4e.

Re: RoundUp dan RoundDown dengan kriteria From: dwint ruswanto

5a.

OOT : Mas Abimono From: Yulius Minsai

5b.

Re: OOT : Mas Abimono From: zainul_ulum[at]yahoo[dot]com

5c.

Re: OOT : Mas Abimono From: ..:: priel ::..

6a.

Mohon Dibantu: Membuat Kotak Combo Dinamis From: guru muda

6b.

Re: Mohon Dibantu: Membuat Kotak Combo Dinamis From: Rara Wilis

View All Topics | Create New Topic

Messages

1a.

Re: sort data

Posted by: "Purnomo Sidi" pysa_2605@yahoo.com   pysa_2605

Sun Jun 24, 2012 9:50 am (PDT)

TERIMA KASIH ATAS BANTUNYA

PYSA_2605

________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Saturday, June 23, 2012 10:45 AM
Subject: Re: [belajar-excel] Re: sort data


 
Gunakan Event WorkSheet_Change pada kolom kedua.
Tulis Code ini pada VBA Project Sheet1(Akun) pada bagian (tempat) menulis Code Macro

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    If Target.Column = 2 And Target.Count = 1 Then
        Set Rng = Range("A1").CurrentRegion
        Rng.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
    End If
End Sub

Contoh file terlampir.

Salam,
Hendrik Karnadi

________________________________
From: Purnomo Sidi <pysa_2605@yahoo.com>
To: belajar Excel <belajar-excel@yahoogroups.com>
Sent: Saturday, 23 June 2012, 8:14
Subject: [belajar-excel] Re: sort data


 
BeExcel mohon bantuannya nih

saya memiliki data yang data tersebut dapat bertambah. saya mohon bantuannya bagaimana caranya agar data yang saya entry tersebut dapat ter-Sort secara otomatis (berurutan sesuai dengan nomornya). untuk lebih jelasnya saya lampirkan data tersebut

terima kasih
PYSA_2605

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

1b.

Re: sort data

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Sun Jun 24, 2012 7:36 pm (PDT)

Sama2.

Salam,
Hendrik Karnadi

________________________________
From: Purnomo Sidi <pysa_2605@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Sunday, 24 June 2012, 23:23
Subject: Re: [belajar-excel] Re: sort data


 
TERIMA KASIH ATAS BANTUNYA
PYSA_2605

________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Saturday, June 23, 2012 10:45 AM
Subject: Re: [belajar-excel] Re: sort data


 
Gunakan Event WorkSheet_Change pada kolom kedua.
Tulis Code ini pada VBA Project Sheet1(Akun) pada bagian (tempat) menulis Code Macro

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    If Target.Column = 2 And Target.Count = 1 Then
        Set Rng = Range("A1").CurrentRegion
        Rng.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
    End If
End Sub

Contoh file terlampir.

Salam,
Hendrik Karnadi

________________________________
From: Purnomo Sidi <pysa_2605@yahoo.com>
To: belajar Excel <belajar-excel@yahoogroups.com>
Sent: Saturday, 23 June 2012, 8:14
Subject: [belajar-excel] Re: sort data


 
BeExcel mohon bantuannya nih

saya memiliki data yang data tersebut dapat bertambah. saya mohon bantuannya bagaimana caranya agar data yang saya entry tersebut dapat ter-Sort secara otomatis (berurutan sesuai dengan nomornya). untuk lebih jelasnya saya lampirkan data tersebut

terima kasih
PYSA_2605

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

2a.

Re: Mari berlatih membuat Macro

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Sun Jun 24, 2012 2:01 pm (PDT)

Nah Pak Hendrik sudah memberikan PERSAMAAN-NYA
Istilah "Persamaan" / "Equation" harusnya tidak asing bagi kita-kita yg
di bangku SMP tidak membenci Guru Matematik / "Al Jabar" kita.....

Salah satu Contoh penyelesaian Manual maupun makro ada di lampiran

Dan berhubung belum ada yg menyambar ajakan berlatih ini, maka Rara
memberanikan diri untuk mengajukan kode makronya
Jika benar bisa utuk bahan belajar bersama (terutama bagi pemula)
Tapi jika salah mari kita koreksi bersama (juga dlm rangka belajar)

Private Sub CommandButton1_Click()

'--Deklarasai variables
Dim Jarak As Single, MenitKe As Single
Dim Kec_A As Single, Kec_B As Single

'--Initial variables
Jarak = Range("H17").Value
Kec_A = Range("H18").Value
Kec_B = Range("H19").Value

'--Persamaan
MenitKe = Jarak / (Kec_A + Kec_B) * 60

'--Penyelesaian persamaan,
'--hasil akhir ditulis di cells
Range("H27").Value = TimeSerial(0, MenitKe, 0)
Range("H27").NumberFormat = "[m]:ss"
Range("H29").Value = MenitKe / 60 * Kec_A
Range("H31").Value = MenitKe / 60 * Kec_B

End Sub

terimakasih pak Hendrik..... terima kash semua...
~rara Wi

2012/6/23 hendrik karnadi <hendrikkarnadi@yahoo.com>
>
> Perhitungan manualnya + seperti ini :
> j (jarak) = 100
> a (kecepatan A) = 80
> b (kecepatan B) = 40
> m adalah menit saat A dan B bertemu, yaitu jarak dibagi kecepatan
> (total), sehingga m = j/(a+b) * 60
>

> Pada saat bertemu,
> Jarak yang telah ditempuh oleh A (ja) pada saat bertemu B, ja = m/60 * 80
> Jarak yang telah ditempuh oleh B (jb) pada saat bertemu A, jb = m/60 * 40
> Coba tulis Variable di atas pada module VBA (kalau bisa pakai DIM...),
> kemudian tampilkan m, ja dan jb dengan MsgBox
> Selamat mencoba lagi, anda pasti bisa ....
> Salam,
> Hendrik Karnadi
>
>
*From:* Siti Nurhikmah <admaw1@arwina.com>
> *Sent:* Wednesday, 2 January 2002, 22:30
> Pengen banget Pak Hendrik, tapi blank gak tau sama sekali....hiks hiks
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2b.

Re: Mari berlatih membuat Macro

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Sun Jun 24, 2012 7:44 pm (PDT)

Terima kasih Mbak Rara atas masukannya yang sempurna, karena memberikan alternatif untuk berlatih.

Soal ini hanya mencoba merangsang rekan2 yang baru belajar VBA untuk mempraktekkan apa yang dipelajarinya, sedangkan bagi para Pakar VBA (mbak Rara salah satunya) mau menyediakan sedikit waktu untuk memberikan soal2 kecil untuk dipecahkan bersama.

Salam,
Hendrik Karnadi

practice makes perfect

________________________________
From: Rara Wilis <ra2wilis@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 25 June 2012, 4:01
Subject: Re: [belajar-excel] Mari berlatih membuat Macro


 
Nah Pak Hendrik sudah memberikan PERSAMAAN-NYA
Istilah "Persamaan" / "Equation"  harusnya tidak asing bagi kita-kita yg
di bangku SMP tidak membenci Guru Matematik / "Al Jabar" kita.....

Salah satu Contoh penyelesaian Manual maupun makro ada di lampiran

Dan berhubung belum ada yg menyambar ajakan berlatih ini, maka Rara 
memberanikan diri untuk mengajukan kode makronya
Jika benar bisa utuk bahan belajar bersama (terutama bagi pemula)
Tapi jika salah mari kita koreksi bersama (juga dlm rangka belajar)

Private Sub CommandButton1_Click()

'--Deklarasai variables
Dim Jarak As Single, MenitKe As Single
Dim Kec_A As Single, Kec_B As Single

'--Initial variables
Jarak = Range("H17").Value
Kec_A = Range("H18").Value
Kec_B = Range("H19").Value

'--Persamaan
MenitKe = Jarak / (Kec_A + Kec_B) * 60

'--Penyelesaian persamaan, 
'--hasil akhir ditulis di cells
Range("H27").Value = TimeSerial(0, MenitKe, 0)
Range("H27").NumberFormat = "[m]:ss"
Range("H29").Value = MenitKe / 60 * Kec_A
Range("H31").Value = MenitKe / 60 * Kec_B

End Sub

terimakasih pak Hendrik..... terima kash semua...
~rara Wi

2012/6/23 hendrik karnadi <hendrikkarnadi@yahoo.com>
Perhitungan manualnya + seperti ini :
>j (jarak)= 100
>a (kecepatan A) = 80
>b (kecepatan B) = 40
>
>m adalah menit saat A dan B bertemu, yaitu jarak dibagi kecepatan (total), sehingga m = j/(a+b) * 60 
 
Pada saat bertemu,
>Jarak yang  telah ditempuh oleh A (ja) pada saat bertemu B, ja = m/60 * 80
>Jarak yang telah ditempuh oleh B (jb) pada saat bertemu A, jb = m/60 * 40
>Coba tulis Variable di atas pada module VBA (kalau bisa pakai DIM...), kemudian tampilkan m,ja danjb dengan MsgBox
>Selamat mencoba lagi, anda pasti bisa ....
>Salam,
>Hendrik Karnadi
>
> 
From: Siti Nurhikmah <admaw1@arwina.com>
>Sent: Wednesday, 2 January 2002, 22:30
>
>Pengen banget Pak Hendrik, tapi blank gak tau sama sekali....hiks hiks
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3a.

Re: Memodifikasi CODE VBA

Posted by: "guru muda" mudaguru@yahoo.com   mudaguru

Sun Jun 24, 2012 3:41 pm (PDT)

Terima kasih Pak. Setelah beberapa meluangkan waktu berjam-jam di depan komputer, akhirnya saya bisa utak atik code tersebut meskipun tidak 100 persen memenuhi kebutuhan saya. tetapi ini menjadi pelajaran yang sangat berharga.

--- On Sat, 6/23/12, Kid Mr. <mr.nmkid@gmail.com> wrote:

From: Kid Mr. <mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Memodifikasi CODE VBA
To: belajar-excel@yahoogroups.com
Date: Saturday, June 23, 2012, 9:51 AM

 

ralat :
harusnya :
     'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0 kolom (bagian merah sepertinya harus 1 baris dan bukan 0 baris)

  Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)

dan bukan
               'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0 kolom (bagian merah sepertinya harus 1 kolom dan bukan 0 kolom)

                  Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)

Kid.

2012/6/23 Kid Mr. <mr.nmkid@gmail.com>

Isi script dalam sheet sheet1 Anda adalah :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Cells.Count = 1 Then

        Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)
    End If
End Sub

Kira-kira Anda paham gak dengan script ini, sehingga bisa memutuskan suka atau tidak suka.

Bukankah Anda suka dengan gaji ke-13 bahkan sampai ke-15 karena sudah paham kegunaan dari gaji itu ?

Bunyi script di atas :

'jika nilai suatu cell dalam worksheet berubah (worksheet_change) maka jalankan prosedur ini,

'dan ingat-ingatlah semua range yang berubah tersebut (target as range)
Private Sub Worksheet_Change(ByVal Target As Range)

    'jika yang berubah adalah range di kolom ke (target.column) 1 (berarti kolom A) dan (AND) jumlah cell yang berubah nilai (target.cells.count) adalah 1 bijik,
    'maka lakukanlah semua perintah dalam blok tersebut

    If Target.Column = 1 And Target.Cells.Count = 1 Then

                  'berikut perintah dalam blok kondisi di atas ketika range yang berubah di kolom ke-1 dan jumlah cell yang berubah hanya 1 :
                  'pada seluruh range yang berubah nilainya (Target), blok seluruh barisnya (EntireRow) kemudian lakukan copy ke clipboard (Copy)

                  'diikuti mem-paste ke sheet ke-2 (bukan sheet bernama 2) [Sheets(2)]  pada cell (ingat cell dalam sheet ke-2) di baris terakhir sheets (rows.count)
                  'pada kolom ke-1, kemudian pindah keatas hingga bertemu cell yang tidak kosong (ingat, masih di kolom 1) [ End(xlup) ]

                  'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0 kolom (bagian merah sepertinya harus 1 baris dan bukan 0 baris)

                  Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)

     
       'blok kondisi berakhir disini
       End If

'akhir pekerjaan dalam prosedur yang dijalankan karena adanya cell yang berubah nilai

End Sub

Sampai disini, biasanya akan mulai paham kenapa dan mengapa semua hal terjadi.
kira-kira apa yang harus diubah untuk memenuhi kebutuhan Anda ?

>> Tidak suka (mulai wajar setelah mulai memahami penyebab kejadian) kalau sebuah cell berubah di kolom A maka proses dijalankan ? Maka hapus bagian yang terkait tentang hal itu
>> Ingin meng-copy 1 cell saja (tidak semua baris), maka hapus bagian blok seluruh baris

>> sheet tujuan paste berbeda, maka ganti penunjukan ke sheet ke-2 dengan sheet tujuan Anda dinomor berapa
>> lokasi hasil copy tidak pada kolom yang sama dan berurutan dengan yang diinput ? Maka susun kondisi baru berdasar nomor kolom

seperti : (kalau yang di copy itu di kolom 1, maka paste ke kolom itu juga tapi di sheet dengan nomor tujuan anda (bisa 2, 3, dst)
IF target.column=1 then

     target.copy destination:=sheets(nomor tujuan Anda).cells( target.row , target.column )

endif

'bisa jadi ada kondisi lain, kalau yang di copy kolom 7, maka paste ke sheet tujuan di kolom 23
IF target.column=7 then

     target.copy destination:=sheets(nomor tujuan Anda).cells( target.row , 23 )

endif

Silakan mencoba mengubah sendiri agar bisa lebih memahami sebuah dunia baru tersebut pantas atau tidak pantas untuk disukai atau tidak disukai.

Wassalam,
Kid.
2012/6/23 guru muda <mudaguru@yahoo.com>

 

VBA Code yang ada saat ini dapat mengkopi
secara otomatis dari isi dari  baris /row
1 di Sheet1  ke cell baris  1 di Sheet2, setelah menekan tombol
enter/tab/penunjuk panah pada keyboard. Bahkan di sepanjang kolom  A di Sheet1, 
apabila kita memasukkan/mengetikkan huruf/angka maka akan masuk ke  cell A1 di Sheet2 -Ini yang paling tidak saya
suka dan mohon fungsi ini dihilangkan saja.

Selengkapnya lihat lampiran

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3b.

Re: Memodifikasi CODE VBA

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Sun Jun 24, 2012 6:28 pm (PDT)

Alhamdulillah.

Semoga Pak Mudaguru bersedia berbagi ke seluruh member milis hasil
utak-utiknya. Insya Allah hal ini akan banyak manfaatnya bagi semua pihak,
terutama buat Pak Mudaguru. Semoga rekan BeExceller bisa membantu untuk
membuatnya menjadi lebih dekat ke 100 persen karena turut bersemangat
meneladani usaha keras yang Pak Mudaguru lakukan.

Wassalamualaikum Wr. Wb.
Kid.

2012/6/25 guru muda <mudaguru@yahoo.com>

> **
>
>
> Terima kasih Pak. Setelah beberapa meluangkan waktu berjam-jam di depan
> komputer, akhirnya saya bisa utak atik code tersebut meskipun tidak 100
> persen memenuhi kebutuhan saya. tetapi ini menjadi pelajaran yang sangat
> berharga.
>
>
>
>
>
>
>
>
>
>
>
> --- On *Sat, 6/23/12, Kid Mr. <mr.nmkid@gmail.com>* wrote:
>
>
> From: Kid Mr. <mr.nmkid@gmail.com>
> Subject: Re: [belajar-excel] Memodifikasi CODE VBA
> To: belajar-excel@yahoogroups.com
> Date: Saturday, June 23, 2012, 9:51 AM
>
>
>
>
> ralat :
> harusnya :
> 'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0
> kolom *(bagian merah sepertinya harus 1 baris dan bukan 0 baris)*
> Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count,
> 1).End(xlUp).Offset(0, *0*)
>
> dan bukan
> 'dan dilanjutkan dengan proses lompat (offset) sebanyak 0
> baris dan 0 kolom *(bagian merah sepertinya harus 1 kolom dan bukan 0
> kolom)*
> Target.EntireRow.Copy
> Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, *0*)
>
>
> Kid.
>
> 2012/6/23 Kid Mr. <mr.nmkid@gmail.com<http://mc/compose?to=mr.nmkid@gmail.com>
> >
>
> Isi script dalam sheet sheet1 Anda adalah :
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Column = 1 And Target.Cells.Count = 1 Then
> Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count,
> 1).End(xlUp).Offset(0, 0)
> End If
> End Sub
>
> Kira-kira Anda paham gak dengan script ini, sehingga bisa memutuskan suka
> atau tidak suka.
> Bukankah Anda suka dengan gaji ke-13 bahkan sampai ke-15 karena sudah
> paham kegunaan dari gaji itu ?
>
> Bunyi script di atas :
>
> 'jika nilai suatu cell dalam worksheet berubah (worksheet_change) maka
> jalankan prosedur ini,
> 'dan ingat-ingatlah semua range yang berubah tersebut (target as range)
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> 'jika yang berubah adalah range di kolom ke (target.column) 1 (berarti
> kolom A) dan (AND) jumlah cell yang berubah nilai (target.cells.count)
> adalah 1 bijik,
> 'maka lakukanlah semua perintah dalam blok tersebut
> If Target.Column = 1 And Target.Cells.Count = 1 Then
>
> 'berikut perintah dalam blok kondisi di atas ketika
> range yang berubah di kolom ke-1 dan jumlah cell yang berubah hanya 1 :
> 'pada seluruh range yang berubah nilainya (Target), blok
> seluruh barisnya (EntireRow) kemudian lakukan copy ke clipboard (Copy)
> 'diikuti mem-paste ke sheet ke-2 (bukan sheet bernama 2)
> [Sheets(2)] pada cell (ingat cell dalam sheet ke-2) di baris terakhir
> sheets (rows.count)
> 'pada kolom ke-1, kemudian pindah keatas hingga bertemu
> cell yang tidak kosong (ingat, masih di kolom 1) [ End(xlup) ]
> 'dan dilanjutkan dengan proses lompat (offset) sebanyak
> 0 baris dan 0 kolom *(bagian merah sepertinya harus 1 baris dan bukan 0
> baris)*
> Target.EntireRow.Copy
> Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, *0*)
>
> 'blok kondisi berakhir disini
> End If
>
> 'akhir pekerjaan dalam prosedur yang dijalankan karena adanya cell yang
> berubah nilai
> End Sub
>
> Sampai disini, biasanya akan mulai paham kenapa dan mengapa semua hal
> terjadi.
> kira-kira apa yang harus diubah untuk memenuhi kebutuhan Anda ?
> >> Tidak suka (mulai wajar setelah mulai memahami penyebab kejadian) kalau
> sebuah cell berubah di kolom A maka proses dijalankan ? Maka hapus bagian
> yang terkait tentang hal itu
> >> Ingin meng-copy 1 cell saja (tidak semua baris), maka hapus bagian blok
> seluruh baris
> >> sheet tujuan paste berbeda, maka ganti penunjukan ke sheet ke-2 dengan
> sheet tujuan Anda dinomor berapa
> >> lokasi hasil copy tidak pada kolom yang sama dan berurutan dengan yang
> diinput ? Maka susun kondisi baru berdasar nomor kolom
> seperti : (kalau yang di copy itu di kolom 1, maka paste ke kolom itu juga
> tapi di sheet dengan nomor tujuan anda (bisa 2, 3, dst)
> IF target.column=1 then
> target.copy destination:=sheets(nomor tujuan Anda).cells( target.row
> , target.column )
> endif
>
> 'bisa jadi ada kondisi lain, kalau yang di copy kolom 7, maka paste ke
> sheet tujuan di kolom 23
> IF target.column=7 then
> target.copy destination:=sheets(nomor tujuan Anda).cells( target.row
> , 23 )
> endif
>
> Silakan mencoba mengubah sendiri agar bisa lebih memahami sebuah dunia
> baru tersebut pantas atau tidak pantas untuk disukai atau tidak disukai.
>
> Wassalam,
> Kid.
>
> 2012/6/23 guru muda <mudaguru@yahoo.com<http://mc/compose?to=mudaguru@yahoo.com>
> >
>
> **
>
>
> VBA Code yang ada saat ini dapat mengkopi secara otomatis dari isi dari baris
> /row 1 di Sheet1 ke cell baris 1 di Sheet2, setelah menekan tombol
> enter/tab/penunjuk panah pada keyboard. Bahkan di sepanjang kolom A di
> Sheet1, apabila kita memasukkan/mengetikkan huruf/angka maka akan masuk
> ke cell A1 di Sheet2 -Ini yang paling tidak saya suka dan mohon fungsi
> ini dihilangkan saja.
>
>
> Selengkapnya lihat lampiran
>
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3c.

Re: Memodifikasi CODE VBA

Posted by: "guru muda" mudaguru@yahoo.com   mudaguru

Sun Jun 24, 2012 6:54 pm (PDT)

Terima kasih Pak atas balasan emailnya.

Rasanya terlalu gimana gitu loh Pak kalau untuk dibagi-Maklum baru belajar. Biar nanti kalau sudah 100 persen memenuhi seperti keinginan saya akan saya bagi. Sebenarnya saya ingin berkontribusi buat milis ini, tapi apa daya ilmu per-excel-an saya masih sangat sangat minim. Lha wong buat rumus VLOOKUP aja masih keliru keliru. 

Gitu Pak, ganti

--- On Mon, 6/25/12, Kid Mr. <mr.nmkid@gmail.com> wrote:

From: Kid Mr. <mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Memodifikasi CODE VBA
To: belajar-excel@yahoogroups.com
Date: Monday, June 25, 2012, 1:28 AM

 

Alhamdulillah.

Semoga Pak Mudaguru bersedia berbagi ke seluruh member milis hasil utak-utiknya. Insya Allah hal ini akan banyak manfaatnya bagi semua pihak, terutama buat Pak Mudaguru. Semoga rekan BeExceller bisa membantu untuk membuatnya menjadi lebih dekat ke 100 persen karena turut bersemangat meneladani usaha keras yang Pak Mudaguru lakukan.

Wassalamualaikum Wr. Wb.
Kid.

2012/6/25 guru muda <mudaguru@yahoo.com>

 

Terima kasih Pak. Setelah beberapa meluangkan waktu berjam-jam di depan komputer, akhirnya saya bisa utak atik code tersebut meskipun tidak 100 persen memenuhi kebutuhan saya. tetapi ini menjadi pelajaran yang sangat berharga.

--- On Sat, 6/23/12, Kid Mr. <mr.nmkid@gmail.com> wrote:

From: Kid Mr. <mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Memodifikasi CODE VBA
To: belajar-excel@yahoogroups.com

Date: Saturday, June 23, 2012, 9:51 AM

 

ralat :
harusnya :
     'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0 kolom (bagian merah sepertinya harus 1 baris dan bukan 0 baris)

  Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)

dan bukan
               'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0 kolom (bagian merah sepertinya harus 1 kolom dan bukan 0 kolom)

                  Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)

Kid.

2012/6/23 Kid Mr. <mr.nmkid@gmail.com>

Isi script dalam sheet sheet1 Anda adalah :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Cells.Count = 1 Then

        Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)
    End If
End Sub

Kira-kira Anda paham gak dengan script ini, sehingga bisa memutuskan suka atau tidak suka.

Bukankah Anda suka dengan gaji ke-13 bahkan sampai ke-15 karena sudah paham kegunaan dari gaji itu ?

Bunyi script di atas :

'jika nilai suatu cell dalam worksheet berubah (worksheet_change) maka jalankan prosedur ini,

'dan ingat-ingatlah semua range yang berubah tersebut (target as range)
Private Sub Worksheet_Change(ByVal Target As Range)

    'jika yang berubah adalah range di kolom ke (target.column) 1 (berarti kolom A) dan (AND) jumlah cell yang berubah nilai (target.cells.count) adalah 1 bijik,
    'maka lakukanlah semua perintah dalam blok tersebut

    If Target.Column = 1 And Target.Cells.Count = 1 Then

                  'berikut perintah dalam blok kondisi di atas ketika range yang berubah di kolom ke-1 dan jumlah cell yang berubah hanya 1 :
                  'pada seluruh range yang berubah nilainya (Target), blok seluruh barisnya (EntireRow) kemudian lakukan copy ke clipboard (Copy)

                  'diikuti mem-paste ke sheet ke-2 (bukan sheet bernama 2) [Sheets(2)]  pada cell (ingat cell dalam sheet ke-2) di baris terakhir sheets (rows.count)
                  'pada kolom ke-1, kemudian pindah keatas hingga bertemu cell yang tidak kosong (ingat, masih di kolom 1) [ End(xlup) ]

                  'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0 kolom (bagian merah sepertinya harus 1 baris dan bukan 0 baris)

                  Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, 0)

     
       'blok kondisi berakhir disini
       End If

'akhir pekerjaan dalam prosedur yang dijalankan karena adanya cell yang berubah nilai

End Sub

Sampai disini, biasanya akan mulai paham kenapa dan mengapa semua hal terjadi.
kira-kira apa yang harus diubah untuk memenuhi kebutuhan Anda ?

>> Tidak suka (mulai wajar setelah mulai memahami penyebab kejadian) kalau sebuah cell berubah di kolom A maka proses dijalankan ? Maka hapus bagian yang terkait tentang hal itu
>> Ingin meng-copy 1 cell saja (tidak semua baris), maka hapus bagian blok seluruh baris

>> sheet tujuan paste berbeda, maka ganti penunjukan ke sheet ke-2 dengan sheet tujuan Anda dinomor berapa
>> lokasi hasil copy tidak pada kolom yang sama dan berurutan dengan yang diinput ? Maka susun kondisi baru berdasar nomor kolom

seperti : (kalau yang di copy itu di kolom 1, maka paste ke kolom itu juga tapi di sheet dengan nomor tujuan anda (bisa 2, 3, dst)
IF target.column=1 then

     target.copy destination:=sheets(nomor tujuan Anda).cells( target.row , target.column )

endif

'bisa jadi ada kondisi lain, kalau yang di copy kolom 7, maka paste ke sheet tujuan di kolom 23
IF target.column=7 then

     target.copy destination:=sheets(nomor tujuan Anda).cells( target.row , 23 )

endif

Silakan mencoba mengubah sendiri agar bisa lebih memahami sebuah dunia baru tersebut pantas atau tidak pantas untuk disukai atau tidak disukai.

Wassalam,
Kid.
2012/6/23 guru muda <mudaguru@yahoo.com>

 

VBA Code yang ada saat ini dapat mengkopi
secara otomatis dari isi dari  baris /row
1 di Sheet1  ke cell baris  1 di Sheet2, setelah menekan tombol
enter/tab/penunjuk panah pada keyboard. Bahkan di sepanjang kolom  A di Sheet1, 
apabila kita memasukkan/mengetikkan huruf/angka maka akan masuk ke  cell A1 di Sheet2 -Ini yang paling tidak saya
suka dan mohon fungsi ini dihilangkan saja.

Selengkapnya lihat lampiran

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

4a.

RoundUp dan RoundDown dengan kriteria

Posted by: "PEACE" boypeace.81@gmail.com   trouble_nih

Sun Jun 24, 2012 8:00 pm (PDT)

Mohon Bantuan Gan, saya coba seach di milis belum Ketemu

A1= 37.778,666
A1= 37.778,444

Jika A1= 37.778,666 dibulatkan menjadi 37.779
Jika A1= 37.778,444 dibulatkan menjadi 37.778

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4b.

Bls: [belajar-excel] RoundUp dan RoundDown dengan kriteria

Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id   dwint.ruswanto

Sun Jun 24, 2012 8:03 pm (PDT)

coba 

=Round(A1;0)

-dwint-

________________________________
Dari: PEACE <boypeace.81@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 25 Juni 2012 9:52
Judul: [belajar-excel] RoundUp dan RoundDown dengan kriteria


 
Mohon Bantuan Gan, saya coba seach di milis belum Ketemu

A1= 37.778,666
A1= 37.778,444

Jika A1= 37.778,666 dibulatkan menjadi 37.779
Jika A1= 37.778,444 dibulatkan menjadi 37.778

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4c.

Re: RoundUp dan RoundDown dengan kriteria

Posted by: "-uhr- | @uharyanto" uharyanto@gmail.com   lover_intermezzo

Sun Jun 24, 2012 8:15 pm (PDT)

Coba bantu jawab :

A1 : =ROUND(A1;0)

Semoga bermanfaat.

Salam,
-uhr-

Powered by Telkomsel BlackBerry� Dapat Pinjam

-----Original Message-----
From: "PEACE" <boypeace.81@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 25 Jun 2012 02:52:56
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] RoundUp dan RoundDown dengan kriteria

Mohon Bantuan Gan, saya coba seach di milis belum Ketemu

A1= 37.778,666
A1= 37.778,444

Jika A1= 37.778,666 dibulatkan menjadi 37.779
Jika A1= 37.778,444 dibulatkan menjadi 37.778

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4d.

Re: RoundUp dan RoundDown dengan kriteria

Posted by: "Boypeace BeComp" boypeace.81@gmail.com   trouble_nih

Sun Jun 24, 2012 8:45 pm (PDT)

ok, Makasih Gan, Ternyata pake Round aja. Thanks

Pada 25 Juni 2012 10:05, -uhr- | @uharyanto <uharyanto@gmail.com> menulis:

> **
>
>
> ** Coba bantu jawab :
>
> A1 : =ROUND(A1;0)
>
> Semoga bermanfaat.
>
> Salam,
> -uhr-
> Powered by Telkomsel BlackBerry� Dapat Pinjam
> ------------------------------
> *From: * "PEACE" <boypeace.81@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 25 Jun 2012 02:52:56 -0000
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *[belajar-excel] RoundUp dan RoundDown dengan kriteria
>
>
>
> Mohon Bantuan Gan, saya coba seach di milis belum Ketemu
>
> A1= 37.778,666
> A1= 37.778,444
>
> Jika A1= 37.778,666 dibulatkan menjadi 37.779
> Jika A1= 37.778,444 dibulatkan menjadi 37.778
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4e.

Re: RoundUp dan RoundDown dengan kriteria

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Sun Jun 24, 2012 11:38 pm (PDT)

mohon maaf kepada anggota millis dan moderator..

jawaban saya pada thread ini sebelumnya tulisannya besar2 bukan di sengaja,
tapi karena kesalahan teknis.. saya kirim dari yahoo mail dan tampilan
dilayar kecil.. tetapi setelah terkirim ternyata hurufnya menjadi besar2.

-dwint-

Pada 25 Juni 2012 10:23, Boypeace BeComp <boypeace.81@gmail.com> menulis:

> **
>
>
> ok, Makasih Gan, Ternyata pake Round aja. Thanks
>
> Pada 25 Juni 2012 10:05, -uhr- | @uharyanto <uharyanto@gmail.com> menulis:
>
> **
>>
>>
>> ** Coba bantu jawab :
>>
>> A1 : =ROUND(A1;0)
>>
>> Semoga bermanfaat.
>>
>> Salam,
>> -uhr-
>> Powered by Telkomsel BlackBerry� Dapat Pinjam
>> ------------------------------
>> *From: * "PEACE" <boypeace.81@gmail.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Mon, 25 Jun 2012 02:52:56 -0000
>> *To: *<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *[belajar-excel] RoundUp dan RoundDown dengan kriteria
>>
>>
>>
>> Mohon Bantuan Gan, saya coba seach di milis belum Ketemu
>>
>> A1= 37.778,666
>> A1= 37.778,444
>>
>> Jika A1= 37.778,666 dibulatkan menjadi 37.779
>> Jika A1= 37.778,444 dibulatkan menjadi 37.778
>>
>>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

5a.

OOT : Mas Abimono

Posted by: "Yulius Minsai" yulius_minsai@yahoo.co.id   yulius_minsai

Sun Jun 24, 2012 8:28 pm (PDT)

Dear All,

Sori OOT, ada rekan milis sebelah yang bertanya.
----------------------------------------------------------
Dear Teman-teman,

Ada yang tau alamat email atau telfon Abimono (penulis buku Excel)??
Sangat butuh niyhh...'

Thanks,
Poppy
----------------------------------------------------------
Mohon dibantu yah..
Trims,
Yulius

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5b.

Re: OOT : Mas Abimono

Posted by: "zainul_ulum[at]yahoo[dot]com" zainul_ulum@yahoo.com   zainul_ulum

Sun Jun 24, 2012 9:07 pm (PDT)

Member groupr excel-oot biasanya pada tahu nih..
¤..belum pakai blackberry...¤

-original message-
Subject: [belajar-excel] OOT : Mas Abimono
From: "Yulius Minsai" <yulius_minsai@yahoo.co.id>
Date: 25/06/2012 10:21 AM

Dear All,

Sori OOT, ada rekan milis sebelah yang bertanya.
----------------------------------------------------------
Dear Teman-teman,

Ada yang tau alamat email atau telfon Abimono (penulis buku Excel)??
Sangat butuh niyhh...'

Thanks,
Poppy
----------------------------------------------------------
Mohon dibantu yah..
Trims,
Yulius

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5c.

Re: OOT : Mas Abimono

Posted by: "..:: priel ::.." XAVREIL@GMAIL.COM   magganjenk

Sun Jun 24, 2012 11:51 pm (PDT)

Udah dapat belum belionya..?
Kalo belum, japri ke saya aja
Lengkap lah... Hehehe

Salam
Priel
On Jun 25, 2012 11:07 AM, "zainul_ulum[at]yahoo[dot]com" <
zainul_ulum@yahoo.com> wrote:

> **
>
>
> Member groupr excel-oot biasanya pada tahu nih..
> �..belum pakai blackberry...�
>
> -original message-
> Subject: [belajar-excel] OOT : Mas Abimono
> From: "Yulius Minsai" <yulius_minsai@yahoo.co.id>
> Date: 25/06/2012 10:21 AM
>
> Dear All,
>
> Sori OOT, ada rekan milis sebelah yang bertanya.
> ----------------------------------------------------------
> Dear Teman-teman,
>
> Ada yang tau alamat email atau telfon Abimono (penulis buku Excel)??
> Sangat butuh niyhh...'
>
> Thanks,
> Poppy
> ----------------------------------------------------------
> Mohon dibantu yah..
> Trims,
> Yulius
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

6a.

Mohon Dibantu: Membuat Kotak Combo Dinamis

Posted by: "guru muda" mudaguru@yahoo.com   mudaguru

Sun Jun 24, 2012 11:05 pm (PDT)

Kepada para master excel.

Mohon saya dibantu. Teman saya punya kasus seperti ini:

Bagaimana membuat kotak combo dinamis (
di cell B5 sheet PAKAI-VORMULA) yang dapat  memfilter data di
bawah ini  berdasarkan saat pensiun  (kolom L sheet MASTER).  Pada tgl-bulan-tahun berapa seseorang itu
akan pensiun maka tgl-bulan-tahun itulah yang muncul di combo box
tersebut.  Memang kasus
ini dapat diatasi dengan menggunakan pivot table (lihat sheet PAKAI-PIVOT),
tetapi saya ingin mengunakan formula atau VBA Code (jika perlu) untuk
belajar.  Jika saya meng-update data di
sheet master kolom H (TGL LAHIR), maka daftar di combo box juga ikut berubah
(dinamis).  
Selengkapnya silakan lihat lampiran

Terima kasih atas bantuannya.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

6b.

Re: Mohon Dibantu: Membuat Kotak Combo Dinamis

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Mon Jun 25, 2012 12:37 am (PDT)

*priiiittttt... pak guru kena tilang: fie kegedean he he he, untung pak
polisinya sedang shalat... *

lihat lampiran; lihat prosedur di module 2

Sub CreateDropDownUniqList()
' Rara / 25 Jun 2012
'-------------------
Dim MasterPensiun As Range, FmlTxt As String
Dim i As Long, t As String, UniqList

Set MasterPensiun = Sheets("MASTER").Range("L12")
Set MasterPensiun = Range(MasterPensiun, MasterPensiun.End(xlDown))
UniqList = LOUV(MasterPensiun)

For i = LBound(UniqList) To UBound(UniqList)
t = t & UniqList(i) & ","
FmlTxt = Left(t, Len(t) - 1)
Next

With Sheets("PAKAI-FORMULA").Range("B5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=FmlTxt
.IgnoreBlank = True: .InCellDropdown = True
.InputTitle = "": .ErrorTitle = ""
.InputMessage = "": .ErrorMessage = ""
.ShowInput = True: .ShowError = True
End With

End Sub
'---------------------

Prosedur tsb *hanya membuatkan dropdown list (ex Data Validation) di cell
B5 (sheet 'PAKAI-FORMULA')*
Daftar berupa *List of Uniq Values, Terurut dan Dinamis* (jika sumbernya di
'MASTER" berubah List ikut berubah)

Pemanfaatan List tsb sebagai *Kriteria filter*, saya kira dapat dikerjakan
sendiri berhubung sudah banyak contoh
nya di milis (formula maupun makro)

~Rara

*2012/6/25 guru muda <mudaguru@yahoo.com>
*
>
> * *
> *Kepada para master excel.
> Mohon saya dibantu. Teman saya punya kasus seperti ini:
> Bagaimana membuat kotak combo dinamis ( di cell B5 sheet PAKAI-VORMULA)
> yang dapat memfilter data di bawah ini berdasarkan saat pensiun (kolom L
> sheet MASTER). Pada tgl-bulan-tahun berapa seseorang itu akan pensiun maka
> tgl-bulan-tahun itulah yang muncul di combo box tersebut. Memang kasusini dapat diatasi dengan menggunakan pivot table (lihat sheet PAKAI-PIVOT),
> tetapi saya ingin mengunakan formula atau VBA Code (jika perlu) untuk
> belajar. Jika saya meng-update data di sheet master kolom H (TGL LAHIR),
> maka daftar di combo box juga ikut berubah (dinamis).
> *
>
> *Selengkapnya silakan lihat lampiran *
>
> *Terima kasih atas bantuannya. *
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Recent Activity

•  13
  New Members

Visit Your Group

Cat Groups

on Yahoo! Groups

Share pictures &

stories about cats.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Family and home

Tips for mom

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

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

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe