Nöbet tarihlerini sırasıyla getirme

[Astalavista58]

Herkese öncelikle hayırlı akşamlar, ekteki dosyada isimlerin altına sırasıyla nöbet tuttuğu tarihleri nasıl getirebilirim

 

[askm]

Aşağıdaki kodu bir modüle ekleyip deneyin.

Sub askm()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
For y = 6 To 9 '6. sutundan 9. sutuna kadar aramak için
    a = 3
    For i = 3 To son '3. satırdan son satıra kadar bakacak
        If Cells(2, y) = Cells(i, 2) Then
            Cells(a, y) = CDate(Cells(i, 1))
            a = a + 1
        End If
    Next i
Next y
End Sub
[code]

 

[Astalavista58]

Aşağıdaki kodu bir modüle ekleyip deneyin.

Sub askm()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
For y = 6 To 9 '6. sutundan 9. sutuna kadar aramak için
    a = 3
    For i = 3 To son '3. satırdan son satıra kadar bakacak
        If Cells(2, y) = Cells(i, 2) Then
            Cells(a, y) = CDate(Cells(i, 1))
            a = a + 1
        End If
    Next i
Next y
End Sub
[code]

Sayın askım çok teşekkür ederim. Bu tablo sürekli güncellenen bir tablo "Selection Change" ile çalıştırsam her değişiklik yapıldığında güncelleme olur diye düşünüyorum

 

[Astalavista58]

Acaba VBA ile değilde formül ile de yapılabilir mi, indis ve kaçıncı ile denedim ancak alt altta aynı verileri getiriyor

 

[ÖmerFaruk]

Dizi formülüdür.
F3 hücrenize yapıştırın.
Aşağı ve sağa doğru sürükleyerek çoğaltabilrsiniz.
=EĞERHATA(İNDİS($A:$A;KÜÇÜK(EĞER($B$3:$B$999=F$2;SATIR($B$3:$B$999);"");SATIR(A1)));"")

 

[Astalavista58]

Dizi formülüdür.
F3 hücrenize yapıştırın.
Aşağı ve sağa doğru sürükleyerek çoğaltabilrsiniz.
=EĞERHATA(İNDİS($A:$A;KÜÇÜK(EĞER($B$3:$B$999=F$2;SATIR($B$3:$B$999);"");SATIR(A1)));"")

Sayın ÖmerFaruk hocam, elinize sağlık çok güzel çalışıyor Allah razı olsun..

 

[1Al2Ver]

Merhaba,

Alternatif olsun.

 

[Astalavista58]

Merhaba,

Alternatif olsun.

Sayın 1Al2Ver çok teşekkür ederim elinize sağlık, Allah razı olsun ?

 

[1Al2Ver]

Merhaba,

Rica ederim, Allah sizden de razı olsun,

Teşekkür ederim.