Sub Kontrol()
BOLGE = kl.b.value
CSKx  = kl.csk.value
YER   = kl.yer.value
MK  = trim(Kl.Mks.Value)
TAL = trim(Kl.alan.Value)
TAV = trim(Kl.tavan.Value)
Ayd = trim(Kl.Aydin.Value)
CAL = trim(Kl.cal.Value)

if BOLGE = "" then Msgbox "Lütfen ' Hangi Bölge Sınırları içindesiniz. ' yerinden bir seçenek işaretleyiniz." : kl.b.focus: exit sub
if MK = "" then Msgbox "Lütfen ' Maximum Bulunacak Kişi Sayısı ' Hanesini Boş Bırakmayınız" : kl.mks.focus: exit sub
if isnumeric(MK)=false then Msgbox "Lütfen ' Maximum Bulunacak Kişi Sayısı ' Hanesine yazılan karakterlerin rakam olmasına dikkat ediniz." : kl.mks.focus: exit sub
if YER   = "" then Msgbox "Lütfen ' Klimanın Takılacağı Mekan ' yerinden bir seçenek işaretleyiniz." : kl.yer.item.focus: exit sub
if TAL = "" then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Toplam Alanı (m2) ' Hanesini Boş Bırakmayınız" : kl.alan.focus: exit sub
if isnumeric(TAL)=false then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Toplam Alanı (m2) ' Hanesine yazılan karakterlerin rakam olmasına dikkat ediniz." : kl.alan.focus: exit sub
if TAV = "" then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Tavan Yüksekliği (m) ' Hanesini Boş Bırakmayınız" : kl.tavan.focus: exit sub
if isnumeric(TAV)=false then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Tavan Yüksekliği (m) ' Hanesine yazılan karakterlerin rakam olmasına dikkat ediniz." : kl.tavan.focus: exit sub
if Ayd = "" then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Aydınlatma gücü (Watt) ' Hanesini Boş Bırakmayınız" : kl.aydin.focus: exit sub
if isnumeric(Ayd)=false then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Aydınlatma gücü (Watt) ' Hanesine yazılan karakterlerin rakam olmasına dikkat ediniz." : kl.aydin.focus: exit sub
if CSKx   = "" then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Cam Şekli ' yerinden bir seçenek işaretleyiniz." : kl.csk.item.focus: exit sub
if CAL = "" then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Cam Alanı (m2) ' Hanesini Boş Bırakmayınız" : kl.cal.focus: exit sub
if isnumeric(CAL)=false then Msgbox "Lütfen ' Klimanın Takılacağı Mekanın Cam Alanı (m2) ' Hanesine yazılan karakterlerin rakam olmasına dikkat ediniz." : kl.cal.focus: exit sub
kl.submit
End Sub