Rabu, 29 Januari 2014

[belajar-excel] Digest Number 2755

15 New Messages

Digest #2755
1a
Re: Belajar Penjumlahan & Vlookup Menggunakan VBA by "Heri Pamungkas ( Gmail )" dchoosen88
1c
Re: Belajar Penjumlahan & Vlookup Menggunakan VBA by "Heri Pamungkas ( Gmail )" dchoosen88
2
Diskon beragam by "Tony Bexcel"
3a
Textbox Otomatis by haris.rifai
3b
Textbox Otomatis by haris.rifai
3d
Re: Textbox Otomatis by "Mr. Kid" nmkid.family@ymail.com
6a

Messages

Tue Jan 28, 2014 8:37 pm (PST) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88

Semangat Pagi,

8-) Trial Sukses Mr. Kid
Berikut saya lampirkan hasil trialnya.

Hehehe, karena kodrat saya sebagai Hambanya tidak pernah puas

"Bagaimana caranya bila" VBA menghitung sendiri tanpa terlihat bahwa di
"kolom L"
ada Formula di cell tersebut.

Salam Excell-ent

On 29/01/2014 0:59, Mr. Kid wrote:
> Hai Heri,
>
> Coba jalan-jalan kesini
> <http://b-excel.blogspot.com/2013/11/belajarvba-012-formula.html>.
> Sapa tau dapat ide baru.
>
> Wassalam,
> Kid.
>
>
>
> 2014-01-28 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com
> <mailto:ghery.dharma@gmail.com>>
>
> Semangat pagi,
>
> Hehehe,
>
> Mau tanya para kawan-kawan sekalian.
> Saya punya kasus terlampir (ceritanya mau anti-mainstream gitu)
>
>
> Bagaimana Penjumlahan menggunakan VBA dan Vlookup menggunakan VBA.
>
> --
> Salam Excell-ent
>
>
>

Tue Jan 28, 2014 8:43 pm (PST) . Posted by:

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

hehehe... betapa senangnya bisa sukses.... bagi-bagi bebek nih...

Setelah pasang formula, berikan script :
rngtarget.parent.calculate
rngtarget.value=rngtarget.value

Wassalam,
Kid.

2014-01-29 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>

>
>
> Semangat Pagi,
>
> 8-) Trial Sukses Mr. Kid
> Berikut saya lampirkan hasil trialnya.
>
> Hehehe, karena kodrat saya sebagai Hambanya tidak pernah puas
>
> "Bagaimana caranya bila" VBA menghitung sendiri tanpa terlihat bahwa di
> "kolom L"
> ada Formula di cell tersebut.
>
>
> Salam Excell-ent
>
> On 29/01/2014 0:59, Mr. Kid wrote:
>
>
> Hai Heri,
>
> Coba jalan-jalan kesini<http://b-excel.blogspot.com/2013/11/belajarvba-012-formula.html>.
> Sapa tau dapat ide baru.
>
> Wassalam,
> Kid.
>
>
>
> 2014-01-28 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>
>
>>
>>
>> Semangat pagi,
>>
>> Hehehe,
>>
>> Mau tanya para kawan-kawan sekalian.
>> Saya punya kasus terlampir (ceritanya mau anti-mainstream gitu)
>>
>>
>> Bagaimana Penjumlahan menggunakan VBA dan Vlookup menggunakan VBA.
>>
>> --
>> Salam Excell-ent
>>
>>
>
>
>

Tue Jan 28, 2014 9:11 pm (PST) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88

Alhamdulillah,

Hehehe, Bebek meluncur di kopdar berikutnya aja ya Mr. Kid

hmmm,.. Kalo dilihat sepintas perintahnya itu :

1. Nyuruh Rangenya buat calculate
2. Mirip copy paste value buat mem"Valuekan&quot; Formulanya

(Colek Me If I Wrong kalo kata "mba Yu")

Next Step Teman2,

bagaimana caranya agar tidak harus menggunakan F5 atau Run pada VBA
untuk update ?!
Jadi Auto update gitu .

Hehehe, maaf kalau Rewel..

Salam Excell-ent

On 29/01/2014 11:42, Mr. Kid wrote:
> hehehe... betapa senangnya bisa sukses.... bagi-bagi bebek nih...
>
> Setelah pasang formula, berikan script :
> rngtarget.parent.calculate
> rngtarget.value=rngtarget.value
>
> Wassalam,
> Kid.
>
>
>
> 2014-01-29 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com
> <mailto:ghery.dharma@gmail.com>>
>
> Semangat Pagi,
>
> 8-) Trial Sukses Mr. Kid
> Berikut saya lampirkan hasil trialnya.
>
> Hehehe, karena kodrat saya sebagai Hambanya tidak pernah puas
>
> "Bagaimana caranya bila" VBA menghitung sendiri tanpa terlihat
> bahwa di "kolom L"
> ada Formula di cell tersebut.
>
>
> Salam Excell-ent
>
> On 29/01/2014 0:59, Mr. Kid wrote:
>> Hai Heri,
>>
>> Coba jalan-jalan kesini
>> <http://b-excel.blogspot.com/2013/11/belajarvba-012-formula.html>. Sapa
>> tau dapat ide baru.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2014-01-28 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com
>> <mailto:ghery.dharma@gmail.com>>
>>
>> Semangat pagi,
>>
>> Hehehe,
>>
>> Mau tanya para kawan-kawan sekalian.
>> Saya punya kasus terlampir (ceritanya mau anti-mainstream gitu)
>>
>>
>> Bagaimana Penjumlahan menggunakan VBA dan Vlookup menggunakan
>> VBA.
>>
>> --
>> Salam Excell-ent
>>
>>
>
>
>

Tue Jan 28, 2014 9:59 pm (PST) . Posted by:

"Tony Bexcel"

Dear Pakar yang Budiman,

Mohon bantuan pencerahan dan solusinya yang super duper dalam merumuskan pembagian diskon yang banyak ketentuan nya.
Seperti pada contoh yang saya lampirkan ya Temans..
Atas waktu dan solusinya saya ucapkan banyak terimakasih..

Salam,
TonyB

Tue Jan 28, 2014 11:32 pm (PST) . Posted by:

haris.rifai

Salam BeExceler.


Mohon arahanya ne agan-agan.
Saya punya 3 textbox, saya pengin Textbox2 & Textbox3 terisi secara otomatis setelah Textbox1 selesai diinput secara manual. Isi Textbox2 & Textbox3 sesuai dengan data dalam Database mengikuti keypoint yang diinput dalam Textbox1.


Untuk lebih jelasnya saya lampirkan file-nya.




Haris

----- Mods -----
file lampiran kelihatannya tercecer..
silakan melampirkan file dengan cara mereply email ini
___________


Tue Jan 28, 2014 11:47 pm (PST) . Posted by:

haris.rifai

Salam BeExceler.


Mohon arahanya ne agan-agan.
Saya punya 3 textbox, saya pengin Textbox2 & Textbox3 terisi secara otomatis setelah Textbox1 selesai diinput secara manual. Isi Textbox2 & Textbox3 sesuai dengan data dalam Database mengikuti keypoint yang diinput dalam Textbox1.


Untuk lebih jelasnya saya lampirkan file-nya.




Haris

Wed Jan 29, 2014 12:20 am (PST) . Posted by:

"Jan Raisin"

Hai Haris,

pada textbox 1 dikasih event change, lalu diberi script seperti ini:

Dim sKey As String
Dim rgFind As Range

sKey = TextBox1.Text ' simpan nilai textbox 1 ke dalam
variabel
TextBox2.Text = vbNullString ' hapus isi textbox 2
TextBox3.Text = vbNullString ' hapus isi textbox 3
Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole) ' cari isi
textbox 1 di kolom B, isinya harus sama persis
If Not rgFind Is Nothing Then ' jika data
ditemukan
TextBox2.Text = rgFind.Offset(, 1).Value ' isi textbox
2 dengan nilai 1 kolom di sebelah kanan data
TextBox3.Text = rgFind.Offset(, 2).Value ' isi textbox
3 dengan nilai 2 kolom si sebelah kanan data
End If

Wassalam.

-Miss Jan Raisin-

Pada 29 Januari 2014 14.47, <haris.rifai@yahoo.co.id> menulis:

>
>
> Salam BeExceler.
>
>
> Mohon arahanya ne agan-agan.
> Saya punya 3 textbox, saya pengin Textbox2 & Textbox3 terisi secara
> otomatis setelah Textbox1 selesai diinput secara manual. Isi Textbox2 &
> Textbox3 sesuai dengan data dalam Database mengikuti keypoint yang diinput
> dalam Textbox1.
>
> Untuk lebih jelasnya saya lampirkan file-nya.
>
>
> Haris
>
>
>

Wed Jan 29, 2014 12:42 am (PST) . Posted by:

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

Pinjam script-nya ya miss...
mo nambahin dikit... sapa tahu ada gunanya...

Dugaan :
1. bisa jadi nanti akan menjadikan userform sebagai alat edit juga.
>> baris deklarasi variabel range diubah agar ber-scope module dengan
memindahkan dan mengubah scope baris berbunyi :
Dim rgFind As Range 'yang ada dalam prosedur sub event change si textbox
menjadi :
private rgFind As Range 'di blok deklarasi (baris paling atas dalam
module tersebut setelah teks Option Explicit [jika ada])

2. nilai data yang dicari pasti lebih dari 3 karakter (ada penulisan teks 0
di karakter pertama)
>> diberi kondisi terhadap jumlah karakter inputan yang diletakkan sebelum
baris berbunyi :
Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole)
dengan bunyi script kondisinya adalah :
if len(skey)<4 then
exit sub
endif

Wassalam,
Kid.

2014-01-29 Jan Raisin <miss.jan.raisin@gmail.com>

>
>
> Hai Haris,
>
> pada textbox 1 dikasih event change, lalu diberi script seperti ini:
>
> Dim sKey As String
> Dim rgFind As Range
>
> sKey = TextBox1.Text ' simpan nilai textbox 1 ke dalam
> variabel
> TextBox2.Text = vbNullString ' hapus isi textbox 2
> TextBox3.Text = vbNullString ' hapus isi textbox 3
> Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole) ' cari isi
> textbox 1 di kolom B, isinya harus sama persis
> If Not rgFind Is Nothing Then ' jika data
> ditemukan
> TextBox2.Text = rgFind.Offset(, 1).Value ' isi
> textbox 2 dengan nilai 1 kolom di sebelah kanan data
> TextBox3.Text = rgFind.Offset(, 2).Value ' isi
> textbox 3 dengan nilai 2 kolom si sebelah kanan data
> End If
>
>
> Wassalam.
>
> -Miss Jan Raisin-
>
>
> Pada 29 Januari 2014 14.47, <haris.rifai@yahoo.co.id> menulis:
>
>>
>>
>> Salam BeExceler.
>>
>>
>> Mohon arahanya ne agan-agan.
>> Saya punya 3 textbox, saya pengin Textbox2 & Textbox3 terisi secara
>> otomatis setelah Textbox1 selesai diinput secara manual. Isi Textbox2 &
>> Textbox3 sesuai dengan data dalam Database mengikuti keypoint yang diinput
>> dalam Textbox1.
>>
>> Untuk lebih jelasnya saya lampirkan file-nya.
>>
>>
>> Haris
>>
>>
>>
>

Tue Jan 28, 2014 11:33 pm (PST) . Posted by:

dya27_biznies

Dear BeExceller...
Bisa gak kalo kita memasukan hyperlink ke dalam dropdown list excel ?
File terlampir

Tolong bantuannya ....


----- Mods -----
file lampiran kelihatannya tercecer..
silakan melampirkan file dengan cara mereply email ini
___________

Wed Jan 29, 2014 12:09 am (PST) . Posted by:

"Wawan Juhana"

Dear Agan-agan Be-Excel,

Mohon dibantu cara otomatis menghilangkan baris pada worksheet excel, kalau
hapus manual terlalu lama karena banyak.

- Contoh baris yang akan di hapus seperti blok warna kuning

- Untuk kolom C bagaimana menyisipkan angka di tengah Cell seperti
BPB/TSU//01/064 menjadi BPB/TSU/2014/01/064

Terimakasih banyak atas perhatiannya, semoga ada yang bisa bantu.

Regards,

Wawan

Wed Jan 29, 2014 12:22 am (PST) . Posted by:

"marone oke" maroneoke940

Dear master excel...

Bagaimana membuat data secara selang-seling dengan rumus yang flexible, dimana data tersebut terkumpul pada satu sheet namun beda kolom...saya sudah coba dengan rumus "OFFSET" bisa tapi
tidak flexible karena harus merubah sel absolut dan row nya....

kasus ini pernah di bahas dalam milis ini namun waktu itu data berada pada sheet yang berbeda....dan solusinya menggunakan rumus "ADDRESS".

tolong solusinya master....terima kasih

(file terlampir)

Wed Jan 29, 2014 1:03 am (PST) . Posted by:

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

Hai Marone,

Coba formula :
=INDEX($B$3:$R$8,CEILING((ROW()-ROW($E$9))/3,1),MOD(ROW()-ROW($E$9)-1,3)*8+1)

8 adalah jumlah kolom per blok (termasuk kolom kosong antar dataset)
/3 adalah pembagian terhadap jumlah blok dalam range B3 sampai R8
,3 adalah pencarian sisa bagi terhadap jumlah blok dalam range B3 sampai R8
Index adalah nama fungsi bawaan Excel untuk mendapatkan range atau item
array berdasar posisi baris dan kolomnya
Ceiling untuk mendapatkan nilai kelipatan tertentu setelah nilai data
terpilih
Mod untuk mencari sisa bagi nilai data terpilih terhadap suatu nilai
tertentu. Nilai 3 dibagi 2 akan bersisa 1 diungkapkan dengan =Mod( 3 , 2 )

fyi,
1. Fungsi Index tidak bersifat volatile. Jadi fungsi Index tidak masuk
kelompok fungsi volatile.

2. Fungsi yang memiliki sifat volatile pasti dikalkulasi oleh Excel setiap
kali Excel harus melakukan kalkulasi, seperti ketika ada nilai cell yang
berubah. Fungsi volatile pasti akan dikalkulasi walaupun yang berubah isi
adalah cell yang sama sekali tidak dirujuk secara langsung ataupun langsung
oleh bunyi formula yang menggunakan fungsi volatile tersebut. Misal di C1
ada formula berbunyi =Offset($a$1,12,0) dan di cell zz23 diubah isinya,
maka cell zz23 akan dikalkulasi oleh Excel karena perubahan isi tersebut.
Begitu juga dengan cell C1 karena ada fungsi yang masuk kelompok volatile
di C1 yang bernama fungsi Offset. Andaikan formula seperti C1 itu ada di
20K cell, maka 20K cell itu akan dikalkulasi setiap ada perubahan isi cell
dimanapun dalam workbook. Berarti ada 20K sumber daya komputer yang
terbuang sia-sia karena mengkalkulasi formula yang tidak mengalami
perubahan nilai pada range yang dirujuk oleh si formula. Penggunaan fungsi
volatile secara masif akan membuat Excel bekerja sangat lambat dalam
mengkalkulasi, mengubah isi cell, dsb.

*** Jika regional setting komputer setempat adalah Indonesian, ganti
seluruh karakter koma dalam formula menjadi karakter titik koma.

Wassalam,
Kid.

2014-01-29 marone oke <maroneoke940@yahoo.com>

>
>
> Dear master excel...
>
> Bagaimana membuat data secara selang-seling dengan rumus yang flexible,
> dimana data tersebut terkumpul pada satu sheet namun beda kolom...saya
> sudah coba dengan rumus "OFFSET" bisa tapi
> tidak flexible karena harus merubah sel absolut dan row nya....
>
> kasus ini pernah di bahas dalam milis ini namun waktu itu data berada pada
> sheet yang berbeda....dan solusinya menggunakan rumus "ADDRESS".
>
> tolong solusinya master....terima kasih
>
> (file terlampir)
>
>
>
>
>

Wed Jan 29, 2014 1:06 am (PST) . Posted by:

"Bagus" bagus4bls

Hai Marwan;

Coba begini;
=IF(D10="PAGI",OFFSET($B$2,COUNTIF($D$10:D10,D10),0),IF(D10="SIANG",OFFSET($J$2,COUNTIF($D$10:D10,D10),0),OFFSET($R$2,COUNTIF($D$10:D10,D10),0)))

Copas kebawah

Wassalam

~ Bagus ~

----- Original Message -----
From: marone oke
To: belajar-excel@yahoogroups.com
Sent: Wednesday, January 29, 2014 3:20 PM
Subject: [belajar-excel] membuat data selang-seling secara flexible [1 Attachment]

Dear master excel...

Bagaimana membuat data secara selang-seling dengan rumus yang flexible, dimana data tersebut terkumpul pada satu sheet namun beda kolom...saya sudah coba dengan rumus "OFFSET" bisa tapi
tidak flexible karena harus merubah sel absolut dan row nya....

kasus ini pernah di bahas dalam milis ini namun waktu itu data berada pada sheet yang berbeda....dan solusinya menggunakan rumus "ADDRESS".

tolong solusinya master....terima kasih

(file terlampir)

Wed Jan 29, 2014 12:23 am (PST) . Posted by:

"Bagus" bagus4bls

Hai Wawan;

1. Block B34:B700
Tekan tombol Ctrl + G
Click Special
Pilih Blank
lalu OK.
Click kanan
Pilih Delete
Pilih Entire Row
lalu OK

2. Block kolom C
Tekan tombol Ctrl + H
pada Find what isilah dengan //
pada Replace with isilang dengan /2014/
lalu click Replace All


Wassalam

~ Bagus ~

----- Original Message -----
From: Wawan Juhana
To: belajar-excel@yahoogroups.com
Sent: Wednesday, January 29, 2014 3:07 PM
Subject: [belajar-excel] cara otomatis menghilangkan baris yang tidak ada data dan menyisipkan angka ditengah cell [1 Attachment]

Dear Agan-agan Be-Excel,

Mohon dibantu cara otomatis menghilangkan baris pada worksheet excel, kalau hapus manual terlalu lama karena banyak.

- Contoh baris yang akan di hapus seperti blok warna kuning

- Untuk kolom C bagaimana menyisipkan angka di tengah Cell seperti BPB/TSU//01/064 menjadi BPB/TSU/2014/01/064

Terimakasih banyak atas perhatiannya, semoga ada yang bisa bantu.

Regards,

Wawan

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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 01.21

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)