Üçlü veriye bağlı olarak veri bulup textboxa getirmek

[hikmet]

merhaba,
Üç adet veriyi baz alarak bir veriyi buldurup userformda textbox'a getirmek mümkünmüdür. Ek'li dosya da açıklamaya çalıştım. Bu konuda yardımcı olabilirmisiniz.İlginize teşekkür ederim.

 

[hikmet]

bu konuda fikri olan hocam yokmu? değerli firkirlerinizi esirgemeyin hocalarım :düsün:

 

[hikmet]

sn.hocalarım bu soru ile ilgili olarak sormak istediğim userformun içinde üç kirtere göre arama yapması için if ve ara komutu kullanabilirmiyim. konu hakkında bilgisi olanlardan yardım bekliyorum.ilginize şimdiden teşekkürler
:idea:

 

[hikmet]

şu anda gördüğüm kadarı ile forumda on line olan ustalarım var bana bu konuda bir yorumları olursa çok sevinirim. yorumlarınız bile yardımcı olacaktır bana.

 

[veyselemre]

malın kodu ile rengini birleştirip tek bir combobox'a alırsan senin için daha kolay
olur, bu şekilde yapmazsan kodu seçtikten sonra tekrar renk kontrolü yaptırman
gerekecek, ikisini birleştirir tek combobox'a alırsan çok kolay olur.

 

[hikmet]

sn.veyselemre peki elinizde bu tip bir örnek varmıdır acaba.rica etsem benimle paylaşırmısınız.

 

[veyselemre]

eğer bu şekilde düşünürsen aşağıdaki kodları

formun kod sayfasına yapıştır dene
[vb:1:76f31525d7]
Dim sira, sutun
Private Sub ComboBox1_Change()
sira = ComboBox1.ListIndex + 2
TextBox1 = Cells(sira, 2)
If sutun <> "" Then TextBox2 = Cells(sira, sutun)
End Sub
Private Sub ComboBox3_Change()
If sira <> "" Then sutun = ComboBox3.ListIndex + 4
TextBox2 = Cells(sira, sutun)
End Sub
Private Sub UserForm_Activate()
sonsat = [a65536].End(3).Row
For x = 2 To sonsat
ComboBox1.AddItem Cells(x, 1) & "-" & Cells(x, 3)
Next x
For x = 4 To 11
ComboBox3.AddItem Cells(1, x)
Next x
End Sub[/vb:1:76f31525d7]

 

[hikmet]

sn.veysel emre öncelikle teşekkür ederim yorumunuzdan dolayı. verdiğiniz kodları bağlamadan önce tam anlatabilmişmiyim diye teyit etmek istedim. iki veriyi verince yani mal kodunu(renk ile birlikte) ve ödeme şeklini verince girilen mal kodundaki vadeli fiyatı hangisi ise onu bulabilmesi gerekiyor. konuyu anlatabilmişmiyim. verdiğim rahatsızlıktan dolayı özür, ilginizden dolayı da tekrar teşekkür ederim.

 

[hikmet]

levent hocam sizin bir yorumunuz olabilirmi bu konuda. sizinde değerli yorumlarınızı bizimle paylaşmanız mümkünmüdür.

 

[hikmet]

:kafa: :kafa: :kafa: :gidiyorum:

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[hikmet]

merhaba, levent hocamın verdiği örneği inceledim örnekte vade seçtiğim zaman Worksheetfunction sınıfının Subtotal özelliği alınamıyor mesajı veriyor. Bu hata diğer kodları bağlamadığımdan mı olabilir yoksa bu lokal bir hatamıdır.

 

[Levent Menteşoğlu]

Yukrıda eklediğim dosyada hata veriyormu, tekrar denedim gayet güzel çalışıyor.

 

[hikmet]

hocam üç combobox da ayrı hata veriyor. ödeme şekli combox'nda Worksheetfunction sınıfının Subtotal özelliği alınamıyor mesajı veriyor. malın kodu combox'nda Range sınıfının autofilter yöntemi başarısız, combobox üç t ede application-defined or object-defined hatası veriyor kullandığım excel 2002 tr ve makro güvenlik seviyem de düşük bunlar hataya sebep olabilirmi.

 

[Levent Menteşoğlu]

Açıkçası fikrim yok, diğer üyelerimizdende bir deneme yapıp sonucunu bildirmesini rica edelim.

 

[Levent Menteşoğlu]

Galiba sebebini anladım. Combobox2 deki kodu aşağıdaki ile değiştirerek denermisiniz.

[vb:1:81e99170a3]Private Sub ComboBox2_Click()
[a1:c1].AutoFilter Field:=3, Criteria1:=ComboBox2
TextBox2 = WorksheetFunction.Subtotal(9, Range(Cells(2, sut), Cells(65536, sut)))
End Sub[/vb:1:81e99170a3]

 

[hikmet]

levent hocam teşekkür ederim sorun giderilmiş oldu. ama kendi bilgisizliğimin kurbanı oldum. sorun şu ki bu verileri veri sayfasından alacak ama sipariş sayfasına kaydedecek. bu durumda kodlarda bir değişiklik olurmu.

 

[Levent Menteşoğlu]

Elbette olur, hücre tanımlamalarının başına sayfa adlarını tanımlamak gerekir.

 

[hikmet]

Private Sub ComboBox2_Click()
[Veri!a1:c1].AutoFilter Field:=3, Criteria1:=ComboBox2
TextBox2 = WorksheetFunction.Subtotal(9, Range(Cells(2, sut), Cells(65536, sut)))
End Sub

kodlar bu şekildemi değişmesi gerekir hocam.

 

[Levent Menteşoğlu]

Bunu bu şekilde cevaplamak mümkün değil, dosyanızı eklemelisiniz.