Dear Para Master, Saya kembali mengalami kesulitan, ternyata data inputan itu diambil dari tempat lain. nah bagaimana caranya mengambil data dari tempat lain, dan di kolom lama simpan dan kolom keterangan otomatis juga seperti yang sudah di kirimin sy sebelumnya itu. Atas perhatian dan bantuannya saya ucapkan banyak terima kasih. NOTE: terlampir contoh data yang diambil dari tempat lain.
========================================================== Mods' NOTE ysh Pak Hakim, Lampiran dari Pak Hakim (2 file xls) jumlah = 838 KB ini adalah l3bih dari 3 kali jatah yg diatur dlm Peraturan Milis Lampiran tidak kami sertakan, tetapi para calon penanggap dapat mengunduhnya di https://www.box.com/s/468687103c417d1995c3 FileName: "Lampiran Posting Hakim Rodhy.zip (134 KB) Untuk y.a.d. File lampiran harap max 250 KB Juga, Posting ke Milis jangan "Cross-Posting" / ada cc ke pihak lain.! Kedua hal itu sudah diatur dlm "PERATURAN MILIS" (filenya ada di Inbox Anda semua) Terima kasih, - moderator- ============================================================ From: Rara Wilis <[email protected]> To: [email protected] Sent: Wednesday, May 30, 2012 5:15 PM Subject: Re: [belajar-excel] Monitoring lama Simpan Saya sampaikan titipan pesan dari Connie yg hari ini tidak bisa online sama sekali. --QUOTE Baiklah teman, expired date = "4 BULAN" SETELAH Tgl Terima, makarumus di kolom [Keterangan] adalah sbb ="Material akan expired pada tanggal " & TEXT(DATE(YEAR(B5),MONTH(B5)+4,DAY(B5)),"ddmmyy") Tetapi dlm workbook yg dibuat; rumus itu ditulis oleh makro (otomatis) pada saat kolom [Tgl Terima] di isi/diedit Prosedur 2 (event worksheet_Change) menjadi sperti ini Private Sub Worksheet_Change(ByVal Target As Range) '--cde vba: Markonah May 29, 2012 / modified 30 May 2012 '--kasus BeExcel #17302 If Target.Count = 1 Then If Target.Column = 2 Then If Target.Row > 4 Then If Not Target.Value = vbNullString Then Target(1, 3).Formula = "=TODAY()" Target(1, 5).Formula = "=DATEDIF(RC[-4],RC[-2],""m"") & "" bulan, "" & DATEDIF(RC[-4],RC[-2],""md"") & "" hari.""" Target(1, 6).Formula = "=""Material akan expired pada tanggal: "" & TEXT(DATE(YEAR(RC[-5]),MONTH(RC[-5])+4,DAY(RC[-5])),""ddmmyy"")" Else Target(1, 3) = "": Target(1, 5) = "": Target(1, 6) = "" End If End If End If End If End Sub Sengaja menghindari fungsi eDate agar tidak repot menjawab pertanyaan lanjutan jika anda belum pasang Addin Analisy-Tool wassalamualaikum wr wb, -pok markonah- penjual grabah di kampung sebelah --UNQUOTE
