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 daer
Sub cui()
Dim daerah As Range
Set daerah = ThisWorkbook.ActiveSheet.Range("A1:L100")
daerah.CopyWorkbooks.Add
Dim tujuan As Range
Set tujuan = ActiveWorkbook.Sheets(1).Cells(1)
tujuan.Activate
ActiveSheet.Paste
End Sub
To: belajar-excel@yahoogroups.com
CC: apassi
2 matches
Mail list logo