Txtbox a İKİ kritere göre veri getirme

[ik]

Değerli Arkadaşlar;

bir program yapmaya çalışıyorum. Burada amaç herhangi bir ürünü seçtiğimde bir txtbox a fiyatın gelmesi.

Ancak bir ürünün birden fazla satış şartı var listelerimizde. Örneğin AAA ürünü; Nakit, 3 Taksit, 5 Taksit ve 9 Taksit satılabiliyor. Diğer taraftan bir başka ürün de yine birden fazla seçenekle satılırken diğer bir üründen farklı satış seçeneklerine sahip olabiliyor. Yani; AAA ürünün Nakit, 3 Taksit, 5 Taksit ve 9 Taksit satılırken BBB ürünü Nakit, 8 Taksit, 12 Taksit ve 16 Taksit satılabiliyor.

Buradan hareketle ben ekteki dosyada bulunan Fiyatlar sayfasını oluşturdum. Bir ürünü birden fazla yazarak yanına satış şartlarını ve fiyatlarını yazdım.

Şimdi bir userform da CMBURUN comboboxından ürünü ve CMBSART comboboxından da şartını seçtiğimde ilgili fiyatın TXTFIYAT txtboxına gelmesini istiyorum.


Yardımlarınız için TEŞEKKÜRLER

 

[Levent Menteşoğlu]

Şartı seçtiğiniz comboboxa aşağıdaki kodu kopyalayın.

[vb:1:e2dda7387f]Private Sub CmbSart_Change()
For a = 2 To [a65536].End(3).Row
If CmbUrun = Cells(a, "a") And CmbSart = Cells(a, "b") Then
TxtFiyat = Cells(a, "c")
Exit Sub
End If
Next
End Sub[/vb:1:e2dda7387f]

Ürün comboboxuna da aşağıdaki kodu kopyalayın.

[vb:1:e2dda7387f]Private Sub CmbUrun_Click()
CmbSart_Change
End Sub
[/vb:1:e2dda7387f]

 

[orcunerkek54]

bir örnekte benden işini görür umarım.

 

[ik]

TXTBOX A İKİ KRİTERLE VERİ ÇOK SATIRLI

DEĞERLİ DOSTLAR


DAHA ÖNCE BU SORUYU SORMUŞTUM VE SAĞOLUN SORUNU ÇÖZDÜM.

FAKAT SATIR BİRDEN FAZLA OLUNCA NASIL YAPACAĞIM ONU ÇÖZEMEDİM.

ÖRNEK DOSYA EKTEDİR.

YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKÜRLER

Not: Ayrı bir başlıktaki bu mesaj, tarfımdan buraya taşınmıştır. [Haluk ®]

 

[selami güzel]

Fiyat listele

selam
değişik bir uygulama çalışmanızda uyguladım.umarım işinize yarar.

ekte ki dosyayı deneyiniz.
saygılar.