(21/03/2021, 12:07)feraz yazdı: ThisWorkbook.Sheets("ORDER_LIST")
        Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)

Burdaki sayfa ismini ve aranacak alanı değiştirip denermisiniz benim müsait olacağım zamana kadar.
Ayrıca sadece change kısmına yazmak yeterli.

Change olmayınca bir de exit olayında deneyeyim demiştim. Kodunuzu incelemeyip bodoslama yazmasaydım eğer Order_List sayfasında arama yaptırdığınızı keşfeder ve o sayfayı ana_sayfa sekmesi ile değiştirmeyi akıl edebilirdim ama acele etmişim. Bu şekilde halloldu Feraz hocam ama günün tarihi maalesef combodan seçim yapılınca siliniyor.

(21/03/2021, 07:58)Oğuz Türkyılmaz yazdı: If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name Then

Burayada tarih silinmemesi için şart yazarmısınız
and kontrol.name<>....tarihtextboxu.name
Gibi abey.
Tarihtextboxunu attım kafadan.
Name yazılmasın derseniz  çift tırnak içinde sadece adı yazılmalı.

Feraz hocam tarih sorununu da

exit yordamına yazdığım kodla çözdüm. Tekrar teşekkürler.

Private Sub ComboBox_FirmaUnvani_Exit(ByVal Cancel As MSForms.ReturnBoolean)



TextBox_SiparisTarihi = Format(Date, "dd.mm.yyyy")



End Sub

---

(21/03/2021, 12:54)feraz yazdı:

(21/03/2021, 07:58)Oğuz Türkyılmaz yazdı: If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name Then

Burayada tarih silinmemesi için şart yazarmısınız
and kontrol.name<>....tarihtextboxu.name
Gibi abey.
Tarihtextboxunu attım kafadan.
Name yazılmasın derseniz  çift tırnak içinde sadece adı yazılmalı.

Yanıtınızı kendi çözümümü yazdıktan sonra gördüm hemen deneyeyim.

Feraz hocam sizin çözümü beceremedim benim yazdığımla halloldu nasılsa, benim çözüm çok abes değilse uğraşmanıza gerek yok zaten . Tekrar Teşekkürler

Alttaki gibi olacaktı abey.

If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name And kontrol.Name <> Me.TextBox_SiparisTarihi.Name Then

---

Yada

If kontrol.Name <> "ComboBox_FirmaUnvani" And kontrol.Name <> "TextBox_SiparisTarihi" Then

(21/03/2021, 13:39)feraz yazdı: Alttaki gibi olacaktı abey.

If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name And kontrol.Name <> Me.TextBox_SiparisTarihi.Name Then

---

Yada

If kontrol.Name <> "ComboBox_FirmaUnvani" And kontrol.Name <> "TextBox_SiparisTarihi" Then

Feraz Hocam uyguladım gayet güzel çalışıyor. Tekrar teşekkürler. Konuyu taşıyabilirsiniz.