seri fonksiyonu yaratma (ctrl+shift+enter)

[aaaaa34]

arkadaşlar merhaba,

- 5 tane ders var ve bu derslere ait 2 aşamalı bir sınav var.
- sınavı geçmek için her iki aşamadan da 50 ve üstü not almak lazım.
- eğer iki aşamadan da 50'den aşağı bir not olursa veya iki aşamadan birinde 50'den aşağı bir not olursa dersten kalmış oluyorsun.

dersten geçme "+" , dersten kalma "-" olarak çalışma sayfasındaki küçük kutulara en eski tarihden yeni tarihe göre işaretlemek istersek nasıl bir seri formülü yazmak gerekir?

ilgili dosya: http://www.dosya.tc/server26/IflRKj/tarih-ders-not1-not2.xlsx.html

 

[manyakbiri]

Sorununuzu formül ile değil de farklı işler yaparak halletiğimi düşünüyorum.

Lütfen aşağıdaki linkten indiriniz. Sorunuz olursa ben buradayım.

http://www.dosya.tc/server26/YrOQ4C/tarih-ders-not1-not2.xlsx.html

 

[aaaaa34]

siz bu dosyayı kendiniz elinizle manuel sayarak yazdınız galiba

 

[ÖmerBey]

Makro ile isterseniz aşağıdaki kodları deneyiniz.

Sub KOD()
For a = 2 To [G65500].End(3).Row
    For b = 2 To [A65500].End(3).Row
        son = Cells(a, "zz").End(1).Column + 1
        If Cells(a, "G") = Cells(b, "B") And Cells(b, "C") >= 50 And Cells(b, "D") >= 50 Then
            Cells(a, son) = "+"
        ElseIf Cells(a, "G") = Cells(b, "B") Then
            Cells(a, son) = "-"
        End If
    Next
Next
End Sub

 

[manyakbiri]

siz bu dosyayı kendiniz elinizle manuel sayarak yazdınız galiba

+ ve - işaretlerini ,EĞER(VE.. fonksiyonu ile çıkarttım.

Daha sonra + ve - işaretlerinin tümünü kopyalayıp aynı yere sadece değerler olarak yapıştır dedim(formül şeklinde almaması için)

Daha sonra başlıkları filtreleme yaptım. (Ctrl+shift+L)

Sonra teker teker dersleri seçip, + ve - sütununu baştan aşağı kopyalayıp seçtiğim dersin not tablosuna özel yapıştırdan işlemi tersine çevir seçeneğini tıklayarak, dikey bir sütunu yatay olarak kopyaladım.

 

[aaaaa34]

manyakbiri tşkler cevabiniz için ve yardımınız için

 

[aaaaa34]

müfit abicim,

makro tam istediğim gibi, yalnız senden ricam, yazdığın kodu bir kez daha bu yeni dosyaya göre yazıp bana yollayabilrmisn? sadece sütünlar biraz yana kaydı ve tarih sütununu çıkardım çünkü eskiden yeniye zaten sıraladım.

yeni dosya: http://www.dosya.tc/server26/ykiLcf/tarih-ders-not1-not2tarihsiz.xlsx.html

 

[manyakbiri]

manyakbiri tşkler cevabiniz için ve yardımınız için

Pek işe yaramadı zannedersem.

Haklısınız, siz en kısa şekilde halletme peşindesiniz.

 

[ÖmerBey]

makro tam istediğim gibi, yalnız senden ricam, yazdığın kodu bir kez daha bu yeni dosyaya göre yazıp bana yollayabilrmisn? sadece sütünlar biraz yana kaydı ve tarih sütununu çıkardım çünkü eskiden yeniye zaten sıraladım.

yeni dosya: http://www.dosya.tc/server26/ykiLcf/tarih-ders-not1-not2tarihsiz.xlsx.html

Buyurunuz...
İyi çalışmalar...

Sub KOD()
Range("P2:AR6").ClearContents
For a = 2 To [O65500].End(3).Row
    For b = 2 To [A65500].End(3).Row
        son = Cells(a, "zz").End(1).Column + 1
        If Cells(a, "O") = Cells(b, "A") And Cells(b, "E") >= 50 And Cells(b, "F") >= 50 Then
            Cells(a, son) = "+"
        ElseIf Cells(a, "O") = Cells(b, "A") Then
            Cells(a, son) = "-"
        End If
    Next
Next
End Sub

 

[aaaaa34]

Pek işe yaramadı zannedersem.

Haklısınız, siz en kısa şekilde halletme peşindesiniz.

a yok çok saolun işe yaramaz olur mu
yani hem yardımcı sütun yaratmayı öğrendim
hem de özel yapıştır nasıl yapılır onu öğrendim sayenizde, çok teşekkür ederim.
ben zaten çok yeniyim excelde
çok teşekkür ederim tekrar BENİM MANYAK DOSTUM:icelim::icelim::icelim:

 

[aaaaa34]

Mucit kardeşim çok saol ya!!!
Halloldu konu!!!

 

[ÖmerBey]

Siz de sağolun.
İyi geceler...