Excelde bu formül nasıl oluşturulur

[disclosure]

Öncelikle merhabalar,

Exel de yukarı gördüğünüz puan bölümüne yani A2'ye, B1 de yazanlar gibi, 5 ile 11 (5,6,7,8,9,10,11) arasında bir sayı yazıldığında, B2 ye "X" işareti,
A2 ye, C1 de yazalar gibi, 2 ile 4 (2,3,4) arasında bir sayı yazıldığında C2 ye "X" işareti,
A2 ye, D1 de yazanlar gibi, 0 ile 1 yazıldığında ise D2 ye "X" işareti konmasını istiyorum.

Konu ile ilgili bilgisi olan arkadaşlardan acilen yardım bekliyorum.

Teşekkür ederim.

 

[Orion1]

B2 hücresine aşğaıdaki formülü girip sağa doğru kpyaşlaynız.
=EĞER(VE($A2>=TAMSAYI(SOLDAN(B$1;BUL("-";B$1)-1));$A2<=TAMSAYI(SAĞDAN(B$1;UZUNLUK(B$1)-BUL("-";B$1))));"X";"")

 

[disclosure]

İnanmıyorum gerçekten teşekkür ederim.
Nasıl bir yükten kurtuldum anlatamam.

Allah razı olsun.

 

[Orion1]

İnanmıyorum gerçekten teşekkür ederim.
Nasıl bir yükten kurtuldum anlatamam.

Allah razı olsun.

İnanın,burası Excel Vadisi.

 

[disclosure]

Peki hocam kilitlendiğim bir nokta var.
Tek sayfalık dosyayı ek'e ekledim.
Bu konuda yardımcı olabilirmisin.
Ama sen istedin, exel vadisi diyerek.
İlgin için şimdiden teşekkür ederim.

 

[disclosure]

Şimdi örneğin C7 ye girdiğim puan, E6, F6 ve G6 daki değerler doğrultusunda, E7, F7 ve G7 de "X" olucak.

Ama birde E14 teki değere bakın.
Gerçekten zor, öyle değil mi
Ama yardımınızı bekliyorum, lütfen.

 

[Orion1]

Peki hocam kilitlendiğim bir nokta var.
Tek sayfalık dosyayı ek'e ekledim.
Bu konuda yardımcı olabilirmisin.
Ama sen istedin, exel vadisi diyerek.
İlgin için şimdiden teşekkür ederim.

Bende 2007 yok.Herkesetede yok.
2003 yollarsanız daha çabuk yanıt alrsınız.

 

[disclosure]

tamam başka bir pc ye gidiyorum. yükler gönderirim.

 

[disclosure]

2003 te ekledim.

C7 ye girdiğim puan, E6, F6 ve G6 daki değerler doğrultusunda, E7, F7 ve G7 de "X" işareti olarak olucak.

Ama E14 teki değer iki tane. Arasına virgülmü koymalı bilmiyorum.
Teşekkürler

 

[Orion1]

Bu üstü altı olayı nedir?
Onları hesaba katacakmıyızı.

 

[disclosure]

o önemsiz Bilgi amaçlı

 

[disclosure]

onu görmezden gelicez yani Bizi ilgilendirmiyor

 

[disclosure]

Nasıl sevindim anlatamam. Bu olay bana günde en az yarım saat kazandırır. Nasıl teşekkür edeceğimi bilmiyorum gerçekten.

 

[Orion1]

Dosyada bir şey sordum.
Dosyı ekledim.

 

[disclosure]

Nihayet indirdim. Özür dilerim aksiliklerle uğraştım. Siz benimle ilgileniyorsunuz ben size yanıt veremedim.
Neyse özürden sonra. D sutunu formulumuzde etkili olmaacak. Biz C ye girdiğimizi puanları E, F ve G de yazanlar ile formullucez.
D yi bomboş olarak görün.

Mesela E6 da, (5,6,7,8,9,10,11) 5-11 arası E7 de işlem görüyor. Yani C7 ye 5 yazdıysak E7 de "X" olucak.
F6 daki sayıları yani 2,3 ve 4 girdiğimizde C7 ye F7 de "X" oluyor.
G de aynı şekilde.

D boşmuş gibi düşünün Dilerseniz onları siliyim

 

[Orion1]

Dosyanız ektedir.
Kullanıcı tanımlı fonksiyon yazdım.
O fonksiyonun çalışması için aşağıda yazdığım kodlar dosyanızda olması gerekiyor.
Yalnız her bölümün en altında koydupğunuz koşul formüle uymuyor onuda uygun bir şekle sokarsanız oda olur.
Dosyanız ektedir.

Public Function puane(ByVal alpuan As Range, ByVal aralik As Range) As String
Dim s, ilk As Byte, son As Byte
s = Split(aralik, "-")
If InStr(1, aralik.Value, "-") = CStr("0") And CStr(alpuan.Value) = CStr(aralik.Value) Then
    puane = "X"
    Exit Function
    ElseIf UBound(s) > 0 Then
    If IsNumeric(s(1)) < IsNumeric(s(0)) Then
        ilk = s(1): son = s(0)
        Else
        ilk = s(0): son = s(1)
    End If
    If alpuan.Value >= ilk And alpuan.Value <= son Then puane = "X"
End If
End Function

 

[disclosure]

Bana kızıcaksınız

Kullanıcı tanımlı fonksiyonları hiç bilmiyorum ama hepsini seçip Alt+F11 e bastığımda sizin copy ettiğiniz formul zaten cıkıyor.
Ama sayfada formul hatası verıyor.

O kodu nereye ve nasıl eklicem.



Hocam bağışla beni ne olursun.

 

[Orion1]

Bana kızıcaksınız

Kullanıcı tanımlı fonksiyonları hiç bilmiyorum ama hepsini seçip Alt+F11 e bastığımda sizin copy ettiğiniz formul zaten cıkıyor.
Ama sayfada formul hatası verıyor.

O kodu nereye ve nasıl eklicem.



Hocam bağışla beni ne olursun.

Kulanıcı tanımlı fonksiyonu başka bir excel dosyasında çalıştırmak istiyorsanız,Onu oluşturan prosedürüde o dosyaya koymalısınız.
Bunu yapmak için export import edebilir veya direk kodları yeni açaçağınız bir standart modülede yapştırabilirsiniz.Yada eklenti dosyası olarak kaydedip dosyayı eklenti olarak excele ekleyipte kullanabilirisiniz.
alt+F11'e basın.Karşınıza VBA editörü açılcak(VBE).Yukarıdaki komut barından insert seçin.açılan pecereden Module seçin.Karşınız modülün kod sayfası açılacak. kodları oraya yapıştırın.
Sonra VBE'yi kapatın.
Dosyaı kaydedin.Artık formülü kullanabilirsiniz.

 

[disclosure]

Çok uğraş sarfettiniz ama ben beceremedim.
Dediklerinizi harfiyen yapıyorum ama rakam girdiğimde "Ambiguous name detected: puane" diye uyarı veriyor.
Denemediğim yol kalmadı neredeyse.
Ben yanlış yapıyorumdur ama nerede?

 

[Orion1]

Çok uğraş sarfettiniz ama ben beceremedim.
Dediklerinizi harfiyen yapıyorum ama rakam girdiğimde "Ambiguous name detected: puane" diye uyarı veriyor.
Denemediğim yol kalmadı neredeyse.
Ben yanlış yapıyorumdur ama nerede?

Ya ayni fonksiyondan bir dosyaya birden fazla kopyaladınız ,yada hiç dosyanızda bu fonksiyon yok.
Dosyanızı bana yollayın ben yapayım.