15 New Messages
Digest #2434
Messages
Fri Jul 19, 2013 9:24 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dear BeExceller,
Pembahasan prosedur seri 3 bisa dilihat
disini<http://b-excel.blogspot.com/2013/07/belajarvba-005-procedure-seri-3.html >
.
Wassalam,
Kid.
Pembahasan prosedur seri 3 bisa dilihat
disini<http://b-excel.
.
Wassalam,
Kid.
Fri Jul 19, 2013 9:53 am (PDT) . Posted by:
"De Premor" de.premor
Berhubung dengan sehubungan di vibiei textbox controlnya saya tidak
dapat menemukan property indexnya, maka untuk itu diperlukan beberapa
akal-akalan sehingga dapat mencapai tujuan tersebutantara lain:
Mendeteksinya si textbox yang manggil mas form menggunakan item yg lagi
mendapat fokus untuk selanjutnya mengisinya dengan kode yg dipilih
Dengan akal2'an tersebut diatas dan dikarenakan nga ada indexnya untuk
control ini, maka untuk nilai dari kolom keterangan kita titipkan dulu
sementara di sebuah variable.
Selanjutnya setelah userform3 mendapat aktif/mendapatkan fokus kembali,
kita perintahkan vba untuk berpindah fokusnya ke textbox selanjutnya
dalam urutan tabindex dengan minta tolong lagi kepada vba untuk
memencetkan tombol TAB buat kita.
Setelah fokus berhasil pindah, tinggal kita isi saja textbo nya dengan
variable yang kita titipkan dari formsebelumnya.
Kira2 begitu.
Ada cara yang lebih mudah ga ya !!! (*penasaran*)
Rgds
[dp]
Pada 19/07/2013 13:46, Kusnadi Bin zain menulis:
> terima kasih atas kesediaan bagi-bagi ilmunya.
>
> tapi maaf pertanyaan jadi berlanjut
> bagaimana jika ingin agar ListBox itu bisa untuk mengisi kode akun dan
> nama akun di TextBox berikutna ?
> atau mungkin ada cara yang lebih mudah ?
>
> terima kasih
>
> kusnadi
>
>
>
> ----------------------------------------------------------
> *Dari:* De Premor <de@premor.net>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 18 Juli 2013 15:28
> *Judul:* Re: [belajar-excel] ambil data di UserForm lain
>
> di UserForm3
> Baris yang berbunyi *TextBox7.Text =
> UserForm4.ListBox1.Column(1)***dihapus saja,
>
> Kemudian buka code untuk UserForm4 dan isikan code berikut
>
> *Private Sub ListBox1_Click()**
> ** UserForm3.TextBox7.Text = ListBox1.List(ListBox1.ListIndex, 0)**
> ** UserForm3.TextBox8.Text = ListBox1.List(ListBox1.ListIndex, 1)**
> ** UserForm3.TextBox4.SetFocus**
> **End Sub**
> **
> **Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)**
> ** Unload Me**
> **End Sub**
> *
> Jadi disini yang form aktif yang ngirim ke form pemanggil, bukan form
> pemanggil yang ngambil2 datanya di form yang dipanggil
>
> Rgds,
> [dp]
>
> On 18/07/2013 14:12, Kusnadi Bin zain wrote:
>>
>>
>> ----------------------------------------------------------
>> **
>>
>> Dear : Exeller pakar
>>
>> mohon bantuan koding ambil data dari UserForm lain, dan hasilnya
>> ditaruh di Current UserForm gimana ya kodingnya.
>> ini saya coba kok patchnya katanya erorr..... (gak mudeng2 nih awak)
>>
>> terima kasih atas bagi2 ilmunya selama ini.....
>>
>> kusnadi
>>
>>
>>
>>
>
>
>
>
dapat menemukan property indexnya, maka untuk itu diperlukan beberapa
akal-akalan sehingga dapat mencapai tujuan tersebutantara lain:
Mendeteksinya si textbox yang manggil mas form menggunakan item yg lagi
mendapat fokus untuk selanjutnya mengisinya dengan kode yg dipilih
Dengan akal2'an tersebut diatas dan dikarenakan nga ada indexnya untuk
control ini, maka untuk nilai dari kolom keterangan kita titipkan dulu
sementara di sebuah variable.
Selanjutnya setelah userform3 mendapat aktif/mendapatkan fokus kembali,
kita perintahkan vba untuk berpindah fokusnya ke textbox selanjutnya
dalam urutan tabindex dengan minta tolong lagi kepada vba untuk
memencetkan tombol TAB buat kita.
Setelah fokus berhasil pindah, tinggal kita isi saja textbo nya dengan
variable yang kita titipkan dari formsebelumnya.
Kira2 begitu.
Ada cara yang lebih mudah ga ya !!! (*penasaran*
Rgds
[dp]
Pada 19/07/2013 13:46, Kusnadi Bin zain menulis:
> terima kasih atas kesediaan bagi-bagi ilmunya.
>
> tapi maaf pertanyaan jadi berlanjut
> bagaimana jika ingin agar ListBox itu bisa untuk mengisi kode akun dan
> nama akun di TextBox berikutna ?
> atau mungkin ada cara yang lebih mudah ?
>
> terima kasih
>
> kusnadi
>
>
>
> ------------
> *Dari:* De Premor <de@premor.net>
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 18 Juli 2013 15:28
> *Judul:* Re: [belajar-excel] ambil data di UserForm lain
>
> di UserForm3
> Baris yang berbunyi *TextBox7.Text =
> UserForm4.ListBox1.
>
> Kemudian buka code untuk UserForm4 dan isikan code berikut
>
> *Private Sub ListBox1_Click(
> ** UserForm3.TextBox7.
> ** UserForm3.TextBox8.
> ** UserForm3.TextBox4.
> **End Sub**
> **
> **Private Sub ListBox1_DblClick(
> ** Unload Me**
> **End Sub**
> *
> Jadi disini yang form aktif yang ngirim ke form pemanggil, bukan form
> pemanggil yang ngambil2 datanya di form yang dipanggil
>
> Rgds,
> [dp]
>
> On 18/07/2013 14:12, Kusnadi Bin zain wrote:
>>
>>
>> ------------
>> **
>>
>> Dear : Exeller pakar
>>
>> mohon bantuan koding ambil data dari UserForm lain, dan hasilnya
>> ditaruh di Current UserForm gimana ya kodingnya.
>> ini saya coba kok patchnya katanya erorr..... (gak mudeng2 nih awak)
>>
>> terima kasih atas bagi2 ilmunya selama ini.....
>>
>> kusnadi
>>
>>
>>
>>
>
>
>
>
Fri Jul 19, 2013 10:44 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
eh...
akhirnya, inputan pakai textbox semua ya.
saya kira cuma baris entry saja yang pakai textbox, dan hasil entry
ditampilkan dalam listbox.
ya sudahlah,
cuma mau tanya saja, kalau mau entry data sebanyak 15 record bagaimana
caranya nanti ?
Wassalam,
Kid.
2013/7/19 Kusnadi Bin zain <kbinzain@yahoo.co.id >
> **
>
>
> terima kasih atas kesediaan bagi-bagi ilmunya.
>
> tapi maaf pertanyaan jadi berlanjut
> bagaimana jika ingin agar ListBox itu bisa untuk mengisi kode akun dan
> nama akun di TextBox berikutna ?
> atau mungkin ada cara yang lebih mudah ?
>
> terima kasih
>
> kusnadi
>
>
>
> ------------------------------
> *Dari:* De Premor <de@premor.net>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 18 Juli 2013 15:28
> *Judul:* Re: [belajar-excel] ambil data di UserForm lain
>
>
> di UserForm3
> Baris yang berbunyi *TextBox7.Text = UserForm4.ListBox1.Column(1)** *dihapus
> saja,
>
> Kemudian buka code untuk UserForm4 dan isikan code berikut
>
> *Private Sub ListBox1_Click()**
> ** UserForm3.TextBox7.Text = ListBox1.List(ListBox1.ListIndex, 0)**
> ** UserForm3.TextBox8.Text = ListBox1.List(ListBox1.ListIndex, 1)**
> ** UserForm3.TextBox4.SetFocus**
> **End Sub**
> **
> **Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)**
> ** Unload Me**
> **End Sub**
> *
> Jadi disini yang form aktif yang ngirim ke form pemanggil, bukan form
> pemanggil yang ngambil2 datanya di form yang dipanggil
>
> Rgds,
> [dp]
>
> On 18/07/2013 14:12, Kusnadi Bin zain wrote:
>
>
>
>
> ------------------------------
> **
>
> Dear : Exeller pakar
>
> mohon bantuan koding ambil data dari UserForm lain, dan hasilnya ditaruh
> di Current UserForm gimana ya kodingnya.
> ini saya coba kok patchnya katanya erorr..... ( gak mudeng2 nih awak )
>
> terima kasih atas bagi2 ilmunya selama ini.....
>
> kusnadi
>
>
>
>
>
>
>
>
>
akhirnya, inputan pakai textbox semua ya.
saya kira cuma baris entry saja yang pakai textbox, dan hasil entry
ditampilkan dalam listbox.
ya sudahlah,
cuma mau tanya saja, kalau mau entry data sebanyak 15 record bagaimana
caranya nanti ?
Wassalam,
Kid.
2013/7/19 Kusnadi Bin zain <kbinzain@yahoo.
> **
>
>
> terima kasih atas kesediaan bagi-bagi ilmunya.
>
> tapi maaf pertanyaan jadi berlanjut
> bagaimana jika ingin agar ListBox itu bisa untuk mengisi kode akun dan
> nama akun di TextBox berikutna ?
> atau mungkin ada cara yang lebih mudah ?
>
> terima kasih
>
> kusnadi
>
>
>
> ------------
> *Dari:* De Premor <de@premor.net>
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 18 Juli 2013 15:28
> *Judul:* Re: [belajar-excel] ambil data di UserForm lain
>
>
> di UserForm3
> Baris yang berbunyi *TextBox7.Text = UserForm4.ListBox1.
> saja,
>
> Kemudian buka code untuk UserForm4 dan isikan code berikut
>
> *Private Sub ListBox1_Click(
> ** UserForm3.TextBox7.
> ** UserForm3.TextBox8.
> ** UserForm3.TextBox4.
> **End Sub**
> **
> **Private Sub ListBox1_DblClick(
> ** Unload Me**
> **End Sub**
> *
> Jadi disini yang form aktif yang ngirim ke form pemanggil, bukan form
> pemanggil yang ngambil2 datanya di form yang dipanggil
>
> Rgds,
> [dp]
>
> On 18/07/2013 14:12, Kusnadi Bin zain wrote:
>
>
>
>
> ------------
> **
>
> Dear : Exeller pakar
>
> mohon bantuan koding ambil data dari UserForm lain, dan hasilnya ditaruh
> di Current UserForm gimana ya kodingnya.
> ini saya coba kok patchnya katanya erorr..... ( gak mudeng2 nih awak )
>
> terima kasih atas bagi2 ilmunya selama ini.....
>
> kusnadi
>
>
>
>
>
>
>
>
>
Fri Jul 19, 2013 12:11 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mungkin seperti file terlampir.
Wassalam,
Kid.
2013/7/19 Salam <aang@dmcti.co.id >
> **
>
>
> Dear Exceler,
>
> Atas permintaan Miss Jan saya perinci permasalahan yang saya hadapi,
> (attachement terlampir)
>
> Regards,
> A.Salam
>
>
> Pada 19 Juli 2013 13.46, Salam <aang@dmcti.co.id > menulis:
>
> Kalau yang saya inginkan cukup komplek, yaitu :
> 1. input Type Product,Lotnumber,Qty,Waktu input
> 2. kemudian membuat query dg ketentuan Type Product yang Lotnumber sama
> Qty akan ditotal
> Bagi saya masalah ini cukup komplek.
> untuk contoh terlampir
>
> Salam,
> A.Salam
>
>
>
>
Wassalam,
Kid.
2013/7/19 Salam <aang@dmcti.co.
> **
>
>
> Dear Exceler,
>
> Atas permintaan Miss Jan saya perinci permasalahan yang saya hadapi,
> (attachement terlampir)
>
> Regards,
> A.Salam
>
>
> Pada 19 Juli 2013 13.46, Salam <aang@dmcti.co.
>
> Kalau yang saya inginkan cukup komplek, yaitu :
> 1. input Type Product,Lotnumber,
> 2. kemudian membuat query dg ketentuan Type Product yang Lotnumber sama
> Qty akan ditotal
> Bagi saya masalah ini cukup komplek.
> untuk contoh terlampir
>
> Salam,
> A.Salam
>
>
>
>
Fri Jul 19, 2013 8:39 pm (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Saya ucapkan terima kasih banyak atas bantuan yang sangat besar dari Mr De Premor, Mr Hendrik dan Mrs Jan Raisin.
Solusi yang diberikan sudah dapat menjawab masalah yang selama ini saya hadapi yaitu tentang merekap nama2 dalam workbook sampai dengan pengembangannya menjadi informasi yang semakin berguna (target).
saya betul2 awam sekali dengan macro dan visual basic. saya sudah buka macro/visual basic dari Mr De Premor untuk saya tambahkan menjadi "Kode Perusahaan", "Nama Perusahaan", "Saldo Awal", "Debet", "Kredit", "Saldo Akhir" dan saya jalankan tetapi saya tidak bisa menempatkan/menambahkan macro pada "Kode Perusahaan dan Nama Perusahaan". dan kenapa saldo akhir pada perusahaan yang ada di baris paling atas angkanya terdapat garis bawah biru?.
Dan saya ingin di sheet "Daftar" ada tambahan keterangan judul "Laporan Gabungan" ->a1 ; "Rekapitulasi Laporan Kas & Bank" ->a2 ; "Periode bulan" ->a3 ; kemudian baru masuk baris a5 s/d sheet terakhir untuk data2 dari sheet tsb.
terlampir file excel dan notepad, karena saya tidak bisa menyimpan macro hasil modifikasi, terpaksa saya sertakan notepadnya.
Salam hormat,
Terima kasih,
ASL
To: belajar-excel@yahoogroups.com
From: de@premor.net
Date: Thu, 18 Jul 2013 04:25:02 +0700
Subject: Re: [belajar-excel] Re: EXCEL - Cara merekap nama2 dalam workbook
Ikutan Nambahin ya (^_^) V
Pada Novel Help-nya eksyel yang cetar membahana sehingga
diseluruh kompiuter pengguna eksyel dapat
dipastikan mempunyai softcopynya di ceritakan jika fungsi Find apabila tidak
menemukan yang dicari akan menghasilkan
nilai Nothing
Jadi untuk trapper nya jika ndak ketemu sesuatu seperti yang
kita semua harapkan bisa digunakan
If Not rgFind
Is Nothing Then
....
End
If
Kemudian sebagai bumbu
penyedap, agar supaya jikalau andaikata di salah satu keterangan ada transaksi
yang berbunyi TOTAL BON WARUNG JUNI 2013 tetap
menghasilkan nilai yang benar, dan
sesuai dengan yang sudah didongengkan oleh Miss
Jan beberapa hari yang lalu didalam Session yang
bertajuk "Cara Membuat Search Enggine",
maka perlu penambahan garam sbb:
Set rgFind = .Cells.Find("TOTAL";, lookat:=xlwhole)
Rgds,
[dp]
Pada 17/07/2013 23:29, hendrik karnadi
menulis:
Boleh ikutan jawab
atau update Miss Jan?
lFind
= rgFind.Row (bukan 1Find) --> saya
coba tambahkan Code On Error agar bila
datanya kosong tetap bisa dijalankan.
28
- 30 -> Hasil tes saya (s/d 31
Sheet dengan dua sheet kosong) OK, tidak
berhenti s/d 30 Sheet. Kemungkinan
waktu dites datan pada sheet kosong
sedangkan Code On Error belum ditambahkan.
Saldo
Awal -> saya coba tambahkan/update pada
Macro Miss Jan, termasuk deklarasi variabel.
File
terlampir.
Salam,
HK
From:
Ahmad Syaifullah Lubis
<syaifullah@hotmail.com >
To:
"belajar-excel@yahoogroups.com "
<belajar-excel@yahoogroups.com >
Sent:
Wednesday, 17 July 2013, 15:36
Subject:
RE: [belajar-excel] Re: EXCEL - Cara
merekap nama2 dalam workbook
Miss Jan Raisin
dan Pak Hendrik,
Alhamdulillah
mulai ada pencerahan lagi.
cuman saya jalankan visual
basicnya Miss Jan ada pesan
error " Run time error '91 :
Object variable or with block
variable not set. terus saya
klik debug maka ada tanda
kuning di baris tsb yaitu :
1Find = rgFind.Row
hal diberkenaan
dengan saya copykan macro
tsb ke file saya yang banyak
sheetnya, hasil yang didapat
pada sheet daftar berhenti
pada baris 28 - 30... padahal
masih banyak lagi sheet2nya.
Miss
Jan, kalau bisa dikirimkan
revisinya menjadi Nama Sheet,
Saldo
Awal ; Total Debet ;
Total Kredit dan Saldo Akhir.
mohon bantuannya.
terima kasih
ASL
To:
belajar-excel@yahoogroups.com
From:
miss.jan.raisin@gmail.com
Date: Wed, 17 Jul 2013
14:11:15 +0700
Subject: Re: [belajar-excel]
Re: EXCEL - Cara merekap nama2
dalam workbook
ikutan
lagi ya.. coba file
terlampir,
pastikan
untuk
meng-enable-kan
security macronya
salam,
-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
sehingga 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
17 Juli 2013
11.36, Ahmad
Syaifullah Lubis <syaifullah@hotmail.com >
menulis:
Pak
Hendrik ,
maaf
ketinggalan
file
attachment
saya, berikut
saya
lampirkan.
tambahan :
setiap sheet
jumlah baris
yang dipakai
berbeda2
barisnya.
tergantung
dari
transaksinya.
bisakah
diambil dari
masing2 sheet
tsb Total
Debet, Total
Kredit dan
Saldo
Akhirnya.
Terimaksih
ASL
From: syaifullah@hotmail.com
To: belajar-excel@yahoogroups.com
Subject: RE:
[belajar-excel]
Re: EXCEL -
Cara merekap
nama2 dalam
workbook
Date: Wed, 17
Jul 2013
04:31:37 +0000
Pak
Hendrik,
saya sudah
mengikuti
instruksi pak
Hendrik,
tentang
mengaktifkan
macro.
dari File yang
Pak Hendrik,
saya mengerti
untuk
menggantikan
nama2 sheet
tsb.
Sheet daftar
yang ada pada
file yang Pak
Hendrik
kirimkan tsb
saya copy ke
ke file saya
yang berisi
banyak sheet.
setelah saya
copykan sheet
daftar ke
sheet saya
(nama filenya
"KASUS
MACRO.xlsx")
tidak
menampilkan
hasil yang
diinginkan.
Padahal
rencana saya
apabila bisa,
saya akan
membuat sheet
baru untuk
merekap nama2
sheet tsb,
sekaligus
mengambil
total debet,
kredit dan
saldo. Tentu
kalau berhasil
ini sangat
membantu saya
membuat
laporan
proyek2 ke
depannya.
Harapan saya,
Pak Hendrik
dapat
memberikan
bantuannya.
Terima Kasih.
ASL
----------
Private Sub Worksheet_Activate()
Dim lRow As Long
Dim sht As Worksheet
Dim rgFind As Range
Range("a1").CurrentRegion.ClearContents
Range("a1:f1") = Array("Kode Perusahaan", "Nama Perusahaan", "Saldo Awal", "Total Debet", "Total Kredit", "Saldo Akhir")
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
lRow = Range("a1").CurrentRegion.Rows.Count + 1
Range("A" & lRow) = IIf(sht.Range("A1") = "", sht.Name, sht.Range("A1"))
ActiveSheet.Hyperlinks.Add Cells(lRow, 1), "", "'" & sht.Name & "'!A1", "Klik untuk melihat detail '" & Range("A" & lRow) & "' pada Sheet " & sht.Name
Set rgFind = sht.Cells.Find("Saldo Awal", lookat:=xlPart)
If Not rgFind Is Nothing Then Range("C" & lRow) = rgFind.Offset(, 3)
Set rgFind = sht.Cells.Find("TOTAL";, lookat:=xlWhole)
If Not rgFind Is Nothing Then
With rgFind
Range("D" & lRow, "F" & lRow) = Array(.Offset(, 1), .Offset(, 2), .Offset(, 3))
End With
End If
End If
Next
Columns("A:F").EntireColumn.AutoFit
End Sub
Solusi yang diberikan sudah dapat menjawab masalah yang selama ini saya hadapi yaitu tentang merekap nama2 dalam workbook sampai dengan pengembangannya menjadi informasi yang semakin berguna (target).
saya betul2 awam sekali dengan macro dan visual basic. saya sudah buka macro/visual basic dari Mr De Premor untuk saya tambahkan menjadi "Kode Perusahaan"
Dan saya ingin di sheet "Daftar" ada tambahan keterangan judul "Laporan Gabungan" ->a1 ; "Rekapitulasi Laporan Kas & Bank" ->a2 ; "Periode bulan" ->a3 ; kemudian baru masuk baris a5 s/d sheet terakhir untuk data2 dari sheet tsb.
terlampir file excel dan notepad, karena saya tidak bisa menyimpan macro hasil modifikasi, terpaksa saya sertakan notepadnya.
Salam hormat,
Terima kasih,
ASL
To: belajar-excel@
From: de@premor.net
Date: Thu, 18 Jul 2013 04:25:02 +0700
Subject: Re: [belajar-excel] Re: EXCEL - Cara merekap nama2 dalam workbook
Ikutan Nambahin ya (^_^) V
Pada Novel Help-nya eksyel yang cetar membahana sehingga
diseluruh kompiuter pengguna eksyel dapat
dipastikan mempunyai softcopynya di ceritakan jika fungsi Find apabila tidak
menemukan yang dicari akan menghasilkan
nilai Nothing
Jadi untuk trapper nya jika ndak ketemu sesuatu seperti yang
kita semua harapkan bisa digunakan
If Not rgFind
Is Nothing Then
....
End
If
Kemudian sebagai bumbu
penyedap, agar supaya jikalau andaikata di salah satu keterangan ada transaksi
yang berbunyi TOTAL BON WARUNG JUNI 2013 tetap
menghasilkan nilai yang benar, dan
sesuai dengan yang sudah didongengkan oleh Miss
Jan beberapa hari yang lalu didalam Session yang
bertajuk "Cara Membuat Search Enggine"
maka perlu penambahan garam sbb:
Set rgFind = .Cells.Find(
Rgds,
[dp]
Pada 17/07/2013 23:29, hendrik karnadi
menulis:
Boleh ikutan jawab
atau update Miss Jan?
lFind
= rgFind.Row (bukan 1Find) --> saya
coba tambahkan Code On Error agar bila
datanya kosong tetap bisa dijalankan.
28
- 30 -> Hasil tes saya (s/d 31
Sheet dengan dua sheet kosong) OK, tidak
berhenti s/d 30 Sheet. Kemungkinan
waktu dites datan pada sheet kosong
sedangkan Code On Error belum ditambahkan.
Saldo
Awal -> saya coba tambahkan/update pada
Macro Miss Jan, termasuk deklarasi variabel.
File
terlampir.
Salam,
HK
From:
Ahmad Syaifullah Lubis
<syaifullah@hotmail.
To:
"belajar-excel@
<belajar-excel@
Sent:
Wednesday, 17 July 2013, 15:36
Subject:
RE: [belajar-excel] Re: EXCEL - Cara
merekap nama2 dalam workbook
Miss Jan Raisin
dan Pak Hendrik,
Alhamdulillah
mulai ada pencerahan lagi.
cuman saya jalankan visual
basicnya Miss Jan ada pesan
error " Run time error '91 :
Object variable or with block
variable not set. terus saya
klik debug maka ada tanda
kuning di baris tsb yaitu :
1Find = rgFind.Row
hal diberkenaan
dengan saya copykan macro
tsb ke file saya yang banyak
sheetnya, hasil yang didapat
pada sheet daftar berhenti
pada baris 28 - 30... padahal
masih banyak lagi sheet2nya.
Miss
Jan, kalau bisa dikirimkan
revisinya menjadi Nama Sheet,
Saldo
Awal ; Total Debet ;
Total Kredit dan Saldo Akhir.
mohon bantuannya.
terima kasih
ASL
To:
belajar-excel@
From:
miss.jan.raisin@
Date: Wed, 17 Jul 2013
14:11:15 +0700
Subject: Re: [belajar-excel]
Re: EXCEL - Cara merekap nama2
dalam workbook
ikutan
lagi ya.. coba file
terlampir,
pastikan
untuk
meng-enable-
security macronya
salam,
-Miss
Jan Raisin-
Untuk kepentingan belajar
bersama,
pertanyaan
harap
ditujukan hanya ke belajar-excel@
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
sehingga 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
17 Juli 2013
11.36, Ahmad
Syaifullah Lubis <syaifullah@hotmail.
menulis:
Pak
Hendrik ,
maaf
ketinggalan
file
attachment
saya, berikut
saya
lampirkan.
tambahan :
setiap sheet
jumlah baris
yang dipakai
berbeda2
barisnya.
tergantung
dari
transaksinya.
bisakah
diambil dari
masing2 sheet
tsb Total
Debet, Total
Kredit dan
Saldo
Akhirnya.
Terimaksih
ASL
From: syaifullah@hotmail.
To: belajar-excel@
Subject: RE:
[belajar-excel]
Re: EXCEL -
Cara merekap
nama2 dalam
workbook
Date: Wed, 17
Jul 2013
04:31:37 +0000
Pak
Hendrik,
saya sudah
mengikuti
instruksi pak
Hendrik,
tentang
mengaktifkan
macro.
dari File yang
Pak Hendrik,
saya mengerti
untuk
menggantikan
nama2 sheet
tsb.
Sheet daftar
yang ada pada
file yang Pak
Hendrik
kirimkan tsb
saya copy ke
ke file saya
yang berisi
banyak sheet.
setelah saya
copykan sheet
daftar ke
sheet saya
(nama filenya
"KASUS
MACRO.xlsx"
tidak
menampilkan
hasil yang
diinginkan.
Padahal
rencana saya
apabila bisa,
saya akan
membuat sheet
baru untuk
merekap nama2
sheet tsb,
sekaligus
mengambil
total debet,
kredit dan
saldo. Tentu
kalau berhasil
ini sangat
membantu saya
membuat
laporan
proyek2 ke
depannya.
Harapan saya,
Pak Hendrik
dapat
memberikan
bantuannya.
Terima Kasih.
ASL
----------
Private Sub Worksheet_Activate(
Dim lRow As Long
Dim sht As Worksheet
Dim rgFind As Range
Range("
Range("
For Each sht In Worksheets
If sht.Name <> ActiveSheet.
lRow = Range("
Range("
ActiveSheet.
Set rgFind = sht.Cells.Find(
If Not rgFind Is Nothing Then Range("
Set rgFind = sht.Cells.Find(
If Not rgFind Is Nothing Then
With rgFind
Range("
End With
End If
End If
Next
Columns("
End Sub
Fri Jul 19, 2013 10:42 pm (PDT) . Posted by:
"De Premor" de.premor
terlampir
(^_^)
On 20/07/2013 9:48, Ahmad Syaifullah Lubis wrote:
>
> Saya ucapkan terima kasih banyak atas bantuan yang sangat besar dari
> Mr De Premor, Mr Hendrik dan Mrs Jan Raisin.
> Solusi yang diberikan sudah dapat menjawab masalah yang selama ini
> saya hadapi yaitu tentang merekap nama2 dalam workbook sampai dengan
> pengembangannya menjadi informasi yang semakin berguna (target).
> saya betul2 awam sekali dengan macro dan visual basic. saya sudah buka
> macro/visual basic dari Mr De Premor untuk saya tambahkan menjadi
> "Kode Perusahaan", "Nama Perusahaan", "Saldo Awal", "Debet", "Kredit",
> "Saldo Akhir" dan saya jalankan tetapi saya tidak bisa
> menempatkan/menambahkan macro pada "Kode Perusahaan dan Nama
> Perusahaan". dan kenapa saldo akhir pada perusahaan yang ada di baris
> paling atas angkanya terdapat garis bawah biru?.
> Dan saya ingin di sheet "Daftar" ada tambahan keterangan judul
> "Laporan Gabungan" ->a1 ; "Rekapitulasi Laporan Kas & Bank" ->a2 ;
> "Periode bulan" ->a3 ; kemudian baru masuk baris a5 s/d sheet terakhir
> untuk data2 dari sheet tsb.
> terlampir file excel dan notepad, karena saya tidak bisa menyimpan
> macro hasil modifikasi, terpaksa saya sertakan notepadnya.
> Salam hormat,
> Terima kasih,
> ASL
>
> ----------------------------------------------------------
> To: belajar-excel@yahoogroups.com
> From: de@premor.net
> Date: Thu, 18 Jul 2013 04:25:02 +0700
> Subject: Re: [belajar-excel] Re: EXCEL - Cara merekap nama2 dalam workbook
>
> Ikutan Nambahin ya (^_^) V
>
> Pada Novel Help-nya eksyel yang cetar membahana sehingga diseluruh
> kompiuter pengguna eksyel dapat dipastikan mempunyai softcopynya di
> ceritakan jika fungsi Find apabila tidak menemukan yang dicari akan
> menghasilkan nilai *Nothing*
> Jadi untuk trapper nya jika ndak ketemu sesuatu seperti yang kita
> semua harapkan bisa digunakan
>
> *If Not rgFind**Is Nothing Then
> ....
> End If**
> **
> *Kemudian sebagai bumbu penyedap, agar supaya jikalau andaikata di
> salah satu keterangan ada transaksi yang berbunyi TOTAL BON WARUNG
> JUNI 2013 tetap menghasilkan nilai yang benar, dan sesuai dengan yang
> sudah didongengkan oleh Miss Jan beberapa hari yang lalu didalam
> Session yang bertajuk "*Cara Membuat Search Enggine*", maka perlu
> penambahan garam sbb:
>
> Set rgFind = .Cells.Find("TOTAL";, *lookat:=xlwhole*)
>
> Rgds,
> [dp]
>
>
> Pada 17/07/2013 23:29, hendrik karnadi menulis:
>
> Boleh ikutan jawab atau update Miss Jan?
>
> lFind = rgFind.Row (bukan 1Find) --> saya coba tambahkan Code On
> Error agar bila datanya kosong tetap bisa dijalankan.
>
> 28 - 30 -> Hasil tes saya (s/d 31 Sheet dengan dua sheet kosong)
> OK, tidak berhenti s/d 30 Sheet. Kemungkinan waktu dites datan
> pada sheet kosong sedangkan Code On Error belum ditambahkan.
>
> Saldo Awal -> saya coba tambahkan/update pada Macro Miss Jan,
> termasuk deklarasi variabel.
>
> File terlampir.
>
> Salam,
> HK
>
>
> ----------------------------------------------------------
> *From:* Ahmad Syaifullah Lubis <syaifullah@hotmail.com >
> <mailto:syaifullah@hotmail.com >
> *To:* "belajar-excel@yahoogroups.com "
> <mailto:belajar-excel@yahoogroups.com >
> <belajar-excel@yahoogroups.com >
> <mailto:belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 17 July 2013, 15:36
> *Subject:* RE: [belajar-excel] Re: EXCEL - Cara merekap nama2
> dalam workbook
>
> Miss Jan Raisin dan Pak Hendrik,
> Alhamdulillah mulai ada pencerahan lagi. cuman saya jalankan
> visual basicnya Miss Jan ada pesan error " Run time error '91 :
> Object variable or with block variable not set. terus saya klik
> debug maka ada tanda kuning di baris tsb yaitu :1Find = rgFind.Row
> hal diberkenaan dengan saya copykan macro tsb ke file saya yang
> banyak sheetnya, hasil yang didapat pada sheet daftar berhenti
> pada baris 28 - 30... padahal masih banyak lagi sheet2nya.
> Miss Jan, kalau bisa dikirimkan revisinya menjadi Nama Sheet,
> Saldo Awal; Total Debet ; Total Kredit dan Saldo Akhir.
> mohon bantuannya.
> terima kasih
> ASL
>
> ----------------------------------------------------------
> To: belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com >
> From: miss.jan.raisin@gmail.com <mailto:miss.jan.raisin@gmail.com >
> Date: Wed, 17 Jul 2013 14:11:15 +0700
> Subject: Re: [belajar-excel] Re: EXCEL - Cara merekap nama2 dalam
> workbook
>
>
> ikutan lagi ya.. coba file terlampir,
> pastikan untuk meng-enable-kan security macronya
>
> salam,
>
>
>
> -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 sehingga 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 17 Juli 2013 11.36, Ahmad Syaifullah Lubis
> <syaifullah@hotmail.com > menulis:
>
>
> Pak Hendrik ,
> maaf ketinggalan file attachment saya, berikut saya lampirkan.
> tambahan : setiap sheet jumlah baris yang dipakai berbeda2
> barisnya. tergantung dari transaksinya. bisakah diambil dari
> masing2 sheet tsb Total Debet, Total Kredit dan Saldo Akhirnya.
> Terimaksih
> ASL
>
> ----------------------------------------------------------
> From: syaifullah@hotmail.com
> To: belajar-excel@yahoogroups.com
>
> Subject: RE: [belajar-excel] Re: EXCEL - Cara merekap nama2
> dalam workbook
> Date: Wed, 17 Jul 2013 04:31:37 +0000
>
>
> Pak Hendrik,
> saya sudah mengikuti instruksi pak Hendrik, tentang
> mengaktifkan macro.
> dari File yang Pak Hendrik, saya mengerti untuk menggantikan
> nama2 sheet tsb.
> Sheet daftar yang ada pada file yang Pak Hendrik kirimkan tsb
> saya copy ke ke file saya yang berisi banyak sheet. setelah
> saya copykan sheet daftar ke sheet saya (nama filenya "KASUS
> MACRO.xlsx") tidak menampilkan hasil yang diinginkan.
> Padahal rencana saya apabila bisa, saya akan membuat sheet
> baru untuk merekap nama2 sheet tsb, sekaligus mengambil total
> debet, kredit dan saldo. Tentu kalau berhasil ini sangat
> membantu saya membuat laporan proyek2 ke depannya. Harapan
> saya, Pak Hendrik dapat memberikan bantuannya.
> Terima Kasih.
> ASL
>
>
>
>
>
>
>
>
(^_^)
On 20/07/2013 9:48, Ahmad Syaifullah Lubis wrote:
>
> Saya ucapkan terima kasih banyak atas bantuan yang sangat besar dari
> Mr De Premor, Mr Hendrik dan Mrs Jan Raisin.
> Solusi yang diberikan sudah dapat menjawab masalah yang selama ini
> saya hadapi yaitu tentang merekap nama2 dalam workbook sampai dengan
> pengembangannya menjadi informasi yang semakin berguna (target).
> saya betul2 awam sekali dengan macro dan visual basic. saya sudah buka
> macro/visual basic dari Mr De Premor untuk saya tambahkan menjadi
> "Kode Perusahaan"
> "Saldo Akhir" dan saya jalankan tetapi saya tidak bisa
> menempatkan/
> Perusahaan"
> paling atas angkanya terdapat garis bawah biru?.
> Dan saya ingin di sheet "Daftar" ada tambahan keterangan judul
> "Laporan Gabungan" ->a1 ; "Rekapitulasi Laporan Kas & Bank" ->a2 ;
> "Periode bulan" ->a3 ; kemudian baru masuk baris a5 s/d sheet terakhir
> untuk data2 dari sheet tsb.
> terlampir file excel dan notepad, karena saya tidak bisa menyimpan
> macro hasil modifikasi, terpaksa saya sertakan notepadnya.
> Salam hormat,
> Terima kasih,
> ASL
>
> ------------
> To: belajar-excel@
> From: de@premor.net
> Date: Thu, 18 Jul 2013 04:25:02 +0700
> Subject: Re: [belajar-excel] Re: EXCEL - Cara merekap nama2 dalam workbook
>
> Ikutan Nambahin ya (^_^) V
>
> Pada Novel Help-nya eksyel yang cetar membahana sehingga diseluruh
> kompiuter pengguna eksyel dapat dipastikan mempunyai softcopynya di
> ceritakan jika fungsi Find apabila tidak menemukan yang dicari akan
> menghasilkan nilai *Nothing*
> Jadi untuk trapper nya jika ndak ketemu sesuatu seperti yang kita
> semua harapkan bisa digunakan
>
> *If Not rgFind**Is Nothing Then
> ....
> End If**
> **
> *Kemudian sebagai bumbu penyedap, agar supaya jikalau andaikata di
> salah satu keterangan ada transaksi yang berbunyi TOTAL BON WARUNG
> JUNI 2013 tetap menghasilkan nilai yang benar, dan sesuai dengan yang
> sudah didongengkan oleh Miss Jan beberapa hari yang lalu didalam
> Session yang bertajuk "*Cara Membuat Search Enggine*"
> penambahan garam sbb:
>
> Set rgFind = .Cells.Find(
>
> Rgds,
> [dp]
>
>
> Pada 17/07/2013 23:29, hendrik karnadi menulis:
>
> Boleh ikutan jawab atau update Miss Jan?
>
> lFind = rgFind.Row (bukan 1Find) --> saya coba tambahkan Code On
> Error agar bila datanya kosong tetap bisa dijalankan.
>
> 28 - 30 -> Hasil tes saya (s/d 31 Sheet dengan dua sheet kosong)
> OK, tidak berhenti s/d 30 Sheet. Kemungkinan waktu dites datan
> pada sheet kosong sedangkan Code On Error belum ditambahkan.
>
> Saldo Awal -> saya coba tambahkan/update pada Macro Miss Jan,
> termasuk deklarasi variabel.
>
> File terlampir.
>
> Salam,
> HK
>
>
> ------------
> *From:* Ahmad Syaifullah Lubis <syaifullah@hotmail.
> <mailto:syaifullah@hotmail.
> *To:* "belajar-excel@
> <mailto:belajar-excel@
> <belajar-excel@
> <mailto:belajar-excel@
> *Sent:* Wednesday, 17 July 2013, 15:36
> *Subject:* RE: [belajar-excel] Re: EXCEL - Cara merekap nama2
> dalam workbook
>
> Miss Jan Raisin dan Pak Hendrik,
> Alhamdulillah mulai ada pencerahan lagi. cuman saya jalankan
> visual basicnya Miss Jan ada pesan error " Run time error '91 :
> Object variable or with block variable not set. terus saya klik
> debug maka ada tanda kuning di baris tsb yaitu :1Find = rgFind.Row
> hal diberkenaan dengan saya copykan macro tsb ke file saya yang
> banyak sheetnya, hasil yang didapat pada sheet daftar berhenti
> pada baris 28 - 30... padahal masih banyak lagi sheet2nya.
> Miss Jan, kalau bisa dikirimkan revisinya menjadi Nama Sheet,
> Saldo Awal; Total Debet ; Total Kredit dan Saldo Akhir.
> mohon bantuannya.
> terima kasih
> ASL
>
> ------------
> To: belajar-excel@
> <mailto:belajar-excel@
> From: miss.jan.raisin@
> Date: Wed, 17 Jul 2013 14:11:15 +0700
> Subject: Re: [belajar-excel] Re: EXCEL - Cara merekap nama2 dalam
> workbook
>
>
> ikutan lagi ya.. coba file terlampir,
> pastikan untuk meng-enable-
>
> salam,
>
>
>
> -Miss Jan Raisin-
>
> * Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> *_hanya_*ke belajar-excel@
> 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 sehingga 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 17 Juli 2013 11.36, Ahmad Syaifullah Lubis
> <syaifullah@hotmail.
>
>
> Pak Hendrik ,
> maaf ketinggalan file attachment saya, berikut saya lampirkan.
> tambahan : setiap sheet jumlah baris yang dipakai berbeda2
> barisnya. tergantung dari transaksinya. bisakah diambil dari
> masing2 sheet tsb Total Debet, Total Kredit dan Saldo Akhirnya.
> Terimaksih
> ASL
>
> ------------
> From: syaifullah@hotmail.
> To: belajar-excel@
>
> Subject: RE: [belajar-excel] Re: EXCEL - Cara merekap nama2
> dalam workbook
> Date: Wed, 17 Jul 2013 04:31:37 +0000
>
>
> Pak Hendrik,
> saya sudah mengikuti instruksi pak Hendrik, tentang
> mengaktifkan macro.
> dari File yang Pak Hendrik, saya mengerti untuk menggantikan
> nama2 sheet tsb.
> Sheet daftar yang ada pada file yang Pak Hendrik kirimkan tsb
> saya copy ke ke file saya yang berisi banyak sheet. setelah
> saya copykan sheet daftar ke sheet saya (nama filenya "KASUS
> MACRO.xlsx"
> Padahal rencana saya apabila bisa, saya akan membuat sheet
> baru untuk merekap nama2 sheet tsb, sekaligus mengambil total
> debet, kredit dan saldo. Tentu kalau berhasil ini sangat
> membantu saya membuat laporan proyek2 ke depannya. Harapan
> saya, Pak Hendrik dapat memberikan bantuannya.
> Terima Kasih.
> ASL
>
>
>
>
>
>
>
>
Sat Jul 20, 2013 12:50 am (PDT) . Posted by:
agam_tole
Salam
SIang Pak HK
Sebelumnya maaf saya merepotkan..
Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("..")
Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
Terima kasih Pak
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Wed, 17 Jul 2013 19:31:53
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Hi Agam,
Tinggal ganti ActiveCell dengan Range(".."). Titik2nya bisa diganti dengan alamat sel.
Salam,
HK
________________________________
From: "agam_tole@yahoo.com " <agam_tole@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 17 July 2013, 23:42
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Â
SalAm Pak HK,
Terima kash sdh membantu, Betul pak sdh menjawab pertanyaan sy, tp timbul pertAnyaan br lg bagaimana jika yg sy mksd menunjuk cell tertentu untuk menempati hasil formula.. Seperti yg bpk contohkan trsebut kelihatanya msh merujuk pd cell aktif, sedaNgkan yg saya mksdn adalah merujuk pd Cell yg sdh d tentukan..
Piye Pak HeNdrik?
Hehehe
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Wed, 17 Jul 2013 08:03:06 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Â
Hi Agam,
Ini hasil uji coba saya.
Coba isi angka di bawah ini pada sel A1 s/d A4:
1
12
123
1234
Letakan penunjuk sel pada sel A5 (R5C1), kemudian copy paste kedua macro ini ke VBE Sheet\
Sub FormulaR1C1()
  ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
  ActiveCell = ActiveCell.Value
End Sub
Sub Formulabiasa()
  ActiveCell.Formula = Evaluate("=SUM(A1:A4)")
End Sub
dan lihat hasilnya pada sel A5 apakah sdh menjawab kedua hal yang ditanyakan.
Salam,
HK
________________________________
From: "agam_tole@yahoo.com " <agam_tole@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 17 July 2013, 10:10
Subject: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Dear Master dan Be-Excel
Salam
Langsung saja y, sbenernya saya ada membuat 1 sheet untuk hauling dump Truck yg berisi data 100 unit Mbl.. Dgn berbAgai formula dalam Cell2nya kelihatannya membuat gemuk Filenya.. Br 1 sheet sja sdh membuat filenya berukuran 1.6Mb..
Yng saya pertanyakan adalah
1. Mungkinkah Formula2 yg berada pd cell itu bs d gantIkan dgn code2 formula dlm vba, jd exekusinya dalam VBA, dan yg berada pd cell2 tersebut adalah hasil dr formula yg berada pd VBA Bkn lg formula tp hasilnya..?
2. Bagaimana skript untuk menggantikan formula2 tersebut jika dalam VBA.. ?
Demikian yg dpt saya tanyakan
Untuk jwbn
dan sarannya sgt saya btuhkan
Terima Kasih
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
------------------------------------
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links
SIang Pak HK
Sebelumnya maaf saya merepotkan..
Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("
Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
Terima kasih Pak
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Wed, 17 Jul 2013 19:31:53
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Hi Agam,
Tinggal ganti ActiveCell dengan Range("
Salam,
HK
____________
From: "agam_tole@yahoo.
To: belajar-excel@
Sent: Wednesday, 17 July 2013, 23:42
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Â
SalAm Pak HK,
Terima kash sdh membantu, Betul pak sdh menjawab pertanyaan sy, tp timbul pertAnyaan br lg bagaimana jika yg sy mksd menunjuk cell tertentu untuk menempati hasil formula.. Seperti yg bpk contohkan trsebut kelihatanya msh merujuk pd cell aktif, sedaNgkan yg saya mksdn adalah merujuk pd Cell yg sdh d tentukan..
Piye Pak HeNdrik?
Hehehe
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Wed, 17 Jul 2013 08:03:06 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Â
Hi Agam,
Ini hasil uji coba saya.
Coba isi angka di bawah ini pada sel A1 s/d A4:
1
12
123
1234
Letakan penunjuk sel pada sel A5 (R5C1), kemudian copy paste kedua macro ini ke VBE Sheet\
Sub FormulaR1C1(
  ActiveCell.FormulaR
  ActiveCell = ActiveCell.Value
End Sub
Sub Formulabiasa(
  ActiveCell.Formula = Evaluate("
End Sub
dan lihat hasilnya pada sel A5 apakah sdh menjawab kedua hal yang ditanyakan.
Salam,
HK
____________
From: "agam_tole@yahoo.
To: belajar-excel@
Sent: Wednesday, 17 July 2013, 10:10
Subject: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
Dear Master dan Be-Excel
Salam
Langsung saja y, sbenernya saya ada membuat 1 sheet untuk hauling dump Truck yg berisi data 100 unit Mbl.. Dgn berbAgai formula dalam Cell2nya kelihatannya membuat gemuk Filenya.. Br 1 sheet sja sdh membuat filenya berukuran 1.6Mb..
Yng saya pertanyakan adalah
1. Mungkinkah Formula2 yg berada pd cell itu bs d gantIkan dgn code2 formula dlm vba, jd exekusinya dalam VBA, dan yg berada pd cell2 tersebut adalah hasil dr formula yg berada pd VBA Bkn lg formula tp hasilnya..?
2. Bagaimana skript untuk menggantikan formula2 tersebut jika dalam VBA.. ?
Demikian yg dpt saya tanyakan
Untuk jwbn
dan sarannya sgt saya btuhkan
Terima Kasih
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
------------
============
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.
============
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
============
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
Sat Jul 20, 2013 1:06 am (PDT) . Posted by:
"Jan Raisin"
pak Agam, cara mengganti activecell dengan range adalah seperti contoh di
bawah ini:
ingin merujuk ke cell A1 >> range("a1")
ingin merujuk ke cell b25 >> range("b25")
jadi format penulisannya adalah range("ini_alamat_cellnya")
ganti yang warna merah dengan alamat cell yang diinginkan
jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
dilakukan dan timbul error tersebut
​salam,
​
-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 sehingga 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 20 Juli 2013 14.50, <agam_tole@yahoo.com > menulis:
> **
>
>
> ** Salam
>
> SIang Pak HK
> Sebelumnya maaf saya merepotkan..
> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("..")
>
> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>
> Terima kasih Pak
>
>
> Salam
>
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
> *To: *belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> Hi Agam,
> Tinggal ganti ActiveCell dengan Range(".."). Titik2nya bisa diganti dengan
> alamat sel.
>
> Salam,
> HK
>
>
bawah ini:
ingin merujuk ke cell A1 >> range("
ingin merujuk ke cell b25 >> range("
jadi format penulisannya adalah range("
ganti yang warna merah dengan alamat cell yang diinginkan
jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
dilakukan dan timbul error tersebut
​salam,
​
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
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 sehingga 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 20 Juli 2013 14.50, <agam_tole@yahoo.
> **
>
>
> ** Salam
>
> SIang Pak HK
> Sebelumnya maaf saya merepotkan..
> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("
>
> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>
> Terima kasih Pak
>
>
> Salam
>
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------
> *From: * hendrik karnadi <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> Hi Agam,
> Tinggal ganti ActiveCell dengan Range("
> alamat sel.
>
> Salam,
> HK
>
>
Sat Jul 20, 2013 2:10 am (PDT) . Posted by:
agam_tole
Hai Miss Jan
Sub Formulabiasa()
  range("A5").Formula = Evaluate("=SUM(A1:A4)")
End Sub
Ada tulIsan Runtime error 1004
Aplication-defined ir object-defined error
Itu cOde VBAnya yg error
(Malu mau posting sebenernya)
Tp gak apa, namanya beljar..
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Sat, 20 Jul 2013 15:06:49
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
pak Agam, cara mengganti activecell dengan range adalah seperti contoh di
bawah ini:
ingin merujuk ke cell A1 >> range("a1")
ingin merujuk ke cell b25 >> range("b25")
jadi format penulisannya adalah range("ini_alamat_cellnya")
ganti yang warna merah dengan alamat cell yang diinginkan
jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
dilakukan dan timbul error tersebut
​salam,
​
-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 sehingga 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 20 Juli 2013 14.50, <agam_tole@yahoo.com > menulis:
> **
>
>
> ** Salam
>
> SIang Pak HK
> Sebelumnya maaf saya merepotkan..
> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("..")
>
> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>
> Terima kasih Pak
>
>
> Salam
>
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
> *To: *belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> Hi Agam,
> Tinggal ganti ActiveCell dengan Range(".."). Titik2nya bisa diganti dengan
> alamat sel.
>
> Salam,
> HK
>
>
Sub Formulabiasa(
  range("
End Sub
Ada tulIsan Runtime error 1004
Aplication-defined ir object-defined error
Itu cOde VBAnya yg error
(Malu mau posting sebenernya)
Tp gak apa, namanya beljar..
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: Jan Raisin <miss.jan.raisin@
Sender: belajar-excel@
Date: Sat, 20 Jul 2013 15:06:49
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
pak Agam, cara mengganti activecell dengan range adalah seperti contoh di
bawah ini:
ingin merujuk ke cell A1 >> range("
ingin merujuk ke cell b25 >> range("
jadi format penulisannya adalah range("
ganti yang warna merah dengan alamat cell yang diinginkan
jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
dilakukan dan timbul error tersebut
​salam,
​
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
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 sehingga 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 20 Juli 2013 14.50, <agam_tole@yahoo.
> **
>
>
> ** Salam
>
> SIang Pak HK
> Sebelumnya maaf saya merepotkan..
> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("
>
> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>
> Terima kasih Pak
>
>
> Salam
>
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------
> *From: * hendrik karnadi <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> Hi Agam,
> Tinggal ganti ActiveCell dengan Range("
> alamat sel.
>
> Salam,
> HK
>
>
Sat Jul 20, 2013 2:44 am (PDT) . Posted by:
"Jan Raisin"
pak Agam,
tidak perlu malu untuk bertanya dan belajar.. karena batas akhir waktu
belajar adalah saat kita kembali ke rumah masa depan yang berukuran 2 x 1
meter.
baiklah.. kalo gak salah tujuan awal ingin mengganti formula dengan VBA
adalah untuk mempercepat proses dan mengurangi kapasitas file dengan cara
menghilangkan formula pada cell dan menggantikannya dengan nilainya
langsung ya..
kalo memang benar begitu adanya.. maka yang ada tulisan .Formula harus
diganti dengan .Value yang akan menghasilkan nilai sehingga excel tidak
perlu melakukan kalkulasi lagi terhadap cel tersebut.
lalu, harus dipastikan bahwa cel yang dimaksud dan cel rujukan berada pada
sheet yang tepat.. caranya seperti ini:
sheets("nama_sheet_hasil").range("a5").value = evaluate("=sum(nama_
sheetnya_misal_sheet1!A1:A4)")
ganti yang warna merah dengan nama sheet yang sesuai..
​semoga sesuai dengan kondisi di tempat aslinya.. jika masih belum sesuai..
tolong kirim sample waorkbook dengan scriptnya​
​Wassalam,
-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 sehingga 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 20 Juli 2013 16.10, <agam_tole@yahoo.com > menulis:
> **
>
>
> ** Hai Miss Jan
>
>
> Sub Formulabiasa()
> range("A5").Formula = Evaluate("=SUM(A1:A4)")
> End Sub
>
> Ada tulIsan Runtime error 1004
> Aplication-defined ir object-defined error
>
> Itu cOde VBAnya yg error
> (Malu mau posting sebenernya)
> Tp gak apa, namanya beljar..
>
>
> Salam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * Jan Raisin <miss.jan.raisin@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sat, 20 Jul 2013 15:06:49 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> pak Agam, cara mengganti activecell dengan range adalah seperti contoh di
> bawah ini:
>
> ingin merujuk ke cell A1 >> range("a1")
> ingin merujuk ke cell b25 >> range("b25")
>
> jadi format penulisannya adalah range("ini_alamat_cellnya")
> ganti yang warna merah dengan alamat cell yang diinginkan
>
> jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
> dilakukan dan timbul error tersebut
>
> ​salam,
> ​
>
> -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 sehingga 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 20 Juli 2013 14.50, <agam_tole@yahoo.com > menulis:
>
>> **
>>
>>
>> ** Salam
>>
>> SIang Pak HK
>> Sebelumnya maaf saya merepotkan..
>> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
>> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("..")
>>
>> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>>
>> Terima kasih Pak
>>
>>
>> Salam
>>
>>
>> Agam
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>> ------------------------------
>> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com >
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
>> *To: *belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>>
>>
>>
>> Hi Agam,
>> Tinggal ganti ActiveCell dengan Range(".."). Titik2nya bisa diganti
>> dengan alamat sel.
>>
>> Salam,
>> HK
>>
>>
>
tidak perlu malu untuk bertanya dan belajar.. karena batas akhir waktu
belajar adalah saat kita kembali ke rumah masa depan yang berukuran 2 x 1
meter.
baiklah.. kalo gak salah tujuan awal ingin mengganti formula dengan VBA
adalah untuk mempercepat proses dan mengurangi kapasitas file dengan cara
menghilangkan formula pada cell dan menggantikannya dengan nilainya
langsung ya..
kalo memang benar begitu adanya.. maka yang ada tulisan .Formula harus
diganti dengan .Value yang akan menghasilkan nilai sehingga excel tidak
perlu melakukan kalkulasi lagi terhadap cel tersebut.
lalu, harus dipastikan bahwa cel yang dimaksud dan cel rujukan berada pada
sheet yang tepat.. caranya seperti ini:
sheets("
sheetnya_misal_
ganti yang warna merah dengan nama sheet yang sesuai..
​semoga sesuai dengan kondisi di tempat aslinya.. jika masih belum sesuai..
tolong kirim sample waorkbook dengan scriptnya​
​Wassalam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
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 sehingga 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 20 Juli 2013 16.10, <agam_tole@yahoo.
> **
>
>
> ** Hai Miss Jan
>
>
> Sub Formulabiasa(
> range("
> End Sub
>
> Ada tulIsan Runtime error 1004
> Aplication-defined ir object-defined error
>
> Itu cOde VBAnya yg error
> (Malu mau posting sebenernya)
> Tp gak apa, namanya beljar..
>
>
> Salam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------
> *From: * Jan Raisin <miss.jan.raisin@
> *Sender: * belajar-excel@
> *Date: *Sat, 20 Jul 2013 15:06:49 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> pak Agam, cara mengganti activecell dengan range adalah seperti contoh di
> bawah ini:
>
> ingin merujuk ke cell A1 >> range("
> ingin merujuk ke cell b25 >> range("
>
> jadi format penulisannya adalah range("
> ganti yang warna merah dengan alamat cell yang diinginkan
>
> jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
> dilakukan dan timbul error tersebut
>
> ​salam,
> ​
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
> belajar-excel@
> 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 sehingga 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 20 Juli 2013 14.50, <agam_tole@yahoo.
>
>> **
>>
>>
>> ** Salam
>>
>> SIang Pak HK
>> Sebelumnya maaf saya merepotkan..
>> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
>> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("
>>
>> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>>
>> Terima kasih Pak
>>
>>
>> Salam
>>
>>
>> Agam
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>> ------------
>> *From: * hendrik karnadi <hendrikkarnadi@
>> *Sender: * belajar-excel@
>> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
>> *To: *belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>>
>>
>>
>> Hi Agam,
>> Tinggal ganti ActiveCell dengan Range("
>> dengan alamat sel.
>>
>> Salam,
>> HK
>>
>>
>
Sat Jul 20, 2013 1:25 am (PDT) . Posted by:
"sony nurcahyo" sony_pwt
saya mau mengisi data penerimaan siswa yang sudah bayar pada bulan tertentu dari data bank (rekening koran)
Permasalahan: data yang dari bank hanya data siswa yang bayar, yang tidak bayar tidak ada, padahal kami ingin melaporkan data penerimaan siswa baik yang belum bayar maupun yang sudah bayar
Tanya : bagaimana caranya klo kita mau copy-paste suatu data dengan jumlah row yang berbeda
(untuk jelasnya silakan liat lampiran)
terimaksih
sony_0812.281.286.24
Permasalahan: data yang dari bank hanya data siswa yang bayar, yang tidak bayar tidak ada, padahal kami ingin melaporkan data penerimaan siswa baik yang belum bayar maupun yang sudah bayar
Tanya : bagaimana caranya klo kita mau copy-paste suatu data dengan jumlah row yang berbeda
(untuk jelasnya silakan liat lampiran)
terimaksih
sony_0812.281.
Sat Jul 20, 2013 1:38 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
tulis di F6
=SUMIF($J$6:$J$30;D6;$K$6:$K$30)
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: sony nurcahyo <sony_pwt@yahoo.Com >
Kepada: belajar excel <belajar-excel@yahoogroups.com >
Dikirim: Sabtu, 20 Juli 2013 13:26
Judul: [belajar-excel] copy paste beda jumlah row
Â
saya mau mengisi data penerimaan siswa yang sudah bayar pada bulan tertentu dari data bank (rekening koran)
Permasalahan: data yang dari bank hanya data siswa yang bayar, yang tidak bayar tidak ada, padahal kami ingin melaporkan data penerimaan siswa baik yang belum bayar maupun yang sudah bayar
Tanya : bagaimana caranya klo kita mau copy-paste suatu data dengan jumlah row yang berbeda
(untuk jelasnya silakan liat lampiran)
terimaksih
sony_0812.281.286.24
=SUMIF($J$6:
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: sony nurcahyo <sony_pwt@yahoo.
Kepada: belajar excel <belajar-excel@
Dikirim: Sabtu, 20 Juli 2013 13:26
Judul: [belajar-excel] copy paste beda jumlah row
Â
saya mau mengisi data penerimaan siswa yang sudah bayar pada bulan tertentu dari data bank (rekening koran)
Permasalahan: data yang dari bank hanya data siswa yang bayar, yang tidak bayar tidak ada, padahal kami ingin melaporkan data penerimaan siswa baik yang belum bayar maupun yang sudah bayar
Tanya : bagaimana caranya klo kita mau copy-paste suatu data dengan jumlah row yang berbeda
(untuk jelasnya silakan liat lampiran)
terimaksih
sony_0812.281.
Sat Jul 20, 2013 2:20 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Dear Harry,
Coba dipancing dulu dengan Insert ActiveX Controls apa aja, mungkin setelah ada ActiveX Controls baru enable kali Design Mode nya. Kalo ga aktif juga bisa di coba solusi dari Miss Jan atau nunggu solusi yang lain hehehe.
Kalo ga ada solusi lagi ya mungkin apesnya harus install ulang Microsoft Office nya
Wassalam,
________________________________
From: harry siswanto <hsiswanto@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Friday, July 19, 2013 7:44 AM
Subject: Re: [belajar-excel] tanya: MsExcel 2010
Â
betul mr. Kid
tab Developer sudah muncul
tapi Design Mode, Gray... alias Disable...
bagaimana cara Enablenya ???
Â
Â
Regards
Harry Siswanto
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Thursday, July 18, 2013 5:51 PM
Subject: Re: [belajar-excel] tanya: MsExcel 2010
Â
Apakah maksudnya menampilkan ribbon developer ?
>> menu File -> Options -> page (sisi kiri) Customize Ribbon -> cari disisi kanan layar dan centang item Developer -> OK sampai sheet
>> design mode ada di developer ribbon.
Wassalam,
Kid.
2013/7/18 harry siswanto <hsiswanto@yahoo.com >
>Â
>Dear Senior...
>mau tanya nih,
>gimana sih caranya membuat Enable/Disable tombol Design Mode di MsExcel 2010 ??
>Â
>Â terimakasih sebelumnya
>Â
>Regards
>
>
>Harry Siswanto
Coba dipancing dulu dengan Insert ActiveX Controls apa aja, mungkin setelah ada ActiveX Controls baru enable kali Design Mode nya. Kalo ga aktif juga bisa di coba solusi dari Miss Jan atau nunggu solusi yang lain hehehe.
Kalo ga ada solusi lagi ya mungkin apesnya harus install ulang Microsoft Office nya
Wassalam,
____________
From: harry siswanto <hsiswanto@yahoo.
To: "belajar-excel@
Sent: Friday, July 19, 2013 7:44 AM
Subject: Re: [belajar-excel] tanya: MsExcel 2010
Â
betul mr. Kid
tab Developer sudah muncul
tapi Design Mode, Gray... alias Disable...
bagaimana cara Enablenya ???
Â
Â
Regards
Harry Siswanto
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Thursday, July 18, 2013 5:51 PM
Subject: Re: [belajar-excel] tanya: MsExcel 2010
Â
Apakah maksudnya menampilkan ribbon developer ?
>> menu File -> Options -> page (sisi kiri) Customize Ribbon -> cari disisi kanan layar dan centang item Developer -> OK sampai sheet
>> design mode ada di developer ribbon.
Wassalam,
Kid.
2013/7/18 harry siswanto <hsiswanto@yahoo.
>Â
>Dear Senior...
>mau tanya nih,
>gimana sih caranya membuat Enable/Disable tombol Design Mode di MsExcel 2010 ??
>Â
>Â terimakasih sebelumnya
>Â
>Regards
>
>
>Harry Siswanto
Sat Jul 20, 2013 4:06 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Mas Kid mungkin pertanyaannya sedikit oot dari materi pelajaran di topik ini, tapi saya tertarik dengan tulisan:
'proses komputasi yang rumit
curDiscount = TotalDiscount(curDiscount, curSales, curProfit)
Kalo boleh dikasih penjelasan proses komputasi dari script diatas gmn Mas? Lebih jelasnya saya posting pertanyaan <a href:"http://b-excel.blogspot.com/2013/07/belajarvba-005-procedure-seri-2.html?showComment=1374317532821#c4056554061441301542 ">Disini (sekalian latian bikin link pake tulisan semoga berhasil)</a>
Trimakasih sebelumnya mas hehehe
Wassalam,
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Monday, July 15, 2013 3:14 AM
Subject: [belajar-excel] BelajarVBA : lanjutan tentang prosedur
Â
Dear BeExceller,
Mumpung sempat, sekalian saja bahasan prosedurnya disertai dengan seri 2 yang dapat dilihat disini. Lagipula, seri 1 dan seri 2 cenderung berkaitan erat.
Selamat belajar.
Wassalamu'alaikum Wr. Wb.
Kid.
'proses komputasi yang rumit
curDiscount = TotalDiscount(
Kalo boleh dikasih penjelasan proses komputasi dari script diatas gmn Mas? Lebih jelasnya saya posting pertanyaan <a href:"http://b-excel.
Trimakasih sebelumnya mas hehehe
Wassalam,
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Monday, July 15, 2013 3:14 AM
Subject: [belajar-excel] BelajarVBA : lanjutan tentang prosedur
Â
Dear BeExceller,
Mumpung sempat, sekalian saja bahasan prosedurnya disertai dengan seri 2 yang dapat dilihat disini. Lagipula, seri 1 dan seri 2 cenderung berkaitan erat.
Selamat belajar.
Wassalamu'
Kid.
Sat Jul 20, 2013 4:08 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Mas Kid mungkin pertanyaannya sedikit oot dari materi pelajaran di topik ini, tapi saya tertarik dengan tulisan:
'proses komputasi yang rumit
curDiscount = TotalDiscount(
Kalo boleh dikasih penjelasan proses komputasi dari script diatas gmn Mas? Lebih jelasnya saya posting pertanyaan <a href="http://b-excel.
Trimakasih sebelumnya mas hehehe
Wassalam,
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Monday, July 15, 2013 3:14 AM
Subject: [belajar-excel] BelajarVBA : lanjutan tentang prosedur
Â
Dear BeExceller,
Mumpung sempat, sekalian saja bahasan prosedurnya disertai dengan seri 2 yang dapat dilihat disini. Lagipula, seri 1 dan seri 2 cenderung berkaitan erat.
Selamat belajar.
Wassalamu'
Kid.
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar