Hai Nandha,
Coba script berikut :
Dim cht As Chart, lIdx As Long
On Error Resume Next
lIdx = 1
Set cht = ThisWorkbook.Charts("ganteng")
If Err.Number <> 0 Then
Set cht = ActiveChart.Location(xlLocationAsNewSheet, "ganteng")
Else
Do While lIdx <> 0
lIdx = lIdx + 1
Set cht = ThisWorkbook.Charts("ganteng" & lIdx)
If Err.Number <> 0 Then
Exit Do
End If
Loop
Set cht = ActiveChart.Location(xlLocationAsNewSheet, "ganteng" &
lIdx)
End If
Sheets("normal").Move after:=Worksheets(Worksheets.Count)
Err.Clear
On Error GoTo 0
Wassalam,
Kid.
2014-02-04 <[email protected]>:
>
>
> selamat siang rekan-rekan Be-excell
> jadi gini saya ada masalah dikit,
> saya membuat sebuah chart, kemudian chart terebut akan saya pindah ke
> worksheet baru dan letaknya berada di paling akhir worksheet yang ada,
> tetapi saya ingin namanya bukan chart1, tapi yang lainnya, misal ganteng1
>
> saya mencoba membuat code vba seperti ini
>
> ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="ganteng"
> Sheets("normal").Move after:=Worksheets(Worksheets.Count)
>
> kode tersebut berhasil membuat nama chart menjadi ganteng dan berada di
> paling akhir, tetapi jika kode saya jalankan lagi akan menampilkan error,
> bukan ganteng2, ganteng3 dan seterusnya,
> kira2 bagaimana ya cara biar bisa menjadi ganteng2, ganteng3, dll ?
> terima kasih
>
>
>
>
