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.
>
>
>
>
>
>
>
>
