Userformlara düğme atamak

[truvali27m]

Merhaba arkadaşlar,benim sorum userform oluşturuyorum ve buna düğme atıyorum ama sonra düğmeye bastığımda şu hatayı veriyor
runtime error 380
couldn't set the rowsource property.invalid property value

kodları şöyle yazıyorum düğmeye
sub PERSONELKAYIT ()
userform3.show
End sub
acaba nerde hata yapıyorum anlamadım.

 

[fedeal]

userform3 ün ınitialize yada activate olaylarında kodlarda bir problem olabilirmi?
mesala combobox varsa onun kodunda?

 

[truvali27m]

userform3 ün ınitialize yada activate olaylarında kodlarda bir problem olabilirmi?
mesala combobox varsa onun kodunda?

Sayın Fedeal,
örnek dosyayı yolluyorum.Sizin yaptığınız özelliklerde var bu örnekte ;-)
teşekkür ediyorum ilgilendiğin için şimdiden.kolay gelsin.

 

[fedeal]

sizin çalışmanızda userform yok. ben ekledim inceleyin isterseniz.

 

[truvali27m]

sizin çalışmanızda userform yok. ben ekledim inceleyin isterseniz.

Sayın fedeal çok teşekkür ediyorum ama ben yanlış örnek dosya eklemişim ya gerçekten de kusura bakmayın şimdi siz yollayınca fark ettim.
Yeniden ekliyorum dosyayı.gereksiz yere meşgul ettiğim için sizi de kusura bakmayın.

 

[fedeal]

Dedigim yerde hata varmış düzelttim.calışmanızı güzel görselleştirmişiniz. iyi akşamlar.

 

[truvali27m]

Dedigim yerde hata varmış düzelttim.calışmanızı güzel görselleştirmişiniz. iyi akşamlar.

Çok teşekkür ediyorum fedeal ilginiz ve bilginiz için.Sizden öğrendiğim özellikleri uygularım işte ;-) burdan öğrenmeye çalışıyorum daha.Size de iyi akşamlar,kolay gelsin.

 

[fedeal]

ricaederim hepimiz öğreniyoruz excel.web sayesinde

 

[janveljan]

Sn. truvali27m İyi Akşamlar
Çalışmanızı biraz inceledim, güzel çalışma olmuş, daha da geliştiriyorsunuz sanırım. Benim de naçizane yazdığınız kodları kısaltmak adına birkaç tavsiyem olacak. Çalışmanızda birkaç düzenlemeyle döngüler kullanarak kodlarınızı oldukça kısaltabilirsiniz. Size aşağıda birbirinin aynı işlevi yapan iki örnek vermeye çalışayım.

TextBox2 = Cells(1, 2)
TextBox3 = Cells(1, 3)
TextBox4 = Cells(1, 4)
TextBox5 = Cells(1, 5)
---------Aynı işlevi görüyor-------
For i = 2 To 5
Controls("Textbox" & i) = Cells(1, i)
Next

Cells(1, "A") = ""
Cells(1, "B") = ""
Cells(1, "C") = ""
Cells(1, "D") = ""
Cells(1, "E") = ""
-----------Yine bunlarda aynı işlemi yapıyor
For i = 1 To 5
Cells(1, i) = ""
Next

Çalışmalarınıza uygulayabilirsiniz, kolay gelsin.

 

[truvali27m]

Sn. truvali27m İyi Akşamlar
Çalışmanızı biraz inceledim, güzel çalışma olmuş, daha da geliştiriyorsunuz sanırım. Benim de naçizane yazdığınız kodları kısaltmak adına birkaç tavsiyem olacak. Çalışmanızda birkaç düzenlemeyle döngüler kullanarak kodlarınızı oldukça kısaltabilirsiniz. Size aşağıda birbirinin aynı işlevi yapan iki örnek vermeye çalışayım.

TextBox2 = Cells(1, 2)
TextBox3 = Cells(1, 3)
TextBox4 = Cells(1, 4)
TextBox5 = Cells(1, 5)
---------Aynı işlevi görüyor-------
For i = 2 To 5
Controls("Textbox" & i) = Cells(1, i)
Next

Cells(1, "A") = ""
Cells(1, "B") = ""
Cells(1, "C") = ""
Cells(1, "D") = ""
Cells(1, "E") = ""
-----------Yine bunlarda aynı işlemi yapıyor
For i = 1 To 5
Cells(1, i) = ""
Next

Çalışmalarınıza uygulayabilirsiniz, kolay gelsin.

Çok teşekkür ediyorum Sayın janveljan bilginiz için.Bunları kullanıcam yoksa çok kod yazarım daha yeni öğrenmeye başladığım için inceliyorum daha değişik örnekleri.İyi geceler size