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.
