8 Messages
Digest #3679
Messages
Wed Dec 9, 2015 3:25 am (PST) . Posted by:
"HAIRUL ALAM"
Yth. Para Master
Assalamualaikum Wr. Wb.
Saya memiliki masalah pada aplikasi vba yang saya buat ?bila saya membuka file vba yang lain terlebih dahulu dan buka file vba baru seperti aplikasi yang saya buat dan ingin keluar dari aplikasi tersebut terjadi error?seperti gambar terlampirBagaimana caranya agar aplikasi saya berjalan lancar dan bila ingin keluar tidak kembali pada posisi awal saat aplikasi mulai dibuka bila menggunakan aplikasi vba yang lain, namun bila aplikasi dijalankan sendiri tanpa membuka aplikasi yang lain bila keluar dari aplikasi berjalan normal tanpa ada masalah pada aplikasi tersebut. code vba yang saya gunakan seperti :
Private Sub createdby_Click()photoku.Visible = Truekesulitan.Visible = Trueloginlogo.Visible = FalseEnd Sub
Private Sub UserForm_Activate()
Dim ws As Worksheet ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")
ws.Activate ws.Range("A1:N50").Font.ColorIndex = 2 Range("B4").Select LogNam.SetFocus FrmDaf.Visible = False photoku.Visible = False kesulitan.Visible = False loginlogo.Visible = True End SubPrivate Sub Masuk_Click()Dim ws As WorksheetDim ws1 As WorksheetDim ws2 As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")Set ws1 = Sheets("Admin")Set ws2 = Sheets("User")
ws.Range("E4").Activate
ActiveCell.Value = LogNam.ValueActiveCell.Offset(0, 1) = LogPwd.Value LogNam.Value = ""LogPwd.Value = ""LogNam.SetFocus If Range("I4").Value = True Then MsgBox "Nama Anda " & Range("E4") & " dan anda adalah " & Range("J4").Value Me.Hide Else MsgBox "Nama dan password salah... Kalau belum termasuk Anggota silahkan Daftar" ws.SelectEnd If If Range("J4").Value = "Admin" Then ws1.Activate ElseIf Range("J4").Value = "User" Then ws2.Activate Else ws.Select End IfLogNam.SetFocusEnd SubPrivate Sub Daftar_Click()FrmDaf.Visible = True With Status .AddItem "User" .AddItem "Admin" End WithEnd SubPrivate Sub Tambah_Click()Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim ws As WorksheetThisWorkbook.Application.Calculate
Set ws = Sheets("Password")If DafNam.Value = "" Or DafPwd.Value = "" Or Status.Value = "" ThenMsgBox "Data harus diisi semua" DafNam.Value = "" DafPwd.Value = "" Status.Value = "" DafNam.SetFocusElsews.Range("B4").SelectDo If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End IfLoop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = DafNam.Value ActiveCell.Offset(0, 1) = DafPwd.Value ActiveCell.Offset(0, 2) = Status.Value
If Range("N4").Value > 1 ThenMsgBox "Data sudah ada coba cari yang lain"
Range("B4").End(xlDown).SelectRange(Selection, Selection.End(xlToRight)).ClearContents DafNam.Value = "" DafPwd.Value = "" Status.Value = "" DafNam.SetFocus
ElseMsg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " , Coba Login"Style = vbOKCancel + vbDefaultButton1Title = "Konfirmasi"
Response = MsgBox(Msg, Style, Title)If Response = vbOK Then ws.Range("B4").Select FrmDaf.Visible = False LogNam.SetFocusElse Range("B4").End(xlDown).Select Range(Selection, Selection.End(xlToRight)).ClearContents DafNam.Value = "" DafPwd.Value = "" Status.Value = "" DafNam.SetFocus
End IfEnd IfEnd If
ws.Range("B4").Select
End Sub
Private Sub FrmDaf_Layout() DafNam.Value = "" DafPwd.Value = "" Status.Value = "" DafNam.SetFocusEnd SubPrivate Sub keluar_Click()Application.QuitThisWorkbook.Close FalseEnd SubPrivate Sub LogNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN NAMA"End SubPrivate Sub LogPwd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN PASSWORD"End SubPrivate Sub DafNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN NAMA BARU"End SubPrivate Sub DafPwd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN PASSWORD BARU"End SubPrivate Sub Status_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN STATUS"End SubPrivate Sub keluar_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)keluar.BackColor = vbBlackLJUDUL.Caption = "KELUAR DARI APLIKASI"End SubPrivate Sub Masuk_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Masuk.BackColor = vbRedLJUDUL.Caption = "MASUK KE APLIKASI"End SubPrivate Sub Tambah_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Tambah.BackColor = vbGreenLJUDUL.Caption = "TAMBAH NAMA"End SubPrivate Sub Daftar_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Daftar.BackColor = vbGreenLJUDUL.Caption = "DAFTAR NAMA"End Sub'JAM digitalPrivate Sub UserForm_Initialize()jam = Format(Now, "dd mmmm yyyy hh:mm:ss")m_lasttime = Now + TimeValue("00:00:01")Application.OnTime m_lasttime, "GetTime"End SubPublic Property Get LastTime() As DateLastTime = m_lasttimeEnd PropertyPublic Property Let LastTime(ByVal Value As Date)m_lasttime = ValueEnd PropertyPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = vbFormControlMenu ThenCancel = TrueMsgBox "PAKAI TOMBOL EXIT"End IfEnd Sub
Terimakasih
Wassalamualaikum Wr. Wb.
SalamHairul Alam
Assalamualaikum Wr. Wb.
Saya memiliki masalah pada aplikasi vba yang saya buat ?bila saya membuka file vba yang lain terlebih dahulu dan buka file vba baru seperti aplikasi yang saya buat dan ingin keluar dari aplikasi tersebut terjadi error?seperti gambar terlampirBagaimana caranya agar aplikasi saya berjalan lancar dan bila ingin keluar tidak kembali pada posisi awal saat aplikasi mulai dibuka bila menggunakan aplikasi vba yang lain, namun bila aplikasi dijalankan sendiri tanpa membuka aplikasi yang lain bila keluar dari aplikasi berjalan normal tanpa ada masalah pada aplikasi tersebut. code vba yang saya gunakan seperti :
Private Sub createdby_Click(
Private Sub UserForm_Activate(
Dim ws As Worksheet ThisWorkbook.
Set ws = Sheets("
ws.Activate ws.Range("
ThisWorkbook.
Set ws = Sheets("
ws.Range("
ActiveCell.Value = LogNam.ValueActiveC
Dim ws As WorksheetThisWorkbo
Set ws = Sheets("
ActiveCell.Value = DafNam.Value ActiveCell.Offset(
If Range("
Range("
ElseMsg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " , Coba Login"Style = vbOKCancel + vbDefaultButton1Tit
Response = MsgBox(Msg, Style, Title)If Response = vbOK Then ws.Range("
End IfEnd IfEnd If
ws.Range("
End Sub
Private Sub FrmDaf_Layout(
Terimakasih
Wassalamualaikum Wr. Wb.
SalamHairul Alam
Wed Dec 9, 2015 6:44 am (PST) . Posted by:
"Toby kenzo" tobykenzo
Hai Hairul,
Bisa di lampirkan file excelnya ngga..
TerimaKasih.
Sent from Yahoo Mail on Android
Bisa di lampirkan file excelnya ngga..
TerimaKasih.
Sent from Yahoo Mail on Android
Wed Dec 9, 2015 4:13 am (PST) . Posted by:
"Toby kenzo" tobykenzo
tambahan kalo ada tanggalnya..
Sent from Yahoo Mail on Android
Sent from Yahoo Mail on Android
Wed Dec 9, 2015 6:54 pm (PST) . Posted by:
"imam cahyo yuwono"
Mr toby ini file nya terima kasih sebelumnya
On Tuesday, December 8, 2015 11:45 AM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
bias di share contohnya...
Pada Selasa, 8 Desember 2015 11:09, "imam cahyo yuwono chyywn@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum Wr. Wb.dear para expertsaya membuat form entry dengan data base di worksheet namun antara format di form dan di worsheet berbeda di form formatnya DD-MM-YYYY sedang di wrksheet MM-DD-YYYY, sudah saya rubah settingan mulai dari komputer sampai di excel nya, apakah harus ditambah scriptnya dan bagaimana scripnya agar dari cel b3 sampai kebawah tidak berubah
terima kasih
Wassalamualaikum Wr. Wb
#yiv0307276557 #yiv0307276557 -- #yiv0307276557ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0307276557 #yiv0307276557ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0307276557 #yiv0307276557ygrp-mkp #yiv0307276557hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0307276557 #yiv0307276557ygrp-mkp #yiv0307276557ads {margin-bottom:10px;}#yiv0307276557 #yiv0307276557ygrp-mkp .yiv0307276557ad {padding:0 0;}#yiv0307276557 #yiv0307276557ygrp-mkp .yiv0307276557ad p {margin:0;}#yiv0307276557 #yiv0307276557ygrp-mkp .yiv0307276557ad a {color:#0000ff;text-decoration:none;}#yiv0307276557 #yiv0307276557ygrp-sponsor #yiv0307276557ygrp-lc {font-family:Arial;}#yiv0307276557 #yiv0307276557ygrp-sponsor #yiv0307276557ygrp-lc #yiv0307276557hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0307276557 #yiv0307276557ygrp-sponsor #yiv0307276557ygrp-lc .yiv0307276557ad {margin-bottom:10px;padding:0 0;}#yiv0307276557 #yiv0307276557actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0307276557 #yiv0307276557activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0307276557 #yiv0307276557activity span {font-weight:700;}#yiv0307276557 #yiv0307276557activity span:first-child {text-transform:uppercase;}#yiv0307276557 #yiv0307276557activity span a {color:#5085b6;text-decoration:none;}#yiv0307276557 #yiv0307276557activity span span {color:#ff7900;}#yiv0307276557 #yiv0307276557activity span .yiv0307276557underline {text-decoration:underline;}#yiv0307276557 .yiv0307276557attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0307276557 .yiv0307276557attach div a {text-decoration:none;}#yiv0307276557 .yiv0307276557attach img {border:none;padding-right:5px;}#yiv0307276557 .yiv0307276557attach label {display:block;margin-bottom:5px;}#yiv0307276557 .yiv0307276557attach label a {text-decoration:none;}#yiv0307276557 blockquote {margin:0 0 0 4px;}#yiv0307276557 .yiv0307276557bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0307276557 .yiv0307276557bold a {text-decoration:none;}#yiv0307276557 dd.yiv0307276557last p a {font-family:Verdana;font-weight:700;}#yiv0307276557 dd.yiv0307276557last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0307276557 dd.yiv0307276557last p span.yiv0307276557yshortcuts {margin-right:0;}#yiv0307276557 div.yiv0307276557attach-table div div a {text-decoration:none;}#yiv0307276557 div.yiv0307276557attach-table {width:400px;}#yiv0307276557 div.yiv0307276557file-title a, #yiv0307276557 div.yiv0307276557file-title a:active, #yiv0307276557 div.yiv0307276557file-title a:hover, #yiv0307276557 div.yiv0307276557file-title a:visited {text-decoration:none;}#yiv0307276557 div.yiv0307276557photo-title a, #yiv0307276557 div.yiv0307276557photo-title a:active, #yiv0307276557 div.yiv0307276557photo-title a:hover, #yiv0307276557 div.yiv0307276557photo-title a:visited {text-decoration:none;}#yiv0307276557 div#yiv0307276557ygrp-mlmsg #yiv0307276557ygrp-msg p a span.yiv0307276557yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0307276557 .yiv0307276557green {color:#628c2a;}#yiv0307276557 .yiv0307276557MsoNormal {margin:0 0 0 0;}#yiv0307276557 o {font-size:0;}#yiv0307276557 #yiv0307276557photos div {float:left;width:72px;}#yiv0307276557 #yiv0307276557photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0307276557 #yiv0307276557photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0307276557 #yiv0307276557reco-category {font-size:77%;}#yiv0307276557 #yiv0307276557reco-desc {font-size:77%;}#yiv0307276557 .yiv0307276557replbq {margin:4px;}#yiv0307276557 #yiv0307276557ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0307276557 #yiv0307276557ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0307276557 #yiv0307276557ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0307276557 #yiv0307276557ygrp-mlmsg select, #yiv0307276557 input, #yiv0307276557 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0307276557 #yiv0307276557ygrp-mlmsg pre, #yiv0307276557 code {font:115% monospace;}#yiv0307276557 #yiv0307276557ygrp-mlmsg * {line-height:1.22em;}#yiv0307276557 #yiv0307276557ygrp-mlmsg #yiv0307276557logo {padding-bottom:10px;}#yiv0307276557 #yiv0307276557ygrp-msg p a {font-family:Verdana;}#yiv0307276557 #yiv0307276557ygrp-msg p#yiv0307276557attach-count span {color:#1E66AE;font-weight:700;}#yiv0307276557 #yiv0307276557ygrp-reco #yiv0307276557reco-head {color:#ff7900;font-weight:700;}#yiv0307276557 #yiv0307276557ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0307276557 #yiv0307276557ygrp-sponsor #yiv0307276557ov li a {font-size:130%;text-decoration:none;}#yiv0307276557 #yiv0307276557ygrp-sponsor #yiv0307276557ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0307276557 #yiv0307276557ygrp-sponsor #yiv0307276557ov ul {margin:0;padding:0 0 0 8px;}#yiv0307276557 #yiv0307276557ygrp-text {font-family:Georgia;}#yiv0307276557 #yiv0307276557ygrp-text p {margin:0 0 1em 0;}#yiv0307276557 #yiv0307276557ygrp-text tt {font-size:120%;}#yiv0307276557 #yiv0307276557ygrp-vital ul li:last-child {border-right:none !important;}#yiv0307276557
On Tuesday, December 8, 2015 11:45 AM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
bias di share contohnya...
Pada Selasa, 8 Desember 2015 11:09, "imam cahyo yuwono chyywn@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum Wr. Wb.dear para expertsaya membuat form entry dengan data base di worksheet namun antara format di form dan di worsheet berbeda di form formatnya DD-MM-YYYY sedang di wrksheet MM-DD-YYYY, sudah saya rubah settingan mulai dari komputer sampai di excel nya, apakah harus ditambah scriptnya dan bagaimana scripnya agar dari cel b3 sampai kebawah tidak berubah
terima kasih
Wassalamualaikum Wr. Wb
#yiv0307276557 #yiv0307276557 -- #yiv0307276557ygrp-
Wed Dec 9, 2015 11:28 pm (PST) . Posted by:
"Haidar Zen" haidarlovezen
Dear Master Excel
mohon bantuannya untuk klasifikasi status "OK" "OVER DUE" & "ON Progress" berikut report summarynya seperti data terlampir
~ Status akan "OK" apabila Finish date < Due Date (kolom O)
~ Status akan "OVER DUE" apabila finish date > due date (kolom O)
~ Status akan "ON PROGRESS" apabila pekerjaan belum finish (tanggal finish belum diisi) < Due date
Terima kasih sebelumnya
Haidar
mohon bantuannya untuk klasifikasi status "OK" "OVER DUE" & "ON Progress" berikut report summarynya seperti data terlampir
~ Status akan "OK" apabila Finish date < Due Date (kolom O)
~ Status akan "OVER DUE" apabila finish date > due date (kolom O)
~ Status akan "ON PROGRESS" apabila pekerjaan belum finish (tanggal finish belum diisi) < Due date
Terima kasih sebelumnya
Haidar
Thu Dec 10, 2015 12:03 am (PST) . Posted by:
"Nang Agus"
Dear Haidar,
Asalamualaikum warahmatullah.
Coba gunakan formula IF:
=IF(P6;IF(P6<O6;"OK";"OVER DUE");"ON Progress")
Tetapi kayaknya syntaknya kurang deh....
bagaimana kalau Finish date = Due Date?
pada formula di atas kalau sama dinamakan over due.
apabila inggin agar Finish date = Due Date menjadi OK, maka formula diubah
menjadi:
=IF(P6;IF(P6<=O6;"OK";"OVER DUE");"ON Progress")
wasalamualaikum warahmatullah.
NangAgus
2015-12-10 14:18 GMT+07:00 Haidar Zen haidarlovezen@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel
>
> mohon bantuannya untuk klasifikasi status "OK" "OVER DUE" & "ON Progress"
> berikut report summarynya seperti data terlampir
>
> ~ Status akan "OK" apabila Finish date < Due Date (kolom O)
> ~ Status akan "OVER DUE" apabila finish date > due date (kolom O)
> ~ Status akan "ON PROGRESS" apabila pekerjaan belum finish (tanggal finish
> belum diisi) < Due date
>
> Terima kasih sebelumnya
>
> Haidar
>
>
>
Asalamualaikum warahmatullah.
Coba gunakan formula IF:
=IF(P6;IF(P6<O6;"OK";"OVER DUE");"ON Progress")
Tetapi kayaknya syntaknya kurang deh....
bagaimana kalau Finish date = Due Date?
pada formula di atas kalau sama dinamakan over due.
apabila inggin agar Finish date = Due Date menjadi OK, maka formula diubah
menjadi:
=IF(P6;IF(P6<=O6;"OK";"OVER DUE");"ON Progress")
wasalamualaikum warahmatullah.
NangAgus
2015-12-10 14:18 GMT+07:00 Haidar Zen haidarlovezen@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel
>
> mohon bantuannya untuk klasifikasi status "OK" "OVER DUE" & "ON Progress"
> berikut report summarynya seperti data terlampir
>
> ~ Status akan "OK" apabila Finish date < Due Date (kolom O)
> ~ Status akan "OVER DUE" apabila finish date > due date (kolom O)
> ~ Status akan "ON PROGRESS" apabila pekerjaan belum finish (tanggal finish
> belum diisi) < Due date
>
> Terima kasih sebelumnya
>
> Haidar
>
>
>
Thu Dec 10, 2015 1:42 am (PST) . Posted by:
"Haidar Zen" haidarlovezen
Dear pak Agus
terima kasih atas bantuaanya..
untuk diketahui bahwa due date & finish date beda...due date adalah batas maximal follow upRequest repair = 14 hariRequest estimasi = 10 HariRequest project = 21 hari
terima kasih
Haidar
On Thursday, December 10, 2015 3:03 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Haidar,
Asalamualaikum warahmatullah.
Coba gunakan formula IF:
=IF(P6;IF(P6<O6;"OK";"OVER DUE");"ON Progress")
Tetapi kayaknya syntaknya kurang deh....
bagaimana kalau Finish date = Due Date?
pada formula di atas kalau sama dinamakan over due.
apabila inggin agar Finish date = Due Date menjadi OK, maka formula diubah menjadi:
=IF(P6;IF(P6<=O6;"OK";"OVER DUE");"ON Progress")
wasalamualaikum warahmatullah.
NangAgus
2015-12-10 14:18 GMT+07:00 Haidar Zen haidarlovezen@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Master Excel
mohon bantuannya untuk klasifikasi status "OK" "OVER DUE" & "ON Progress" berikut report summarynya seperti data terlampir
~ Status akan "OK" apabila Finish date < Due Date (kolom O)
~ Status akan "OVER DUE" apabila finish date > due date (kolom O)
~ Status akan "ON PROGRESS" apabila pekerjaan belum finish (tanggal finish belum diisi) < Due date
Terima kasih sebelumnya
Haidar
#yiv8750704131 #yiv8750704131 -- #yiv8750704131ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8750704131 #yiv8750704131ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8750704131 #yiv8750704131ygrp-mkp #yiv8750704131hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8750704131 #yiv8750704131ygrp-mkp #yiv8750704131ads {margin-bottom:10px;}#yiv8750704131 #yiv8750704131ygrp-mkp .yiv8750704131ad {padding:0 0;}#yiv8750704131 #yiv8750704131ygrp-mkp .yiv8750704131ad p {margin:0;}#yiv8750704131 #yiv8750704131ygrp-mkp .yiv8750704131ad a {color:#0000ff;text-decoration:none;}#yiv8750704131 #yiv8750704131ygrp-sponsor #yiv8750704131ygrp-lc {font-family:Arial;}#yiv8750704131 #yiv8750704131ygrp-sponsor #yiv8750704131ygrp-lc #yiv8750704131hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8750704131 #yiv8750704131ygrp-sponsor #yiv8750704131ygrp-lc .yiv8750704131ad {margin-bottom:10px;padding:0 0;}#yiv8750704131 #yiv8750704131actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8750704131 #yiv8750704131activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8750704131 #yiv8750704131activity span {font-weight:700;}#yiv8750704131 #yiv8750704131activity span:first-child {text-transform:uppercase;}#yiv8750704131 #yiv8750704131activity span a {color:#5085b6;text-decoration:none;}#yiv8750704131 #yiv8750704131activity span span {color:#ff7900;}#yiv8750704131 #yiv8750704131activity span .yiv8750704131underline {text-decoration:underline;}#yiv8750704131 .yiv8750704131attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8750704131 .yiv8750704131attach div a {text-decoration:none;}#yiv8750704131 .yiv8750704131attach img {border:none;padding-right:5px;}#yiv8750704131 .yiv8750704131attach label {display:block;margin-bottom:5px;}#yiv8750704131 .yiv8750704131attach label a {text-decoration:none;}#yiv8750704131 blockquote {margin:0 0 0 4px;}#yiv8750704131 .yiv8750704131bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8750704131 .yiv8750704131bold a {text-decoration:none;}#yiv8750704131 dd.yiv8750704131last p a {font-family:Verdana;font-weight:700;}#yiv8750704131 dd.yiv8750704131last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8750704131 dd.yiv8750704131last p span.yiv8750704131yshortcuts {margin-right:0;}#yiv8750704131 div.yiv8750704131attach-table div div a {text-decoration:none;}#yiv8750704131 div.yiv8750704131attach-table {width:400px;}#yiv8750704131 div.yiv8750704131file-title a, #yiv8750704131 div.yiv8750704131file-title a:active, #yiv8750704131 div.yiv8750704131file-title a:hover, #yiv8750704131 div.yiv8750704131file-title a:visited {text-decoration:none;}#yiv8750704131 div.yiv8750704131photo-title a, #yiv8750704131 div.yiv8750704131photo-title a:active, #yiv8750704131 div.yiv8750704131photo-title a:hover, #yiv8750704131 div.yiv8750704131photo-title a:visited {text-decoration:none;}#yiv8750704131 div#yiv8750704131ygrp-mlmsg #yiv8750704131ygrp-msg p a span.yiv8750704131yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8750704131 .yiv8750704131green {color:#628c2a;}#yiv8750704131 .yiv8750704131MsoNormal {margin:0 0 0 0;}#yiv8750704131 o {font-size:0;}#yiv8750704131 #yiv8750704131photos div {float:left;width:72px;}#yiv8750704131 #yiv8750704131photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8750704131 #yiv8750704131photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8750704131 #yiv8750704131reco-category {font-size:77%;}#yiv8750704131 #yiv8750704131reco-desc {font-size:77%;}#yiv8750704131 .yiv8750704131replbq {margin:4px;}#yiv8750704131 #yiv8750704131ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8750704131 #yiv8750704131ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8750704131 #yiv8750704131ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8750704131 #yiv8750704131ygrp-mlmsg select, #yiv8750704131 input, #yiv8750704131 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8750704131 #yiv8750704131ygrp-mlmsg pre, #yiv8750704131 code {font:115% monospace;}#yiv8750704131 #yiv8750704131ygrp-mlmsg * {line-height:1.22em;}#yiv8750704131 #yiv8750704131ygrp-mlmsg #yiv8750704131logo {padding-bottom:10px;}#yiv8750704131 #yiv8750704131ygrp-msg p a {font-family:Verdana;}#yiv8750704131 #yiv8750704131ygrp-msg p#yiv8750704131attach-count span {color:#1E66AE;font-weight:700;}#yiv8750704131 #yiv8750704131ygrp-reco #yiv8750704131reco-head {color:#ff7900;font-weight:700;}#yiv8750704131 #yiv8750704131ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8750704131 #yiv8750704131ygrp-sponsor #yiv8750704131ov li a {font-size:130%;text-decoration:none;}#yiv8750704131 #yiv8750704131ygrp-sponsor #yiv8750704131ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8750704131 #yiv8750704131ygrp-sponsor #yiv8750704131ov ul {margin:0;padding:0 0 0 8px;}#yiv8750704131 #yiv8750704131ygrp-text {font-family:Georgia;}#yiv8750704131 #yiv8750704131ygrp-text p {margin:0 0 1em 0;}#yiv8750704131 #yiv8750704131ygrp-text tt {font-size:120%;}#yiv8750704131 #yiv8750704131ygrp-vital ul li:last-child {border-right:none !important;}#yiv8750704131
terima kasih atas bantuaanya..
untuk diketahui bahwa due date & finish date beda...due date adalah batas maximal follow upRequest repair = 14 hariRequest estimasi = 10 HariRequest project = 21 hari
terima kasih
Haidar
On Thursday, December 10, 2015 3:03 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Haidar,
Asalamualaikum warahmatullah.
Coba gunakan formula IF:
=IF(P6;IF(P6<O6;"OK";"OVER DUE");"ON Progress")
Tetapi kayaknya syntaknya kurang deh....
bagaimana kalau Finish date = Due Date?
pada formula di atas kalau sama dinamakan over due.
apabila inggin agar Finish date = Due Date menjadi OK, maka formula diubah menjadi:
=IF(P6;IF(P6<=O6;"OK";"OVER DUE");"ON Progress")
wasalamualaikum warahmatullah.
NangAgus
2015-12-10 14:18 GMT+07:00 Haidar Zen haidarlovezen@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Master Excel
mohon bantuannya untuk klasifikasi status "OK" "OVER DUE" & "ON Progress" berikut report summarynya seperti data terlampir
~ Status akan "OK" apabila Finish date < Due Date (kolom O)
~ Status akan "OVER DUE" apabila finish date > due date (kolom O)
~ Status akan "ON PROGRESS" apabila pekerjaan belum finish (tanggal finish belum diisi) < Due date
Terima kasih sebelumnya
Haidar
#yiv8750704131 #yiv8750704131 -- #yiv8750704131ygrp-
Wed Dec 9, 2015 11:52 pm (PST) . Posted by:
"Heru Safrudin" superheruu
Dear Be-exceller...
Saya telah banyak baca referensi dari Be-exceller tapi waktu saya mencoba
sendiri kok gagal terus.
Padahal saya coba Get external data secara manual berhasil.
Mohon pencerahannya pada file terlampir
Wassalam,
Heru Safrudin
Saya telah banyak baca referensi dari Be-exceller tapi waktu saya mencoba
sendiri kok gagal terus.
Padahal saya coba Get external data secara manual berhasil.
Mohon pencerahannya pada file terlampir
Wassalam,
Heru Safrudin
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar