Salam Om Aji.... Terima kasih atas perhatian dan solusinya.... sangat membuka pengetahuan saya tentang macro... ada yang masih mengganjal di benak saya... mengingat pada kenyataannya data yang akan dicetak diatas 200, bisakah dropdown saya ganti dengan spin buton ? sehingga saya tinggal mengklik spin buton dan data di cell reference berubah. perubahan di cell reference mengakibatkan data di Area Pencetakan berubah sesuai data di tabel Data Penjualan Salam Yoni
--- In [email protected], aji mumpung <pupung1986@...> wrote: > > Hai Yoni, > > Excel tidak bisa mengambil properti dari suatu data di satu/lebih cell > dengan menggunakan formula. > Hal ini hanya mungkin dilakukan dengan menggunakan VBA. > > Coba cara berikut: > > 1. Dari lembar kerja, pindah ke VBE (Visual Basic Editor) dengan cara > sebagai berikut: > a. tekan tombol Alt F11, atau > b. klik kanan nama sheet, lalu pilih View Code sehingga muncul tampilan > seperti ini: > > 2. Pada VBA Project, double klik nama sheetnya, dalam hal ini adalah > sheet1, sehingga kursor berpindah ke lembar putih sebelah kanan > > 3. Ubah dropdown General menjadi Workheets > > 4. ubah dropdown yang disebelah kanan menjadi Change > > 5. Copas script berikut di antara kedua baris yang terbentuk: > > Dim rgFind As Range, rgLookUp As Range > Dim lRow As Long, lData As Long > > With Target > If .Cells.Count = 1 Then > If .Address = Range("d8").Address Then > lRow = Cells(Rows.Count, 12).End(xlUp).Row > Set rgLookUp = Range(Cells(3, 12), Cells(lRow, 12)) > Set rgFind = rgLookUp.Find(.Value, lookat:=xlWhole) > lData = rgFind.Row > Application.EnableEvents = False > Cells(lData, 14).Copy > Range("c3").PasteSpecial (xlPasteAllExceptBorders) > Cells(lData, 15).Copy > Range("c4").PasteSpecial (xlPasteValuesAndNumberFormats) > Cells(lData, 13).Copy > Range("c5").PasteSpecial (xlPasteValuesAndNumberFormats) > Cells(lData, 16).Copy > Range("c6").PasteSpecial (xlPasteValuesAndNumberFormats) > Application.CutCopyMode = False > Application.EnableEvents = True > End If > End If > > 6. Pada cell d8 buat sebuah dropdown menggunakan Data Validasi > untuk tipe nya memilih List > sumber datanya mengambil nilai dari cell L3 sampai L16 > > 7. Simpan workbook dengan tipe macro Enable atau Binary > > Contoh file terlampir semoga bermanfaat, jika ada yang kurang jelas silakan > ditanyakan kembali > penjelasan dari setiap baris script di atas dapat dilihat pada file > terlampir. > > Wassalam, > > -Aji Mumpung- > > > > > Pada 11 Mei 2013 05.35, Yoni Patinasaran <yonikriwul@...> menulis: > > > ** > > > > > > Terima Kasih Atas perhatian rekan rekan milis, terutama Mr. Kid. yang > > telah dengan sabar membimbing saya bagaimana cara mengirim pesan ke > > groups... > > karena masalah yang saya alamai ini sangat memerlukan penyelesaian, maka > > saya kirim ulang melalui email saya ( berikut ini permasalahannya ) > > > > Salam Semuanya.... > > Saya mengalami kesulitan dalam hal menyamakan format antara dua cell yang > > memakai fungsi Vlookup.. > > sebagai gambaran ada tabel penjualan toko yang berisi no urut, tanggal, no > > faktur, nama toko, jumlah pejualan. > > saat pencetakan saya mengubah angka di cell reference dan langsung saya > > print... > > permasalahannya, pada cell C3, yang mengambil data dari tabel penjualan > > pada kolom nomor faktur (kolom N) tidak bisa sekalian mengambil > > formatnya.... > > mohon bantuan dari senior senior kiranya dapat membantu permasalahan > > ini... > > sebagai contoh saya lampirkan filenya... > > atas perhatian dan solusinya saya ucapkan terima kasih > > > > > > salam > > Yoni > > > > > > >
