[belajar-excel] Digest Number 2550

Milis Belajar Microsoft Excel Group

2 New Messages

Digest #2550

1a

Re: Tanya: Mencari data di file-file excell by "Mr. Kid" nmkid.family@ymail.com

2

Menyambung formulaR1C1 di VBA (tip) by "hendrik karnadi" hendrikkarnadi

Messages

1a

Re: Tanya: Mencari data di file-file excell

Sat Sep 21, 2013 3:02 am (PDT) . Posted by:

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

Coba file yang ada disini <https://app.box.com/s/89mjmcxfxouw0wglspbx>.
Moga-moga bisa jadi bahan wacana untuk dikembangkan sesuai kebutuhan.

Wassalam,
Kid.

2013/9/18 <aku.giat@ymail.com>

> **
>
>
> Jadi saya punya (misal) 7 file excell dalam 1 file.
> saya ingin cari data yang sama dari ketujuh file tersebut.
>
> maksudnya: saya punya data email giat@teguh[dot]com di excel1.xls,
> bisakah saya mengetahui email tersebut di file excel2.xls, excel3.xls, dst?
>
> mohon bantuannya. thanks
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

2

Menyambung formulaR1C1 di VBA (tip)

Sat Sep 21, 2013 4:26 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Salah satu manfaat formula R1C1 ,yang bisa kita dapatkan melalui rekaman macro, adalah fleksibilitasnya (merujuk ke baris atau kolom secara dinamis).
Namun disisi lain batasan Row dan Kolomnya berupa angka yang tidak dinamis seperti prosedur di bawah ini (diambil dari kasus mencocokkan nomor):

Private Sub CommandButton1_Click()
    Dim Rng As Range
    Set Rng = Sheets("DATA").Range("A1").CurrentRegion
    Set Rng = Rng.Offset(1, Rng.Columns.Count - 1).Resize(Rng.Rows.Count - 1, 1)
    Rng.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-13],PESERTA!R2C1:R1000C1,1,FALSE),"""")"
    Rng.Value = Rng.Value
    Sheets("DATA").Activate
End Sub

Untuk membuatnya lebih dinamis maka perlu sedikit diakali dengan membuat suatu variabel (berupa integer atau long) untuk mengganti angka tsb,
sehingga prosedurnya menjadi seperti ini:

Private Sub CommandButton1_Click()
    Dim Rng As Range
    Dim lrow As Long
    lrow = Sheets("Peserta").Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Sheets("DATA").Range("A1").CurrentRegion
    Set Rng = Rng.Offset(1, Rng.Columns.Count - 1).Resize(Rng.Rows.Count - 1, 1)
    Rng.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-13],PESERTA!R2C1:R" & lrow & "C1,1,FALSE),"""")"
    Rng.Value = Rng.Value
    Sheets("DATA").Activate
End Sub

Semoga tip kecil ini bermanfaat bagi kita para penulis VBA pemula.

Salam,
HK

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

13 New Members

>

9 New Photos

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

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

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>