İki değer arasında kalan değerin karşılığı

[karga]

arkadaşlar bende şöyle bir makro hazırladım kontrol edersiniz sorusu olan olursa yanıtlarım


For i = 1 To 100
s = Sheets(1).Cells(i, 7).Value
If s = "" Then
i = 1000
Else
For j = 1 To 10000
If Sheets(1).Cells(j, 1).Value < Sheets(1).Cells(j, 2).Value Then
d1 = Sheets(1).Cells(j, 1).Value
d2 = Sheets(1).Cells(j, 2).Value
Else
d2 = Sheets(1).Cells(j, 1).Value
d1 = Sheets(1).Cells(j, 2).Value
End If
d3 = Sheets(1).Cells(j, 3).Value
If d1 <= s And s <= d2 Then
Sheets(1).Cells(i, 8).Formula = d3
j = 10000
Else
End If
Next
End If
Next

 

[Excel113]

Konuyu yanl&#305;&#351; anlamad&#305;ysam...
H s&#252;tununa yaz&#305;lacak, en k&#305;sa form&#252;ller a&#351;a&#287;&#305;daki gibi olmal&#305;,

=E&#286;ER(VE(G2>=A2;G2<=B2);C2;"")
=E&#286;ER(VE(G3>=A3;G3<=B3);C3;"")
=E&#286;ER(VE(G4>=A4;G4<=B4);C4;"")
=E&#286;ER(VE(G5>=A5;G5<=B5);C5;"")
=E&#286;ER(VE(G6>=A6;G6<=B6);C6;"")

 

[XelNaga DoUrden]

Merhaba arkada&#351;lar bende bu konu ile ilgili bir makro haz&#305;rlad&#305;m ve bunu bir butona atad&#305;m...


Sub arama()
'&#304;lk olarak G s&#252;tunundaki markalar siliniyor &#231;&#252;nk&#252; hi&#231; bir de&#287;er aral&#305;&#287;&#305;na girmeyecek say&#305;lar i&#231;in Marka k&#305;sm&#305;n&#305;n bo&#351;luk olmas&#305;n&#305; istedim.

a = 1
Do
a = a + 1
Cells(a, 8).Value = ""
Loop Until Cells(a + 1, 8).Value = ""

'Daha sonra ise deger aral&#305;klar&#305;na g&#246;re marka yaz&#305;l&#305;yor.
a = 1
Do
a = a + 1
b = 1
Do
b = b + 1
If Cells(a, 7) >= Cells(b, 1) And Cells(a, 7) <= Cells(b, 2) Then
Cells(a, 8).Value = Cells(b, 3).Value
End If
Loop Until Cells(b+1, 2).Value = ""
Loop Until Cells(a+1, 7).Value = ""


End Sub

 

[fatihbuyun]

Merhaba

Açıklamamı ekli, dosyada yazdım.
istenen : İki değer arasında kalan verinin karşılığı olan değerin istediğimiz sütuna getirilmesi.
Bir bakıma düşeyara diyebiliriz ama nasıl..

Daha önce Türker arkadaşım tarafından sütun ilavesi yapılarak formülle çözülmüştü.
Bende aynı konuyu soran başka bir arkadaşıma aynı çözümü önermiştim

Alternatifleri olabilirmi...

Burada ilk çözüm excel'in kendi işlevlerini kullanmak.Tabiiki diğer arkadaşlara yol göstermek açısındam Kullanıcı tanımlı fonk.ve makro ilede çözümler üretebiliriz.
********************************************************************
Merhaba ,
Zafer arkadaşım bana excel dosyasını benim mail adresime fatihbuyun@gmail.com'a gönderebilirmsin acaba ,
ekli dosyayı göremiyorum.
Teşekkür ederim.

 

[zafer]

Merhaba


istediğiniz dosyayı yeniledim.

 

[delikadir8001]

=EĞER(A1=1;"BİR";EĞER(A1=2;"İKİ";EĞER(A1=3;"ÜÇ")))
bu işlemi eğer kullanarak 15 kadar çıkarmam gerekiyor 8 den sonra takılıp kaldım lütfen bana yardımcı olun iç içe eğer 8 den sonra nasıl kullanılıyor

 

[kenevir47]

Bu forumda bilgi alış verişinde paraya mı bağlanmış ne iş anlamadım yaklaşık olarak şu ana kadar 200 ün üzerinde değişik bilgi paylaşım forumlara üye olmuşum il kez ben böylesine rastlıyorum. Biri bir formül vermiş doya ekinde dosya ya bakmak için Gold üyeliğiniz olması gerekiyor diyor.