Dear Mr. Kid,
Terima Kasih yg sebesar-besarnya saya ucapkan, semoga intelektualitas generasi
Indonesia semakin Maju.
Best Regards,
Odhy.
From: Kid Mr. <mr.nm...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 15, 2012 9:22 AM
Subject: Re: [belajar-excel] Cara ambil data dari File lain
Silakan dicoba.
Kid.
2012/6/15 rodhy hakim <odhyz83_assas...@yahoo.com>
>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_
>>>
>>>
>>
>>
>>
>
>
>
