8 New Messages
Digest #1786
Messages
Mon Sep 17, 2012 7:19 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Masih rencana atau sdh dicopy ?
Perkiraan saya (karena tidak bisa melihat filenya), ketika anda mengcopy (kalau sdh dicopy sebelum disave) formula arraynya ikut berubah.
Coba dicek
Salam,
Hendrik Karnadi
____________
From: Mardi <sumardiana596@
To: belajar-excel@
Sent: Monday, 17 September 2012, 18:45
Subject: [belajar-excel] error : {#value}
Dear all,
Maafkan kalo hanya bisa nanya nih,soalnya pemula banget.Ceritanya gini saya Ada formula aray yang rencananya saya copy dari A7:AH1828.Tapi kenapa ya,setelah di save dan close,kemudian dibuka lagi dari P429 ke bawah jadi {=#value!}.Maaf tidak lampirin filenya soalnya filenya gede banget 5 mega an.
Terima kasih
Mardi
FREE Animations for your email
Click Here!
Mon Sep 17, 2012 8:06 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
(gimana nih nyapanya.. kalo sapi, kesannya mengatai. kalo cumi, kesannya
melecehkan.. oalah, mbok ya ada urek-urek namanya di body email)
Hai ... apim
Untuk kebutuhan input yang dinamis disertai kemampuan add data, salah satu
yang relatif mudah diatur adalah control activex ComboBox.
File terlampir.
Syaratnya :
>> Nama sheet harus sama dengan nama combobox tanpa awalan cbo.
Wassalam,
Kid.
On Mon, Sep 17, 2012 at 6:09 PM, sapicumi <sapicumi@rocketmail.com > wrote:
> **
>
>
> - saya ada permasalahan seperti terlampir
> (memilih data memakai data environment ketika di ketik manual data yg
> diketik langsung disimpan di sheet kategory seperti terlampir)
> -mohon bantuan solusi para master disini
>
>
> http://milis-belajar-excel.1048464.n5.nabble.com/file/n5711838/updatedata.xlsm
> updatedata.xlsm
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Filter-data-dan-memasukan-data-lain-tp5711838.html
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
melecehkan.. oalah, mbok ya ada urek-urek namanya di body email)
Hai ... apim
Untuk kebutuhan input yang dinamis disertai kemampuan add data, salah satu
yang relatif mudah diatur adalah control activex ComboBox.
File terlampir.
Syaratnya :
>> Nama sheet harus sama dengan nama combobox tanpa awalan cbo.
Wassalam,
Kid.
On Mon, Sep 17, 2012 at 6:09 PM, sapicumi <sapicumi@rocketmail
> **
>
>
> - saya ada permasalahan seperti terlampir
> (memilih data memakai data environment ketika di ketik manual data yg
> diketik langsung disimpan di sheet kategory seperti terlampir)
> -mohon bantuan solusi para master disini
>
>
> http://milis-
> updatedata.xlsm
>
> --
> View this message in context:
> http://milis-
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
Mon Sep 17, 2012 8:17 am (PDT) . Posted by:
"sapicumi" sapicumi@rocketmail.com
walaaah mr kid naah ini yg saya maksut mr....waah ccoba saya utak atik dulu
biar lebih ngeeh gituuu memang panggilan saya sapi mr jadi ya gpp panggil
sapi saja hehehheheeh terima kasih atas pencerahan nya mr kid (hatur sembah
nuwun)
>>Jojo
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Filter-data-dan-memasukan-data-lain-tp5711838p5711844.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
biar lebih ngeeh gituuu memang panggilan saya sapi mr jadi ya gpp panggil
sapi saja hehehheheeh terima kasih atas pencerahan nya mr kid (hatur sembah
nuwun)
>>Jojo
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Mon Sep 17, 2012 8:38 am (PDT) . Posted by:
"aji mumpung"
>
> Seorang member millis ini menanyakan bagaimana caranya mekukan copy,
>> paste, dan transpose menggunakan VBA. Kelihatannya ini adalah hal yang
>> mudah tetapi tetap saja sulit bagi yang masih awam dengan VBA.
>>
>> Pada kesempatan ini saya akan coba menjelaskan langkah-langkah membuat
>> macro dengan cara melakukan perekaman macro, kenapa harus dengan merekam?
>> karena menurut saya cara ini adalah cara yang paling mudah manakala kita
>> berniat serius untuk mempelajari macro tetapi tidak ada dukungan yang
>> cukup, dukungan ini bisa berupa buku, situs dan sejenisnya, atau bahkan
>> ketiadaan seorang guru yang mengajari kita.
>>
>> Cukup sudah basa-basinya.. kita mulai saja langkah yang panjang ini..
>> Karena tulisan ini saya tujukan untuk para pemula, jadi ada kemungkinan
>> para master dan sesepuh akan merasa bosan membaca tulisan ini..
>>
>> Anggap saja ada penilaian tentang cara cara para master memberikan
>> penjelasan atas pertanyaan-pertanyaan dari member millis ini, dan anda
>> bertugas untuk memasukkan nilai tersebut ke dalam sheet "Input"
>>
>> [image: Gambar sisip 1]
>>
>> Setelah memasukkan data di sheet "Input" lalu anda diminta untuk
>> memindahkannya ke sheet "Hasil" seperti ini:
>>
>> [image: Gambar sisip 2]
>>
>> Tidak ada maksud buruk dari saya dengan memasukkan nick name Alm pak
>> Mabrur Masyhud dalam contoh ini, dan hal ini masih bisa diperdebatkan..
>> tetapi bukan itu inti dari pembelajaran ini..
>>
>> Setelah ratusan bahkan ribuan kali memasukkan data di Sheet Input
>> kemudian memindahkannya ke sheet Hasil, tentu anda akan berfikir..
>> "seandainya saja ada tombol ajaib yang akan melakukan semua hal tersebut'
>>
>> Baiklah.. kenapa tidak kita buat saja tombol ajaib tersebut dengan cara
>> melakukan perekaman macro..
>>
>> Pada Excel 2003 untuk merekam macro bisa melalui Tools >> Option >>
>> Record new macro, sedangkan pada versi 2007 ke atas anda dapat merekam
>> dengan meng-klik tombol Record Macro setelah terlebih dahulu mengaktifkan
>> ribbon Developer
>>
>> [image: Gambar sisip 1]
>>
>> setelah itu anda dapat melengkapi form seperti di bawah ini
>>
>> [image: Gambar sisip 2]
>>
>> Nomer 1 adalah nama macro yang anda buat
>> Nomer 2 adalah sortcut key atau tombol yang akan menjalankan program macro
>> Nomor 3 adalah lokasi macro disimpan
>> Anda juga dapat menuliskan keterangan tentang macro yang anda buat di
>> kotak Description
>>
>> Supaya seragam kita isi saja sebagai berikut
>> 1. nama macro = CopasSpesial (nama macro tidak boleh mengandung spasi)
>> 2. sortcut key = CTRL Shift A
>> 3. lokasi simpan = This Workbook
>> setelah itu tekan tombol OK
>>
>> pertama kita copy nama, untuk itu klik cell c4 di sheet Input, setelah
>> itu klik kanan dan pilih copy
>>
>> [image: Gambar sisip 3]
>>
>> Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di
>> sheet Hasil, klik Nama atau cell b4 seperti gambar berikut:
>>
>> [image: Gambar sisip 4]
>>
>> dari sini ada beberapa langkah yang kita lakukan, yaitu:
>> 1. Pergi ke cell paling bawah yang berisi data
>> 2. Setelah itu turun 1 baris ke cell yang kosong
>>
>> Alih-alih ingin melakukan hal yang benar, jika anda langsung pergi ke
>> cell b8 tanpa mengubah dari alamat absolut menjadi alamat relatif, maka
>> hasil perekaman macro tersebut akan selalu menuju ke cell b8. Untuk itulah
>> kita mesti mengubah dahulu alamat absolut menjadi alamat relatif.
>>
>> Pada versi 2007 ke atas anda dapat melakukannya dengan meng-klik tombol
>> Use Relative References
>>
>> [image: Gambar sisip 5]
>>
>> Sekarang anda dapat mem-paste nama yang sudah anda copy tadi dengan cara..
>> 1. Dari header Nama, pergi ke cell paling bawah yang berisi data dengan
>> cara menekan tombol CTRL + panah bawah
>> 2. Setelah itu takan tombol panah bawah 1 kali
>> 3. Paste di cell tersebut dengan menekan tombol CTRL + V
>>
>> Untuk pergi ke cell yang beisi data:
>> ke arah bawah ==> CTRL + panah bawah
>> ke arah kanan ==> CTRL + panah kanan
>>
>> Jika anda mengulang dengan sabar dan benar langkah-langkah di atas, maka
>> seharusnya hasilnya akan seperti gambar berikut:
>>
>> [image: Gambar sisip 6]
>>
>> Hasil copas dengan data yang benar tetapi dengan format yang salah.
>>
>> Setelah itu anda dapat memperbaiki format dengan cara melakukan copas
>> format dari data pertama sehingga hasil akhirnya seperti gambar di bawah
>> ini:
>>
>> [image: Gambar sisip 7]
>>
>> Setelah selesai maka anda dapat segera menekan tombol Stop Recording
>> untuk menghentikan proses perekaman macro.
>>
>> Anda dapat menemukan macro hasil perekaman tadi di dalam Modul1
>>
>> [image: Gambar sisip 8]
>>
>>
>> Seharusnya hasil rekam macro saya dengan anda tidak terlalu jauh berbeda,
>> berikut adalah hasil rekam macro saya
>>
>> Option Explicit
>>
>> Sub CopasSpesial()
>> '
>> ' CopasSpesial Macro
>> '
>> ' Keyboard Shortcut: Ctrl+Shift+A
>> '
>> Range("C4").Select ' memilih cell c4
>> Selection.Copy ' mengcopy cell
>> c4
>> Sheets("Hasil").Select ' pergi ke
>> sheetsHasil
>> Range("B4").Select ' memilih header
>> Nama
>> Selection.End(xlDown).Select ' pergi ke baris
>> paling bawah yang berisi data
>> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris
>> ke cell yang kosong
>> ActiveSheet.Paste ' mem-paste nama
>> dari sheet Input
>> Sheets("Input").Select ' kembali ke
>> sheet Input
>> Range("C6").Select ' memilih cell
>> c6 yang berisi nilai untuk formula
>> Application.CutCopyMode = False ' menghapus
>> clipboard yang berisi copy data dari cell c4
>> Selection.Copy ' meng-copy cell
>> c6
>> Sheets("Hasil").Select ' pergi ke sheet
>> Hasil
>> Range("B4").Select ' memilih header
>> nama
>> Selection.End(xlDown).Select ' pergi ke baris
>> paling bawah yang berisi data
>> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom
>> ke sebelah kanan
>> ActiveSheet.Paste ' mempaste nilai
>> formula dari cell input
>> Sheets("Input").Select ' pergi ke sheet
>> input
>> Range("C8").Select ' memilih cell c8
>> Application.CutCopyMode = False ' menghapus
>> clipboard
>> Selection.Copy ' mengcopy cell
>> c8
>> Sheets("Hasil").Select ' pergi ke sheet
>> Hasil
>> Range("B4").Select ' pergi ke
>> header nama
>> Selection.End(xlDown).Select ' pergi ke baris
>> paling bawah yang berisi data
>> Selection.End(xlToRight).Select ' pergi ke cell
>> paling kanan yang berisi data
>> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom
>> ke sebelah kanan
>> ActiveSheet.Paste ' mem-paste
>> nilai macro
>> Application.CutCopyMode = False ' menghapus
>> clipboard
>> Range("B4").Select ' memilih header
>> nama
>> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris
>> Range(Selection, Selection.End(xlToRight)).Select ' memblok cell
>> b5 sampai d5
>> Selection.Copy ' mengcopy cell
>> b5 sampai d5
>> Selection.End(xlDown).Select ' pergi ke baris
>> paling bawah yang berisi data
>> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
>> SkipBlanks:=False, Transpose:=False ' mempaste format
>> Application.CutCopyMode = False ' menghapus
>> clibboard
>> End Sub
>>
>> Mari kita ulang, apa saja yang sudah kita pelajari?
>>
>> 1. Cara meng-kopi dan mempaste suatu cell
>> 2. Bergerak di dalam workseet, yaitu:
>> a. ke data yang paling akhir di bawah *.end(xlDown)*
>> b. ke data paling akhir di sebelah kanan *.end(xlRight)*
>> untuk bergerak ke data akhir di sebelah atas dan kiri silakan gunakan
>> cara yang serupa
>> c. turun 1 baris ke bawah *.OffSet(1, 0)*
>> d. pindah 1 baris ke sebelah kanan *.OffSet (0, 1)*
>> untuk bergerak ke atas dan ke bawah silakan gunakan cara yang serupa
>> *.Offset(baris, kolom)*
>> baris jika bernilai positif berarti turun ke bawah, jika negatif
>> berarti bergerak ke atas
>> kolom jika bernilai positif berarti ke arah kanan, jika negatif
>> berarti ke arah kiri.
>>
>> Walaupun teknik rekam saya rasakan sangat membantu saya dalam mempelajari
>> macro, tetapi teknik ini juga memiliki kelemahan yaitu tidak dapat
>> melakukan perulangan..
>>
>> Saya rasa cukup sampai di sini cerita saya yang panjang lebar.. tentu
>> jika saya teruskan akan membuat bosan orang yang membacanya.. Contoh file
>> bisa dilihat di lampiran.
>>
>> Semoga bermanfaat.
>>
>> wassalam,
>>
>> -aji mumpung-
>>
> # jika dirasa bermanfaat, dipersilakan untuk menyebarkan tanpa persetujuan
dahulu dari saya
maaf mr kid, saya tidak lampirkan readme-nya, karena setelah saya kompres
dengan winrar ukurannya masih 267KB
> Seorang member millis ini menanyakan bagaimana caranya mekukan copy,
>> paste, dan transpose menggunakan VBA. Kelihatannya ini adalah hal yang
>> mudah tetapi tetap saja sulit bagi yang masih awam dengan VBA.
>>
>> Pada kesempatan ini saya akan coba menjelaskan langkah-langkah membuat
>> macro dengan cara melakukan perekaman macro, kenapa harus dengan merekam?
>> karena menurut saya cara ini adalah cara yang paling mudah manakala kita
>> berniat serius untuk mempelajari macro tetapi tidak ada dukungan yang
>> cukup, dukungan ini bisa berupa buku, situs dan sejenisnya, atau bahkan
>> ketiadaan seorang guru yang mengajari kita.
>>
>> Cukup sudah basa-basinya.
>> Karena tulisan ini saya tujukan untuk para pemula, jadi ada kemungkinan
>> para master dan sesepuh akan merasa bosan membaca tulisan ini..
>>
>> Anggap saja ada penilaian tentang cara cara para master memberikan
>> penjelasan atas pertanyaan-pertanya
>> bertugas untuk memasukkan nilai tersebut ke dalam sheet "Input"
>>
>> [image: Gambar sisip 1]
>>
>> Setelah memasukkan data di sheet "Input" lalu anda diminta untuk
>> memindahkannya ke sheet "Hasil" seperti ini:
>>
>> [image: Gambar sisip 2]
>>
>> Tidak ada maksud buruk dari saya dengan memasukkan nick name Alm pak
>> Mabrur Masyhud dalam contoh ini, dan hal ini masih bisa diperdebatkan.
>> tetapi bukan itu inti dari pembelajaran ini..
>>
>> Setelah ratusan bahkan ribuan kali memasukkan data di Sheet Input
>> kemudian memindahkannya ke sheet Hasil, tentu anda akan berfikir..
>> "seandainya saja ada tombol ajaib yang akan melakukan semua hal tersebut'
>>
>> Baiklah.. kenapa tidak kita buat saja tombol ajaib tersebut dengan cara
>> melakukan perekaman macro..
>>
>> Pada Excel 2003 untuk merekam macro bisa melalui Tools >> Option >>
>> Record new macro, sedangkan pada versi 2007 ke atas anda dapat merekam
>> dengan meng-klik tombol Record Macro setelah terlebih dahulu mengaktifkan
>> ribbon Developer
>>
>> [image: Gambar sisip 1]
>>
>> setelah itu anda dapat melengkapi form seperti di bawah ini
>>
>> [image: Gambar sisip 2]
>>
>> Nomer 1 adalah nama macro yang anda buat
>> Nomer 2 adalah sortcut key atau tombol yang akan menjalankan program macro
>> Nomor 3 adalah lokasi macro disimpan
>> Anda juga dapat menuliskan keterangan tentang macro yang anda buat di
>> kotak Description
>>
>> Supaya seragam kita isi saja sebagai berikut
>> 1. nama macro = CopasSpesial (nama macro tidak boleh mengandung spasi)
>> 2. sortcut key = CTRL Shift A
>> 3. lokasi simpan = This Workbook
>> setelah itu tekan tombol OK
>>
>> pertama kita copy nama, untuk itu klik cell c4 di sheet Input, setelah
>> itu klik kanan dan pilih copy
>>
>> [image: Gambar sisip 3]
>>
>> Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di
>> sheet Hasil, klik Nama atau cell b4 seperti gambar berikut:
>>
>> [image: Gambar sisip 4]
>>
>> dari sini ada beberapa langkah yang kita lakukan, yaitu:
>> 1. Pergi ke cell paling bawah yang berisi data
>> 2. Setelah itu turun 1 baris ke cell yang kosong
>>
>> Alih-alih ingin melakukan hal yang benar, jika anda langsung pergi ke
>> cell b8 tanpa mengubah dari alamat absolut menjadi alamat relatif, maka
>> hasil perekaman macro tersebut akan selalu menuju ke cell b8. Untuk itulah
>> kita mesti mengubah dahulu alamat absolut menjadi alamat relatif.
>>
>> Pada versi 2007 ke atas anda dapat melakukannya dengan meng-klik tombol
>> Use Relative References
>>
>> [image: Gambar sisip 5]
>>
>> Sekarang anda dapat mem-paste nama yang sudah anda copy tadi dengan cara..
>> 1. Dari header Nama, pergi ke cell paling bawah yang berisi data dengan
>> cara menekan tombol CTRL + panah bawah
>> 2. Setelah itu takan tombol panah bawah 1 kali
>> 3. Paste di cell tersebut dengan menekan tombol CTRL + V
>>
>> Untuk pergi ke cell yang beisi data:
>> ke arah bawah ==> CTRL + panah bawah
>> ke arah kanan ==> CTRL + panah kanan
>>
>> Jika anda mengulang dengan sabar dan benar langkah-langkah di atas, maka
>> seharusnya hasilnya akan seperti gambar berikut:
>>
>> [image: Gambar sisip 6]
>>
>> Hasil copas dengan data yang benar tetapi dengan format yang salah.
>>
>> Setelah itu anda dapat memperbaiki format dengan cara melakukan copas
>> format dari data pertama sehingga hasil akhirnya seperti gambar di bawah
>> ini:
>>
>> [image: Gambar sisip 7]
>>
>> Setelah selesai maka anda dapat segera menekan tombol Stop Recording
>> untuk menghentikan proses perekaman macro.
>>
>> Anda dapat menemukan macro hasil perekaman tadi di dalam Modul1
>>
>> [image: Gambar sisip 8]
>>
>>
>> Seharusnya hasil rekam macro saya dengan anda tidak terlalu jauh berbeda,
>> berikut adalah hasil rekam macro saya
>>
>> Option Explicit
>>
>> Sub CopasSpesial(
>> '
>> ' CopasSpesial Macro
>> '
>> ' Keyboard Shortcut: Ctrl+Shift+A
>> '
>> Range("C4").
>> Selection.Copy ' mengcopy cell
>> c4
>> Sheets("Hasil"
>> sheetsHasil
>> Range("B4").
>> Nama
>> Selection.End(
>> paling bawah yang berisi data
>> ActiveCell.Offset(
>> ke cell yang kosong
>> ActiveSheet.
>> dari sheet Input
>> Sheets("Input"
>> sheet Input
>> Range("C6").
>> c6 yang berisi nilai untuk formula
>> Application.
>> clipboard yang berisi copy data dari cell c4
>> Selection.Copy ' meng-copy cell
>> c6
>> Sheets("Hasil"
>> Hasil
>> Range("B4").
>> nama
>> Selection.End(
>> paling bawah yang berisi data
>> ActiveCell.Offset(
>> ke sebelah kanan
>> ActiveSheet.
>> formula dari cell input
>> Sheets("Input"
>> input
>> Range("C8").
>> Application.
>> clipboard
>> Selection.Copy ' mengcopy cell
>> c8
>> Sheets("Hasil"
>> Hasil
>> Range("B4").
>> header nama
>> Selection.End(
>> paling bawah yang berisi data
>> Selection.End(
>> paling kanan yang berisi data
>> ActiveCell.Offset(
>> ke sebelah kanan
>> ActiveSheet.
>> nilai macro
>> Application.
>> clipboard
>> Range("B4").
>> nama
>> ActiveCell.Offset(
>> Range(Selection, Selection.End(
>> b5 sampai d5
>> Selection.Copy ' mengcopy cell
>> b5 sampai d5
>> Selection.End(
>> paling bawah yang berisi data
>> Selection.PasteSpec
>> SkipBlanks:=
>> Application.
>> clibboard
>> End Sub
>>
>> Mari kita ulang, apa saja yang sudah kita pelajari?
>>
>> 1. Cara meng-kopi dan mempaste suatu cell
>> 2. Bergerak di dalam workseet, yaitu:
>> a. ke data yang paling akhir di bawah *.end(xlDown)
>> b. ke data paling akhir di sebelah kanan *.end(xlRight)
>> untuk bergerak ke data akhir di sebelah atas dan kiri silakan gunakan
>> cara yang serupa
>> c. turun 1 baris ke bawah *.OffSet(1, 0)*
>> d. pindah 1 baris ke sebelah kanan *.OffSet (0, 1)*
>> untuk bergerak ke atas dan ke bawah silakan gunakan cara yang serupa
>> *.Offset(baris, kolom)*
>> baris jika bernilai positif berarti turun ke bawah, jika negatif
>> berarti bergerak ke atas
>> kolom jika bernilai positif berarti ke arah kanan, jika negatif
>> berarti ke arah kiri.
>>
>> Walaupun teknik rekam saya rasakan sangat membantu saya dalam mempelajari
>> macro, tetapi teknik ini juga memiliki kelemahan yaitu tidak dapat
>> melakukan perulangan..
>>
>> Saya rasa cukup sampai di sini cerita saya yang panjang lebar.. tentu
>> jika saya teruskan akan membuat bosan orang yang membacanya.. Contoh file
>> bisa dilihat di lampiran.
>>
>> Semoga bermanfaat.
>>
>> wassalam,
>>
>> -aji mumpung-
>>
> # jika dirasa bermanfaat, dipersilakan untuk menyebarkan tanpa persetujuan
dahulu dari saya
maaf mr kid, saya tidak lampirkan readme-nya, karena setelah saya kompres
dengan winrar ukurannya masih 267KB
Mon Sep 17, 2012 8:49 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Kalau begitu, kirim japri saja file yang sudah ada readme nya.
Wassalam,
Kid.
2012/9/17 aji mumpung <pupung1986@gmail.com >
> Seorang member millis ini menanyakan bagaimana caranya mekukan copy,
>>> paste, dan transpose menggunakan VBA. Kelihatannya ini adalah hal yang
>>> mudah tetapi tetap saja sulit bagi yang masih awam dengan VBA.
>>>
>>> Pada kesempatan ini saya akan coba menjelaskan langkah-langkah membuat
>>> macro dengan cara melakukan perekaman macro, kenapa harus dengan merekam?
>>> karena menurut saya cara ini adalah cara yang paling mudah manakala kita
>>> berniat serius untuk mempelajari macro tetapi tidak ada dukungan yang
>>> cukup, dukungan ini bisa berupa buku, situs dan sejenisnya, atau bahkan
>>> ketiadaan seorang guru yang mengajari kita.
>>>
>>> Cukup sudah basa-basinya.. kita mulai saja langkah yang panjang ini..
>>> Karena tulisan ini saya tujukan untuk para pemula, jadi ada kemungkinan
>>> para master dan sesepuh akan merasa bosan membaca tulisan ini..
>>>
>>> Anggap saja ada penilaian tentang cara cara para master memberikan
>>> penjelasan atas pertanyaan-pertanyaan dari member millis ini, dan anda
>>> bertugas untuk memasukkan nilai tersebut ke dalam sheet "Input"
>>>
>>> [image: Gambar sisip 1]
>>>
>>> Setelah memasukkan data di sheet "Input" lalu anda diminta untuk
>>> memindahkannya ke sheet "Hasil" seperti ini:
>>>
>>> [image: Gambar sisip 2]
>>>
>>> Tidak ada maksud buruk dari saya dengan memasukkan nick name Alm pak
>>> Mabrur Masyhud dalam contoh ini, dan hal ini masih bisa diperdebatkan..
>>> tetapi bukan itu inti dari pembelajaran ini..
>>>
>>> Setelah ratusan bahkan ribuan kali memasukkan data di Sheet Input
>>> kemudian memindahkannya ke sheet Hasil, tentu anda akan berfikir..
>>> "seandainya saja ada tombol ajaib yang akan melakukan semua hal tersebut'
>>>
>>> Baiklah.. kenapa tidak kita buat saja tombol ajaib tersebut dengan cara
>>> melakukan perekaman macro..
>>>
>>> Pada Excel 2003 untuk merekam macro bisa melalui Tools >> Option >>
>>> Record new macro, sedangkan pada versi 2007 ke atas anda dapat merekam
>>> dengan meng-klik tombol Record Macro setelah terlebih dahulu mengaktifkan
>>> ribbon Developer
>>>
>>> [image: Gambar sisip 1]
>>>
>>> setelah itu anda dapat melengkapi form seperti di bawah ini
>>>
>>> [image: Gambar sisip 2]
>>>
>>> Nomer 1 adalah nama macro yang anda buat
>>> Nomer 2 adalah sortcut key atau tombol yang akan menjalankan program
>>> macro
>>> Nomor 3 adalah lokasi macro disimpan
>>> Anda juga dapat menuliskan keterangan tentang macro yang anda buat di
>>> kotak Description
>>>
>>> Supaya seragam kita isi saja sebagai berikut
>>> 1. nama macro = CopasSpesial (nama macro tidak boleh mengandung spasi)
>>> 2. sortcut key = CTRL Shift A
>>> 3. lokasi simpan = This Workbook
>>> setelah itu tekan tombol OK
>>>
>>> pertama kita copy nama, untuk itu klik cell c4 di sheet Input, setelah
>>> itu klik kanan dan pilih copy
>>>
>>> [image: Gambar sisip 3]
>>>
>>> Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di
>>> sheet Hasil, klik Nama atau cell b4 seperti gambar berikut:
>>>
>>> [image: Gambar sisip 4]
>>>
>>> dari sini ada beberapa langkah yang kita lakukan, yaitu:
>>> 1. Pergi ke cell paling bawah yang berisi data
>>> 2. Setelah itu turun 1 baris ke cell yang kosong
>>>
>>> Alih-alih ingin melakukan hal yang benar, jika anda langsung pergi ke
>>> cell b8 tanpa mengubah dari alamat absolut menjadi alamat relatif, maka
>>> hasil perekaman macro tersebut akan selalu menuju ke cell b8. Untuk itulah
>>> kita mesti mengubah dahulu alamat absolut menjadi alamat relatif.
>>>
>>> Pada versi 2007 ke atas anda dapat melakukannya dengan meng-klik tombol
>>> Use Relative References
>>>
>>> [image: Gambar sisip 5]
>>>
>>> Sekarang anda dapat mem-paste nama yang sudah anda copy tadi dengan
>>> cara..
>>> 1. Dari header Nama, pergi ke cell paling bawah yang berisi data dengan
>>> cara menekan tombol CTRL + panah bawah
>>> 2. Setelah itu takan tombol panah bawah 1 kali
>>> 3. Paste di cell tersebut dengan menekan tombol CTRL + V
>>>
>>> Untuk pergi ke cell yang beisi data:
>>> ke arah bawah ==> CTRL + panah bawah
>>> ke arah kanan ==> CTRL + panah kanan
>>>
>>> Jika anda mengulang dengan sabar dan benar langkah-langkah di atas, maka
>>> seharusnya hasilnya akan seperti gambar berikut:
>>>
>>> [image: Gambar sisip 6]
>>>
>>> Hasil copas dengan data yang benar tetapi dengan format yang salah.
>>>
>>> Setelah itu anda dapat memperbaiki format dengan cara melakukan copas
>>> format dari data pertama sehingga hasil akhirnya seperti gambar di bawah
>>> ini:
>>>
>>> [image: Gambar sisip 7]
>>>
>>> Setelah selesai maka anda dapat segera menekan tombol Stop Recording
>>> untuk menghentikan proses perekaman macro.
>>>
>>> Anda dapat menemukan macro hasil perekaman tadi di dalam Modul1
>>>
>>> [image: Gambar sisip 8]
>>>
>>>
>>> Seharusnya hasil rekam macro saya dengan anda tidak terlalu jauh
>>> berbeda, berikut adalah hasil rekam macro saya
>>>
>>> Option Explicit
>>>
>>> Sub CopasSpesial()
>>> '
>>> ' CopasSpesial Macro
>>> '
>>> ' Keyboard Shortcut: Ctrl+Shift+A
>>> '
>>> Range("C4").Select ' memilih cell
>>> c4
>>> Selection.Copy ' mengcopy cell
>>> c4
>>> Sheets("Hasil").Select ' pergi ke
>>> sheetsHasil
>>> Range("B4").Select ' memilih
>>> header Nama
>>> Selection.End(xlDown).Select ' pergi ke
>>> baris paling bawah yang berisi data
>>> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris
>>> ke cell yang kosong
>>> ActiveSheet.Paste ' mem-paste
>>> nama dari sheet Input
>>> Sheets("Input").Select ' kembali ke
>>> sheet Input
>>> Range("C6").Select ' memilih cell
>>> c6 yang berisi nilai untuk formula
>>> Application.CutCopyMode = False ' menghapus
>>> clipboard yang berisi copy data dari cell c4
>>> Selection.Copy ' meng-copy
>>> cell c6
>>> Sheets("Hasil").Select ' pergi ke
>>> sheet Hasil
>>> Range("B4").Select ' memilih
>>> header nama
>>> Selection.End(xlDown).Select ' pergi ke
>>> baris paling bawah yang berisi data
>>> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom
>>> ke sebelah kanan
>>> ActiveSheet.Paste ' mempaste
>>> nilai formula dari cell input
>>> Sheets("Input").Select ' pergi ke
>>> sheet input
>>> Range("C8").Select ' memilih cell
>>> c8
>>> Application.CutCopyMode = False ' menghapus
>>> clipboard
>>> Selection.Copy ' mengcopy cell
>>> c8
>>> Sheets("Hasil").Select ' pergi ke
>>> sheet Hasil
>>> Range("B4").Select ' pergi ke
>>> header nama
>>> Selection.End(xlDown).Select ' pergi ke
>>> baris paling bawah yang berisi data
>>> Selection.End(xlToRight).Select ' pergi ke cell
>>> paling kanan yang berisi data
>>> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom
>>> ke sebelah kanan
>>> ActiveSheet.Paste ' mem-paste
>>> nilai macro
>>> Application.CutCopyMode = False ' menghapus
>>> clipboard
>>> Range("B4").Select ' memilih
>>> header nama
>>> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris
>>> Range(Selection, Selection.End(xlToRight)).Select ' memblok cell
>>> b5 sampai d5
>>> Selection.Copy ' mengcopy cell
>>> b5 sampai d5
>>> Selection.End(xlDown).Select ' pergi ke
>>> baris paling bawah yang berisi data
>>> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
>>> SkipBlanks:=False, Transpose:=False ' mempaste
>>> format
>>> Application.CutCopyMode = False ' menghapus
>>> clibboard
>>> End Sub
>>>
>>> Mari kita ulang, apa saja yang sudah kita pelajari?
>>>
>>> 1. Cara meng-kopi dan mempaste suatu cell
>>> 2. Bergerak di dalam workseet, yaitu:
>>> a. ke data yang paling akhir di bawah *.end(xlDown)*
>>> b. ke data paling akhir di sebelah kanan *.end(xlRight)*
>>> untuk bergerak ke data akhir di sebelah atas dan kiri silakan
>>> gunakan cara yang serupa
>>> c. turun 1 baris ke bawah *.OffSet(1, 0)*
>>> d. pindah 1 baris ke sebelah kanan *.OffSet (0, 1)*
>>> untuk bergerak ke atas dan ke bawah silakan gunakan cara yang serupa
>>> *.Offset(baris, kolom)*
>>> baris jika bernilai positif berarti turun ke bawah, jika negatif
>>> berarti bergerak ke atas
>>> kolom jika bernilai positif berarti ke arah kanan, jika negatif
>>> berarti ke arah kiri.
>>>
>>> Walaupun teknik rekam saya rasakan sangat membantu saya dalam
>>> mempelajari macro, tetapi teknik ini juga memiliki kelemahan yaitu tidak
>>> dapat melakukan perulangan..
>>>
>>> Saya rasa cukup sampai di sini cerita saya yang panjang lebar.. tentu
>>> jika saya teruskan akan membuat bosan orang yang membacanya.. Contoh file
>>> bisa dilihat di lampiran.
>>>
>>> Semoga bermanfaat.
>>>
>>> wassalam,
>>>
>>> -aji mumpung-
>>>
>> # jika dirasa bermanfaat, dipersilakan untuk menyebarkan tanpa
> persetujuan dahulu dari saya
>
> maaf mr kid, saya tidak lampirkan readme-nya, karena setelah saya kompres
> dengan winrar ukurannya masih 267KB
>
Wassalam,
Kid.
2012/9/17 aji mumpung <pupung1986@gmail.
> Seorang member millis ini menanyakan bagaimana caranya mekukan copy,
>>> paste, dan transpose menggunakan VBA. Kelihatannya ini adalah hal yang
>>> mudah tetapi tetap saja sulit bagi yang masih awam dengan VBA.
>>>
>>> Pada kesempatan ini saya akan coba menjelaskan langkah-langkah membuat
>>> macro dengan cara melakukan perekaman macro, kenapa harus dengan merekam?
>>> karena menurut saya cara ini adalah cara yang paling mudah manakala kita
>>> berniat serius untuk mempelajari macro tetapi tidak ada dukungan yang
>>> cukup, dukungan ini bisa berupa buku, situs dan sejenisnya, atau bahkan
>>> ketiadaan seorang guru yang mengajari kita.
>>>
>>> Cukup sudah basa-basinya.
>>> Karena tulisan ini saya tujukan untuk para pemula, jadi ada kemungkinan
>>> para master dan sesepuh akan merasa bosan membaca tulisan ini..
>>>
>>> Anggap saja ada penilaian tentang cara cara para master memberikan
>>> penjelasan atas pertanyaan-pertanya
>>> bertugas untuk memasukkan nilai tersebut ke dalam sheet "Input"
>>>
>>> [image: Gambar sisip 1]
>>>
>>> Setelah memasukkan data di sheet "Input" lalu anda diminta untuk
>>> memindahkannya ke sheet "Hasil" seperti ini:
>>>
>>> [image: Gambar sisip 2]
>>>
>>> Tidak ada maksud buruk dari saya dengan memasukkan nick name Alm pak
>>> Mabrur Masyhud dalam contoh ini, dan hal ini masih bisa diperdebatkan.
>>> tetapi bukan itu inti dari pembelajaran ini..
>>>
>>> Setelah ratusan bahkan ribuan kali memasukkan data di Sheet Input
>>> kemudian memindahkannya ke sheet Hasil, tentu anda akan berfikir..
>>> "seandainya saja ada tombol ajaib yang akan melakukan semua hal tersebut'
>>>
>>> Baiklah.. kenapa tidak kita buat saja tombol ajaib tersebut dengan cara
>>> melakukan perekaman macro..
>>>
>>> Pada Excel 2003 untuk merekam macro bisa melalui Tools >> Option >>
>>> Record new macro, sedangkan pada versi 2007 ke atas anda dapat merekam
>>> dengan meng-klik tombol Record Macro setelah terlebih dahulu mengaktifkan
>>> ribbon Developer
>>>
>>> [image: Gambar sisip 1]
>>>
>>> setelah itu anda dapat melengkapi form seperti di bawah ini
>>>
>>> [image: Gambar sisip 2]
>>>
>>> Nomer 1 adalah nama macro yang anda buat
>>> Nomer 2 adalah sortcut key atau tombol yang akan menjalankan program
>>> macro
>>> Nomor 3 adalah lokasi macro disimpan
>>> Anda juga dapat menuliskan keterangan tentang macro yang anda buat di
>>> kotak Description
>>>
>>> Supaya seragam kita isi saja sebagai berikut
>>> 1. nama macro = CopasSpesial (nama macro tidak boleh mengandung spasi)
>>> 2. sortcut key = CTRL Shift A
>>> 3. lokasi simpan = This Workbook
>>> setelah itu tekan tombol OK
>>>
>>> pertama kita copy nama, untuk itu klik cell c4 di sheet Input, setelah
>>> itu klik kanan dan pilih copy
>>>
>>> [image: Gambar sisip 3]
>>>
>>> Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di
>>> sheet Hasil, klik Nama atau cell b4 seperti gambar berikut:
>>>
>>> [image: Gambar sisip 4]
>>>
>>> dari sini ada beberapa langkah yang kita lakukan, yaitu:
>>> 1. Pergi ke cell paling bawah yang berisi data
>>> 2. Setelah itu turun 1 baris ke cell yang kosong
>>>
>>> Alih-alih ingin melakukan hal yang benar, jika anda langsung pergi ke
>>> cell b8 tanpa mengubah dari alamat absolut menjadi alamat relatif, maka
>>> hasil perekaman macro tersebut akan selalu menuju ke cell b8. Untuk itulah
>>> kita mesti mengubah dahulu alamat absolut menjadi alamat relatif.
>>>
>>> Pada versi 2007 ke atas anda dapat melakukannya dengan meng-klik tombol
>>> Use Relative References
>>>
>>> [image: Gambar sisip 5]
>>>
>>> Sekarang anda dapat mem-paste nama yang sudah anda copy tadi dengan
>>> cara..
>>> 1. Dari header Nama, pergi ke cell paling bawah yang berisi data dengan
>>> cara menekan tombol CTRL + panah bawah
>>> 2. Setelah itu takan tombol panah bawah 1 kali
>>> 3. Paste di cell tersebut dengan menekan tombol CTRL + V
>>>
>>> Untuk pergi ke cell yang beisi data:
>>> ke arah bawah ==> CTRL + panah bawah
>>> ke arah kanan ==> CTRL + panah kanan
>>>
>>> Jika anda mengulang dengan sabar dan benar langkah-langkah di atas, maka
>>> seharusnya hasilnya akan seperti gambar berikut:
>>>
>>> [image: Gambar sisip 6]
>>>
>>> Hasil copas dengan data yang benar tetapi dengan format yang salah.
>>>
>>> Setelah itu anda dapat memperbaiki format dengan cara melakukan copas
>>> format dari data pertama sehingga hasil akhirnya seperti gambar di bawah
>>> ini:
>>>
>>> [image: Gambar sisip 7]
>>>
>>> Setelah selesai maka anda dapat segera menekan tombol Stop Recording
>>> untuk menghentikan proses perekaman macro.
>>>
>>> Anda dapat menemukan macro hasil perekaman tadi di dalam Modul1
>>>
>>> [image: Gambar sisip 8]
>>>
>>>
>>> Seharusnya hasil rekam macro saya dengan anda tidak terlalu jauh
>>> berbeda, berikut adalah hasil rekam macro saya
>>>
>>> Option Explicit
>>>
>>> Sub CopasSpesial(
>>> '
>>> ' CopasSpesial Macro
>>> '
>>> ' Keyboard Shortcut: Ctrl+Shift+A
>>> '
>>> Range("C4").
>>> c4
>>> Selection.Copy ' mengcopy cell
>>> c4
>>> Sheets("Hasil"
>>> sheetsHasil
>>> Range("B4").
>>> header Nama
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> ActiveCell.Offset(
>>> ke cell yang kosong
>>> ActiveSheet.
>>> nama dari sheet Input
>>> Sheets("Input"
>>> sheet Input
>>> Range("C6").
>>> c6 yang berisi nilai untuk formula
>>> Application.
>>> clipboard yang berisi copy data dari cell c4
>>> Selection.Copy ' meng-copy
>>> cell c6
>>> Sheets("Hasil"
>>> sheet Hasil
>>> Range("B4").
>>> header nama
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> ActiveCell.Offset(
>>> ke sebelah kanan
>>> ActiveSheet.
>>> nilai formula dari cell input
>>> Sheets("Input"
>>> sheet input
>>> Range("C8").
>>> c8
>>> Application.
>>> clipboard
>>> Selection.Copy ' mengcopy cell
>>> c8
>>> Sheets("Hasil"
>>> sheet Hasil
>>> Range("B4").
>>> header nama
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> Selection.End(
>>> paling kanan yang berisi data
>>> ActiveCell.Offset(
>>> ke sebelah kanan
>>> ActiveSheet.
>>> nilai macro
>>> Application.
>>> clipboard
>>> Range("B4").
>>> header nama
>>> ActiveCell.Offset(
>>> Range(Selection, Selection.End(
>>> b5 sampai d5
>>> Selection.Copy ' mengcopy cell
>>> b5 sampai d5
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> Selection.PasteSpec
>>> SkipBlanks:=
>>> format
>>> Application.
>>> clibboard
>>> End Sub
>>>
>>> Mari kita ulang, apa saja yang sudah kita pelajari?
>>>
>>> 1. Cara meng-kopi dan mempaste suatu cell
>>> 2. Bergerak di dalam workseet, yaitu:
>>> a. ke data yang paling akhir di bawah *.end(xlDown)
>>> b. ke data paling akhir di sebelah kanan *.end(xlRight)
>>> untuk bergerak ke data akhir di sebelah atas dan kiri silakan
>>> gunakan cara yang serupa
>>> c. turun 1 baris ke bawah *.OffSet(1, 0)*
>>> d. pindah 1 baris ke sebelah kanan *.OffSet (0, 1)*
>>> untuk bergerak ke atas dan ke bawah silakan gunakan cara yang serupa
>>> *.Offset(baris, kolom)*
>>> baris jika bernilai positif berarti turun ke bawah, jika negatif
>>> berarti bergerak ke atas
>>> kolom jika bernilai positif berarti ke arah kanan, jika negatif
>>> berarti ke arah kiri.
>>>
>>> Walaupun teknik rekam saya rasakan sangat membantu saya dalam
>>> mempelajari macro, tetapi teknik ini juga memiliki kelemahan yaitu tidak
>>> dapat melakukan perulangan..
>>>
>>> Saya rasa cukup sampai di sini cerita saya yang panjang lebar.. tentu
>>> jika saya teruskan akan membuat bosan orang yang membacanya.. Contoh file
>>> bisa dilihat di lampiran.
>>>
>>> Semoga bermanfaat.
>>>
>>> wassalam,
>>>
>>> -aji mumpung-
>>>
>> # jika dirasa bermanfaat, dipersilakan untuk menyebarkan tanpa
> persetujuan dahulu dari saya
>
> maaf mr kid, saya tidak lampirkan readme-nya, karena setelah saya kompres
> dengan winrar ukurannya masih 267KB
>
Mon Sep 17, 2012 8:44 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Hai Rahmat,
File terlampir tanpa VBA.
Isinya juga relatif sama seperti penanggap yang sudah masuk.
Cuma siapa tahu, jumlah anggota masing-masing kelompok ternyata tidak sama.
Wassalam,
Kid.
2012/9/17 RAHMAT NUGROHO <arifstikes@yahoo.com >
> **
>
>
> salam hangat.....
> dear all admin, maaf mau tanya.....masih pemula
> klau mau membuat daftar panggilan peserta untuk maju ke depan dengan
> sumber data 2 kelompok....gimana ya biar yang dipanggil nanti hasilnya
> siksak antar 2 kelompok tadi ( pangilan pertama no.urut 1 kelompok A trus
> panggilan ke-2 urutan pertama kelompok B )
>
> trima kasih atas petunjuknya.....
>
>
>
>
File terlampir tanpa VBA.
Isinya juga relatif sama seperti penanggap yang sudah masuk.
Cuma siapa tahu, jumlah anggota masing-masing kelompok ternyata tidak sama.
Wassalam,
Kid.
2012/9/17 RAHMAT NUGROHO <arifstikes@yahoo.
> **
>
>
> salam hangat.....
> dear all admin, maaf mau tanya.....masih pemula
> klau mau membuat daftar panggilan peserta untuk maju ke depan dengan
> sumber data 2 kelompok....
> siksak antar 2 kelompok tadi ( pangilan pertama no.urut 1 kelompok A trus
> panggilan ke-2 urutan pertama kelompok B )
>
> trima kasih atas petunjuknya.
>
>
>
>
Mon Sep 17, 2012 8:50 am (PDT) . Posted by:
"Longinus Along" longinus.along
Dear All Master,
Selamat malam master, untuk file edit dan update data outlet (file terlampir) terdapat debug, pada saat data terakhir dihapus / database nya kosong, userform tak bisa di run.
"Run time Error "1004":
Application difined or object difined error.
Mohon dapat dibantu penyebabnya, Terimaakasih
Salam.
Along
Selamat malam master, untuk file edit dan update data outlet (file terlampir) terdapat debug, pada saat data terakhir dihapus / database nya kosong, userform tak bisa di run.
"Run time Error "1004":
Application difined or object difined error.
Mohon dapat dibantu penyebabnya, Terimaakasih
Salam.
Along
Mon Sep 17, 2012 8:56 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Pak Along,
Coba prosedur fungsi bernama MyDataSource diganti menjadi :
Private Function MyDataSource() As String
Dim rng As Range
'ganti sheet6 dengan nama object sheet yang sesuai
'atau ganti dengan salah satu dari beberapa cara berikut :
'sheets("nama_sheet")
'sheets(nomor_indeks_sheet_di_tab_sheet)
Set rng = Sheet6.Range("a1").CurrentRegion
If rng.Rows.Count > 1 Then
rng.Offset(1, 1).Resize(rng.Rows.Count - 1, rng.Columns.Count -
1).Name = "_arrRecSource_"
MyDataSource = "_arrRecSource_"
Else
MyDataSource = vbNullString
End If
End Function
Yang di-merah adalah tambahan untuk trap error nya.
Wassalam,
Kid.
2012/9/17 Longinus Along <longinus.along@yahoo.com >
> **
>
>
> Dear All Master,
>
> Selamat malam master, untuk file edit dan update data outlet (file
> terlampir) terdapat debug, pada saat data terakhir dihapus / database nya
> kosong, userform tak bisa di run.
>
> "Run time Error "1004":
> Application difined or object difined error.
>
> Mohon dapat dibantu penyebabnya, Terimaakasih
>
> Salam.
> Along
>
>
>
>
Coba prosedur fungsi bernama MyDataSource diganti menjadi :
Private Function MyDataSource(
Dim rng As Range
'ganti sheet6 dengan nama object sheet yang sesuai
'atau ganti dengan salah satu dari beberapa cara berikut :
'sheets("nama_
'sheets(nomor_
Set rng = Sheet6.Range(
If rng.Rows.Count > 1 Then
rng.Offset(1, 1).Resize(rng.
1).Name = "_arrRecSource_
MyDataSource = "_arrRecSource_
Else
MyDataSource = vbNullString
End If
End Function
Yang di-merah adalah tambahan untuk trap error nya.
Wassalam,
Kid.
2012/9/17 Longinus Along <longinus.along@
> **
>
>
> Dear All Master,
>
> Selamat malam master, untuk file edit dan update data outlet (file
> terlampir) terdapat debug, pada saat data terakhir dihapus / database nya
> kosong, userform tak bisa di run.
>
> "Run time Error "1004":
> Application difined or object difined error.
>
> Mohon dapat dibantu penyebabnya, Terimaakasih
>
> Salam.
> Along
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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