Tutorial Pembuatan Tool Parse Data atau Memecah Data dengan Macro Excel

haloo..

kali ini saya hanya menulis coing saja untuk parse data..

untuk tutorial pembuatannya bisa di lihat lagsg di youtube saya DISINI
atau lgsg tonton aje dah dimari..

berikut coding nya:

--------------------------------------------------------------------------------------------------

       

Option Explicit

Private Sub CommandButton1_Click()
' declare variable
Dim rngData As Range, rngCriteria As Range
Dim shNewCreate As Worksheet

' set variable
Set rngData = ThisWorkbook.Worksheets("Home").Range("A6")
Set rngCriteria = ThisWorkbook.Worksheets("Home").Range("C3")
' variable rngData sbg range a6 di sheet home
' variable rngCriteria sbg range c3 di sheet home

'filter data
'field:= itu untuk menentukan colom yang akan difilter yaitu kolom 4 kolom kawasan
'criteria1:= itu untuk memasukan kata yang akan difilter
rngData.CurrentRegion.AutoFilter field:=4, Criteria1:=rngCriteria.Text

'create new sheet dgn nama yang sudah dimasukan di rage C3
Set shNewCreate = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets("Home"))
shNewCreate.Name = rngCriteria.Text

'setelah sheet baru sudah dibuat
'maka copy data yang sudah difilter ke sheet baru di range A1
rngData.CurrentRegion.Copy shNewCreate.Range("A1")

'release variable shNewCreate
Set shNewCreate = Nothing

'clear filter
rngData.CurrentRegion.AutoFilter

'release variable
Set rngCriteria = Nothing
Set rngData = Nothing

End Sub

       
 

---------------------------------------------------------------------------------------

sekian dulu..
salam #ExcelSakti #HappyCoding
:)