[belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

classic Classic list List threaded Threaded
13 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

Milis Belajar Excel mailing list
Dear Be-Exceller,

Bagaimana code VBA dengan menggunakan Private Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

Untuk lebih jelasnya, bisa dilihat di file terlampir.

Thank you

Best Regards,
Tio Adi Bayu Adjie


.




image003.jpg (458 bytes) Download Attachment
Test.xlsm (34K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

Milis Belajar Excel mailing list
Salam Be-Exceller,

Apakah ada teman-teman yang punya solusi untuk kasus saya di bawah ini ?


Terima kasih sebelumnya.

________________________________
From: [hidden email] <[hidden email]> on behalf of Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email]>
Sent: Sunday, August 6, 2017 4:30 PM
To: [hidden email]
Subject: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]


This sender failed our fraud detection checks and may not be who they appear to be. Learn about spoofing<http://aka.ms/LearnAboutSpoofing>
        Feedback<http://aka.ms/SafetyTipsFeedback>

Dear Be-Exceller,

Bagaimana code VBA dengan menggunakan Private Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian di combo box di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

Misalnya sebelumnya nilai di combo box nilainya "Oil”,  kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

Untuk lebih jelasnya, bisa dilihat di file terlampir.

Terima kasih.

Best Regards,
Tio Adi Bayu Adjie


.





image003.jpg (458 bytes) Download Attachment
Test.xlsm (34K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

Milis Belajar Excel mailing list
Dear Tio

untuk membuat cekrip dimaksud, menurut saya sangat susah karena
pengetahuan saya yang minim tentang VBA.
Misalnya dibuat cekrip seperti ini:

If Target.Address = "$C$5" Then
a = Range("C5")
     b = MsgBox("Anda merubah nilai ini, apakah anda yakin ?", 4, "PESAN")
     If b = 6 Then
     Range("C5") = a
     Exit Sub
     End If
End If
End Sub

Jika cell C5 diubah, ridak bermasalah. namun apabila tidak jadi diubah
maka terjadi looping terus menerus yang tidak berhenti,

Munginkah member b-excel memperbaiki cekrip tersebut?

Saya hanya menyarankan menggunakan userForm sebagai gantinya agar
kondisi tersebut dapat dipenuhi.

Option Explicit
Dim a As String
Dim b As String

Private Sub ComboBox1_Change()
b = MsgBox("Anda merubah nilai ini, apakah anda yakin ?", vbYesNo, "Pesene")
     If b = 6 Then
         Range("C5") = ComboBox1.Value
         UserForm1.Hide
     Else
         UserForm1.Hide
     End If
End Sub

Private Sub UserForm_Activate()
a = ""
ComboBox1.Text = Range("c5")
a = ComboBox1.Value
End Sub

salam

NangAgus


On 8/10/2017 10:19 AM, Tio Adi Bayu Adjie [hidden email]
[belajar-excel] wrote:

>
> Salam Be-Exceller,
>
> Apakah ada teman-teman yang punya solusi untuk kasus saya di bawah ini ?
>
>
> Terima kasih sebelumnya.
>
>
> ------------------------------------------------------------------------
> *From:* [hidden email] <[hidden email]>
> on behalf of Tio Adi Bayu Adjie [hidden email] [belajar-excel]
> <[hidden email]>
> *Sent:* Sunday, August 6, 2017 4:30 PM
> *To:* [hidden email]
> *Subject:* [belajar-excel] Code VBA dengan Worksheet _Change [1
> Attachment]
>
>
> This sender failed our fraud detection checks and may not be who they appear to be. Learn about
> spoofing <http://aka.ms/LearnAboutSpoofing>
> Feedback <http://aka.ms/SafetyTipsFeedback>
>
> Dear Be-Exceller,
>
> Bagaimana code VBA dengan menggunakan *Private Sub
> Worksheet_Change(ByVal Target As Range)**.*Jadi kalau isian di combo
> box di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.
>
> Misalnya sebelumnya nilai di combo box nilainya "Oil”,  kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan
> "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi
> nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan
> kembali ke nilai sebelumnya (Oil).
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
> Terima kasih.
>
> /Best Regards,/
>
> Tio Adi Bayu Adjie
>
> .
>
> Image removed by sender.
> Image removed by sender.
>
>


image003.jpg (456 bytes) Download Attachment
Copy of Test-1.xlsm (41K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Hai Tio,

Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.

Regards,
Kid






2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana code VBA dengan menggunakan *Private Sub Worksheet_Change(ByVal
> Target As Range)**.* Jadi kalau isian “jenis fluida” di ganti maka
> nilainya kembali ke nilai sebelumnya kalau salah input.
>
>
>
> Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda
> merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru
> (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai
> sebelumnya (Oil).
>
>
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
>
>
> Thank you
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
> .
>
> [image: Image removed by sender.]
> [image: Image removed by sender.]
>
>
>

image003.jpg (454 bytes) Download Attachment
re-Test.xlsm (29K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Code VBA dengan Worksheet _Change

Milis Belajar Excel mailing list
Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya. Amiin...

________________________________
From: [hidden email] <[hidden email]> on behalf of 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]>
Sent: Friday, August 11, 2017 7:18:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]



Hai Tio,

Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.

Regards,
Kid






2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email]<mailto:[hidden email]> [belajar-excel] <[hidden email]<mailto:[hidden email]>>:

Dear Be-Exceller,

Bagaimana code VBA dengan menggunakan Private Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

Untuk lebih jelasnya, bisa dilihat di file terlampir.

Thank you

Best Regards,
Tio Adi Bayu Adjie


.






image003.jpg (458 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Attachments]

Milis Belajar Excel mailing list
Mr Kid, boleh ikutan kan ?
Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan dibatalkan ("Cancel) ),
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngSave As Range
    With Target
        If .Count = 1 Then
            If .Address = "$C$5" Then
                Set rngSave = .Offset(0, -1)
                If .Value <> rngSave.Value Then
                    Application.EnableEvents = False
                    If MsgBox("Ganti isinya jadi '" & .Value & "' ?", vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
                        'If Len(.Value) = 0 Then
                        '    rngSave.Value = " "
                        'Else
                            rngSave.Value = .Value
                        'End If
                    Else
                        .Value = rngSave.Value
                    End If
                    Application.EnableEvents = True
                End If
            End If
        End If
    End With
End Sub

maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada gambar berikut ini:


Pertanyaannya :- Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
Mohon penjelasannya Mr. Kid.Terima kasih.
Salam,HK

----- Forwarded Message -----From: Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email]>To: "[hidden email]" <[hidden email]>Sent: Monday, August 14, 2017, 11:42:18 AM GMT+7Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change
   


Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya. Amiin...

From: [hidden email] <[hidden email]> on behalf of 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]>
Sent: Friday, August 11, 2017 7:18:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]  

Hai Tio,

Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.

Regards,
Kid






2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email]>:

 


Dear Be-Exceller,

 

Bagaimana code VBA dengan menggunakanPrivate Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

 

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

 

Untuk lebih jelasnya, bisa dilihat di file terlampir.

 

Thank you

 

Best Regards,

Tio Adi Bayu Adjie

 

 

.











 

image003.jpg (456 bytes) Download Attachment
1502691792082blob.jpg (10K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change

Milis Belajar Excel mailing list
hmmm....

Kenapa ada baris yang di-non aktifkan ?
Apakah baris tersebut tidak dipakai atau tidak berguna ?

Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number

Regards,
Kid






2017-08-14 14:28 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Mr Kid, boleh ikutan kan ?
>
> Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan
> dibatalkan ("Cancel) ),
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>     Dim rngSave As Range
>     With Target
>         If .Count = 1 Then
>             If .Address = "*$C$5*" Then
>                 Set *rngSave = .Offset(0, -1)*
>                 If .Value <> rngSave.Value Then
>                     Application.EnableEvents = False
>                     If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
> vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
>                         'If Len(.Value) = 0 Then
>                         '    rngSave.Value = " "
>                         'Else
>                             rngSave.Value = .Value
>                         'End If
>                     Else
>                         *.Value = rngSave.Value*
>                     End If
>                     Application.EnableEvents = True
>                 End If
>             End If
>         End If
>     End With
> End Sub
>
> maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula
> bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada
> gambar berikut ini:
>
> [image: Inline image]
>
> Pertanyaannya :
> - Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
>
> Mohon penjelasannya Mr. Kid.
> Terima kasih.
>
> Salam,
> HK
>
>
> ----- Forwarded Message -----
> *From:* Tio Adi Bayu Adjie [hidden email] [belajar-excel] <
> [hidden email]>
> *To:* "[hidden email]" <[hidden email]>
> *Sent:* Monday, August 14, 2017, 11:42:18 AM GMT+7
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change
>
>
>
> Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya.
> Amiin...
> ------------------------------
> *From:* [hidden email] <[hidden email]> on
> behalf of 'Mr. Kid' [hidden email] [belajar-excel] <
> [hidden email]>
> *Sent:* Friday, August 11, 2017 7:18:03 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change [1
> Attachment]
>
>
>
> Hai Tio,
>
> Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.
>
> Regards,
> Kid
>
>
>
>
>
>
> 2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana code VBA dengan menggunakan *Private Sub Worksheet_Change(ByVal
> Target As Range)**.* Jadi kalau isian “jenis fluida” di ganti maka
> nilainya kembali ke nilai sebelumnya kalau salah input.
>
>
>
> Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda
> merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru
> (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai
> sebelumnya (Oil).
>
>
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
>
>
> Thank you
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
> .
>
> [image: Image removed by sender.]
> [image: Image removed by sender.]
>
>
>
>

image003.jpg (454 bytes) Download Attachment
1502691792082blob.jpg (10K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Attachments]

Milis Belajar Excel mailing list
Hahaha...ternyata formatnya.Makasih Mr. Kid.
Salam,HK
On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> wrote:

   

hmmm....

Kenapa ada baris yang di-non aktifkan ?
Apakah baris tersebut tidak dipakai atau tidak berguna ?

Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number

Regards,
Kid






2017-08-14 14:28 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

Mr Kid, boleh ikutan kan ?
Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan dibatalkan ("Cancel) ),
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngSave As Range
    With Target
        If .Count = 1 Then
            If .Address = "$C$5" Then
                Set rngSave = .Offset(0, -1)
                If .Value <> rngSave.Value Then
                     Application.EnableEvents = False
                    If MsgBox("Ganti isinya jadi '" & .Value & "' ?", vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
                        'If Len(.Value) = 0 Then
                        '     rngSave.Value = " "
                        'Else
                             rngSave.Value = .Value
                        'End If
                    Else
                        .Value = rngSave.Value
                    End If
                     Application.EnableEvents = True
                End If
            End If
        End If
    End With
End Sub

maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada gambar berikut ini:


Pertanyaannya :- Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
Mohon penjelasannya Mr. Kid.Terima kasih.
Salam,HK

----- Forwarded Message -----From: Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email] >To: "[hidden email] " <[hidden email] >Sent: Monday, August 14, 2017, 11:42:18 AM GMT+7Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change
   


Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya. Amiin...

From: [hidden email] <[hidden email] > on behalf of 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email] >
Sent: Friday, August 11, 2017 7:18:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]  

Hai Tio,

Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.

Regards,
Kid






2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email] >:

 


Dear Be-Exceller,

 

Bagaimana code VBA dengan menggunakanPrivate Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

 

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

 

Untuk lebih jelasnya, bisa dilihat di file terlampir.

 

Thank you

 

Best Regards,

Tio Adi Bayu Adjie

 

 

.











 

   

 

1502691792082blob.jpg (10K) Download Attachment
image003.jpg (456 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change

Milis Belajar Excel mailing list
Kenapa ada baris di-non aktifkan ?


2017-08-14 15:07 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Hahaha...ternyata formatnya.
> Makasih Mr. Kid.
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' [hidden email]
> [belajar-excel] <[hidden email]> wrote:
>
>
>
>
> hmmm....
>
> Kenapa ada baris yang di-non aktifkan ?
> Apakah baris tersebut tidak dipakai atau tidak berguna ?
>
> Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number
>
> Regards,
> Kid
>
>
>
>
>
>
> 2017-08-14 14:28 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
>
> Mr Kid, boleh ikutan kan ?
>
> Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan
> dibatalkan ("Cancel) ),
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>     Dim rngSave As Range
>     With Target
>         If .Count = 1 Then
>             If .Address = "*$C$5*" Then
>                 Set *rngSave = .Offset(0, -1)*
>                 If .Value <> rngSave.Value Then
>                      Application.EnableEvents = False
>                     If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
> vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
>                         'If Len(.Value) = 0 Then
>                         '     rngSave.Value = " "
>                         'Else
>                              rngSave.Value = .Value
>                         'End If
>                     Else
>                         *.Value = rngSave.Value*
>                     End If
>                      Application.EnableEvents = True
>                 End If
>             End If
>         End If
>     End With
> End Sub
>
> maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula
> bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada
> gambar berikut ini:
>
> [image: Inline image]
>
> Pertanyaannya :
> - Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
>
> Mohon penjelasannya Mr. Kid.
> Terima kasih.
>
> Salam,
> HK
>
>
> ----- Forwarded Message -----
> *From:* Tio Adi Bayu Adjie [hidden email] [belajar-excel] <
> [hidden email] >
> *To:* "[hidden email] " <[hidden email] >
> *Sent:* Monday, August 14, 2017, 11:42:18 AM GMT+7
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change
>
>
>
> Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya.
> Amiin...
> ------------------------------
> *From:* [hidden email] <[hidden email] > on
> behalf of 'Mr. Kid' [hidden email] [belajar-excel] <
> [hidden email] >
> *Sent:* Friday, August 11, 2017 7:18:03 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change [1
> Attachment]
>
>
>
> Hai Tio,
>
> Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.
>
> Regards,
> Kid
>
>
>
>
>
>
> 2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana code VBA dengan menggunakan *Private Sub Worksheet_Change(ByVal
> Target As Range)**.* Jadi kalau isian “jenis fluida” di ganti maka
> nilainya kembali ke nilai sebelumnya kalau salah input.
>
>
>
> Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda
> merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru
> (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai
> sebelumnya (Oil).
>
>
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
>
>
> Thank you
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
> .
>
> [image: Image removed by sender.]
> [image: Image removed by sender.]
>
>
>
>
>

1502691792082blob.jpg (10K) Download Attachment
image003.jpg (454 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Attachments]

Milis Belajar Excel mailing list
Hahaha, ga ngerti Mr. Kid karena baik soal maupun jawabannya bukan saya yang buat'
Salam,HK
On Monday, August 14, 2017, 3:52:28 PM GMT+7, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Kenapa ada baris di-non aktifkan ?


2017-08-14 15:07 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

Hahaha...ternyata formatnya.Makasih Mr. Kid.
Salam,HK
On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email] > wrote:

   

hmmm....

Kenapa ada baris yang di-non aktifkan ?
Apakah baris tersebut tidak dipakai atau tidak berguna ?

Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number

Regards,
Kid






2017-08-14 14:28 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email] >:

    

Mr Kid, boleh ikutan kan ?
Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan dibatalkan ("Cancel) ),
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngSave As Range
    With Target
        If .Count = 1 Then
            If .Address = "$C$5" Then
                Set rngSave = .Offset(0, -1)
                If .Value <> rngSave.Value Then
                     Application.EnableEvents = False
                    If MsgBox("Ganti isinya jadi '" & .Value & "' ?", vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
                        'If Len(.Value) = 0 Then
                        '     rngSave.Value = " "
                        'Else
                             rngSave.Value = .Value
                        'End If
                    Else
                        .Value = rngSave.Value
                    End If
                     Application.EnableEvents = True
                End If
            End If
        End If
    End With
End Sub

maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada gambar berikut ini:


Pertanyaannya :- Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
Mohon penjelasannya Mr. Kid.Terima kasih.
Salam,HK

----- Forwarded Message -----From: Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email] >To: "[hidden email] " <[hidden email] >Sent: Monday, August 14, 2017, 11:42:18 AM GMT+7Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change
   


Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya. Amiin...

From: [hidden email] <[hidden email] > on behalf of 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email] >
Sent: Friday, August 11, 2017 7:18:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]  

Hai Tio,

Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.

Regards,
Kid






2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email] >:

 


Dear Be-Exceller,

 

Bagaimana code VBA dengan menggunakanPrivate Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

 

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

 

Untuk lebih jelasnya, bisa dilihat di file terlampir.

 

Thank you

 

Best Regards,

Tio Adi Bayu Adjie

 

 

.











 

   

 

   

 

1502691792082blob.jpg (10K) Download Attachment
image003.jpg (456 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change

Milis Belajar Excel mailing list
Yang bagian di latar kuning Pak,
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngSave As Range
    With Target
        If .Count = 1 Then
            If .Address = "*$C$5*" Then
                Set *rngSave = .Offset(0, -1)*
                If .Value <> rngSave.Value Then
                    Application.EnableEvents = False
                    If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
                        'If Len(.Value) = 0 Then
                        '    rngSave.Value = " "
                        'Else
                            rngSave.Value = .Value
                        'End If
                    Else
                        *.Value = rngSave.Value*
                    End If
                    Application.EnableEvents = True
                End If
            End If
        End If
    End With
End Sub

Apa kegunaan baris itu jika di-non aktifkan ?
Apa kegunaan baris itu jika tetap aktif ?

Seingat saya, saya membuat baris itu dalam keadaan aktif.
Berartikan Pak HK yang mengubahnya menjadi non aktif... Mestinya ada
alasannya kan ya... mbok ya di-share di milis gitu loh...


Regards,
Kid




2017-08-15 10:06 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Hahaha, ga ngerti Mr. Kid karena baik soal maupun jawabannya bukan saya
> yang buat'
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 3:52:28 PM GMT+7, 'Mr. Kid' [hidden email]
> [belajar-excel] <[hidden email]> wrote:
>
>
>
>
> Kenapa ada baris di-non aktifkan ?
>
>
> 2017-08-14 15:07 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
>
> Hahaha...ternyata formatnya.
> Makasih Mr. Kid.
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' [hidden email]
> [belajar-excel] <[hidden email] > wrote:
>
>
>
>
> hmmm....
>
> Kenapa ada baris yang di-non aktifkan ?
> Apakah baris tersebut tidak dipakai atau tidak berguna ?
>
> Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number
>
> Regards,
> Kid
>
>
>
>
>
>
> 2017-08-14 14:28 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Mr Kid, boleh ikutan kan ?
>
> Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan
> dibatalkan ("Cancel) ),
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>     Dim rngSave As Range
>     With Target
>         If .Count = 1 Then
>             If .Address = "*$C$5*" Then
>                 Set *rngSave = .Offset(0, -1)*
>                 If .Value <> rngSave.Value Then
>                      Application.EnableEvents = False
>                     If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
> vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
>                         'If Len(.Value) = 0 Then
>                         '     rngSave.Value = " "
>                         'Else
>                              rngSave.Value = .Value
>                         'End If
>                     Else
>                         *.Value = rngSave.Value*
>                     End If
>                      Application.EnableEvents = True
>                 End If
>             End If
>         End If
>     End With
> End Sub
>
> maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula
> bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada
> gambar berikut ini:
>
> [image: Inline image]
>
> Pertanyaannya :
> - Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
>
> Mohon penjelasannya Mr. Kid.
> Terima kasih.
>
> Salam,
> HK
>
>
> ----- Forwarded Message -----
> *From:* Tio Adi Bayu Adjie [hidden email] [belajar-excel] <
> [hidden email] >
> *To:* "[hidden email] " <[hidden email] >
> *Sent:* Monday, August 14, 2017, 11:42:18 AM GMT+7
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change
>
>
>
> Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya.
> Amiin...
> ------------------------------
> *From:* [hidden email] <[hidden email] > on
> behalf of 'Mr. Kid' [hidden email] [belajar-excel] <
> [hidden email] >
> *Sent:* Friday, August 11, 2017 7:18:03 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change [1
> Attachment]
>
>
>
> Hai Tio,
>
> Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.
>
> Regards,
> Kid
>
>
>
>
>
>
> 2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana code VBA dengan menggunakan *Private Sub Worksheet_Change(ByVal
> Target As Range)**.* Jadi kalau isian “jenis fluida” di ganti maka
> nilainya kembali ke nilai sebelumnya kalau salah input.
>
>
>
> Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda
> merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru
> (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai
> sebelumnya (Oil).
>
>
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
>
>
> Thank you
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
> .
>
> [image: Image removed by sender.]
> [image: Image removed by sender.]
>
>
>
>
>
>

image003.jpg (454 bytes) Download Attachment
1502691792082blob.jpg (10K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Attachments]

Milis Belajar Excel mailing list
Maaf, salah menyimak Mr. Kid...tadi saya pikir baris di Worksheet (baris 1-4).Lagi2 menurut saya (mudah2an ga salah)...krn ga ada pilihan " " dalam Data Validationnya.Tetapi kalo usernya "nekat" menekan tombol Del....maka baris2 VBA yang berwarna kuning itu tidak boleh dihilangkan krn kalau dihilangkan kata yang tercantum dalam formatnya ("Jenis Fluida") ikut hilang. 
Salam,HK

On Tuesday, August 15, 2017, 10:35:50 AM GMT+7, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Yang bagian di latar kuning Pak,
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngSave As Range
    With Target
        If .Count = 1 Then
            If .Address = "$C$5" Then
                Set rngSave = .Offset(0, -1)
                If .Value <> rngSave.Value Then
                     Application.EnableEvents = False
                    If MsgBox("Ganti isinya jadi '" & .Value & "' ?", vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
                        'If Len(.Value) = 0 Then
                        '    rngSave.Value = " "
                        'Else
                             rngSave.Value = .Value
                        'End If
                    Else
                        .Value = rngSave.Value
                    End If
                     Application.EnableEvents = True
                End If
            End If
        End If
    End With
End Sub

Apa kegunaan baris itu jika di-non aktifkan ?
Apa kegunaan baris itu jika tetap aktif ?

Seingat saya, saya membuat baris itu dalam keadaan aktif.
Berartikan Pak HK yang mengubahnya menjadi non aktif... Mestinya ada alasannya kan ya... mbok ya di-share di milis gitu loh...


Regards,
Kid




2017-08-15 10:06 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

Hahaha, ga ngerti Mr. Kid karena baik soal maupun jawabannya bukan saya yang buat'
Salam,HK
On Monday, August 14, 2017, 3:52:28 PM GMT+7, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email] > wrote:

   

Kenapa ada baris di-non aktifkan ?


2017-08-14 15:07 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email] >:

    

Hahaha...ternyata formatnya.Makasih Mr. Kid.
Salam,HK
On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email] > wrote:

   

hmmm....

Kenapa ada baris yang di-non aktifkan ?
Apakah baris tersebut tidak dipakai atau tidak berguna ?

Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number

Regards,
Kid






2017-08-14 14:28 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email] >:

    

Mr Kid, boleh ikutan kan ?
Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan dibatalkan ("Cancel) ),
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngSave As Range
    With Target
        If .Count = 1 Then
            If .Address = "$C$5" Then
                Set rngSave = .Offset(0, -1)
                If .Value <> rngSave.Value Then
                     Application.EnableEvents = False
                    If MsgBox("Ganti isinya jadi '" & .Value & "' ?", vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
                        'If Len(.Value) = 0 Then
                        '     rngSave.Value = " "
                        'Else
                             rngSave.Value = .Value
                        'End If
                    Else
                        .Value = rngSave.Value
                    End If
                     Application.EnableEvents = True
                End If
            End If
        End If
    End With
End Sub

maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada gambar berikut ini:


Pertanyaannya :- Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
Mohon penjelasannya Mr. Kid.Terima kasih.
Salam,HK

----- Forwarded Message -----From: Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email] >To: "[hidden email] " <[hidden email] >Sent: Monday, August 14, 2017, 11:42:18 AM GMT+7Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change
   


Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya. Amiin...

From: [hidden email] <[hidden email] > on behalf of 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email] >
Sent: Friday, August 11, 2017 7:18:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]  

Hai Tio,

Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.

Regards,
Kid






2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email] [belajar-excel] <[hidden email] >:

 


Dear Be-Exceller,

 

Bagaimana code VBA dengan menggunakanPrivate Sub Worksheet_Change(ByVal Target As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke nilai sebelumnya kalau salah input.

 

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya (Oil).

 

Untuk lebih jelasnya, bisa dilihat di file terlampir.

 

Thank you

 

Best Regards,

Tio Adi Bayu Adjie

 

 

.











 

   

 

   

 

   

 

1502691792082blob.jpg (10K) Download Attachment
image003.jpg (456 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change

Milis Belajar Excel mailing list
hehehehe...
gitu ya...
itu sebabnya mending di non-aktifkan ya...

kalau user mengetik nama saya 'Kid' gitu, apa terus ditanyakan oleh si
event change ? gak juga kan, karena sudah ditanyakan lebih dulu oleh si
data validation.
Jadi, alasan bahwa yang diisi user tidak ada dalam daftar tidak bisa
diterima.

cobe deh dilihat di data validation setting-nya.
disana, opsi ignore blank dicentang. itu sebabnya baris-baris yang di-non
aktifkan itu ditambahkan dan aktif.

kalau opsi ignore blank tidak dicentang, trus isian cells yang ada isinya
dihapus dengan backspase di formula bar, pasti sudah di-stop oleh si data
validation.
sedangkan kalau user tekan keyboard tombol delete atau klik kanan cells
pilih clear contents, diperbolehkan oleh data validation, sehingga cukup
tulis spasi di sebelahnya tanpa ada pertanyaan.

Susunan script menjadi :
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngSave As Range
    With Target
        If .Count = 1 Then
            If .Address = "$C$5" Then
                Set rngSave = .Offset(0, -1)
                Application.EnableEvents = False
                If Len(.Value) = 0 Then
                    rngSave.Value = " "
                ElseIf .Value <> rngSave.Value Then
                    If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
                        rngSave.Value = .Value
                    Else
                        .Value = rngSave.Value
                    End If
                End If
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub

Yang dilatar kuning adalah pengubahannya.
Blok IF yang di dalam blok IF Msgbox tinggal penulisan ke lokasi
penyimpanan nilai yang terakhir diisi user.
Baris set environment aplikasi berupa pengaturan on off event enable
dipendah ke luar, yaitu ke blok terdalam yang akan ada proses penulisan
nilai ke suatu cells agar event change tidak ter-trigger berulang kali (ini
yang dimasalahkan oleh mas Nang tempo hari).

So,
otomasi itu perlu disertai antisipasi perilaku user yang dapat diduga dan
bukan sekadar berdasar kewajaran SOP pengisian.
Pada contoh di atas sudah ada antisipasi perilaku user yang melakukan copy
paste atau copy paste values di banyak cells sekaligus,
tetapi belum ada antisipasi bila copas values sebuah nilai yang tidak ada
dalam daftar, juga ketika data validation dibuang (delete cells [bukan
Clear Contents]) atau delete atau insert entire row maupun entire column.
Kalau delete sheet sih jelas lah, gak usah diantisipasi karena si user
sedang emosi atau sedang gak sehat. Apalagi kalau delete workbook atau
delete MSOffice atau malah delete computer.

Untuk antisipasi yang lainnya (termasuk beberapa yang disebut di atas)
tidak disertakan karena pokok utama pada kasus ini adalah memunculkan
msgbox ketika isian cells berubah dan bisa me-roll back (auto meng-undo)
kalau user ingin membatalkannya.

Regards,
Kid



2017-08-15 11:06 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Maaf, salah menyimak Mr. Kid...tadi saya pikir baris di Worksheet (baris
> 1-4).
> Lagi2 menurut saya (mudah2an ga salah)...krn ga ada pilihan " " dalam Data
> Validationnya.
> Tetapi kalo usernya "nekat" menekan tombol Del....maka baris2 VBA yang
> berwarna kuning itu tidak boleh dihilangkan krn kalau dihilangkan kata yang
> tercantum dalam formatnya ("Jenis Fluida") ikut hilang.
>
> Salam,
> HK
>
>
> ------------------------------
> On Tuesday, August 15, 2017, 10:35:50 AM GMT+7, 'Mr. Kid'
> [hidden email] [belajar-excel] <[hidden email]> wrote:
>
>
>
>
> Yang bagian di latar kuning Pak,
> Private Sub Worksheet_Change(ByVal Target As Range)
>     Dim rngSave As Range
>     With Target
>         If .Count = 1 Then
>             If .Address = "*$C$5*" Then
>                 Set *rngSave = .Offset(0, -1)*
>                 If .Value <> rngSave.Value Then
>                      Application.EnableEvents = False
>                     If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
> vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
>                         'If Len(.Value) = 0 Then
>                         '    rngSave.Value = " "
>                         'Else
>                              rngSave.Value = .Value
>                         'End If
>                     Else
>                         *.Value = rngSave.Value*
>                     End If
>                      Application.EnableEvents = True
>                 End If
>             End If
>         End If
>     End With
> End Sub
>
> Apa kegunaan baris itu jika di-non aktifkan ?
> Apa kegunaan baris itu jika tetap aktif ?
>
> Seingat saya, saya membuat baris itu dalam keadaan aktif.
> Berartikan Pak HK yang mengubahnya menjadi non aktif... Mestinya ada
> alasannya kan ya... mbok ya di-share di milis gitu loh...
>
>
> Regards,
> Kid
>
>
>
>
> 2017-08-15 10:06 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
>
> Hahaha, ga ngerti Mr. Kid karena baik soal maupun jawabannya bukan saya
> yang buat'
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 3:52:28 PM GMT+7, 'Mr. Kid' [hidden email]
> [belajar-excel] <[hidden email] > wrote:
>
>
>
>
> Kenapa ada baris di-non aktifkan ?
>
>
> 2017-08-14 15:07 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Hahaha...ternyata formatnya.
> Makasih Mr. Kid.
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' [hidden email]
> [belajar-excel] <[hidden email] > wrote:
>
>
>
>
> hmmm....
>
> Kenapa ada baris yang di-non aktifkan ?
> Apakah baris tersebut tidak dipakai atau tidak berguna ?
>
> Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number
>
> Regards,
> Kid
>
>
>
>
>
>
> 2017-08-14 14:28 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Mr Kid, boleh ikutan kan ?
>
> Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan
> dibatalkan ("Cancel) ),
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>     Dim rngSave As Range
>     With Target
>         If .Count = 1 Then
>             If .Address = "*$C$5*" Then
>                 Set *rngSave = .Offset(0, -1)*
>                 If .Value <> rngSave.Value Then
>                      Application.EnableEvents = False
>                     If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
> vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
>                         'If Len(.Value) = 0 Then
>                         '     rngSave.Value = " "
>                         'Else
>                              rngSave.Value = .Value
>                         'End If
>                     Else
>                         *.Value = rngSave.Value*
>                     End If
>                      Application.EnableEvents = True
>                 End If
>             End If
>         End If
>     End With
> End Sub
>
> maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula
> bar) padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada
> gambar berikut ini:
>
> [image: Inline image]
>
> Pertanyaannya :
> - Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis Fluida" ?
>
> Mohon penjelasannya Mr. Kid.
> Terima kasih.
>
> Salam,
> HK
>
>
> ----- Forwarded Message -----
> *From:* Tio Adi Bayu Adjie [hidden email] [belajar-excel] <
> [hidden email] >
> *To:* "[hidden email] " <[hidden email] >
> *Sent:* Monday, August 14, 2017, 11:42:18 AM GMT+7
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change
>
>
>
> Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya.
> Amiin...
> ------------------------------
> *From:* [hidden email] <[hidden email] > on
> behalf of 'Mr. Kid' [hidden email] [belajar-excel] <
> [hidden email] >
> *Sent:* Friday, August 11, 2017 7:18:03 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Code VBA dengan Worksheet _Change [1
> Attachment]
>
>
>
> Hai Tio,
>
> Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.
>
> Regards,
> Kid
>
>
>
>
>
>
> 2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana code VBA dengan menggunakan *Private Sub Worksheet_Change(ByVal
> Target As Range)**.* Jadi kalau isian “jenis fluida” di ganti maka
> nilainya kembali ke nilai sebelumnya kalau salah input.
>
>
>
> Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda
> merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru
> (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai
> sebelumnya (Oil).
>
>
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
>
>
> Thank you
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
> .
>
> [image: Image removed by sender.]
> [image: Image removed by sender.]
>
>
>
>
>
>
>

image003.jpg (454 bytes) Download Attachment
1502691792082blob.jpg (10K) Download Attachment
Loading...