RE: [belajar-excel] Gambar WordArd dan Grafik juga ikut terPaste ke Workbooks yg baru

[Contract Mining Assistant, Asam-Asam]

terima kasih atas listing nya,
luar biasa listing berjalan sesuai dengan yang diharapkan.

Salam: |Rasyid|



________________________________

From: belajar-excel@yahoogroups.com
On Behalf Of jkssxls Sudarsono
Sent: Tuesday, January 31, 2012 10:43 AM

Sub cui()
    Dim daerah As Range
    Set daerah = ThisWorkbook.ActiveSheet.Range("A1:L100")
    daerah.Copy
    Workbooks.Add
    Dim tujuan As Range
    Set tujuan = ActiveWorkbook.Sheets(1).Cells(1)
    tujuan.Activate
    ActiveSheet.Paste
End Sub