Re: [belajar-excel] Vlookup otomatis via Macros
Waduh thx banget udah ada yg ngerespon dari master2 excell dimilis ini, Tapi jadi makin pusing master2, ane cuma mau secara otomatiis ngejalanin vlookup, dengan database beda sheet tanpa rumus vlookup terlihat di worksheet (kolom excell), memang se rumit itu rumus nya ya ? Ada yg bisa bantu ngejelasin? Step by step ? Ps: maap subjek nya ane ganti, soalya di omelin admn Thx in advance -- On Tue, Sep 17, 2013 06:43 ICT De Premor wrote: Maaf, semalem ujan deras di Kalteng, nga berani nyolokin laptop :D Fungsi Evaluate adalah untuk merubah sebuah nama diexcel menjadi sebuah object Contoh untuk mengambil nilai dari Cell A1, biasanya dipakai Range(A1), hal tersebut bisa juga menggunakan fungsi Evaluate(A1) atau bisa *disingkat menjadi [A1] saja jika ingin mengambil**nilainya sebagai sebuah string* Kemudian untuk Rumus yang diberikan sebelumnya ***Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0))** * bisa diubah menjadi *[B2] = [**vlookup**(A1,Tabelku,2,0)]** * Contoh lain *Dim Data** **Data = [Tabelku]** **[J2].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** ** **Data = [J2:K5]** **[J7].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** * Contoh Lagi Misal di Cell A3 kita mempunya sebuah string *2+3+4+5* tanpa tanda kutip dan ingin menjumlahkan, maka kita tidak bisa menggunakan tanda bracket pada formula karena data A3 akan diubah menjadi string olehnya *[B3] = [A3] /'Hasilnya tetap String/ [C3] = Evaluate(Range(A3).Value) /'Hasilnya 14/ * Evaluate bisa juga digunakan di worksheet, tetapi hanya bisa di NameManager Misal tambahkan sebuah Name *ELOOKUP *yang isinya merujuk kepada =*Evaluate(VLOOKUP(A1,Tabelku,2,0)) *Tambahkan juga Name bernama *Hitung *yang isinya merujuk kepada *=E**valuate(A3)*atau bisa digabung dgn Indirect atau yg lain* ** *** Pada 16/09/2013 19:31, sony.ar...@gmail.com menulis: Ada yang menarik perhatian saya pak :).. Bisa bantu jelaskan untuk fungsi Evaluate tersebut ? Terima kasih sebelumnya. Powered by Telkomsel BlackBerry® *From: * De Premor d...@premor.net *Sender: * belajar-excel@yahoogroups.com *Date: *Mon, 16 Sep 2013 18:39:39 +0700 *To: *belajar-excel@yahoogroups.com *ReplyTo: * belajar-excel@yahoogroups.com *Subject: *Re: [belajar-excel] Tanya Vlookup Macros Misal kata kuncinya ada di Cell A1, dan hasil vlookup mau ditampilkan di Cell B1 serta data Lookup nya ada pada tabel yang bernama Tabelku maka vode VBA nya sbb: Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0)) [dp] On 16-09-2013 16:53, jackie yunianto wrote: dear All, Mohon bantuannya Saya bermaksud menjalankan fungsi vlookup secara otomatis melalui macro, Bagaimana cara menuliskan Vlook up tersebut, tanpa rumusnya muncul di kolom excell Thx, Regards - Jackie-
Re: [belajar-excel] Vlookup otomatis via Macros [1 Attachment]
PFA Pada 17/09/2013 21:17, jackie yunianto menulis: Waduh thx banget udah ada yg ngerespon dari master2 excell dimilis ini, Tapi jadi makin pusing master2, ane cuma mau secara otomatiis ngejalanin vlookup, dengan database beda sheet tanpa rumus vlookup terlihat di worksheet (kolom excell), memang se rumit itu rumus nya ya ? Ada yg bisa bantu ngejelasin? Step by step ? Ps: maap subjek nya ane ganti, soalya di omelin admn Thx in advance -- On Tue, Sep 17, 2013 06:43 ICT De Premor wrote: Maaf, semalem ujan deras di Kalteng, nga berani nyolokin laptop :D Fungsi Evaluate adalah untuk merubah sebuah nama diexcel menjadi sebuah object Contoh untuk mengambil nilai dari Cell A1, biasanya dipakai Range(A1), hal tersebut bisa juga menggunakan fungsi Evaluate(A1) atau bisa *disingkat menjadi [A1] saja jika ingin mengambil**nilainya sebagai sebuah string* Kemudian untuk Rumus yang diberikan sebelumnya ***Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0))** * bisa diubah menjadi * [B2] = [**vlookup**(A1,Tabelku,2,0)]** * Contoh lain * Dim Data** ** Data = [Tabelku]** ** [J2].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** ** ** Data = [J2:K5]** ** [J7].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** * Contoh Lagi Misal di Cell A3 kita mempunya sebuah string *2+3+4+5* tanpa tanda kutip dan ingin menjumlahkan, maka kita tidak bisa menggunakan tanda bracket pada formula karena data A3 akan diubah menjadi string olehnya * [B3] = [A3] /'Hasilnya tetap String/ [C3] = Evaluate(Range(A3).Value) /'Hasilnya 14/ * Evaluate bisa juga digunakan di worksheet, tetapi hanya bisa di NameManager Misal tambahkan sebuah Name *ELOOKUP *yang isinya merujuk kepada =*Evaluate(VLOOKUP(A1,Tabelku,2,0)) *Tambahkan juga Name bernama *Hitung *yang isinya merujuk kepada *=E**valuate(A3)*atau bisa digabung dgn Indirect atau yg lain* ** *** Pada 16/09/2013 19:31, sony.ar...@gmail.com menulis: Ada yang menarik perhatian saya pak :).. Bisa bantu jelaskan untuk fungsi Evaluate tersebut ? Terima kasih sebelumnya. Powered by Telkomsel BlackBerry® -- *From: * De Premor d...@premor.net *Sender: * belajar-excel@yahoogroups.com *Date: *Mon, 16 Sep 2013 18:39:39 +0700 *To: *belajar-excel@yahoogroups.com *ReplyTo: * belajar-excel@yahoogroups.com *Subject: *Re: [belajar-excel] Tanya Vlookup Macros Misal kata kuncinya ada di Cell A1, dan hasil vlookup mau ditampilkan di Cell B1 serta data Lookup nya ada pada tabel yang bernama Tabelku maka vode VBA nya sbb: Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0)) [dp] On 16-09-2013 16:53, jackie yunianto wrote: dear All, Mohon bantuannya Saya bermaksud menjalankan fungsi vlookup secara otomatis melalui macro, Bagaimana cara menuliskan Vlook up tersebut, tanpa rumusnya muncul di kolom excell Thx, Regards - Jackie- VLookup Pakai Macro.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: [belajar-excel] Vlookup otomatis via Macros [1 Attachment]
Secara otomatis tanpa terlihat rumus vlookupnya bisa ditempuh dengan 2 alternatif: - Formula di hidden, kemudian Sheet diprotect (bagian yang akan diubah harus diunlocked dan formula dihidden sebelum sheet diprotect) - Dengan Macro sesuai subject, pakai Evaluate(=Vlookup( )) File dan penjelasan terlampir. Salam, HK From: jackie yunianto tanfidzula...@yahoo.co.id To: belajar-excel@yahoogroups.com Sent: Tuesday, 17 September 2013, 21:17 Subject: Re: [belajar-excel] Vlookup otomatis via Macros Waduh thx banget udah ada yg ngerespon dari master2 excell dimilis ini, Tapi jadi makin pusing master2, ane cuma mau secara otomatiis ngejalanin vlookup, dengan database beda sheet tanpa rumus vlookup terlihat di worksheet (kolom excell), memang se rumit itu rumus nya ya ? Ada yg bisa bantu ngejelasin? Step by step ? Ps: maap subjek nya ane ganti, soalya di omelin admn Thx in advance -- On Tue, Sep 17, 2013 06:43 ICT De Premor wrote: Maaf, semalem ujan deras di Kalteng, nga berani nyolokin laptop :D Fungsi Evaluate adalah untuk merubah sebuah nama diexcel menjadi sebuah object Contoh untuk mengambil nilai dari Cell A1, biasanya dipakai Range(A1), hal tersebut bisa juga menggunakan fungsi Evaluate(A1) atau bisa *disingkat menjadi [A1] saja jika ingin mengambil**nilainya sebagai sebuah string* Kemudian untuk Rumus yang diberikan sebelumnya ***Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0))** * bisa diubah menjadi *[B2] = [**vlookup**(A1,Tabelku,2,0)]** * Contoh lain *Dim Data** **Data = [Tabelku]** **[J2].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** ** **Data = [J2:K5]** **[J7].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** * Contoh Lagi Misal di Cell A3 kita mempunya sebuah string *2+3+4+5* tanpa tanda kutip dan ingin menjumlahkan, maka kita tidak bisa menggunakan tanda bracket pada formula karena data A3 akan diubah menjadi string olehnya *[B3] = [A3] /'Hasilnya tetap String/ [C3] = Evaluate(Range(A3).Value) /'Hasilnya 14/ * Evaluate bisa juga digunakan di worksheet, tetapi hanya bisa di NameManager Misal tambahkan sebuah Name *ELOOKUP *yang isinya merujuk kepada =*Evaluate(VLOOKUP(A1,Tabelku,2,0)) *Tambahkan juga Name bernama *Hitung *yang isinya merujuk kepada *=E**valuate(A3)*atau bisa digabung dgn Indirect atau yg lain* ** *** Pada 16/09/2013 19:31, sony.ar...@gmail.com menulis: Ada yang menarik perhatian saya pak :).. Bisa bantu jelaskan untuk fungsi Evaluate tersebut ? Terima kasih sebelumnya. Powered by Telkomsel BlackBerry® -- *From: * De Premor d...@premor.net *Sender: * belajar-excel@yahoogroups.com *Date: *Mon, 16 Sep 2013 18:39:39 +0700 *To: *belajar-excel@yahoogroups.com *ReplyTo: * belajar-excel@yahoogroups.com *Subject: *Re: [belajar-excel] Tanya Vlookup Macros Misal kata kuncinya ada di Cell A1, dan hasil vlookup mau ditampilkan di Cell B1 serta data Lookup nya ada pada tabel yang bernama Tabelku maka vode VBA nya sbb: Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0)) [dp] On 16-09-2013 16:53, jackie yunianto wrote: dear All, Mohon bantuannya Saya bermaksud menjalankan fungsi vlookup secara otomatis melalui macro, Bagaimana cara menuliskan Vlook up tersebut, tanpa rumusnya muncul di kolom excell Thx, Regards - Jackie- Eval_Vlookup.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: [belajar-excel] Vlookup otomatis via Macros
wow, respon nya cepet banget, Maap om premor, melihat Attachmentnya yg xlsm, apakah ini berarti tidak dimungkinkan macro nya dibuat hanya dalam format xls biasa? Tp thk u berat udah dibantu -- On Tue, Sep 17, 2013 21:44 ICT De Premor wrote: PFA Pada 17/09/2013 21:17, jackie yunianto menulis: Waduh thx banget udah ada yg ngerespon dari master2 excell dimilis ini, Tapi jadi makin pusing master2, ane cuma mau secara otomatiis ngejalanin vlookup, dengan database beda sheet tanpa rumus vlookup terlihat di worksheet (kolom excell), memang se rumit itu rumus nya ya ? Ada yg bisa bantu ngejelasin? Step by step ? Ps: maap subjek nya ane ganti, soalya di omelin admn Thx in advance -- On Tue, Sep 17, 2013 06:43 ICT De Premor wrote: Maaf, semalem ujan deras di Kalteng, nga berani nyolokin laptop :D Fungsi Evaluate adalah untuk merubah sebuah nama diexcel menjadi sebuah object Contoh untuk mengambil nilai dari Cell A1, biasanya dipakai Range(A1), hal tersebut bisa juga menggunakan fungsi Evaluate(A1) atau bisa *disingkat menjadi [A1] saja jika ingin mengambil**nilainya sebagai sebuah string* Kemudian untuk Rumus yang diberikan sebelumnya ***Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0))** * bisa diubah menjadi * [B2] = [**vlookup**(A1,Tabelku,2,0)]** * Contoh lain * Dim Data** ** Data = [Tabelku]** ** [J2].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** ** ** Data = [J2:K5]** ** [J7].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** * Contoh Lagi Misal di Cell A3 kita mempunya sebuah string *2+3+4+5* tanpa tanda kutip dan ingin menjumlahkan, maka kita tidak bisa menggunakan tanda bracket pada formula karena data A3 akan diubah menjadi string olehnya * [B3] = [A3] /'Hasilnya tetap String/ [C3] = Evaluate(Range(A3).Value) /'Hasilnya 14/ * Evaluate bisa juga digunakan di worksheet, tetapi hanya bisa di NameManager Misal tambahkan sebuah Name *ELOOKUP *yang isinya merujuk kepada =*Evaluate(VLOOKUP(A1,Tabelku,2,0)) *Tambahkan juga Name bernama *Hitung *yang isinya merujuk kepada *=E**valuate(A3)*atau bisa digabung dgn Indirect atau yg lain* ** *** Pada 16/09/2013 19:31, sony.ar...@gmail.com menulis: Ada yang menarik perhatian saya pak :).. Bisa bantu jelaskan untuk fungsi Evaluate tersebut ? Terima kasih sebelumnya. Powered by Telkomsel BlackBerry® -- *From: * De Premor d...@premor.net *Sender: * belajar-excel@yahoogroups.com *Date: *Mon, 16 Sep 2013 18:39:39 +0700 *To: *belajar-excel@yahoogroups.com *ReplyTo: * belajar-excel@yahoogroups.com *Subject: *Re: [belajar-excel] Tanya Vlookup Macros Misal kata kuncinya ada di Cell A1, dan hasil vlookup mau ditampilkan di Cell B1 serta data Lookup nya ada pada tabel yang bernama Tabelku maka vode VBA nya sbb: Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0)) [dp] On 16-09-2013 16:53, jackie yunianto wrote: dear All, Mohon bantuannya Saya bermaksud menjalankan fungsi vlookup secara otomatis melalui macro, Bagaimana cara menuliskan Vlook up tersebut, tanpa rumusnya muncul di kolom excell Thx, Regards - Jackie-
Re: [belajar-excel] Vlookup otomatis via Macros
Bisa. Buka file .xlsm nya dan save .xls. Salam, HK From: jackie yunianto tanfidzula...@yahoo.co.id To: belajar-excel@yahoogroups.com Sent: Tuesday, 17 September 2013, 23:14 Subject: Re: [belajar-excel] Vlookup otomatis via Macros wow, respon nya cepet banget, Maap om premor, melihat Attachmentnya yg xlsm, apakah ini berarti tidak dimungkinkan macro nya dibuat hanya dalam format xls biasa? Tp thk u berat udah dibantu -- On Tue, Sep 17, 2013 21:44 ICT De Premor wrote: PFA Pada 17/09/2013 21:17, jackie yunianto menulis: Waduh thx banget udah ada yg ngerespon dari master2 excell dimilis ini, Tapi jadi makin pusing master2, ane cuma mau secara otomatiis ngejalanin vlookup, dengan database beda sheet tanpa rumus vlookup terlihat di worksheet (kolom excell), memang se rumit itu rumus nya ya ? Ada yg bisa bantu ngejelasin? Step by step ? Ps: maap subjek nya ane ganti, soalya di omelin admn Thx in advance -- On Tue, Sep 17, 2013 06:43 ICT De Premor wrote: Maaf, semalem ujan deras di Kalteng, nga berani nyolokin laptop :D Fungsi Evaluate adalah untuk merubah sebuah nama diexcel menjadi sebuah object Contoh untuk mengambil nilai dari Cell A1, biasanya dipakai Range(A1), hal tersebut bisa juga menggunakan fungsi Evaluate(A1) atau bisa *disingkat menjadi [A1] saja jika ingin mengambil**nilainya sebagai sebuah string* Kemudian untuk Rumus yang diberikan sebelumnya ***Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0))** * bisa diubah menjadi * [B2] = [**vlookup**(A1,Tabelku,2,0)]** * Contoh lain * Dim Data** ** Data = [Tabelku]** ** [J2].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** ** ** Data = [J2:K5]** ** [J7].Resize(UBound(Data, 1), UBound(Data, 2)) = Data** * Contoh Lagi Misal di Cell A3 kita mempunya sebuah string *2+3+4+5* tanpa tanda kutip dan ingin menjumlahkan, maka kita tidak bisa menggunakan tanda bracket pada formula karena data A3 akan diubah menjadi string olehnya * [B3] = [A3] /'Hasilnya tetap String/ [C3] = Evaluate(Range(A3).Value) /'Hasilnya 14/ * Evaluate bisa juga digunakan di worksheet, tetapi hanya bisa di NameManager Misal tambahkan sebuah Name *ELOOKUP *yang isinya merujuk kepada =*Evaluate(VLOOKUP(A1,Tabelku,2,0)) *Tambahkan juga Name bernama *Hitung *yang isinya merujuk kepada *=E**valuate(A3)*atau bisa digabung dgn Indirect atau yg lain* ** *** Pada 16/09/2013 19:31, sony.ar...@gmail.com menulis: Ada yang menarik perhatian saya pak :).. Bisa bantu jelaskan untuk fungsi Evaluate tersebut ? Terima kasih sebelumnya. Powered by Telkomsel BlackBerry® -- *From: * De Premor d...@premor.net *Sender: * belajar-excel@yahoogroups.com *Date: *Mon, 16 Sep 2013 18:39:39 +0700 *To: *belajar-excel@yahoogroups.com *ReplyTo: * belajar-excel@yahoogroups.com *Subject: *Re: [belajar-excel] Tanya Vlookup Macros Misal kata kuncinya ada di Cell A1, dan hasil vlookup mau ditampilkan di Cell B1 serta data Lookup nya ada pada tabel yang bernama Tabelku maka vode VBA nya sbb: Range(B2) = Evaluate(=VLOOKUP(A1,Tabelku,2,0)) [dp] On 16-09-2013 16:53, jackie yunianto wrote: dear All, Mohon bantuannya Saya bermaksud menjalankan fungsi vlookup secara otomatis melalui macro, Bagaimana cara menuliskan Vlook up tersebut, tanpa rumusnya muncul di kolom excell Thx, Regards - Jackie-