sipariş formuma yardımlarınızı bekliyorum

[yavuzadak]

böyle bir sipariş formuna ihtiyacım var ve yeni olduğum için excel de yardımlarınıza ihtiyacım var.yapmak istediğim hazırlamış olduğum form a veritabanından ürün model ve fiyatları getirtebilmek...tşk ediyorum şimdiden yardımlarınız için...

 

[SAYGILI]

arkadaşım meraba başlığı yanlış yere açmışsın bu şekilde cevap ve yardım alamazssın alsan bile sınırlı olur ve bu konuyu burda gören mod veya admin arkadaşlar büyük ihtimalle bu başlık burdan görür görmez taşıyacak veya konu başlığı kitlenecektir. tavisyem ilk önce forum kurallarını okuyun,

http://www.excel.web.tr/viewtopic.php?t=879

ve bu konuyu <makro> başlığı altında sorun emin olunki çok kısa bi sürede sorunuza cevaplar alacaksınızdır.
cevap yerine tavsiyede bulunduğum için umarım kusura bakmazsın

 

[yavuzadak]

özür dilerim bundan sonra ona göre yazarım.sizden ricam combobox1 ve combobox2 yi veritabanından nasıl getirtebilirim yardımcı olursanız sevinirim...

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodu kopyalayın.

[vb:1:96198edb57]Private Sub UserForm_Initialize()
ComboBox1.RowSource = "vt!a3:a" & Sheets("vt").[a65536].End(3).Row
End Sub
[/vb:1:96198edb57]

Combobox1'ede aşağıdaki kodu kopyalayın.

[vb:1:96198edb57]Private Sub ComboBox1_Click()
Set s1 = Sheets("vt")
sut = ComboBox1.ListIndex * 3 + 2
sonsat = s1.Cells(65536, sut).End(3).Row + 1
s1.Select
s1.Range(Cells(3, sut), Cells(sonsat, sut)).Select
adr = Selection.Address
ComboBox2.RowSource = adr
End Sub[/vb:1:96198edb57]

 

[yavuzadak]

çok tşk ederim levent cim çalışıyor eline sağlık

 

[yavuz_adak]

yukarıda yazılmış olan aynı formülle fiyat ıda getirebilirmiyim acaba

 

[yavuz_adak]

Private Sub fiyat_Change()
Set s1 = Sheets("vt")
sut = ComboBox2.ListIndex * 3 + 2
sonsat = s1.Cells(65536, sut).End(3).Row + 1
s1.Select
s1.Range(Cells(3, sut), Cells(sonsat, sut)).Select
adr = Selection.Address
ComboBox1.RowSource = adr

End Sub

yukardaki formulde nasıl bi değişiklik yapsamda fiyatıda otomatik getirebilirim acaba ? yardım rica ediyorum...

sonsat = s1.Cells(65536, sut).End(3).Row + 1
bu satırda hata veriyor