Şartlara göre veriyi bulma

[manly]

Ekteki dosya açıldığında VERİ sayfasındaki U sütununa verilerin şu şekilde gelmesini istiyorum.
S sütunundaki çap değeri RİNG sayfasındaki Çap1 ve Çap2 sütunundaki değerlerin hangisi arasında ise C sütunundaki değerini getirsin.

 

[Ömer BARAN]

Merhaba, umarım yanlış anlamadım.

-- Formül ile çözüm: U2 hücresine uygulayın ve aşağı doğru kopyalayın.
.

=KAYDIR(Ring!$C$1;KAÇINCI($S2;Ring!A$1:A$10;1)-1;0)

-- Makro ile çözüm:

[B]Sub KALOT_ADET()[/B]
Set v = Sheets("Veri"): Set r = Sheets("Ring")
For sat = 2 To v.Cells(Rows.Count, "S").End(3).Row
v.Cells(sat, "U") = r.Cells(WorksheetFunction.Match(v.Cells(sat, "S"), r.Range("A1:A10"), 1), "C")
Next
[B]End Sub[/B]

 

[manly]

Çok doğru anlamışsınız. Teşekkür ederim. Makro kodu olarak nasıl yazabiliriz hocam....

 

[Ömer BARAN]

Önceki cevabıma ekleme yaptım.
Sayfayı yenileyerek kontrol edin.

 

[manly]

Allah razı olsun hocam sağolun...