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.
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:
ş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.
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.
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]
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.
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.
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 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.
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.