Coba :
Public Sub Simpan()
Dim wbkTarget As Workbook
Dim shtAktif As Worksheet
Set shtAktif = ThisWorkbook.ActiveSheet
Set wbkTarget = Workbooks.Add
shtAktif.Range("e5:e10").Copy wbkTarget.Sheets(1).Range("a1")
wbkTarget.SaveAs "c:\test.xls"
wbkTarget.Close False
shtAktif.Activate
End Sub
Regard
Kid.
2010/8/4 Riyadi Akbar <[email protected]>
>
>
> master2 sekalian
> saya baru di dunia per macroan .
> lagi coba bikin program timer simple
> ntar usernya, start time dan end time dimasukin ke excel file lain
>
> kira2 macro gw kaya gini
> Dim iFileNumber As Long
> Dim strData As String
> Dim strFileName As String
>
> iFileNumber = FreeFile()
> strData = Range("E5").Value
> strFileName = "C:\test.xls" ' the text file
> Open strFileName For Append Shared As #iFileNumber
> Print #iFileNumber, strData
> Close #iFileNumber
>
> nah kalo gw mau datanya itu dari beberapa cell, mislanya E5, E6, E7
> tapi masukin datanya juga per cell di test.xls
> misalnya E5 ke A1, E6 ke A2, E7 ke A3
> next nya ke E5 ke B1, E6 ke B2, E7 ke B3
> dst
>
> kira2 bentuk string datanya gmn ya bos?
>
> mohon masukannya
> masih newbie nih
>
> thanks a lot ya
>
> Regards,
> Riyadi
>
>
