Rabu, 10 April 2013

[belajar-excel] Digest Number 2222

15 New Messages

Digest #2222
1a
Re: otomatis ganti sesuai nm wrkbook by "Mr. Kid" nmkid.family@ymail.com
1c
Re: otomatis ganti sesuai nm wrkbook by "Mr. Kid" nmkid.family@ymail.com
2a
Cari baris baru dan record tertentu by "hendrik karnadi" hendrikkarnadi
2d
Re: Cari baris baru dan record tertentu by "hendrik karnadi" hendrikkarnadi

Messages

Tue Apr 9, 2013 9:55 pm (PDT) . Posted by:

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

eh ada yang lupa.
dilanjutkan ya
12. buka file re-coba macro_pakai_fungsi_cell.xlsx
13. jangan lakukan apa-apa
14. lakukan open file (dari menu Excel) dan buka sebarang file excel dari
folder manapun yang anda suka bebas, ada vba atau tidak.
15. ingat-ingat nama file yang di open di nomor 14 tadi
16. klik file re-coba macro_pakai_fungsi_cell.xlsx
17. jangan lakukan apapun terhadap komputer dan lihat cell hasil.
18. tutup semua workbook

Wassalam,
Kid.

2013/4/10 Mr. Kid <mr.nmkid@gmail.com>

> Coba file-file terlampir.
> Caranya : (lakukan yang persis ya)
> 1. unduh file re-coba macro_pakai_fungsi_cell.xlsx
> 2. buka dan tulis nama file yang tertulis di cell hasil
> 3. lakukan save as dengan nama lain misal diberi nama :
> pakai_cell_di_save_as
> 4. jangan sentuh komputer sedikit pun dan lihat nama file yang tertulis di
> cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)
> 5. lakukan calculate (tekan F9) dan lihat isi cell hasil (tulis bila perlu
> dan bandingkan dengan hasil nomor 2 dan 4)
> 6. tutup workbook
> 7. unduh file re-coba macro_pakai_udf_dibantu_workbook_event.xlsb
> 8. buka dan tulis nama file yang tertulis di cell hasil
> 9. lakukan save as dengan nama lain misal diberi nama : pakai_udf
> 10. jangan sentuh komputer sedikit pun dan lihat nama file hasil yang
> tertulis di cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)
> 11. tutup workbook.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/4/10 PRAZT <praztmath@gmail.com>
>
>> **
>>
>>
>> Sudah saya coba saya MK yaitu menambahkan application.volatile true di
>> baris pertama tapi belum bisa juga MK****
>>
>> ** **
>>
>> *From:* belajar-excel@yahoogroups.com [mailto:
>> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
>> *Sent:* 10 April 2013 9:40
>> *To:* BeExcel
>>
>> *Subject:* Re: [belajar-excel] otomatis ganti sesuai nm wrkbook****
>>
>> ** **
>>
>> ****
>>
>> Ketika menggunakan fungsi Cell, usai save as dilakukan calculate (tekan
>> F9).****
>>
>> Jika tetap ingin dengan UDF yang ada, tambahkan baris :****
>>
>> application.volatile true****
>>
>> pada baris pertama dalam prosedur fungsi tersebut.****
>>
>> Bila perlu, pada event workbook before save dilakukan calculate dengan
>> application.calculate****
>>
>> Wassalam,****
>>
>> Kid.****
>>
>> ** **
>>
>> ** **
>>
>> 2013/4/10 Jan Raisin <miss.jan.raisin@gmail.com>****
>>
>> ****
>>
>> gimana kalo gak usah pake vba aja?****
>>
>> ** **
>>
>> di cell yang ingin dimunculkan namanya diisi dengan formula ini;****
>>
>> ** **
>>
>> =Cell("filename")****
>>
>> ** **
>>
>> >> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
>> mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text****
>>
>> ** **
>>
>> Wassalam,****
>>
>> ** **
>>
>> -Miss Jan Raisin-****
>>
>> ** **
>>
>>
>

Tue Apr 9, 2013 10:01 pm (PDT) . Posted by:

"Jan Raisin"

untuk thread ini, solusi dari mr Kid yang paling tepat, karena untuk fungsi
Cell harus menekan tombol F9 dulu baru bisa memunculkan hasil yang sesuai
^_^
sedangkan dengan macro bisa langsung menampilkan hasil yang tepat dengan
memanfaatkan event pada workbook

ilmu baru lagi untuk Jan, :D

Wassalam,

-MJR-

Pada 10 April 2013 11.49, Mr. Kid <mr.nmkid@gmail.com> menulis:

> **
>
>
> Coba file-file terlampir.
> Caranya : (lakukan yang persis ya)
> 1. unduh file re-coba macro_pakai_fungsi_cell.xlsx
> 2. buka dan tulis nama file yang tertulis di cell hasil
> 3. lakukan save as dengan nama lain misal diberi nama :
> pakai_cell_di_save_as
> 4. jangan sentuh komputer sedikit pun dan lihat nama file yang tertulis di
> cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)
> 5. lakukan calculate (tekan F9) dan lihat isi cell hasil (tulis bila perlu
> dan bandingkan dengan hasil nomor 2 dan 4)
> 6. tutup workbook
> 7. unduh file re-coba macro_pakai_udf_dibantu_workbook_event.xlsb
> 8. buka dan tulis nama file yang tertulis di cell hasil
> 9. lakukan save as dengan nama lain misal diberi nama : pakai_udf
> 10. jangan sentuh komputer sedikit pun dan lihat nama file hasil yang
> tertulis di cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)
> 11. tutup workbook.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/4/10 PRAZT <praztmath@gmail.com>
>
>> **
>>
>>
>> Sudah saya coba saya MK yaitu menambahkan application.volatile true di
>> baris pertama tapi belum bisa juga MK****
>>
>> ** **
>>
>> *From:* belajar-excel@yahoogroups.com [mailto:
>> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
>> *Sent:* 10 April 2013 9:40
>> *To:* BeExcel
>>
>> *Subject:* Re: [belajar-excel] otomatis ganti sesuai nm wrkbook****
>>
>> ** **
>>
>> ****
>>
>> Ketika menggunakan fungsi Cell, usai save as dilakukan calculate (tekan
>> F9).****
>>
>> Jika tetap ingin dengan UDF yang ada, tambahkan baris :****
>>
>> application.volatile true****
>>
>> pada baris pertama dalam prosedur fungsi tersebut.****
>>
>> Bila perlu, pada event workbook before save dilakukan calculate dengan
>> application.calculate****
>>
>> Wassalam,****
>>
>> Kid.****
>>
>> ** **
>>
>> ** **
>>
>> 2013/4/10 Jan Raisin <miss.jan.raisin@gmail.com>****
>>
>> ****
>>
>> gimana kalo gak usah pake vba aja?****
>>
>> ** **
>>
>> di cell yang ingin dimunculkan namanya diisi dengan formula ini;****
>>
>> ** **
>>
>> =Cell("filename")****
>>
>> ** **
>>
>> >> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
>> mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text****
>>
>> ** **
>>
>> Wassalam,****
>>
>> ** **
>>
>> -Miss Jan Raisin-****
>>
>> ** **
>>
>>
>
>

Tue Apr 9, 2013 10:15 pm (PDT) . Posted by:

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

Untuk proses dengan fungsi Cell juga bisa realtime.
Yaitu diberi VBA pada event workbook before save seperti yang ada di file
re-coba macro_pakai_udf_dibantu_workbook_event.xlsb

Yang kadang menjadi kendala, pada fungsi cell sepertinya menggunakan script
yang mirip dengan :
Cell=activeworkbook.path & "[" & active workbook.name & "]" &
activesheet.name
sehingga ketika dilakukan proses membuka workbook baru melalui menu open,
workbook baru berada dalam satu instansi aplikasi Excel. Dengan file yang
menggunakan fungsi cell, maka seluruh proses kalkulasi yang terpicu di
workbook baru dibuka tadi (misal mengubah formula di cell tertentu) akan
membuat hasil fungsi cell di workbook sebelah ikut terkalkulasi dan
mengambil nama file workbook yang baru dibuka tadi.
Silakan dicoba berulang-ulang nomor 12 sampai terakhir termasuk membuat
formula baru atau ubah formula di workbook baru. Kemudian lihat hasil
fungsi Cell("filename").

Jadi, gunakan fungsi cell (yang bersifat volatile) dengan hati-hati ketika
sudah berhubungan dengan formula yang tergantung pada hasil fungsi cell.

Wassalam,
Kid.

2013/4/10 Jan Raisin <miss.jan.raisin@gmail.com>

> **
>
>
> untuk thread ini, solusi dari mr Kid yang paling tepat, karena untuk
> fungsi Cell harus menekan tombol F9 dulu baru bisa memunculkan hasil yang
> sesuai ^_^
> sedangkan dengan macro bisa langsung menampilkan hasil yang tepat dengan
> memanfaatkan event pada workbook
>
> ilmu baru lagi untuk Jan, :D
>
>
> Wassalam,
>
> -MJR-
>
>
> Pada 10 April 2013 11.49, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
> **
>>
>>
>> Coba file-file terlampir.
>> Caranya : (lakukan yang persis ya)
>> 1. unduh file re-coba macro_pakai_fungsi_cell.xlsx
>> 2. buka dan tulis nama file yang tertulis di cell hasil
>> 3. lakukan save as dengan nama lain misal diberi nama :
>> pakai_cell_di_save_as
>> 4. jangan sentuh komputer sedikit pun dan lihat nama file yang tertulis
>> di cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)
>> 5. lakukan calculate (tekan F9) dan lihat isi cell hasil (tulis bila
>> perlu dan bandingkan dengan hasil nomor 2 dan 4)
>> 6. tutup workbook
>> 7. unduh file re-coba macro_pakai_udf_dibantu_workbook_event.xlsb
>> 8. buka dan tulis nama file yang tertulis di cell hasil
>> 9. lakukan save as dengan nama lain misal diberi nama : pakai_udf
>> 10. jangan sentuh komputer sedikit pun dan lihat nama file hasil yang
>> tertulis di cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)
>> 11. tutup workbook.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2013/4/10 PRAZT <praztmath@gmail.com>
>>
>>> **
>>>
>>>
>>> Sudah saya coba saya MK yaitu menambahkan application.volatile true di
>>> baris pertama tapi belum bisa juga MK****
>>>
>>> ** **
>>>
>>> *From:* belajar-excel@yahoogroups.com [mailto:
>>> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
>>> *Sent:* 10 April 2013 9:40
>>> *To:* BeExcel
>>>
>>> *Subject:* Re: [belajar-excel] otomatis ganti sesuai nm wrkbook****
>>>
>>> ** **
>>>
>>> ****
>>>
>>> Ketika menggunakan fungsi Cell, usai save as dilakukan calculate (tekan
>>> F9).****
>>>
>>> Jika tetap ingin dengan UDF yang ada, tambahkan baris :****
>>>
>>> application.volatile true****
>>>
>>> pada baris pertama dalam prosedur fungsi tersebut.****
>>>
>>> Bila perlu, pada event workbook before save dilakukan calculate dengan
>>> application.calculate****
>>>
>>> Wassalam,****
>>>
>>> Kid.****
>>>
>>> ** **
>>>
>>> ** **
>>>
>>> 2013/4/10 Jan Raisin <miss.jan.raisin@gmail.com>****
>>>
>>> ****
>>>
>>> gimana kalo gak usah pake vba aja?****
>>>
>>> ** **
>>>
>>> di cell yang ingin dimunculkan namanya diisi dengan formula ini;****
>>>
>>> ** **
>>>
>>> =Cell("filename")****
>>>
>>> ** **
>>>
>>> >> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
>>> mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text****
>>>
>>> ** **
>>>
>>> Wassalam,****
>>>
>>> ** **
>>>
>>> -Miss Jan Raisin-****
>>>
>>> ** **
>>>
>>>
>>
>
>

Tue Apr 9, 2013 10:20 pm (PDT) . Posted by:

"PRAZT" praztmath

Siiiip Ms Jan, Manjur tenan. Makasiiih....

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: 10 April 2013 11:37
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook

coba formula berikut ini ditulis pada cell yang dimaksud

=MID(CELL("filename");FIND("[";CELL("filename&quot;))+1;(FIND("]";CELL("filename&quot;
))-FIND("[";CELL("filename&quot;))-1))

>> jika regional setting adalah English maka ganti setiap tanda titik koma
yang dimerahin dengan menggunakan koma

>> untuk menghide formula, klik kanan cell, format cell, protection, beri
centrang pada Lock Cell dan Hidden, lalu protek sheet tsb

Wassalam,

-Miss Jan Raisin-

Pada 10 April 2013 11.14, PRAZT <praztmath@gmail.com
<mailto:praztmath@gmail.com> > menulis:

Siip Ms Jan, Ane masih bingung Gan menggunakan fungsi2 Text yg seperti anda
bilang dalam kasus ini. Mohon bantuannya..

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> ] On Behalf Of Jan Raisin
Sent: 10 April 2013 9:32
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook

gimana kalo gak usah pake vba aja?

di cell yang ingin dimunculkan namanya diisi dengan formula ini;

=Cell("filename")

>> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text

Wassalam,

-Miss Jan Raisin-

Pada 10 April 2013 09.15, PRAZT <praztmath@gmail.com
<mailto:praztmath@gmail.com> > menulis:

Dera para master, minta bantuan pada para master tentang masalah
berikut;

Saya menginginkan ada sebuah workbook yang saya kasih macro, jika
saya ganti nama workbook tersebut maka pada sheet1 cell B3 itu sesuai dengan
nama workbook meskipun workbooknya diganti ganti. Tetapi masih berkendala
jika sheet1 cell B3 itu ikut saya protect maka pada sheet1 cell B3 tidak
bisa secara otomatis berubah mengikuti nama workbook tersebut, mohon
pencerahannya.

Kode macro yang saya buat seperti berikut ;

Sub jajal()

ActiveCell.FormulaR1C1 = "=WkbName()"

Range("B3").Select

End Sub

(Terdapat pada sheet 1)

______________________________________________

Function WkbName()

WkbName = ActiveWorkbook.Name

End Function

(Terdapat pada macro 1)

Supaya lebih jelas saya ilustrasikan pada Ike terlampir. Syukron....

PRAZTMATH T

Tue Apr 9, 2013 10:42 pm (PDT) . Posted by:

"PRAZT" praztmath

Wueeehhhhh mantaaaf MK siiip....memang kalau fungsi cell kelemahannya agak
lama saat workbook dibuka,sedangkan kalau pake VBA lebih cepat, tapi pada
intinya saya coba buka di excel 2007 dan 2013 sama-sama OK.( Itu yang saya
rasakan). Syukron MK....

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 10 April 2013 11:50
To: BeExcel
Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook

Coba file-file terlampir.

Caranya : (lakukan yang persis ya)

1. unduh file re-coba macro_pakai_fungsi_cell.xlsx

2. buka dan tulis nama file yang tertulis di cell hasil
3. lakukan save as dengan nama lain misal diberi nama :
pakai_cell_di_save_as

4. jangan sentuh komputer sedikit pun dan lihat nama file yang tertulis di
cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)

5. lakukan calculate (tekan F9) dan lihat isi cell hasil (tulis bila perlu
dan bandingkan dengan hasil nomor 2 dan 4)

6. tutup workbook

7. unduh file re-coba macro_pakai_udf_dibantu_workbook_event.xlsb

8. buka dan tulis nama file yang tertulis di cell hasil

9. lakukan save as dengan nama lain misal diberi nama : pakai_udf

10. jangan sentuh komputer sedikit pun dan lihat nama file hasil yang
tertulis di cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)

11. tutup workbook.

Wassalam,

Kid.

2013/4/10 PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >

Sudah saya coba saya MK yaitu menambahkan application.volatile true di baris
pertama tapi belum bisa juga MK

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of Mr. Kid
Sent: 10 April 2013 9:40
To: BeExcel

Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook

Ketika menggunakan fungsi Cell, usai save as dilakukan calculate (tekan F9).

Jika tetap ingin dengan UDF yang ada, tambahkan baris :

application.volatile true

pada baris pertama dalam prosedur fungsi tersebut.

Bila perlu, pada event workbook before save dilakukan calculate dengan
application.calculate

Wassalam,

Kid.

2013/4/10 Jan Raisin <miss.jan.raisin@gmail.com
<mailto:miss.jan.raisin@gmail.com> >

gimana kalo gak usah pake vba aja?

di cell yang ingin dimunculkan namanya diisi dengan formula ini;

=Cell("filename")

>> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text

Wassalam,

-Miss Jan Raisin-

Tue Apr 9, 2013 10:42 pm (PDT) . Posted by:

"PRAZT" praztmath

Ya MJR ooooh MJR....saya merakan hal yg sama....Syukron MJR. Hehehehe....

PRAZTMATH T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: 10 April 2013 12:02
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook

untuk thread ini, solusi dari mr Kid yang paling tepat, karena untuk fungsi
Cell harus menekan tombol F9 dulu baru bisa memunculkan hasil yang sesuai
^_^

sedangkan dengan macro bisa langsung menampilkan hasil yang tepat dengan
memanfaatkan event pada workbook

ilmu baru lagi untuk Jan, :D

Wassalam,

-MJR-

Pada 10 April 2013 11.49, Mr. Kid <mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> > menulis:

Coba file-file terlampir.

Caranya : (lakukan yang persis ya)

1. unduh file re-coba macro_pakai_fungsi_cell.xlsx

2. buka dan tulis nama file yang tertulis di cell hasil
3. lakukan save as dengan nama lain misal diberi nama :
pakai_cell_di_save_as

4. jangan sentuh komputer sedikit pun dan lihat nama file yang tertulis di
cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)

5. lakukan calculate (tekan F9) dan lihat isi cell hasil (tulis bila perlu
dan bandingkan dengan hasil nomor 2 dan 4)

6. tutup workbook

7. unduh file re-coba macro_pakai_udf_dibantu_workbook_event.xlsb

8. buka dan tulis nama file yang tertulis di cell hasil

9. lakukan save as dengan nama lain misal diberi nama : pakai_udf

10. jangan sentuh komputer sedikit pun dan lihat nama file hasil yang
tertulis di cell hasil (tulis bila perlu dan bandingkan dengan hasil 2)

11. tutup workbook.

Wassalam,

Kid.

2013/4/10 PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >

Sudah saya coba saya MK yaitu menambahkan application.volatile true di baris
pertama tapi belum bisa juga MK

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of Mr. Kid
Sent: 10 April 2013 9:40
To: BeExcel

Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook

Ketika menggunakan fungsi Cell, usai save as dilakukan calculate (tekan F9).

Jika tetap ingin dengan UDF yang ada, tambahkan baris :

application.volatile true

pada baris pertama dalam prosedur fungsi tersebut.

Bila perlu, pada event workbook before save dilakukan calculate dengan
application.calculate

Wassalam,

Kid.

2013/4/10 Jan Raisin <miss.jan.raisin@gmail.com
<mailto:miss.jan.raisin@gmail.com> >

gimana kalo gak usah pake vba aja?

di cell yang ingin dimunculkan namanya diisi dengan formula ini;

=Cell("filename")

>> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text

Wassalam,

-Miss Jan Raisin-

Tue Apr 9, 2013 11:30 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Rekan Be-Exceler,

Dalam database kita sering dihadapkan pada dua hal, yaitu:
- Mencari baris baru untuk input data baru
- Mencari record tertentu dari data yang sudah ada, mis. untuk diedit

Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues) untuk mencari record tertentu yang sudah ada.

Untuk mencari baris baru saya gunakan code:
Sub BarBar()
    Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
End Sub

Untuk mencari record tertentu (mis "Sania") saya gunakan code:
Sub RekTtt()
    Columns("A:A").Find("Sania").Activate
End Sub

File terlampir.

Pertanyaannya:
Apakah kedua code tsb mengandung kelemahan?

Salam,
HK

Wed Apr 10, 2013 12:26 am (PDT) . Posted by:

"Jan Raisin"

pak Hendrik,

untuk script yang ini:
Sub BarBar()
Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
End Sub

coba lakukan tes seperti ini pada workbook yang baru:
1. Buat header di cell A1
2. input data manual di cell A2 sampai A20 (sembarang data)
3. hapus data mulai cell A2 sampai A20
4. jalankan script tadi dan lihat hasilnya

Lalu untuk script yang ini:
Sub RekTtt()
Columns("A:A").Find("Sania").Activate
End Sub

bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?

IMHO,

>> proses select atau activate sebisa mungkin dihindari, karena bisa
dimanfaatkan untuk proses yang lain
>> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
baru kadang menghasilkan data yang tidak tepat.
>> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
range, lalu dilakukan kros cek apakah record tersebut ada atau tidak

ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
yang salah tolong dikoreksi.

Salam,

-Miss Jan Raisin-

Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:

> **
>
>
> Rekan Be-Exceler,
>
> Dalam database kita sering dihadapkan pada dua hal, yaitu:
> - Mencari baris baru untuk input data baru
> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
> Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau
> .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues)
> untuk mencari record tertentu yang sudah ada.
>
> Untuk mencari baris baru saya gunakan code:
> Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
> End Sub
>
> Untuk mencari record tertentu (mis "Sania") saya gunakan code:
> Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
> End Sub
>
> File terlampir.
>
> Pertanyaannya:
> Apakah kedua code tsb mengandung kelemahan?
>
> Salam,
> HK
>
>
>

Wed Apr 10, 2013 2:23 am (PDT) . Posted by:

"aji mumpung"

pak Hendrik,

sedikit menambahkan keterangan dari Miss Jan Raisin,

untuk mendapatkan nilai baris terakhir sebaiknya menggunakan .UsedRange
atau .End
jika sebelumnya ada proses delete data, maka xlLastCell akan memunculkan
hasil yang tepat *jika, dan hanya jika* telah dilakukan proses Save
sebelumnya

Salam,

-Aji Mumpung-

Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:

> **
>
>
> Rekan Be-Exceler,
>
> Dalam database kita sering dihadapkan pada dua hal, yaitu:
> - Mencari baris baru untuk input data baru
> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
> Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau
> .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues)
> untuk mencari record tertentu yang sudah ada.
>
> Untuk mencari baris baru saya gunakan code:
> Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
> End Sub
>
> Untuk mencari record tertentu (mis "Sania") saya gunakan code:
> Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
> End Sub
>
> File terlampir.
>
> Pertanyaannya:
> Apakah kedua code tsb mengandung kelemahan?
>
> Salam,
> HK
>
>
>

Wed Apr 10, 2013 3:32 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Miss Jan atas koreksinya.

Dengan asumsi Nama terisi penuh (tidak kosong di tengah) maka saya coba revisi seperti ini,

Untuk mencari baris baru
Sub BarBar()

   Columns("A:A").Find(vbNullString).Select
End Sub
Yang ini kayaknya cukup pendek, mustinya sdh OK

Untuk mencari Nama tertentu (lengkap, tidak masalah huruf besar kecil)
Sub RekTtt()
    On Error GoTo Pesan
    skunci = InputBox("Masukkan Nama")
    If skunci <> vbNullString Then Columns("A:A").Find(skunci, Lookat:=xlWhole).Activate
    Exit Sub
Pesan:
    MsgBox "Nama tidak ada", vbInformation, "PESAN"
End Sub
Yang ini terpaksa agak panjang supaya logikanya nyambung.

Khusus yang kedua, ada kode yang bisa lebih pendek Miss Jan ?

Salam,
HK

________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 10 April 2013, 14:26
Subject: Re: [belajar-excel] Cari baris baru dan record tertentu


 
pak Hendrik,

untuk script yang ini:
Sub BarBar()
    Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
End Sub

coba lakukan tes seperti ini pada workbook yang baru:
1. Buat header di cell A1
2. input data manual di cell A2 sampai A20 (sembarang data)
3. hapus data mulai cell A2 sampai A20
4. jalankan script tadi dan lihat hasilnya

Lalu untuk script yang ini:
Sub RekTtt()
    Columns("A:A").Find("Sania").Activate
End Sub

bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?

IMHO,

>> proses select atau activate sebisa mungkin dihindari, karena bisa dimanfaatkan untuk proses yang lain
>> pencarian posisi dengan menggunakan SpecialCell untuk input data yang baru kadang menghasilkan data yang tidak tepat.
>> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe range, lalu dilakukan kros cek apakah record tersebut ada atau tidak

ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada yang salah tolong dikoreksi.

Salam,

-Miss Jan Raisin-

Pada 10 April 2013 13.30, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

> 
>Rekan Be-Exceler,
>
>
>Dalam database kita sering dihadapkan pada dua hal, yaitu:
>- Mencari baris baru untuk input data baru
>- Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
>
>Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau .......End(xlUp) untuk mencari baris baru dan Find("xyz";, Lookin=xlValues) untuk mencari record tertentu yang sudah ada.
>
>
>Untuk mencari baris baru saya gunakan code:
>Sub BarBar()
>    Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
>End Sub
>
>
>Untuk mencari record tertentu (mis "Sania") saya gunakan code:
>Sub RekTtt()
>    Columns("A:A").Find("Sania").Activate
>End Sub
>
>
>File terlampir.
>
>
>Pertanyaannya:
>Apakah kedua code tsb mengandung kelemahan?
>
>
>Salam,
>HK
>
>

Tue Apr 9, 2013 11:37 pm (PDT) . Posted by:

"Helsy B" helsyb

Miss Jan,
Saya lagi belajar membuat pivot table saya coba simulasi tabel berikut,mohon maaf kalau saya simulasi pakai tabel tersebut karena mencoba membuat contoh pivot table Miss Jan yg sdh jadi, tetapi ketika untuk row field lebih dari 1 kolom yaitu helper,nama siswa, asal madrasah, menjadi urut ke bawah, tetapi bukan ke samping (per kolom), seperti berikut :

1061


HERJAN


MTs NEGERI TALIWANG


1066


PAIDA


MTs NEGERI TALIWANG


Mohon pencerahannya, terima kasih sebelumnya.

Wassalam
Helsy

--- Pada Sel, 2/4/13, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Judul: Re: [belajar-excel] Rekap rentang nilai dan 10 besar
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 2 April, 2013, 12:56 AM

 

ups... ada yang terlewat.. xixixi :Duntuk persentase rentang nilai bisa menggunakan fungsi CountIf dan CountIfS

btw, untuk mencari persentase Jan perbaiki dengan mengganti formula yang sebelumnya Real * 204 / 100 menjadi Real / 204 lalu format cell persentase

Yang Jan kerjakan hanya 1 kolom, silakan dikembangkan untuk kolom yang lain.

file terlampir
Wassalam,

-Miss Jan Raisin-

Pada 2 April 2013 14.20, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

Wa'alaikumsalam wr. wb.,

bagaimana kalo memanfaatkan fitur PivotTable bawaan dari Excel? dengan menggunakan kolom bantu untuk melakukan filter, karena yang dicari adalah 10 besar sedangkan yang masuk bisa lebih dari 10 orang maka hasil yang tampil adalah nama-nama dengan nilai yang tertinggi.

file terlampir.

Wassalam,
-Miss Jan Raisin-

Pada 2 April 2013 12.45, Husnul Faizin <husnulfaizin@yahoo.co.id> menulis:

 

Assalamu'alaikum wr wb

salam para pakar excel terhormat, mohon bantuan penyelesaian kasus pekerjaan tahunan menjelang perekapan nilai ujian siswa dan siswi SMP/MTs sederajat.

saya ingin menyelesaikan kasus-kasus terlampir secara formula, karena selama ini kami lakukan secara manual.

hasil yang diinginkan adalah :

1. pada sheet "rentang nilai hasil ujian" ada kolom Real (berisi jumlah siswa yang mendapatkan rentang nilai sesuai kolom disampingnya=B), dan ada kolom % (untuk

� � menampilkan porsentase jml siswa yang mendapatkan nilai sesuai rentang nilai di kolom B).

2. pada sheet "SEPULUH BESAR" berisi nama siswa, asal madrasah, dan jml nilainya (sheet ini untuk merekap 10 besar siswa berprestasi di masing-masing madrasah

� � perbidang studi).

mohon penyelesaiannya dalam waktu yang tidak terlalu lama, atas jasa dan amal baik para exceler, mudah2an Allah SWT memberikan balasan yang sebaik-baiknya.

wassalam

husnul faizin

Tue Apr 9, 2013 11:46 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Helsy,
Sudah coba atur Design Report Layoutnya ?

Salam,
HK

________________________________
From: Helsy B <helsyb@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 10 April 2013, 13:32
Subject: [belajar-excel] Re:[Rekap rentang nilai dan 10 besar]cara row fields lebih dari 1 pd pivot tabel.


 
Miss Jan,
Saya lagi belajar membuat pivot table saya coba simulasi tabel berikut,mohon maaf kalau saya simulasi pakai tabel tersebut karena mencoba membuat contoh pivot table Miss Jan yg sdh jadi, tetapi ketika untuk row field lebih dari 1 kolom yaitu helper,nama siswa, asal madrasah, menjadi urut ke bawah, tetapi bukan ke samping (per kolom), seperti berikut :

1061
HERJAN
MTs NEGERI TALIWANG
1066
PAIDA
MTs NEGERI TALIWANG
Mohon pencerahannya, terima kasih sebelumnya.

Wassalam
Helsy

--- Pada Sel, 2/4/13, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

>Dari: Jan Raisin <miss.jan.raisin@gmail.com>
>Judul: Re: [belajar-excel] Rekap rentang nilai dan 10 besar
>Kepada: belajar-excel@yahoogroups.com
>Tanggal: Selasa, 2 April, 2013, 12:56 AM
>
>
> 
>ups... ada yang terlewat.. xixixi :D
>untuk persentase rentang nilai bisa menggunakan fungsi CountIf dan CountIfS
>
>
>btw, untuk mencari persentase Jan perbaiki dengan mengganti formula yang sebelumnya Real * 204 / 100 menjadi Real / 204 lalu format cell persentase
>
>
>Yang Jan kerjakan hanya 1 kolom, silakan dikembangkan untuk kolom yang lain.
>
>
>file terlampir
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>
>
>
>
>
>
>Pada 2 April 2013 14.20, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>
>Wa'alaikumsalam wr. wb.,
>>
>>
>>bagaimana kalo memanfaatkan fitur PivotTable bawaan dari Excel? dengan menggunakan kolom bantu untuk melakukan filter, karena yang dicari adalah 10 besar sedangkan yang masuk bisa lebih dari 10 orang maka hasil yang tampil adalah nama-nama dengan nilai yang tertinggi.
>>
>>
>>file terlampir.
>>
>>
>>Wassalam,
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>
>>Pada 2 April 2013 12.45, Husnul Faizin <husnulfaizin@yahoo.co.id> menulis:
>>
>>
>>
>>> 
>>>Assalamu&#39;alaikum wr wb
>>>
>>>salam para pakar excel terhormat, mohon bantuan penyelesaian kasus pekerjaan tahunan menjelang perekapan nilai ujian siswa dan siswi SMP/MTs sederajat.
>>>saya ingin menyelesaikan kasus-kasus terlampir secara formula, karena selama ini kami lakukan secara manual.
>>>hasil yang diinginkan adalah :
>>>1. pada sheet "rentang nilai hasil ujian" ada kolom Real (berisi jumlah siswa yang mendapatkan rentang nilai sesuai kolom disampingnya=B), dan ada kolom % (untuk
>>>� � menampilkan porsentase jml siswa yang mendapatkan nilai sesuai rentang nilai di kolom B).
>>>2. pada sheet "SEPULUH BESAR" berisi nama siswa, asal madrasah, dan jml nilainya (sheet ini untuk merekap 10 besar siswa berprestasi di masing-masing madrasah
>>>� � perbidang studi).
>>>
>>>mohon penyelesaiannya dalam waktu yang tidak terlalu lama, atas jasa dan amal baik para exceler, mudah2an Allah SWT memberikan balasan yang sebaik-baiknya.
>>>
>>>wassalam
>>>husnul faizin
>>>
>>
>

Tue Apr 9, 2013 11:48 pm (PDT) . Posted by:

"Jan Raisin"

Hai Helsy,

coba di sembarang tempat pada area Pivot Table lakukan hal ini:

1. klik kanan tombol mouse
2. klik Pivot Table Option
3. klik tab Display
4. beri tanda centang di kotak Clasic Pivot Table Layout
[image: Gambar sisip 1]
5. Klik OK
6. Hilangkan tampilan Sub Total

Semoga bermanfaat,

Wassalam,

-MJR-

Pada 10 April 2013 13.32, Helsy B <helsyb@yahoo.com> menulis:

> **
>
>
> Miss Jan,
> Saya lagi belajar membuat pivot table saya coba simulasi tabel
> berikut,mohon maaf kalau saya simulasi pakai tabel tersebut karena mencoba
> membuat contoh pivot table Miss Jan yg sdh jadi, tetapi ketika untuk row
> field lebih dari 1 kolom yaitu helper,nama siswa, asal madrasah, menjadi
> urut ke bawah, tetapi bukan ke samping (per kolom), seperti berikut :
>
> 1061 HERJAN MTs NEGERI TALIWANG 1066 PAIDA MTs NEGERI TALIWANG
> Mohon pencerahannya, terima kasih sebelumnya.
>
> Wassalam
> Helsy
>
> --- Pada *Sel, 2/4/13, Jan Raisin <miss.jan.raisin@gmail.com>* menulis:
>
>
> Dari: Jan Raisin <miss.jan.raisin@gmail.com>
> Judul: Re: [belajar-excel] Rekap rentang nilai dan 10 besar
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Selasa, 2 April, 2013, 12:56 AM
>
>
>
> ups... ada yang terlewat.. xixixi :D
> untuk persentase rentang nilai bisa menggunakan fungsi CountIf dan CountIfS
>
> btw, untuk mencari persentase Jan perbaiki dengan mengganti formula yang
> sebelumnya Real * 204 / 100 menjadi Real / 204 lalu format cell persentase
>
> Yang Jan kerjakan hanya 1 kolom, silakan dikembangkan untuk kolom yang
> lain.
>
> file terlampir
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
>
>
> Pada 2 April 2013 14.20, Jan Raisin <miss.jan.raisin@gmail.com<http://mc/compose?to=miss.jan.raisin@gmail.com>
> > menulis:
>
> Wa'alaikumsalam wr. wb.,
>
> bagaimana kalo memanfaatkan fitur PivotTable bawaan dari Excel? dengan
> menggunakan kolom bantu untuk melakukan filter, karena yang dicari adalah
> 10 besar sedangkan yang masuk bisa lebih dari 10 orang maka hasil yang
> tampil adalah nama-nama dengan nilai yang tertinggi.
>
> file terlampir.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 2 April 2013 12.45, Husnul Faizin <husnulfaizin@yahoo.co.id<http://mc/compose?to=husnulfaizin@yahoo.co.id>
> > menulis:
>
> **
>
>
> Assalamu'alaikum wr wb
>
> salam para pakar excel terhormat, mohon bantuan penyelesaian kasus
> pekerjaan tahunan menjelang perekapan nilai ujian siswa dan siswi SMP/MTs
> sederajat.
> saya ingin menyelesaikan kasus-kasus terlampir secara formula, karena
> selama ini kami lakukan secara manual.
> hasil yang diinginkan adalah :
> 1. pada sheet "rentang nilai hasil ujian" ada kolom Real (berisi jumlah
> siswa yang mendapatkan rentang nilai sesuai kolom disampingnya=B), dan ada
> kolom % (untuk
> � � menampilkan porsentase jml siswa yang mendapatkan nilai sesuai
> rentang nilai di kolom B).
> 2. pada sheet "SEPULUH BESAR" berisi nama siswa, asal madrasah, dan jml
> nilainya (sheet ini untuk merekap 10 besar siswa berprestasi di
> masing-masing madrasah
> � � perbidang studi).
>
> mohon penyelesaiannya dalam waktu yang tidak terlalu lama, atas jasa dan
> amal baik para exceler, mudah2an Allah SWT memberikan balasan yang
> sebaik-baiknya.
>
> wassalam
> husnul faizin
>
>
>
>
>

Wed Apr 10, 2013 2:23 am (PDT) . Posted by:

"Helsy B" helsyb

Terimakasih Miss Jan dan pa hendrik akhirnya bisa :)

--- Pada Sel, 9/4/13, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Judul: Re: [belajar-excel] Re:[Rekap rentang nilai dan 10 besar]cara row fields lebih dari 1 pd pivot tabel.
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 9 April, 2013, 11:47 PM

 

Hai Helsy,
coba di sembarang tempat pada area Pivot Table lakukan hal ini:

1. klik kanan tombol mouse2. klik Pivot Table Option

3. klik tab Display4. beri tanda centang di kotak Clasic Pivot Table Layout

5. Klik OK6. Hilangkan tampilan Sub Total

Semoga bermanfaat,
Wassalam,

-MJR-

Pada 10 April 2013 13.32, Helsy B <helsyb@yahoo.com> menulis:

 

Miss Jan,
Saya lagi belajar membuat pivot table saya coba simulasi tabel berikut,mohon maaf kalau saya simulasi pakai tabel tersebut karena mencoba membuat contoh pivot table Miss Jan yg sdh jadi, tetapi ketika untuk row field lebih dari 1 kolom yaitu helper,nama siswa, asal madrasah, menjadi urut ke bawah, tetapi bukan ke samping (per kolom), seperti berikut :

1061


HERJAN


MTs NEGERI TALIWANG


1066


PAIDA


MTs NEGERI TALIWANG


Mohon pencerahannya, terima kasih sebelumnya.

Wassalam
Helsy

--- Pada Sel, 2/4/13, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Judul: Re: [belajar-excel] Rekap rentang nilai dan 10 besar

Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 2 April, 2013, 12:56 AM

 

ups... ada yang terlewat.. xixixi :Duntuk persentase rentang nilai bisa menggunakan fungsi CountIf dan CountIfS

btw, untuk mencari persentase Jan perbaiki dengan mengganti formula yang sebelumnya Real * 204 / 100 menjadi Real / 204 lalu format cell persentase

Yang Jan kerjakan hanya 1 kolom, silakan dikembangkan untuk kolom yang lain.

file terlampir
Wassalam,

-Miss Jan Raisin-

Pada 2 April 2013 14.20, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

Wa'alaikumsalam wr. wb.,

bagaimana kalo memanfaatkan fitur PivotTable bawaan dari Excel? dengan menggunakan kolom bantu untuk melakukan filter, karena yang dicari adalah 10 besar sedangkan yang masuk bisa lebih dari 10 orang maka hasil yang tampil adalah nama-nama dengan nilai yang tertinggi.

file terlampir.

Wassalam,
-Miss Jan Raisin-

Pada 2 April 2013 12.45, Husnul Faizin <husnulfaizin@yahoo.co.id> menulis:

 

Assalamu'alaikum wr wb

salam para pakar excel terhormat, mohon bantuan penyelesaian kasus pekerjaan tahunan menjelang perekapan nilai ujian siswa dan siswi SMP/MTs sederajat.

saya ingin menyelesaikan kasus-kasus terlampir secara formula, karena selama ini kami lakukan secara manual.

hasil yang diinginkan adalah :

1. pada sheet "rentang nilai hasil ujian" ada kolom Real (berisi jumlah siswa yang mendapatkan rentang nilai sesuai kolom disampingnya=B), dan ada kolom % (untuk

� � menampilkan porsentase jml siswa yang mendapatkan nilai sesuai rentang nilai di kolom B).

2. pada sheet "SEPULUH BESAR" berisi nama siswa, asal madrasah, dan jml nilainya (sheet ini untuk merekap 10 besar siswa berprestasi di masing-masing madrasah

� � perbidang studi).

mohon penyelesaiannya dalam waktu yang tidak terlalu lama, atas jasa dan amal baik para exceler, mudah2an Allah SWT memberikan balasan yang sebaik-baiknya.

wassalam

husnul faizin

Wed Apr 10, 2013 9:33 am (PDT) . Posted by:

"Tony Bexcel"

Dear Pakar yang Budiman,
 
Mohon bantuan rumusan nya untuk klasifikasi batasan Tahun sesuai Tahun yang berjalan.
Berikut saya lampirkan contoh kasus tersebut.
Atas waktu dan ilmunya saya haturkan banyak terimakasih temans..
 
 
Salam,
TonyB
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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 09.34

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)