jika harus pakai makro (dan agar mudah, tetap dibantu *rumus perantara ada di baris 1 pada sheet Gudang*) rumus tsb mencari posisi tgl MAX bersyarat. Dan di makronya angka posisi (index) tsb diberi nama variable MaxIdx ( a LongInteger)
Sub RekapByMaxDate()
' siti VI / 28 May 2011
Dim RefTabel As Range, RekapTbl As Range
Dim MaxIdx As Long, dStok As Double
Dim i As Long, r As Long, c As Integer
Set RefTabel = Sheets("Gudang").Cells(4, 2).CurrentRegion
c = RefTabel.Columns.Count
Set RekapTbl = Sheets("Rekap").Cells(5, 2).CurrentRegion.Offset(1, 0)
RekapTbl.ClearContents
Do
i = i + 1
If RefTabel(1) = vbNullString Then Exit Do
If IsError(RefTabel(-2, 3).Value) Then Exit Do
MaxIdx = RefTabel(-2, 3).Value
Set RekapTbl = Sheets("Rekap").Cells(5, 2).CurrentRegion.Offset(1, 0)
r = RekapTbl.Rows.Count
RekapTbl(i, 1) = i
RekapTbl(i, 2) = RefTabel(-1, 1).Text
RekapTbl(i, 3) = RefTabel(MaxIdx, 5)
RekapTbl(i, 4) = RefTabel(MaxIdx, 2)
dStok = dStok + RefTabel(MaxIdx, 5)
Set RefTabel = RefTabel.Offset(0, c + 1)
Loop
RekapTbl(i, 2) = "TOTAL:"
RekapTbl(i, 3) = dStok
End Sub
2011/5/25 Ismail Hasmin <[email protected]>
>
>
> Kepada Para Master XL,
>
> Saya punya kebingunan karena mau pakai macro belum tahu gimana caranya tapi
> kalai tidak pakai macro prosesnya lama. Intinya Gimana kode makro untuk
> ambil data dari beberapa tabel di sheet lain karena kalau saya pakai fungsi
> non macro prosesnya lama. Data yang diambil berada pada beberapa tabel &
> yang diambil hanya berdasarkan tanggal terakhir (tertinggi) berdasarkan
> referrensi bulan. Data yang diambil digabung pada Tabel Tekap yang berbeda
> sheet, mohon jalan keluarnya, terima kasih.
>
> Wassalam,
> Ismail
>
ctv_Makro_Rekap_Stok_By_MaxDate.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
