Dear Master,
File yang dilampirkan tidak bisa saya buka karena di proteksi,
maaf maksud saya untuk kategori ke- 2 apabila lebih dari 12 bulan atau 1
th. makan notifikasinya material sudah expired.
________________________________
Notifikasi berdasarkan Kategori,
Apabila:
1. Kategorinya : DST, EVENT, GAMES, POC,PPOSM maka notifikasinya/ Keterangannya
> 4 bln makan notifikasinya Material sudah Exiperd, apabila < 4 bln makan
Notifikasinya; Material Normal.
2. Kategorinya : CIGARETE, MERHANDISE, REWARD, TEMPORARY BRANDING, TPOSM maka
notifikasinya/ Keterangannya > 12bln makan notifikasinya Material sudah
Exiperd, apabila < 12 bln makan Notifikasinya; Material Normal.
From: Kid Mr. <mr.nm...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 14, 2012 6:41 PM
Subject: Re: [belajar-excel] Cara ambil data dari File lain
Coba file terlampir.
Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula penyusun
keterangan.
Wassalam,
Kid.
2012/6/14 rodhy hakim <odhyz83_assas...@yahoo.com>
>Dear Master,
>
>Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg
>dijelaskan sebelumnya sudah fix.
>sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa
>kategori itu bagaimana caranya?
>note: file terlampir
>
>
>From: Kid Mr. <mr.nm...@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, June 12, 2012 12:59 PM
>
>Subject: Re: [belajar-excel] Cara ambil data dari File lain
>
>
>
>Tambahkan script berikut sebelum End Sub
>
> Dim lRec As Long
> Dim rng As Range
>
> lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
> If lRec < 1 Then
> Exit Sub
> End If
>
> Set rng = Sheets(1).Range("a4").Resize(lRec, 1) 'init range data
>baru
> With rng
> .Formula = "=row()-3" 'formula nomor urut
> .Offset(0, 3).Value = Date 'tanggal sekarang
> .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&""
>bulan""&datedif(b4,d4,""md"")&"" hari."""
> .Offset(0, 6).Formula =
>"=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>
> 'divalueskan
> Sheets(1).Calculate
> .Value = .Value
> .Offset(0, 5).Value = .Offset(0, 5).Value
> .Offset(0, 6).Value = .Offset(0, 6).Value
>
> 'atur format number
> .Offset(0, 6).NumberFormat = "[red]""Material sudah
>Expired"";;""Material normal"""
> With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
> .Font.Bold = True
> End With
> End With
>
>Kid.
>
>
>2012/6/12 rodhy hakim <odhyz83_assas...@yahoo.com>
>
>
>>Dear Master,
>>
>>Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
>>Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang
>>sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
>>kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
>>Mohon Pencerahannya Para Master.
>>
>>Regards,
>>Odhy_
>>
>>
>
>
>
