Re: ]] XL-mania [[ macro untuk insert kolom dan pertumbuhan

 

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 <achmad_plangton2a@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
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 <opik_pds@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
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 <achmad_plangton2a@yahoo.com>
To: xl mania <XL-mania@yahoogroups.com>
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

 

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 42

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat beribadah puasa...                                        |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___