Re: ]] XL-mania [[ Kursor ke sell yang ada isi terakhir

 

TIDAK TERATUR nya itu seperti apa bentuknya  ya..

Banyak sekali kasus menarik di milis ini tetapi oleh pemiliknya sering ditulis 

dengan tergesa gesa; ingin cepat selesai mengakhiri penderitaan hebat

(karena menuliskan problemnya) !

misal:

di suatu sheet;  Cells   B2,B4,B7,B10, B43, B209  berisi data bilangan.

Semua cell lain (selain yg sudah disebutkan)  = kosong & belum pernah diisi apapun

Untuk memBLOK  atau men-Select range  B2:B209

- select dulu B2 lalu tekan   Ctrl + Shift  + End, seharusnya seketika itu

B2:B209 ter-select (diblok)

Tetapi kalau di kolom lain sebelah kananya sudah ada datanya,  trick tsb sudah 

tidak berlaku lagi.

Misal di Kolom G ada datanya di G7,  range yg terBLOK adalah B2:G209

Artinya:  Ctrl + Shift + End  hanya akan memblok dari cell-aktif saat itu 

sampai ke Pojok Kanan Bawah RANGE TERAKHIR YG PERNAH DIGUNAKAN  

(walaupun sudah di hapus)

Cell terakhir (dapat dicapai dari mana saja dengan  [ End + Home ] ),

adalah cell yg posisinya di Pojok-Kanan-Bawah pada area yg pernah dipakai.

Sheet baru yg hanya diisi 2 data: di  A100 dan M1 , LastCell atau Cell-Terakhir-nya

adalah M100

(coba lah juga dengan menu F5 (Edit Go To)  > Tombol Special > Last Cell )

Maksud ceritak kepanjangan tadi ingin mengatakan bahwa 

sepertinya keinginan anda itu sulit dipenuhi (atau : dengan cara biasa = tidak

bisa dipenuhi)

Lebih-lebih lagi:  yg MUNGKIN anda inginkan adalah menuju cell di BAWAH data terakhir

lalu otomatis di situ tertulis =SUM(......)

Walupun begitu kalau keinginan anda itu memang HARUS TERLAKSANA, tentu ada

cara lain yg tidak terlalu biasa.

Saat ini siapapun akan sulit menjelaskan, karena apa yang anda maksud dengan:

>> cell terakhir yang ada nilai tp cell terakhir dengan column dan row 

>> yg range cell tidak teratur qtynya yg ada isi?

juga belum jelas

Jika anda seriyus, kirimlah posting lagi dilampiri workbook berisi contoh data nya, 

disertai penjelasan / penggambaran HAL YG DIINGINKAN. 

jangan datang hanya seperti "pendekar bertangan kosong" gak bawa woksit itu loch...

Mudah-mudahan dgn jelasnya permasalahan, members lain lebih berminat membantu anda.

Sementara ini, sekedar "daripada ngantuk" kita buat mainan AutoKolomSum pada 

workbook terlampir, boleh dicoba coba, boleh langsung dibuang...

'------ vba code ---- ditulis pada module standard ------

Sub AutoKolomSum()

   ' AutoSum Istimewa

   ' coded by siti Vi // 27 mei 2011

   ' menjumlah data numbers dari cell-aktif

   ' ke cell terakhir berisi data di kolom aktif

   ' keyboard shot-cut : Ctrl + j

   '---------------------------------------------

   Dim Rg1 As Range, Rg2 As Range, Vektor As Range

   Dim r1 As Long, r2 As Long

   

   Set Rg1 = ActiveCell

   If Rg1 = vbNullString Then Set Rg1 = Rg1.End(xlDown)

   Set Rg2 = Cells(Rows.Count, ActiveCell.Column).End(xlUp)

   Set Vektor = Range(Rg1, Rg2)

   Vektor.Font.Italic = True

   Rg2(2, 1).Formula = "=SUM(" & Vektor.Address(0, 0) & ")"

   Rg2(2, 1).Font.Bold = True
   Rg2(2, 1).Select

End Sub

'--------------

2011/5/27 <harry.salim@gmail.com>

Saya ingin tanya ada tombol khusus atau rumus yg mengarah kursor ke cell terakhir yang ada nilai 

tp cell terakhir dengan column dan row yg range cell tidak teratur qtynya yg ada isi?
Selanjutnya bagaimana cara menggunakan autosum dr column dan row range cellnya tidak teratur.
Thanks
Harry

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 67

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___