Düşeyara tersi bir formül var mı?

[ayhanhoca]

Arkadaşlar merhaba
dosyanın jpg halini ve excel halini paylaşıyorum.
her hafta ödevlendirme yapılıyor. Ödev bitince ödev kelimelerini siliyorum.
Yeni ödev verildiğinde ilgili testin karşısına ödev yazıyorum.
istediğim şey her ödevlendirme yapıldığında sadece ödev olan satırdaki ders ünite vb bilgileri alayım.
Dosyanın kendisi : https://docs.google.com/spreadsheets/d/14oXxXNp5ns_PBDjvXCX28FbYeevEBFRSaIVIixo4UzI/edit?usp=sharing
Dosyanın JPG hali : https://drive.google.com/file/d/1wyg_zNm8R9AgEmqV00IJGJLU40wIJ6aE/view?usp=sharing
Formül bulamadım.
Teşekkürler

 

[nunikmakarios]

ekteki gibi olur mu

 

[ayhanhoca]

ekteki gibi olur mu

cevap için teşekkürler ama
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir! uyarısı alıyorum.
bende altın üyelik yok

 

[ayhanhoca]

özetle listenin en sağındaki durum sütununda ÖDEV yazılan satırları başka bir yere olduğu gibi alacak. ÖDEV yazmıyorsa es geçecek

 

[nunikmakarios]

cevap için teşekkürler ama
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir! uyarısı alıyorum.
bende altın üyelik yok

İndir aktarma

Dosyayı indir aktarma

dosya.co

buradan indirebilirsin

 

[Korhan Ayhan]

Alternatif;

DİZİ formüldür.

L2 hücresine uygulayıp sağa ve alta doğru sürükleyiniz.

=IFERROR(INDEX($A$1:$J$19;SMALL(IF($J$1:$J$19="ödev";ROW($J$1:$J$19));ROW($A1));MATCH(L$1;$A$1:$J$1;0));"")

 

[ayhanhoca]

İndir aktarma

Dosyayı indir aktarma

dosya.co

buradan indirebilirsin

cevap tam olarak bu. Teşekkür ederim.

 

[ayhanhoca]

Alternatif;

DİZİ formüldür.

L2 hücresine uygulayıp sağa ve alta doğru sürükleyiniz.

=IFERROR(INDEX($A$1:$J$19;SMALL(IF($J$1:$J$19="ödev";ROW($J$1:$J$19));ROW($A1));MATCH(L$1;$A$1:$J$1;0));"")

cevap tam da bu. Teşekkür ederim.
Sağa çektiğimde harika çalıştı.
Ama aşağı çektiğimde alt satırlar boş geldi.... şimdi onun çözümüne bakıyorum

 

[Korhan Ayhan]

DİZİ formül olarak uygulamalısınız.

 

[ayhanhoca]

İndir aktarma

Dosyayı indir aktarma

dosya.co

buradan indirebilirsin

durumu=ödev olanları liste kodlarında olduğu gibi aynı mantıkla şunu yapmaya çalıştım.
boşları listele butonu oluşturayım.
tıkladığımda
boş sayısı 0 dan büyük olan testin aynen ödev de olduğu gibi ders adı test adı boş sayısı listelensin
istedim.
Ancak aşağıdaki kodlamada başarısız oldum. Ödev olanları listeleme sonucu gelen listenin aynısı oluştu. Sadece boş sayısı sütunu bomboş geldi. yaptığım tek şey ödev yerine boş sayısı yazmak oldu.


Sub boslar_listesi()
Range("Z1:AE1000").Select
Selection.ClearContents
Range("a1").Select
bs = Cells(Rows.Count, "A").End(3).Row
h = 3
Cells(h - 1, 26) = "DERS ADI"
Cells(h - 1, 27) = "ÜNİTE NO"
Cells(h - 1, 28) = "ÜNİTE / KONU ADI"
Cells(h - 1, 29) = "YAYIN"
Cells(h - 1, 30) = "TEST ADI"
Cells(h - 1, 31) = "BOŞ SAYISI"

For j = 3 To bs
If (Cells(j, 12) > 0) Then GoTo 500
GoTo 600
500 Cells(h, 26) = Cells(j, 1)
Cells(h, 27) = Cells(j, 2)
Cells(h, 28) = Cells(j, 3)
Cells(h, 29) = Cells(j, 4)
Cells(h, 30) = Cells(j, 5)
Cells(h, 31) = Cells(j, 7)

h = h + 1
600 Next j

End Sub

 

[ayhanhoca]

İndir aktarma

Dosyayı indir aktarma

dosya.co

buradan indirebilirsin

ve son birşey
çalışma kitabımda ana bilgiler ANASAYFA adlı sayfada. ve çalışma kitabımda başka sayfalar da var.
Ayrıca ÖDEV, BOŞLAR, YANLIŞLAR adlı 3 sayfa daha var.
istedim ki
butonlara bastığımda sonuçlar aynı sayfada değil de kendi amacına göre oluştuulmuş sayfada listelensin.
yani
ödevler butona bastığımda ÖDEV adlı sayfada oluştursun,
boşları listele butonuna bastığımda BOŞLAR adlı sayfada oluştursun.
yanlışları listele butonuna (bunu kodlayacağım) bastığımda YANLIŞLAR adlı sayfada listelensin.

 

[Korhan Ayhan]

Alternatif olarak özet tabloyu araştırmanızı öneririm.

 

[ayhanhoca]

Alternatif olarak özet tabloyu araştırmanızı öneririm.

içinden çıkamadım... böyle formülle daha rahat ediyorum

 

[Korhan Ayhan]

Tabi ki kullanım tercihlerinize birşey diyemem.

Fakat özet tablo kullanması kolay ve kişisel hesaplama hatalarını minimize eden özelliklere sahip bir araçtır. Son excel sürümlerinde eklenen yeni özellikler ile daha da işlevsel hale gelmiştir.

 

[ayhanhoca]

Alternatif olarak özet tabloyu araştırmanızı öneririm.

If Cells(j, 12) ????????????? Then GoTo 500 satırında yardımcı olur musunuz?

soru: o hücredeki sayısal değer 0 dan büyükse
bunu nasıl yazıyoruz?

 

[Korhan Ayhan]

Deneyiniz.

If Cells(j, 12) > 0 Then