koşulla ilgili formul ??

[uslu45]

günaydın;

bi formül için uğraşıyorum ama bulamadım
örn:
a1 hücresine yazdığım değerler 1 ile 9 arasında ise 15,
9 ile 15 arasında ise 25,
15 ile 35 arasında ise 45 yazsın b1 hücresine.
nasıl bir formul uygulamam gerekir acaba.
teşekkürler.....

 

[zafer]

Merhaba

B1 hücresine formülü yapıştırınız

EÐER(VE(A1<=9;A1>=1);15;EÐER(VE(A1<=15;A1>=10);25;EÐER(VE(A1<=35;A1>=15);35)))

Lütfen profilinize Office sürüm ve dilini ilave ediniz.

 

[Haluk]

Zafer arkadaşıma alternatif olarak, Türkçe veya İngilizce versiyonlarda çalışacak unisex bir formül:

=(A1>=1) * (A1<9 )*15 + (A1>=9) * (A1<15)*25 + (A1>=15) * (A1<=35)*45

 

[uslu45]

sn zafer çok teşekkürler;
bir daha ki sefere sürüm ve dili unutmam
ben ing e çevirdim formülü

 

[zafer]

Sayın Haluk

Çok sade ve ilgi çekiçi.
Teşekkürler.

 

[Necdet]

35 ten büyükse ne yazacak? Sıfır mı? boşluk mu?

 

[erkanacet]

=+IF(AND(B12>=1;B12<9);"15";IF(AND(B12>=9;B12<15);"25";IF(AND(B12>=15;B12<35);"45";"BİLEMEM")))

 

[Kemal Demir]

Bukadar cevaba karsılık bende alternatif bir cevap yollamak istedim.
Aşagıdaki kodda a1 den a50 kadar değerleri için b sutununa olması gereken değeri yazdırmaktadır.

Sub degerbul()
For c = 1 To 50
If Cells(c, 1).Value > 1 And Cells(c, 1).Value < 9 Then
Cells(c, 2).Value = 15
End If
If Cells(c, 1).Value > 9 And Cells(c, 1).Value < 15 Then
Cells(c, 2).Value = 25
End If
If Cells(c, 1).Value > 15 And Cells(c, 1).Value < 35 Then
Cells(c, 2).Value = 45
End If
Next

End Sub

Umarım ısınıze yarar

 

[erkanacet]

Sayın Rakkas,
Benim makrolar başlığı altında sorduğum "satır birleştirme makrosu" na da bir gözatabilirmisiniz? Henüz bir cevap alamadım da

 

[uslu45]

hepinize ilginizden ötürü tekrar teşekkürler
sn haluk cevabınızı ben mesaj yazdıktan sonra gördüm size de teşekkürler...