cocoa35
Altın Üye
- Katılım
- 6 Eylül 2007
- Mesajlar
- 654
- Excel Vers. ve Dili
- excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
- Altın Üyelik Bitiş Tarihi
- 10-12-2024
Merhaba üstatlar, Bir konuda yardımınıza ihtiyacım var aşağıdaki formül ile UserForm üstündeki ListBox'da işaretlediğim kişinin adını sayfada bulup M Sütununda "Yasaklı" yazıyor ise işlem yapmasın yazmıyor ise işlemi yapsın istiyorum ama önce ListBox'da seçim yapmasını istiyorum. Ekli formül çalışıyordu ama şimdi çalışmıyor acaba sorun nerde?
Private Sub CommandButton49_Click()
If ListBox1.ListIndex = -1 Then
MsgBox "Listeden seçim yapılmadı!!!"
Exit Sub
End If
Dim Bul As Range
Set Bul = Worksheets("Araclar").Range("E:E").Find(What:=UserForm3.ListBox1.List(UserForm3.ListBox1.ListIndex, 4), LookIn:=xlValues, LookAt:=xlWhole)
If Cells(Bul.Row, "M") = "Yasaklı" Then
MsgBox "Bu araç yasaklı olduğu için kiralanamaz"
Exit Sub
End If
UserForm9.Show
End Sub
Private Sub CommandButton49_Click()
If ListBox1.ListIndex = -1 Then
MsgBox "Listeden seçim yapılmadı!!!"
Exit Sub
End If
Dim Bul As Range
Set Bul = Worksheets("Araclar").Range("E:E").Find(What:=UserForm3.ListBox1.List(UserForm3.ListBox1.ListIndex, 4), LookIn:=xlValues, LookAt:=xlWhole)
If Cells(Bul.Row, "M") = "Yasaklı" Then
MsgBox "Bu araç yasaklı olduğu için kiralanamaz"
Exit Sub
End If
UserForm9.Show
End Sub