Örnek Dosyada Formüldeki sorun nedir?

[cocoa35]

İyi akşamlar üstatlar, Örnek dosya benim programımdaki tam dosyadır. Sorunum UserForm3 de listbox1 de işaretlediğim satırdaki plakaya göre " Araç Durumu Belirle " Butonuna bastığımda UserForm36 nın açılıp OptionButton'lardaki seçime göre "Araclar" sayfasındaki "M" Sütununu değiştirmek istiyorum ancak hata veriyor sorun nerde acaba?

 

[Muzaffer Ali]

Merhaba.
Userform36 nın kod kısmında olan Set Bul ile başlayan iki tane satır var ikisini de silip yerine aşağıdaki satırı kopyalayın.

Set Bul = Worksheets("Araclar").Range("A:A").Find(What:=UserForm3.ListBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)

 

[cocoa35]

Merhaba.
Userform36 nın kod kısmında olan Set Bul ile başlayan iki tane satır var ikisini de silip yerine aşağıdaki satırı kopyalayın.

Set Bul = Worksheets("Araclar").Range("A:A").Find(What:=UserForm3.ListBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)

Dediğiniz gibi değiştirdim ama hata veriyor yine

 

[Muzaffer Ali]

Onun yerine şu satırı kullanın.

    Set Bul = Worksheets("Araclar").Range("E:E").Find(What:=UserForm3.ListBox1.List(UserForm3.ListBox1.ListIndex, 4), LookIn:=xlValues, LookAt:=xlWhole)

 

[cocoa35]

Sn Muzaffer bey çok teşekkürler gayet güzel oldu Pazar akşamı bu yardımınız için bir kez daha teşekkürler