Jika saya perhatikan, gaya nulis Mbak Haps, Mbak Siti, Mr. Kid dan Pak Anton dan para pakar lainnya banyak menggunakan "Variabel" dalam pembuatan program (Advance level), sedangkan saya hanya bisa bermain di "Range" (Basic level).
Bermain dengan Variable pastinya akan lebih flexibel dibandingan dengan Range. Kalau boleh nanya, bagaimana "cara cepat" beralih dari penggunaan Range ke Variable dalam menyusun program ? Barangkali ada diantara para Pakar yang berkenan menuliskan resepnya. Terima Kasih. Salam, Hendrik Karnadi --- On Sat, 9/7/11, Haps <[email protected]> wrote: From: Haps <[email protected]> Subject: Re: [belajar-excel] Menyimpan Data dalam Sheet-Sheet To: [email protected] Date: Saturday, 9 July, 2011, 10:48 AM 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 ThenIf Target.Address = "$A$1" Then Dim sht As Worksheet, NewSht As WorksheetDim D As Range, i As Integer, c As Integer Set D = Cells(1).CurrentRegionApplication.Calculation = xlCalculationManual Application.ScreenUpdating = FalseApplication.DisplayAlerts = False For Each sht In WorksheetsIf sht.Name <> "Sheet1" Then sht.Delete NextFor i = 2 To D.Rows.Count Set NewSht = Worksheets.AddNewSht.Name = D(i, 1) For c = 1 To D.Columns.CountNewSht.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 iApplication.Calculation = xlCalculationAutomatic Application.ScreenUpdating = TrueApplication.DisplayAlerts = True End IfEnd If End Sub Mudah mudahan berguna wassalamualaikum wr wbhapsari 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
