Dear Tiountuk 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 [email protected]
[belajar-excel] wrote:
Salam Be-Exceller, Apakah ada teman-teman yang punya solusi untuk kasus saya di bawah ini ? Terima kasih sebelumnya. ------------------------------------------------------------------------*From:* [email protected] <[email protected]> on behalf of Tio Adi Bayu Adjie [email protected] [belajar-excel] <[email protected]>*Sent:* Sunday, August 6, 2017 4:30 PM *To:* [email protected]*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
