Beginikah maksudnya.. ?
Macro dijalankan ketika file di-open
Private Sub Workbook_Open()
psn = "Perhatian." + Chr(13)
psn = psn + "Taget Date sudah dekat Lh "
Sheets("Sheet1").Select
Set tdate = Range("B3")
If tdate - 14 <= Now() Then
t = MsgBox(psn, vbCritical)
End If
Astaga.
Kesalahan bukan pada komputer ternyata otak saya nya hank salah ketik... .
Thank's Mr.Kid atas koreksi nya...
On 4/10/12, Kid Mr. wrote:
> Dear Modby,
>
> Mungkinkah :
> =IF(AND(D6="PDSR",C6=2,B6="BLMPP"),(E6*10%),IF(AND(D6="*PSDR*
> ",C6=3,B6="BLMPP"),(E6*5%),I6))
> yang di-*bir
Pak Yusril,
Mungkin pada event workbook open bisa diberi :
dim dtBatas as date, dtHariIni as date
dtbatas=cdate("2012-12-31")
dthariini=date
if dthariini>dtbatas then
msgbox "lewat batas",vbcritical
'kalau harus keluar aplikasi, letakkan disini
elseif dthariini>dtbatas-14 then
Dear Modby,
Mungkinkah :
=IF(AND(D6="PDSR",C6=2,B6="BLMPP"),(E6*10%),IF(AND(D6="*PSDR*
",C6=3,B6="BLMPP"),(E6*5%),I6))
yang di-*biru *adalah PDSR ?
Jika ya, mungkin formula berikut bisa dicoba :
=IF((D6&B6="PDSRBLMPP")*(C6>1),E6*(20%-5%*C6),I6)
Regards,
Kid.
On Tue, Apr 10, 2012 at 11:09, Modby
Hi modby,
Menurut saya jika rumus sudah benar tidak perlu lagi diubah2 krn hasilnya pun
sama. Kecuali jika ingin menggunakan rumus yang lebih "canggih" atau lebih
singkat.
Kalau saya sich buatnya kurang lebih sama,
If(d6="pdsr",if(b6="blmpp",if(c6=2,e6*0.1,if(c6=3,e6*0.05,I6)))
Atau kalau mau y
Tanggal Fungsi VBA Tujuan 12/31/2012 If Now() > #8/27/2012# Then Meberi
batas waktu Program macro
Pertanyaan Bagaimana saya bisa mebuat alert pada vba untuk mewarning 2
minggu sebelum
Tanggal 31/12/2012 kalau template macro tersebut akan berakhir
Apa bisa pakai fungsi If (and at
Untuk mewarnai duplicate yang beda tanda saja, formula mbak Rara sangat
simple.
*=COUNTIF(M:M, -M1) * (M1<>0)*
*"kelemahannya*: data *2, -2, 2* >> tiga-tiganya mendapat warna"
Jadi, duplicate yang tandanya sama semua, tidak akan diwarnai.
Wassalamualaikum Wr. Wb.
Kid.
On Mon, Apr 9, 2012 at
7 matches
Mail list logo