değerin solundaki değerin bulunması

[osmancig]

ekteki dosyada SATIŞ & SENET sayfasında A sütünunda ürünün cinsi D sutununda ürünün stok kodu ( D 2222 ile D 9988 arası için girilmiş

vaziyette) E sutununda ise ürün isimleri girilmiş. FİYATLAR sayfasında ise B sütununda ürün kodları C sutununda ise ürün isimleri

girilmiştir.

FİYATLARsayfasında B 2 ile B 1497 arasındaki ürün kodlarından SATIŞ & SENET sayfasında D 2222 ile D 9988 arası için girilmiş ürün kodları

ile bulunanların A sutunundaki değerin FİYATLAR sayfasındaki E sutununa yazılması.

örn. : fiyatlar sayfasında

990038 ARNİCA 444 MUTFAK ROBOTU

yazan satırın E sutununa SATIŞ & SENET sayfasındaki D 2341 satırında olan kodunun A sutunundaki değeri olan M.RBT. yazılması

 

[Levent Menteşoğlu]

Aşağıdaki kodu FİYATLAR isimli sayfada çalıştırın.

[vb:1:285a2139ad]Sub aktar()
On Error Resume Next
Set s1 = Sheets("SATIŞ & SENET")
Set s2 = Sheets("FİYATLAR")
For a = 2 To s2.[b65536].End(3).Row
sat = WorksheetFunction.Match(s2.Cells(a, "b"), s1.[d:d], 0)
s2.Cells(a, "e") = s1.Cells(sat, "a")
Next
End Sub
[/vb:1:285a2139ad]

 

[osmancig]

sayın leventm, cevabınız için teşekkür ederim. Diğer dosyalarımda kullanılması için soruyorum: formül ile bulunma yöntemi var mı ?

 

[Levent Menteşoğlu]

Koddaki aynı mantığı kullanırsak, FİYATLAR sayfasındaki E2 hücresine aşağıdaki formülü yazın ve aşağı doğru sürükleyerek çoğaltın.

=DOLAYLI("'SATIŞ & SENET'!A"&KAÇINCI(B2;'SATIŞ & SENET'!D;0))

 

[osmancig]

=DOLAYLI("'SATIŞ & SENET'!A"&KAÇINCI(B2;'SATIŞ & SENET'!D;0))

#AD? hatası veriyor.

sayın leventm'nin örnek gösterdiği formülde çıkan sembolünün harflerini çözemediğimden de olabilir

 

[Merhum İdris SERDAR]

=DOLAYLI("'SATIŞ & SENET'!A"&KAÇINCI(B2;'SATIŞ & SENET'!D:d;0))

şeklinde, elle veya buradan kopyalayark deneyin.

 

[osmancig]

TEŞEKKÜR EDERİM

 

[osmancig]

oldu. teşekkür ederim