Form Kodlarini Tamamlayamadim

[Rıdvan01]

SELAM ARKADAŞLAR
kod yazmayı hiç bilmiyodum excel forumdan yararlanarak bu kadar yapabildim
eksiklerim var yardımcı olursanız çok mutlu olurum
UserForm ların üzerinde eksik kalan kodlar hakkında kısa notlar var

userform1 açılmıyor
userform2 sayfa3e sıralı kayıt olacak (korkmayın ben sayfada boxların yerlerini belirledim)

ve userform 3 sayfa3 (a1:a1001) ve (b1:b1001) arama yaptırılacak

ben çok uğraştım yapamadım
mevcut kodlarda biraz karışık ama işimi görüyalarya yeter

 

[mrttrn]

Sub Düğme3_Tıklat()
'
' Düğme3_Tıklat Makro
' Makro Rıdvan tarafından 05.11.2007 tarihinde kaydedildi.
'
Load UserForm1
UserForm1.Show
Sheets("Sayfa2").Select
Range("a1").Select
End Sub
-------------------------------
tanımlanıp load Userform1 kodundan aşağıdaki

Private Sub UserForm_Initialize() içindeki

ComboBox1.RowSource = "Sayfa2!l2:l" & [Sayfa2!l65536].End(3).Row
hata veriyor.

Bunun düzenlenmesi lazım.Bende bu kodu düzeltemedim.

 

[Rıdvan01]

Sub Düğme3_Tıklat()
'
' Düğme3_Tıklat Makro
' Makro Rıdvan tarafından 05.11.2007 tarihinde kaydedildi.
'
Load UserForm1
UserForm1.Show
Sheets("Sayfa2").Select
Range("a1").Select
End Sub
-------------------------------
tanımlanıp load Userform1 kodundan aşağıdaki

Private Sub UserForm_Initialize() içindeki

ComboBox1.RowSource = "Sayfa2!l2:l" & [Sayfa2!l65536].End(3).Row
hata veriyor.

Bunun düzenlenmesi lazım.Bende bu kodu düzeltemedim.

---ilgin için teşekkür ederim beklemekten başka çarem yok----

 

[Rıdvan01]

Sayın ustalar
ekteki dosyayı düzenlemek zamanınızı alabilir bana yol gösterin
hatanın nerede olduğunu belirtirseniz ben belki düzeltebilirim.

 

[Orion1]

Userform1'de İnitialize olayındaki kodlar aşağıdaki gibi olmalı.

Private Sub UserForm_Initialize()
son = [a65536].End(3).Row
ListBox1.ColumnCount = 13
ListBox1.RowSource = "Sayfa1!A2:m" & son
ComboBox2.RowSource = "Sayfa2!m2:m" & [Sayfa2!m65536].End(3).Row
ComboBox3.RowSource = "Sayfa2!N2:N" & [Sayfa2!N65536].End(3).Row
End Sub

 

[Mahmut Kök]

Formunuza ComboBox1 ve ComboBox4 ekleyip deneyiniz. Formunuzda bu nesneler yok ama kodlarınızda ComboBox1.RowSource =.... var

 

[mrttrn]

'ComboBox1.RowSource = "Sayfa2!L2:L" & [Sayfa2!L65536].End(3).Row
ComboBox2.RowSource = "Sayfa2!m2:m" & [Sayfa2!m65536].End(3).Row
ComboBox3.RowSource = "Sayfa2!N2:N" & [Sayfa2!N65536].End(3).Row
'ComboBox4.RowSource = "Sayfa2!o2:o" & [Sayfa2!o65536].End(3).Row

L ve O sutunu için çalışmıyor.Çünkü Userform1 de
combobox1 ve combobox4 olmadığından hata veriyor.

Userform1 de ise Combobox2 ve Combobox3 kutusu var.

 

[Rıdvan01]

teşekkür ederim sorun çözüldü
evet ya bu kadar basit ama ben yeni öğreniyorum
yani userform da yaptığım degişikligi kod sayfasında hemen değiştirmek gerekiyor