Dear Winda,
Kalau mau lebih semangat lagi, coba mampir ke TB Gramedia, disana ada buku khusus mengenai VBA yang saya tulis dibantu Mbak Siti, judulnya "Tingkatkan Kinerja Excel 2007 - 2010 Anda dengan VBA Excel" (ada CD bonusnya). Di sana ada teori cara merekam dan menulis macro serta contoh2 aplikasinya yang kebanyakan diambil dari milis ini. Salam, Hendrik Karnadi ________________________________ From: Winda Miranti <[email protected]> To: "[email protected]" <[email protected]> Sent: Saturday, 17 March 2012, 13:52 Subject: Bls: [belajar-excel] Makro, mengcopi tanpa mengacu pada cell Trimkasi banyak atas ilmu nya mas Ki Semprul,problem solved.. Saya baru belajar makro ni,jadi semakin semangat :D Regards, Winda ________________________________ Dari: Ki Semprul <[email protected]> Kepada: [email protected] Dikirim: Sabtu, 17 Maret 2012 13:11 Judul: Re: [belajar-excel] Makro, mengcopi tanpa mengacu pada cell Sambil menunggu pak Hendrik K... Kita ini kalau sudah terlanjur pakai makro; hampir semua hal bisa di cari (dengan makro itu) ! Misalnya sebuah kolom di suatu tabel dikenakan filter, kemudian filter ditentukan kriterianya (dengan memilih salah satu CALON Kriteria ya ada) Kita dapat menebak KRITERIA yg sedang diberlakukan di kolom itu !! tidak perlu mencari baris pertama yang muncul, karena nomor rows nya kan tidak tertentu (walau pun tetap bisa dicari juga (dengan makro) ) Bahasa Makrao (VBA) itu hanya teknis, tidak sulit, Yang sulit atau perlu pemikiran hanyalahlogika dan algoritmanya (akal-akalannya) untuk menuju hasil !!! Setelah Kriteria di kolom kolom A pada tabel di sheet "InputData" kita ketahui maka "APA yg kita ketahui itu tinggal mengCOPY kan ke cell D2 pada sheet Form Jika diperlukan Daftar Records & datanya yg terfilter pun bisa dimakrokan pula serta di copykan ke (Sheet "Form) baris 17 dst... Makro untuk mencari Filter pertama (Filter diberi index sesuai Kedudukan kolomnya) Sub Create_FRP() Dim KriteFilter As String, Krite As String ' menebak text Kriteria Filter yg sedang berlaku di kolom1 Krite = Sheets("Input Data").AutoFilter.Filters(1).Criteria1 KriteFilter = Replace(Krite, "=", "") ' mengisikan HASL TEBAKAN ke cell D2 di sheet Form Sheets("Form").Range("D2") = KriteFilter ' mengaktifkan sheet FORM Sheets("Form").Activate End Sub Lebih lengkapnya, lihat di module VBE pada File lampiran Semprul..Ki! 2012/3/17 Winda Miranti <[email protected]> >Dear Mas Hendrik.. > Mas Hendrik butuh pencerahanya lagi melanjutkan pertanyaan dari email >"Otomatis mencari dan mengisi data" >Saya ingin bertanya tentang makro mas :) > >Saya mempunyai problem pada saat akan mengkopi no Purchase Document pada sheet >Input Data ke sheet Form.. >Setelah no Purchase Doc nya di double klik (mengacu pada jurus mas Hendrik >diposting sebelumnya), dan button creat FRP nya di klik, >maka saya ingin secara otomatis no purchase doc yang berada dipaling atas >tercopi ke sheet form di klom D2.. >Karena no barisnya dinamis,jadi saya bingung bgmn membuat VB nya.. > >Mohon pencerahanya sekali lagi mas.. >Trimakasi sekali saya ucapkan atas bantuan mas Hendrik.. > >Regards, >Winda > >================================================ >Mods Note: >Lampiran kena CeKal sebab terlalu besar (1971K > 250K) >tidak sesuai dgn kesepakatan.. >Mohon baca lagi kitab Peraturan Milis >Lampiran yg sudah di-atur-atur agar mengecil max250KB >diharapkan dapat segera disusulkan >================================================ > >
