bagaimana kalau khusus untuk pak Boss kita berikan makro ini : ditulis di module sheet "DATA"
Private Sub CommandButton1_Click()
*'----Summaries20120111---*
*' coded by: indri Hapsari*
*' smg, 11 jan 2011*
*'-------------------------*
Dim RefTabel As Range, PlanYear As Range
Dim Kriteria As Range, PlReport As Range
Dim i As Long, r As Long, c As Integer
Dim plRows As Long, plCols As Integer
' kelamaan di bagian Initials nya ya...
Set RefTabel = Sheets("DATA").Cells(1).CurrentRegion
Set PlReport = Sheets("Hasil").Cells(1, 1).CurrentRegion
plRows = PlReport.Rows.Count - 2
plCols = PlReport.Columns.Count
Set PlReport = PlReport(3, 3)
Set PlanYear = PlReport(0, 1).Resize(1, plCols - 2)
Set Kriteria = PlReport(1, 0).Resize(plRows, 1)
PlReport.Parent.Activate
' tapi dengan semua sudah disiapkan di bagian INIT
' loop proses tulis report pn jadi pendek & sederhana
For i = 2 To RefTabel.Rows.Count
For r = 1 To plRows
c = WorksheetFunction.Match(Year(RefTabel(i, 4)), PlanYear, 0)
If RefTabel(i, 1) = Kriteria(r, 1) Then
PlReport(r, c) = RefTabel(i, 5)
End If
Next r
Next i
End Sub
2012/1/11 Rachmad HIDAYAT <[email protected]>
> **
>
> Terima kasih usulan modifnya pa hendrik,****
>
> But what can I said ¿ *the Boss want as the result on sheet “ Hasil”*****
>
> Terima Kasih,
>
> Rachmad Hidayat****
>
> 3487****
>
> ** **
>
> *From:* [email protected] *On Behalf Of *hendrik karnadi
> *Sent:* 11 January 2012 14:00
> *Subject:* Fw: [belajar-excel] Menyusun Planning****
>
> ** **
>
> Dengan pengaturan posisi Font (rata kanan) pada Model, tabel akan lebih
> mudah dibaca.****
>
> ** **
>
>
>
PakRahmadH_Case Menyusun Planning (iHaps - makro).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
