- Katılım
- 6 Eylül 2007
- Mesajlar
- 657
- Excel Vers. ve Dili
- excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Merhaba. Hazırlamış olduğum UsrForm'da Run-time error '424' Object required hatası ile karşılaşmaktayım. İnternette hata kodu ile biraz araştırma yaptım fakat herhangi bir sonuca ulaşamadım. Konu hakkında yardımcı olablir misiniz ?
Kullanmış olduğum kod'lar şu şekilde;
Private Sub CheckBox1_Change()
If UserForm91.CheckBox1.Value = True Then
UserForm91.CheckBox2.Value = flase
UserForm91.CheckBox3.Value = flase
UserForm91.CheckBox4.Value = flase
Sayfa76.Range("$T$57") = 1
Unload Me
UserForm85.Show
End If
End Sub
Private Sub CheckBox2_Change()
If UserForm91.CheckBox2.Value = True Then
UserForm91.CheckBox1.Value = flase
UserForm91.CheckBox3.Value = flase
UserForm91.CheckBox4.Value = flase
Sayfa76.Range("$T$57") = 2
Unload Me
UserForm88.Show
End If
End Sub
Private Sub CheckBox3_Change()
If UserForm91.CheckBox3.Value = True Then
UserForm91.CheckBox1.Value = flase
UserForm91.CheckBox2.Value = flase
UserForm91.CheckBox4.Value = flase
Sayfa76.Range("$T$57") = 3
Unload Me
UserForm89.Show
End If
End Sub
Private Sub CheckBox4_Change()
If UserForm91.CheckBox4.Value = True Then
UserForm91.CheckBox1.Value = flase
UserForm91.CheckBox2.Value = flase
UserForm91.CheckBox3.Value = flase
Sayfa76.Range("$T$57") = 4
Unload Me
UserForm90.Show
End If
End Sub
Private Sub UserForm_Click()
End Sub
Kullanmış olduğum kod'lar şu şekilde;
Private Sub CheckBox1_Change()
If UserForm91.CheckBox1.Value = True Then
UserForm91.CheckBox2.Value = flase
UserForm91.CheckBox3.Value = flase
UserForm91.CheckBox4.Value = flase
Sayfa76.Range("$T$57") = 1
Unload Me
UserForm85.Show
End If
End Sub
Private Sub CheckBox2_Change()
If UserForm91.CheckBox2.Value = True Then
UserForm91.CheckBox1.Value = flase
UserForm91.CheckBox3.Value = flase
UserForm91.CheckBox4.Value = flase
Sayfa76.Range("$T$57") = 2
Unload Me
UserForm88.Show
End If
End Sub
Private Sub CheckBox3_Change()
If UserForm91.CheckBox3.Value = True Then
UserForm91.CheckBox1.Value = flase
UserForm91.CheckBox2.Value = flase
UserForm91.CheckBox4.Value = flase
Sayfa76.Range("$T$57") = 3
Unload Me
UserForm89.Show
End If
End Sub
Private Sub CheckBox4_Change()
If UserForm91.CheckBox4.Value = True Then
UserForm91.CheckBox1.Value = flase
UserForm91.CheckBox2.Value = flase
UserForm91.CheckBox3.Value = flase
Sayfa76.Range("$T$57") = 4
Unload Me
UserForm90.Show
End If
End Sub
Private Sub UserForm_Click()
End Sub
