Private Sub TextBox_CepheOlcusu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox_CepheOlcusu.Value >= 8000 Then
ComboBox_RaySayisi.ListIndex = ComboBox_RaySayisi.ListIndex + 1
result = MsgBox("Cephe ölçüsü Limit değerin üstünde..." & vbNewLine & "Ray sayısı güncellenecek.", vbYesNo + vbCritical, "WINPERAX Teklif Bilgi Ekranı")
If result = vbYes Then
MsgBox "Ray sayısı güncellendi", vbExclamation, "WINPERAX Teklif Bigi Ekranı"
Else: result = vbNo
MsgBox "DİKKAT" & vbNewLine & "Sistem bileşenlerinden Ray Sayısı güncellenemedi...", vbOKOnly + vbCritical, "WINPERAX Teklif Bilgi Ekranı"
ComboBox_RaySayisi.ListIndex = 1
End If
ElseIf TextBox_CepheOlcusu.Value < 4000 Then
result = MsgBox("Cephe ölçüsü Limit değerin altında..." & vbNewLine & "Ray sayısı güncellenecek.", vbYesNo + vbCritical, "WINPERAX Teklif Bilgi Ekranı")
ComboBox_RaySayisi.ListIndex = ComboBox_RaySayisi.ListIndex - 1
If result = vbYes Then
MsgBox "Ray sayısı güncellendi", vbExclamation, "WINPERAX Teklif Bigi Ekranı"
Else: result = vbNo
MsgBox "DİKKAT" & vbNewLine & "Sistem bileşenlerinden Ray Sayısı güncellenemedi...", vbOKOnly + vbCritical, "WINPERAX Teklif Bilgi Ekranı"
ComboBox_RaySayisi.ListIndex = 1
End If
End If
End Sub
Alttaki kodu dener misin?
"Dünyayı fazla düşünme."