EĞerle Yapilabİlİr Mİ?

[Mdemir63]

Selamlar,

Ekteki dosyamda açıkladım. Eğerle yaptırıyorum ama 6 dan fazla olduğu için karıştırıyorum.

Saygılar

 

[Ömer]

Merhaba,

Eğer verileriniz Sayı ise aşağıdaki formülü deneyiniz.

=EĞER(YADA(A1=1/1;A1=1/2;;A1=1/3;A1=1/4;A1=2/1;A1=2/2;A1=2/3;A1=2/4);21;EĞER(YADA(A1=5/1;A1=5/2;A1=5/3;A1=5/4;A1=6/1;A1=6/2;A1=6/3;A1=6/4);20,5;""))

Verileriniz Metin ise ;

=EĞER(YADA(A1="1/1";A1="1/2";A1="1/3";A1="1/4";A1="2/1";A1="2/2";A1="2/3";A1="2/4");21;EĞER(YADA(A1="5/1";A1="5/2";A1="5/3";A1="5/4";A1="6/1";A1="6/2";A1="6/3";A1="6/4");20,5;""))

Formülünü deneyiniz..

İyi çalışmalar..

 

[captan]

deneyin bakalım. Sayıları değiştirebilir veya arttırabilirsiniz ??

İnceleyiniz??

 

[Mdemir63]

Teşekkürler iyi geceler
Saygılar

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
[B1] = ""
For SAY = 0 To 7
DEG1 = Array("1/1", "1/2", "1/3", "1/4", "2/1", "2/2", "2/3", "2/4")
DEG2 = Array("5/1", "5/2", "5/3", "5/4", "6/1", "6/2", "6/3", "6/4")
If Range("A1") = DEG1(SAY) Then
[B1] = "21,00"
End If
If Range("A1") = DEG2(SAY) Then
[B1] = "20,50"
End If
Next
End Sub

 

[Ali]

Selamlar,

Ekteki dosyamda açıkladım. Eğerle yaptırıyorum ama 6 dan fazla olduğu için karıştırıyorum.

Saygılar

Bu tür sorunlar için eğer esnek değildir.Veriler artıkça sizin için sorun olacaktır. Bu değerlerinizi içeren bir tablo oluşturun ve verileri DÜŞEYARA fonksiyonu ile çağırın.

 

[sert_unsuz]

Merhaba

Sanırım yapmak istediğin olay Derece ve Kademeyi yazdığında göstergeyi buldurmak.
Eklediğim örneğe bakarsan tablodan indis'le arayıp bulmak çok daha kolay.
Sevgiler

 

[Mdemir63]

ilgilenen tüm arkadaşlara çok teşekkürler

Saygılar