Bisa...
makro dijalankan dengan meng-Klik_Ganda cell A1 pada sheet1 Workbook terlampir Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' by hapsari / smg, july 9, 2011 ' beExcel case: ' http://tech.groups.yahoo.com/group/belajar-excel/message/11682 If Target.Cells.Count = 1 Then If Target.Address = "$A$1" Then Dim sht As Worksheet, NewSht As Worksheet Dim D As Range, i As Integer, c As Integer Set D = Cells(1).CurrentRegion Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sht In Worksheets If sht.Name <> "Sheet1" Then sht.Delete Next For i = 2 To D.Rows.Count Set NewSht = Worksheets.Add NewSht.Name = D(i, 1) For c = 1 To D.Columns.Count NewSht.Cells(c, 1) = D(1, c) NewSht.Cells(c, 2) = D(i, c) Next c NewSht.Move after:=Sheets(Sheets.Count) NewSht.Cells(1).CurrentRegion.Columns.AutoFit Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayAlerts = True End If End If End Sub Mudah mudahan berguna wassalamualaikum wr wb hapsari 2011/7/9 Tjahya Hartono <[email protected]> > Dear para master ex-cel, > Bisakah saya dibantu menyimpan data yang ada ke dalam sheet-sheet, dengan judul sheetnya berdasarkan nama company terima kasih
Membuat Data ke Sheet-sheet(by hapsari).xls
Description: MS-Excel spreadsheet
