Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
-- Kod'un son tarafındaki Hsp.Range("B2").Select satırını silin.
-- Silinen bu satırın yerine; Combobox1="" : Combobox2="" şeklinde bir satır ekleyin.
-- Kod'un baş tarafındaki a = 1 & ..... satırının üstüne de; If Combobox1="" OR Combobox2="" Then Exit Sub şeklinde bir satır ekleyin.
Böylece kayıt yapıldıktan sonra Combobox içerikleri temizlenmiş olur,
bunlardan herhangi biri boş olduğunda da kayıt aşamasına geçilmez.
Bu nesneler bir userform üzerinde ise; UserForm_Initalize kodlarının End Sub satırından hemen önce Combobox1="" : Combobox2="" şeklinde bir satır ilavesi yapın.
Sorun yaşarsanız, nesne ve kodların içerisinde olduğu bir örnek belge yükleyin ki onun üzerinden kontrol yapılabilsin.
.
Bu site, içeriği kişiselleştirmek, deneyiminize uyarlamak ve kayıt olmanız durumunda giriş yapmanızı sağlamak için yasal düzenlemelere uygun çerezler (cookies) kullanır.
Bu siteyi kullanmaya devam ederek, çerez kullanımına izin veriyorsunuz.