Wassalamu'alaikum,
coba ubah scriptnya jadi begini:
with thisworkbook.sheets("bantuan2")
frm1.lblsubtotal.caption = _
application.worksheetfunction.sum(.range("h2:h50"))
end with
Wa'alaikumsalam wr. wb.,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمِين يَا رَبَّ الْعَالَمِيْن
Pada 28 Juni 2013 16.11, lapendosol opik <lapendo...@yahoo.com> menulis:
> **
>
>
> Trimakasih Miss,
> Saya coba terapkan tapi kayanya masih salah dalam penulisannya
> With Application.WorksheetFunction
> Frm1.lblSubTotal.Caption = .Sum("bantuan2!H2:H50")
> End With
>
> Mohon dikoreksi Miss
> Terimakasih sekali lagi
> Wassalam,
>
> ------------------------------
>
