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.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
Merhaba.
-- 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.
.
-- 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.
.
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...