userform hata veriyoo!!

[megaloman21]

Private Sub UserForm_Initialize()
Sheets("Bilgi").Activate
ComboBox1.RowSource = "f3:f" & [F65536].End(3).Row
ComboBox2.RowSource = "b3:b" & [b65536].End(3).Row
ComboBox3.RowSource = "g3:g" & [g65536].End(3).Row
ComboBox4.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox5.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox8.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox9.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox10.RowSource = "c3:c" & [c65536].End(3).Row
TextBox7.Value = Format(Date, "dd.mm.yyyy"

arkadaslar userformu aktif yapınca renkli olan yerde hata veriyo:S yardımcı olursanız sevinirim..

 

[NBATMAN]

Private Sub UserForm_Initialize()
ON ERROR RESUME NEXT
Sheets("Bilgi").Activate
ComboBox1.RowSource = "f3:f" & [F65536].End(3).Row
ComboBox2.RowSource = "b3:b" & [b65536].End(3).Row
ComboBox3.RowSource = "g3:g" & [g65536].End(3).Row
ComboBox4.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox5.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox8.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox9.RowSource = "c3:c" & [c65536].End(3).Row
ComboBox10.RowSource = "c3:c" & [c65536].End(3).Row
TextBox7.Value = Format(Date, "dd.mm.yyyy"

arkadaslar userformu aktif yapınca renkli olan yerde hata veriyo:S yardımcı olursanız sevinirim..

Eklediğim mavi renkli satırı deneyin ve olması gerekenleri takip ediniz
çalışmayan yer var ise bu noktaya dikkat ediniz ve bu nokta ile ilgili kontrolleri ,eksik veya hataları check edip düzeltiniz.

 

[NBATMAN]

birşey fark ettim
TextBox7.Value = Format(Date, "dd.mm.yyyy"
bu satırda ya forma eklerken çıkmamış yada gerçekten sen code larında yazarken parantezi kapatmayı unutmuşsun?

 

[megaloman21]

forma eklerken cıkmamıs ancak bu mavi renkli kodu da ekledim bi değişiklik olmadı:S