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

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

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 tio.ad...@ptssb.co.id
[belajar-excel] :

>
>
> 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.]
>
> 
>


re-Test.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

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

[nangagus nanga...@gmail.com [belajar-excel]]

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 tio.ad...@ptssb.co.id 
[belajar-excel] wrote:


Salam Be-Exceller,

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


Terima kasih sebelumnya.



*From:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com> 
on behalf of Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel] 
<belajar-excel@yahoogroups.com>

*Sent:* Sunday, August 6, 2017 4:30 PM
*To:* belajar-excel@yahoogroups.com
*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.






Copy of Test-1.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

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

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller,

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


Terima kasih sebelumnya.


From: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com> on behalf 
of Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel] 
<belajar-excel@yahoogroups.com>
Sent: Sunday, August 6, 2017 4:30 PM
To: belajar-excel@yahoogroups.com
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


.






Test.xlsm
Description: Test.xlsm

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

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

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


.





Test.xlsm
Description: Test.xlsm