İki combobox taki verilere gore textboxlara veri cagirma

[manly]

Kodlar sayfasinda A sutununda kaplama kodu B sutununda sistem basliklari var. Ben comboxlara verileri cagirdigimda, o veriler satirda var ise o satirin sutunlarini textboxlara getirsin istiyorum.

 

[manly]

Yardim lütfen...

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ile destekleyip açıklamanızı rica ederim.

.

 

[manly]

Hocam guvenlikten dolayi internet olmayan bir bilgisayar. Ben size kod resmini gonderiyorum. Sorun deger sayi olmadigi icin sorun veriyor. Metin olan bir kod a cevirebilirmisiniz.

*1 olayindan kaynaklaniyor.

 

[manly]

Merhaba,

Sorunuzu örnek dosya ile destekleyip açıklamanızı rica ederim.

.

Dosyam ekte çalışır vaziyette. Sadece B sütununa rakam yerine metin yazıldığında hata veriyor. Hata vermesinin sebebi de makroda ki;
If b = ComboBox1.Value * 1 And c = TextBox02.Value * 1 Then

* 1 değerinde sorun gözüküyor.

 

[Ömer]

Bu şekilde deneyin.

If b = Val(ComboBox1.Value) And c = Val(TextBox02.Value) Then

.

 

[manly]

Denedim veriler gelmiyor hocam..

 

[Ömer]

If b = ComboBox1.Value * 1 And c = TextBox02.Value * 1 Then

bu bölümü silip yerine verdiğim satırı eklediniz mi?

Benim denememde.
Örneğin:

Kaplamadan 1100
Seans bölümüne de 2

yazınca veriler geldi.

.

 

[manly]

Hocam seans bölümüne rakam olunca veriyor. Ama metin olunca vermiyor.
Mesela 1 yerine YENİ 2 yerine KLASİK yazıyorum hata veriyor

 

[Hakan ERDOST]

  If b = ComboBox1.Text And c = TextBox02.Text Then

Yazıp deneyiniz.(Küçük harf, büyük harfe dikkat)

 

[manly]

Teşekkürler hocam sağolun...

 

[Hakan ERDOST]

Rica ederim.Kolay gelsin.