Pak Lukman, Kalau ndak salah ada pepatah yang mengatakan: "Lain padang lain belalang, lain lubuk lain ikannya". Jadi lain pengguna (Excel) lain pula kebutuhannya.
Macro tsb didesign sesuai dengan format yang dilampirkan dan pertanyaan di badan email...jadi difilter sesuai dengan apa yang diketik di TextBox. Memang masih banyak alternatif atau pilihan yang dapat dibuat...baik cara menginputnya (langsung di worksheet atau pake form, cara memfilternya (bertahap atau sekaligus, diketik atau dipilih, pake tombol atau shortcut) dan tampilan outputnya (mulai dari baris pertama atau baris tertentu, pake judul atau tidak, kolom tertentu atau semua kolom). Macro dibuat sesuai pilihan2 tersebut. Memang ada kalanya tidak 100% persis dengan keinginan user...sehingga user "dituntut" untuk pro aktif. Di sinilah proses belajar dimulai. Untuk itu seperti sering disinggung oleh Mr. Kid perlu database input yang baik dan bahasa manusianya (tahap demi tahap). Macronya sendiri bisa dibuat dengan cara merekam, menulis atau kombinasi keduanya. Macro yang saya buat adalah merupakan kombinasi. Saya berharap penjelasan ini tidak semakin membuat anda bingung..melainkan merupakan suatu tantangan untuk mempelajari macro lebih dalam lagi. Untuk menjawab pertanyaan2 anda ...silakan anda coba dulu dengan cara merekam. Salam, HK Sent from Samsung Mobile <div>-------- Original message --------</div><div>From: "lkm jktind [email protected] [belajar-excel]" <[email protected]> </div><div>Date:20/09/2014 13:10 (GMT+07:00) </div><div>To: [email protected] </div><div>Subject: Re: [belajar-excel] Memindahkan data ke sheet yang baru </div><div> </div>Pak Hendrik. Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Sheets("Data").Range("C1").Value ===== >nama sheet pakai = Alamat Menurut bayanganku . mestinya dibuatkan tombol untuk memilih. dari semua kelurahan (desa) di kec Sukadana) Berdasarkan pilihan itu, kemudian dicari. apakah sheetnya sudah ada ? --- bila belum ada di buatkan yg baru. selanjutnya baru dipindahkan isinya dari sht data ----> sht tujuannya. < untuk pindahkan data : taunya cuma . copy , paste , delete data lama ---- apakah ada cara lainnya ? > kalau di excel kan data short cut : Ctrl + x ----- ini buat pindah data . ==== untuk vba belum tau caranya. Bikin tombol pilihan pun saya belum bisa. Salam Lukman Bisanya cuma buat mengolah data saja. 2014-09-20 11:36 GMT+07:00 hendrik karnadi [email protected] [belajar-excel] <[email protected]>: Coba file terlampir. Ada 2 catatan : - Nama Sheet "Data " kelebihan spasi - Link Value pada TextBox ditulis "C1" yang menjadi kriteria dalam AutoFilter Setelah kedua hal tsb dilakukan coba copas macro ini pada Module1 di VBE Sheet... Sub Filter_Keyword() Dim ws As Worksheet Dim Crit As String Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Sheets("Data").Range("C1").Value Set ws = ActiveSheet Sheets("Data").Select Crit = "*" & Range("C1") & "*" Range("A2").AutoFilter Field:=3, Criteria1:=Crit Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ws.Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues Columns("A:G").Select Columns("A:G").EntireColumn.AutoFit Rows("1:1001").Select Rows("1:1001").EntireRow.AutoFit With Selection .WrapText = False End With Sheets("Data").Select Range("A3").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Range("A2").AutoFilter End Sub On Saturday, 20 September 2014, 1:28, "ketut budiasa [email protected] [belajar-excel]" <[email protected]> wrote: Dear All Master, Ternyata atensinya besar sekali atas kasus saya, terima kasih banyak atas bantuannya semua. Karena ada salah account email saya balasan sebelumnya ternyata masuk ke account di HP, jadi mohon maaf baru bisa saya balas. Untuk kasus ini sesuai dengan penjelasan Pak Lukman, seperti itu lah yang saya harapkan, karena data yang dipindahkan ke sheet yang baru akan kita pergunakan untuk Mail Merge. Sementara Data Awal yang berada di Sheet "DATA" akan terus di kurangi seiring perpindahan data tersebut ke sheet yang baru. berikut saya sertakan filenya. yang saya isikan Text Box untuk memasukkan keyword yang diinginkan, serta Button untuk melakukan proses pemindahan nya. Atas bantuan dan perhatiannya semua saya sampaikan banyak terima kasih On Friday, 19 September 2014, 18:56, "lkm jktind [email protected] [belajar-excel]" wrote: Pak Hendrik . Keinginan pak Yudix adalah : Dengan menggunakan Keyword di kolom alamat, data yang muncul otomatis dipindah di sheet 1, dan otomatis sheet 1 diganti namanya menjadi keyword yang dimasukkan tadi Contoh, -Di kolom alamat kita masukkan kata " Panji" semua data yang berisi kata "Panji" pada kolom alamatnya di pindah (bukan di Copy ) ke sheet "Panji" - Jika kita masukkan keyword "Kayuputih" maka sama seperti di atas, hasilnya di pindahkan ke sheet "Kayuputih" - begitu seterusnya. *Terima kasih* Sedangkan saya sendiri pun . sedang membutuhkan . --- misal nya di sheet 1 --- ini sebagai input data saja . (input data harian) -----> setelah di macrokan ---- data di sheet1 -- tinggal heardernya saja. setelah di rasakan benar ---- maka akan di pindahkan ke worksheet / workbook lainnnya. (Jumbo file) ---> jumbo file akan saya protect -- > yg nga bisa di lakukan di jumbo file : menambah / mengurangi / merubah nilai data . Salam Lukman.
