Dear Mr.Kid
ini contoh scriptnya :
UserForm4.TextBox79.Value = 0
UserForm4.TextBox80.Value = 0
Set rng = Sheets("database").Range("A1:A" &
WorksheetFunction.CountA(Sheets("database").Range("A:A")))
jmlbrs = rng.Rows.Count
For N = 1 To jmlbrs
If rng.Cells(N, 3).Value = UserForm4.ComboBox11.Value And rng.Cells(N,
14).Value = UserForm4.Label31.Caption And rng.Cells(N, 17).Value = "Ditabung"
Then
UserForm4.TextBox79.Value = Format(WorksheetFunction.Sum(rng.Cells(N, 10),
UserForm4.TextBox79.Value), "#,##")
UserForm4.TextBox80.Value = Format(WorksheetFunction.Sum(rng.Cells(N, 13),
UserForm4.TextBox80.Value), "#,##")
tidak semua parameter yang di ubah melalui combobox11 itu muncul error message
1004, hanya 3 data saja untuk lainya ok, kira2 ada yang salah or kurang tepat
dengan script saya itu?
Thanks & Regards
R. Irwan DS
________________________________
From: Kid Mr. <[email protected]>
To: [email protected]
Sent: Sunday, January 29, 2012 6:01 AM
Subject: Re: [belajar-excel] Error 1004
Hai Irwan,
Coba cek dulu penulisannya dan tipe data yang menjadi input parameter fungsi
terkait. Siapa tahu Anda memberikan inputan berupa data bertipe teks.
Sebaris atau dua baris kode yang di-paste-kan ke forum yang sebagai baris
penyebab error akan memudahkan BeExceller untuk segera turut andil mencarikan
penyebab dan solusinya.
Wassalam,
Kid.
On Sun, Jan 29, 2012 at 00:05, Irwan didi <[email protected]> wrote:
>
>Dear master,
>
>
>mohon info bagaimana mengatasi error 1004 unable to get sum property of
>worksheetfunction class?
> salam
>one
>
>
