hello Safruddin Yanie
dengan vba bisa dilakukan melalui listing dibawah, yang diletakkan pada
sebagai worksheet event change pada sheet1, karena diasumsikan bahwa hanya
sheet1 yang aktif melakukan kegiatan ini.
Jika diletakkan di thisworkbook, meskipun telah ditambahkan baris penunjuk
sheet1 yang akan aktif melakukan kegiatan, jika kita mengubah suatu nilai di
sheet lain, maka event pada thisworkbook akan tetap dieksekusi walaupun
tidak melakukan perubahan apa-apa pada sheet.
listing :
Private Sub Worksheet_Change(ByVal Target As Range)
'dimulai dengan cek bahwa cell yang berubah adalah B11
'cek bahwa nama baru tidak blank dan bukan nama yang lama
'lalu SaveAs dan mungkin file lama akan dihapus
Dim sNewName As String
Dim sOldName As String
On Error Resume Next
If Not Intersect(Target, Range("b11")) Is Nothing Then
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
sNewName = Trim(Range("b11").Text)
If LenB(sNewName) <> 0 Then
sOldName = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name,
".") - 1)
If sOldName <> sNewName Then
sOldName = ThisWorkbook.FullName
'macam-macam FileFormat ada di xlFileFormat Enumeration di
HELP,
'default : file yang aktif (file ini berarti .xlt)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sNewName ',
FileFormat:=xlTemplate8
Range("b2") = ThisWorkbook.Name
Range("b11") = vbNullString
'jika ingin menghapus yang lama
Kill sOldName
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End If
End Sub
good luck and keep excelling
kid
2009/2/2 SAFRUDDIN YANIE <odiens_a...@yahoo.com>
> Halo....
> para suhu & master excel
> .............
>
> gw lampirin template excel,... pengennya sih begitu data dimasukin ke cel
> tertentu menjadi nama file excel itu sendiri...
> qra2 ada yg bisa mbantu nggak...?
>
> Thx's atas bantuannya
>
> Odiens
> .
>
>
>
