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

 

maafkan daku...  ada perbaikan kode, karena 

ada 2 variable yg kemudian tidak dipakai (R1 dan R1)

tetapi deklarasinya luppppa menghapus

' ------- coding modified dikittss.. ----------

Sub AutoKolomSum()

   ' AutoSum Istimewa; coded by siti Vi // 27 mei 2011

   ' menjumlah data numbers dari cell-aktif sampai

   ' ke cell terakhir berisi data di kolom aktif.

   ' ** keyboard short-cut : Ctrl + j

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

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

   

   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

   Range(Vektor, Rg2(2, 1)).Select

   With Rg2(2, 1)

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

      .Font.Bold = True

      .Activate

   End With

End Sub

2011/5/28 STDEV(i) <setiyowati.devi@gmail.com>

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

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 (5)

Recent Activity:

• New Members 66

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

.

__,_._,___