Tutorial Pembuatan Tools Auto Chart

naaah..

untuk kalian yang ingin membuat Auto chart dengan macro excel..

berikut saya lampirkan codingannya..

untuk tutorial lengkapnya bisa kalian lihat di chanel saya ya.. Klik Disini
atau lgsg tonton aje gan.. hehehe

berikut codingannya.. hanya codingan..

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

       

Option Explicit

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

' set variable
Set rngData = ThisWorkbook.Worksheets("Home").Range("A6")
Set rngCriteria = ThisWorkbook.Worksheets("Home").Range("C3")

' filter data
rngData.CurrentRegion.AutoFilter field:=4, Criteria1:=rngCriteria.Text

' membuat sheet baru sesuai criteria yang anda input
Set shNewCreate = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets("Chart"))
shNewCreate.Name = rngCriteria.Text

' set chart..
Set chr = ThisWorkbook.Worksheets("Chart").Shapes(1).Chart

' set chart tersebut.. dgn type chart line
' dgn data source dari sheet Home range A6
chr.ChartType = xlLine
chr.SetSourceData Source:=rngData.CurrentRegion
chr.Refresh

' copy chart dan paste di sheet baru range B2
chr.CopyPicture Appearance:=xlScreen, Format:=xlPicture
shNewCreate.Range("B2").Select
shNewCreate.Paste

' clear filter pada sheet Home
rngData.CurrentRegion.AutoFilter

' terakhir..
' release variable yang sudah di set..
Set chr = Nothing
Set shNewCreate = Nothing
Set rngCriteria = Nothing
Set rngData = Nothing

End Sub
       
 

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

sekian dulu..
salam #ExcelSakti #HappyCoding
:)