Messages In This Digest (9 Messages)
- 1.
- Butuh tombol utk mencopy bbrp baris sekaligus ke sheet Rekap From: Ahmad Zawawi
- 2a.
- Re: Akses database MS. Access dari Excel From: Heru Safrudin
- 2b.
- Re: Akses database MS. Access dari Excel From: Kid Mr.
- 3a.
- [Ask] Cara Memfilter data menggunakan macro From: mdeszan
- 3b.
- Re: [Ask] Cara Memfilter data menggunakan macro From: Kid Mr.
- 4a.
- Repost Input Data Eror From: achmad adi
- 4b.
- Re: Repost Input Data Eror From: Kid Mr.
- 5.
- (Pagebreak Preview) Terganggu oleh nomor halaman yang selalu terliha From: sin.ur4t@yahoo.com
- 6.
- Print Berulang pada userform From: Aliif Akbar
Messages
- 1.
-
Butuh tombol utk mencopy bbrp baris sekaligus ke sheet Rekap
Posted by: "Ahmad Zawawi" abu_abadillah@yahoo.co.uk abu_abadillah
Thu Jun 7, 2012 2:09 am (PDT)
Dalam file yg saya lampirkan terdapat sheet: "Form Purchase", "Rekap" & "Dbase"
Di sheet "Form Purchase" yg merupakan sheet utk menginput data, terdiri dari bbrp baris data item yg akan dibeli yg diinput satu persatu oleh sebuah Combobox.
Setelah bbrapa baris item terisi, baris2 tsb ingin saya salin menggunakan sebuah button yang akan mengkopi semua baris yg ada isinya ke sheet "Rekap".
Saya baru menemukan tombol yg cuma bisa mencopy satu baris data item. Baris selanjutnya dg tombol terpisah. Sehingga ada tombol di setiap barisnya.
Script tombol tsb sperti ini:======script begin====
Sub CBExport1_Click()
Dim baris As Integer
Dim noNota As Integer
With Worksheets(2)
baris = 3
noNota = Val(Mid(Worksheets(1).Cells( 8, 3), 6))
While .Cells(baris, 2) <> ""
If .Cells(baris, 2) = noNota Then
MsgBox "Simpan Error, No Urut Sudah Ada", vbCritical, "^_^ DBase"
Exit Sub
End If
baris = baris + 1
Wend
.Cells(baris, 2) = GetNoUrut
.Cells(baris, 3) = Date
.Cells(baris, 4) = Worksheets(1).Cells(8, 2) '(baris,4) artinya kolom 4 di Dbase
.Cells(baris, 5) = Worksheets(1).Cells(8, 1) 'Cells (8, 1) artinya: cell A8
.Cells(baris, 6) = Worksheets(1).Cells(8, 8)
.Cells(baris, 7) = Worksheets(1).Cells(8, 9)
.Cells(baris, 8) = Worksheets(1).Cells(8, 10)
.Cells(baris, 9) = Worksheets(1).Cells(8, 11)
.Cells(baris, 10) = Worksheets(1).Cells(8, 12)
.Cells(baris, 11) = Worksheets(1).Cells(20, 12)
.Cells(baris, 13) = Worksheets(1).Cells(22, 12)
.Cells(baris, 17) = Worksheets(1).Cells(8, 13)
.Cells(baris, 18) = Worksheets(1).Cells(8, 14)
.Cells(baris, 19) = Worksheets(1).Cells(3, 3)
End With
'kasih border
kasihBorder baris
MsgBox "Data berhasil disimpan ke Database", vbInformation, "^_^ Database"
End Sub
=====script end=====
Pertanyaan saya, bagaimana kode utk sebuah tombol yg bisa mewakili seluruh tombol di setiap baris?
Atas bantuan para master saya ucapkan terimakasih. Mohon maaf jika bahasanya kacau.
Zawawi @ Cilegon
- 2a.
-
Re: Akses database MS. Access dari Excel
Posted by: "Heru Safrudin" superheruu@gmail.com superheruu
Thu Jun 7, 2012 2:54 am (PDT)
Derar Mr,
Tolong diberi contoh aja untuk prosedur UPDATE THIS RECORD
Public Sub UpdateThisRecord()
If rs Is Nothing Then
MsgBox "No Connection"
Exit Sub
End If
'validasi input sangatlah penting
SetFieldsValue
End Sub
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups. com
Sent: Tuesday, June 05, 2012 10:24 PM
Subject: Re: [belajar-excel] Akses database MS. Access dari Excel
Coba file terlampir.
Pastikan file db1.mdb Anda di folder yang sama dengan file terlampir.
Pastikan library Microsoft ActiveX Data Object ter-install di komputer Anda.
Wassalam,
Kid.
2012/6/5 Heru Safrudin <superheruu@gmail.com >
Mr. Kid,
saya ada contoh UI dari Excel terlampir dan database Access terlampir
Bisakah diberikan contohnya supaya form yang ada di sheet "UI" bisa terhubung dng database
Karena saya udah coba2 tetep gak bisa
Terima kasih atas penjelasannya
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups. com
Sent: Saturday, June 02, 2012 1:31 PM
Subject: Re: [belajar-excel] Akses database MS. Access dari Excel
Cara pemanfaatan ADO, bisa dilihat disini.
Untuk Connection String, bisa dilihat disini.
Wassalam,
Kid.
2012/6/2 Heru Safrudin <superheruu@gmail.com >
Wah berarti masih ada harapan nih,
Sebernarnya saya udah coba pake activex control, tapi masih belum bisa ngisi propertynya
Adakah yg bisa memberi pencerahan secara teknis.???
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups. com
Sent: Saturday, June 02, 2012 4:47 AM
Subject: Re: [belajar-excel] Akses database MS. Access dari Excel
Pak Heru,
Jika Form akan mengambil data dari worksheet, buat data connection di worksheet (di excel 2003 melalui Import Data) ke MS Access.
Jika Form akan mengambil data langsung menggunakan script, maka manfaatkan ADO untuk berkomunikasi dengan MS Access.
Wassalam,
Kid.
2012/6/1 Heru Safrudin <superheruu@gmail.com >
Dear Pakar,
Misalkan saya bikin UI atau Form di excel dan mau membaca/mengakses database dari Ms. Access, Bisa nggak ya ?
Contoh terlampir
Terima kasih
- 2b.
-
Re: Akses database MS. Access dari Excel
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Thu Jun 7, 2012 2:59 am (PDT)
Public Sub UpdateThisRecord() 'nama prosedur dengan jenis Sub
If rs Is Nothing Then 'cek apakah rs terdefinisi dan
berisi object
MsgBox "No Connection" 'pesan ketika rs tak berisi
object
Exit Sub 'keluar dari prosedur
End If 'akhir blok conditional
'validasi input sangatlah penting 'keterangan sebaiknya diadakan
proses validasi data
SetFieldsValue 'jalankan prosedur dengan nama
SetFieldsValue
End Sub 'akhir blok prosedur
Beginikah maksud contohnya ? (pasti bukan)
File tersebut adalah contoh cara membaca dan menulis data ke database
melalui VB/VBA menggunakan object ADO.
Wassalam,
Kid.
2012/6/7 Heru Safrudin <superheruu@gmail.com >
> **
>
>
> **
> Derar Mr,
> Tolong diberi contoh aja untuk prosedur UPDATE THIS RECORD
>
> Public Sub UpdateThisRecord()
> If rs Is Nothing Then
> MsgBox "No Connection"
> Exit Sub
> End If
> 'validasi input sangatlah penting
> SetFieldsValue
> End Sub
>
> ----- Original Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups. com
> *Sent:* Tuesday, June 05, 2012 10:24 PM
> *Subject:* Re: [belajar-excel] Akses database MS. Access dari Excel
>
>
>
> Coba file terlampir.
> Pastikan file db1.mdb Anda di folder yang sama dengan file terlampir.
> Pastikan library Microsoft ActiveX Data Object ter-install di komputer
> Anda.
>
> Wassalam,
> Kid.
>
>
> 2012/6/5 Heru Safrudin <superheruu@gmail.com >
>
>> **
>>
>>
>> **
>> Mr. Kid,
>>
>> saya ada contoh UI dari Excel terlampir dan database Access terlampir
>> Bisakah diberikan contohnya supaya form yang ada di sheet "UI" bisa
>> terhubung dng database
>> Karena saya udah coba2 tetep gak bisa
>>
>> Terima kasih atas penjelasannya
>>
>>
>>
>>
>>
>> ----- Original Message -----
>> *From:* Kid Mr. <mr.nmkid@gmail.com >
>> *To:* belajar-excel@yahoogroups. com
>> *Sent:* Saturday, June 02, 2012 1:31 PM
>> *Subject:* Re: [belajar-excel] Akses database MS. Access dari Excel
>>
>>
>>
>> Cara pemanfaatan ADO, bisa dilihat disini<http://www.ozgrid.com/forum/ >showthread. php?t=19625
>> .
>> Untuk Connection String, bisa dilihat disini<http://www.connectionstrings. >.com/
>>
>>
>> Wassalam,
>> Kid.
>>
>> 2012/6/2 Heru Safrudin <superheruu@gmail.com >
>>
>>> **
>>>
>>>
>>> Wah berarti masih ada harapan nih,
>>> Sebernarnya saya udah coba pake activex control, tapi masih belum bisa
>>> ngisi propertynya
>>> Adakah yg bisa memberi pencerahan secara teknis.???
>>>
>>>
>>> ----- Original Message -----
>>> From: Kid Mr.
>>> To: belajar-excel@yahoogroups. com
>>> Sent: Saturday, June 02, 2012 4:47 AM
>>> Subject: Re: [belajar-excel] Akses database MS. Access dari Excel
>>>
>>> Pak Heru,
>>>
>>> Jika Form akan mengambil data dari worksheet, buat data connection di
>>> worksheet (di excel 2003 melalui Import Data) ke MS Access.
>>> Jika Form akan mengambil data langsung menggunakan script, maka
>>> manfaatkan ADO untuk berkomunikasi dengan MS Access.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2012/6/1 Heru Safrudin <superheruu@gmail.com >
>>> Dear Pakar,
>>> Misalkan saya bikin UI atau Form di excel dan mau membaca/mengakses
>>> database dari Ms. Access, Bisa nggak ya ?
>>>
>>> Contoh terlampir
>>>
>>> Terima kasih
>>>
>>>
>>>
>>
>
>
- 3a.
-
[Ask] Cara Memfilter data menggunakan macro
Posted by: "mdeszan" mdeszan@yahoo.com mdeszan
Thu Jun 7, 2012 8:21 pm (PDT)
Om..Mbak sekalian..
saya ada sedikit permasalahan nie..
gimana ya cara'a memfilter data menggunakan macro..
contoh kasus.
A B
0111 0111
0222 0222
0333 0333
0111 0555
0555
jadi di kolom A itu ada data yang sama.. dan saya ingin menampilkan di kolom B data yang ada di kolom A itu.. tapi dengan catatan data yang sama dihitung 1 jadi ntar hasil'a seperti yang ada di kolom B. Gmana ya buat macro'a..
Trima kasih yang mau membantu ^_^
- 3b.
-
Re: [Ask] Cara Memfilter data menggunakan macro
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Thu Jun 7, 2012 9:29 pm (PDT)
Coba record macro saja ya. (Asumsi dengan Excel 2007)
1. ribbon Developer, klik record macro, tulis nama prosedur macro yang
dibuat tanpa tanda baca, misal AmbilUnik, lalu OK
2. klik kolom A (seluruh kolom)
3. tekan CTRL C (copy ke clip borad)
4. klik kolom B (seluruh kolom) lalu tekan CTRL V (paste)
5. ke menu DATA klik Remove Duplicates, akan muncul dialog
6. pilih Continue bla-bla (jangan pilih expand kecuali jika nomor 4 yang
diklik mulai kolom C)
7. tekan OK sampai selesai (hilang dialog box)
8. ke ribbon Developer lagi, tekan Stop Recording
9. coba tambah data di kolom A
10. ke ribbon developer, klik Macro, pilih nama macro AmbilUnik tadi, lalu
OK
11. save as file excel pilih yang ekstensinya .xlsm atau .xlsb (jangan
.xlsx)
Wassalam,
Kid.
2012/6/8 mdeszan <mdeszan@yahoo.com >
> **
>
>
> Om..Mbak sekalian..
> saya ada sedikit permasalahan nie..
>
> gimana ya cara'a memfilter data menggunakan macro..
>
> contoh kasus.
>
> A B
>
> 0111 0111
> 0222 0222
> 0333 0333
> 0111 0555
> 0555
>
> jadi di kolom A itu ada data yang sama.. dan saya ingin menampilkan di
> kolom B data yang ada di kolom A itu.. tapi dengan catatan data yang sama
> dihitung 1 jadi ntar hasil'a seperti yang ada di kolom B. Gmana ya buat
> macro'a..
>
> Trima kasih yang mau membantu ^_^
>
>
>
>
- 4a.
-
Repost Input Data Eror
Posted by: "achmad adi" didon13@ymail.com didon13@ymail.com
Thu Jun 7, 2012 8:22 pm (PDT)
salam hangat para master Excel,,,
untuk kesekian kalinya,,,m menanyakan lagi kesulitan yang saya hadapi,,
menindak lanjuti Post dari siti Vi ( terlampir )
kenapa waktu saya mo nyoba untuk repost dimana DATA INDUK saya hapus semua,,
pada waktu penginputan data dan disimpan ,,,data tidak mau tersimpan ke formulir 2
begitu juga seterusnya,,mohon pencerahaannya, ,,
thanks all - 4b.
-
Re: Repost Input Data Eror
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Thu Jun 7, 2012 9:41 pm (PDT)
Sambil menunggu mbake online,
di VBE pada prosedur event milik si scoll bar, ada baris yang bunyinya :
form2.pastespecial bla-bla gitu
ganti form2 dengan range("n7")
Pastikan untuk input data baru di formulir 1 dan edit data di formulir 2
Usai save input baru, gerakkan scroll bar untuk pilih data yang mau di
lihat atau edit.
Wassalam,
Kid.
2012/6/8 achmad adi <didon13@ymail.com >
> **
>
>
> salam hangat para master Excel,,,
> untuk kesekian kalinya,,,m menanyakan lagi kesulitan yang saya hadapi,,
> menindak lanjuti Post dari siti Vi ( terlampir )
> kenapa waktu saya mo nyoba untuk repost dimana DATA INDUK saya hapus
> semua,,
> pada waktu penginputan data dan disimpan ,,,data tidak mau tersimpan ke
> formulir 2
> begitu juga seterusnya,,mohon pencerahaannya, ,,
> thanks all
>
>
>
- 5.
-
(Pagebreak Preview) Terganggu oleh nomor halaman yang selalu terliha
Posted by: "sin.ur4t@yahoo.com" sin.ur4t@yahoo.com sin.ur4t
Thu Jun 7, 2012 8:22 pm (PDT)
Salam be-excel..
Pada pilihan tampilan 'pagebreak preview' nomor halaman selalu terlihat.. Page 1, Page 2, Page 3, dst... Terkadang terasa mengganggu.. Bgmn cara supaya itu tidak terlihat??
Trims sblmnya
Sinurat-sumut
Powered by Telkomsel BlackBerry®
- 6.
-
Print Berulang pada userform
Posted by: "Aliif Akbar" aliif.akbar@yahoo.co.id aliif.akbar
Thu Jun 7, 2012 9:39 pm (PDT)
Selamat siang,
Dear rekan2 suhu,
Saya mau tanya, bagaimana cara untuk print berulang pada userform dengan referensi yang di print itu dari listbox multi select,
Terlampir file yang saya maksud.
Ketika baris pada listbox di pilih, kemudian di klik button print makan akan muncul userform baru dan userform itu akan di cetak kemudian userform tsb akan hide kembali, tapi ketika pada listbox itu dipilih lebih dari satu, maka akan mencetak pada baris yang paling terakhir saja, pertanyaan saya, bagaimana jika pada listbox dipilih banyak maka akan muncul userform kemudian cetak, muncul lagi userform kemudian cetak, dst sesuai dengan baris yg di pilih,
Mohon pencerahannya,
Regards,
Asror
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar