Maaf lampirannya ketinggalan, terlanjur terkirim. Ini lampirannya. Salam, HK
On Saturday, 20 September 2014, 11:36, "hendrik karnadi [email protected] [belajar-excel]" <[email protected]> wrote: 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.
HK_pindahkan ke sheet keyword.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
