1. Jika terdapat 10 sheets, misal asumsinya tiap2 sheet isinya sama persis macronya menjadi: Sub Insert10() Sheet1.Cells.Find(what:="m-t-m", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Selection.EntireColumn.Insert Sheet2.Select Sheet2.Cells.Find(what:="m-t-m", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Selection.EntireColumn.Insert Sheet3.Select Sheet3.Cells.Find(what:="m-t-m", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Selection.EntireColumn.Insert 'dan seterusnya sebanyak sheet yang diinginkan dengan mengubah yang diwarnain biru tersebut. 'tambahkan Sheet1.Select untuk kembali ke sheet awal setelah insert selesai Sheet1.Select
End Sub 2. Awalnya saya ingin coba menggunakan formula [=((K7/J7)-1*100%)], tapi setelah dilakukan insert, alamat cell formula yang dituju tetap sama [=((K7/J7)-1*100%)] misalnya pertumbuhan mei ke juni. Makanya saya buat macro juga, setidaknya akan lebih mempermudah dibanding dengan mengetik formula setiap kali insert kolom. Mungkin ada formula yg tepat, tapi saya kurang faham dengan formula. 3. Asumsinya sama pertumbuhan bulan desember (2902993.727) tahun sebelumnya dengan bulan terakhir, paling saya bisa kasih solusi pake macro lagi. Bikin shape samping Formula, kemudian masukkan kedalam vba: Sub YTD() Selection.FormulaR1C1 = "=(RC[-2]/2902993.727)-1*100%" End Sub kemudian shapenya di Assign Macro ke YTD Kendalanya, ketika pergantian tahun, maka di vbanya harus dirubah dengan nilai desember yg sekarang. barangkali member yg lain bisa kasih solusi formulanya, biar saya bisa belajar juga untuk kasus seperti ini Regard, Opik ________________________________ From: achmad dwinanto <[email protected]> To: "[email protected]" <[email protected]> Sent: Wednesday, August 8, 2012 10:52 AM Subject: Re: ]] XL-mania [[ macro untuk insert kolom dan pertumbuhan terima kasih mas opik atas bantuannya.. macronya apik tenan :) masih ada yg mo dintanya lagi neh, 1. Bagaimana macro jika insert kolom nya lebih dari 1 sheet? misal ada 10 sheet ( sheet 1 sampai sheet 10 2. untuk perhitungan m-t-m mohon dibuat dalam 1 x langkah, karena datanya sangat panjang. untuk perhitungan ini mungkin lebih efektifnya pakai formula (lebih simple), tp saya ga ngerti bagaimana formulanya. 3. untuk rumus y-t-d, sama dengan rumus m-t-m namun yg dibagi adalah bulan desember, misal (jun-des)/des. oh iya... setiap bulan datanya tidak ada perubahan, begitu juga dengan data desember tidak berubah. mohon bantuannya, terima kasih From: Opik Pds <[email protected]> To: "[email protected]" <[email protected]> Sent: Saturday, August 4, 2012 2:45 AM Subject: Re: ]] XL-mania [[ macro untuk insert kolom dan pertumbuhan Saya bukan master tapi pengen coba bantu selesaikan Pertanyaan 1 macronya kira2 seperti ini: Cells.Find(What:="m-t-m", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Selection.EntireColumn.Insert Pertanyaan 2 pertumbuhan M-T-M saya hanya bisa bantu formula menggunakan macro, dengan petunjuk ada di file terlampir. Pertumbuhan Y-T-D saya tidak bisa, karena kondisi kolom Desember tahun sebelumnya bisa berubah2, kayanya tetep manual From: achmad dwinanto <[email protected]> To: xl mania <[email protected]> Sent: Thursday, August 2, 2012 12:00 PM Subject: ]] XL-mania [[ macro untuk insert kolom dan pertumbuhan para master excel yang canggih2 pada file attactment terdapat data series yang setiap bulan saya input datanya, karena masih manual mohon bantuan untuk macro nya dengan rincian : 1. insert kolom pada kolom setelah data bulan terakhir 2. memperhitungkan pertumbuhan month-to-month dan year on year terima kasih
