Birden Fazla satırda tekrar eden isimler

N

nurluali

Katılım
19 Ocak 2012
Mesajlar
175
Excel Vers. ve Dili
Ağırlıklı olara 2003,2007,2010
Altın Üyelik Bitiş Tarihi
31.10.2023
Burada Kasım Ayında Hangi Tarihlerde devamsızlık yapmış ise o kadar satırda isim geçiyor. Sayfa2 ye örenkte olduğu gibi listelemek istiyorum. nasıl bir formül kullanmam gerekir. Bu Liste bu şekilde 200 300 satır uzuyor.
 

Ekli dosyalar

YUSUF44

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Formülle nasıl olur bilmiyorum. Makro isterseniz aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

PHP: 
Sub devam()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son1 = s1.Cells(Rows.Count, "B").End(3).Row
eski = WorksheetFunction.Max(s2.Cells(Rows.Count, "B").End(3).Row, 2)
uyar = MsgBox("Eski veriler silinsin mi?", vbYesNo)
If uyar = vbYes Then
    s2.Range("B3:BB" & eski).ClearContents
    s2.Range("B3:BB" & eski).Interior.Color = xlNone
    s2.Range("B3:BB" & eski).Borders.LineStyle = xlNone

    s1.Range("B3:B" & son1).Copy s2.[B2]
    
    s2.Range("B2:B" & son1).RemoveDuplicates Columns:=1, Header:=xlNo
    son2 = s2.Cells(Rows.Count, "B").End(3).Row
    For kisi = 2 To son2
        For gun = 3 To son1
            If s1.Cells(gun, "B") = s1.Cells(kisi, "B") Then
                yeni = s2.Cells(kisi, Columns.Count).End(xlToLeft).Column + 1
                s2.Cells(kisi, yeni) = s1.Cells(gun, "C")
                s2.Cells(kisi, yeni).Interior.Color = s2.Cells(kisi, "B").Interior.Color
                s2.Cells(kisi, yeni).NumberFormat = "dd/mm/yyyy"
                s2.Cells(kisi, yeni).HorizontalAlignment = xlCenter
                s2.Cells(kisi, yeni).VerticalAlignment = xlCenter
            End If
        Next
    Next
End If
End Sub
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,276
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Formülle alternatif;

DİZİ formüllerdir. Formülü hücreye yazdıkta sonra hücreyi CTRL+SHIFT+ENTER tuşlarına basarak terk ediniz. Aksi halde doğru sonuç üretmez.

B2;
Kod: 
=EĞERHATA(İNDİS(Sayfa1!$B$3:$B$1000;KAÇINCI(KÜÇÜK(EĞER(EĞERSAY($B$1:B1;Sayfa1!$B$3:$B$1000&"")=0;EĞERSAY(Sayfa1!$B$3:$B$1000;"<"&Sayfa1!$B$3:$B$1000);"");1);EĞERSAY(Sayfa1!$B$3:$B$1000;"<"&Sayfa1!$B$3:$B$1000);0));"")
C2;
Kod: 
=EĞERHATA(İNDİS(Sayfa1!$C$3:$C$1000;KÜÇÜK(EĞER(Sayfa1!$B$3:$B$1000=$B2;EĞER(Sayfa1!$C$3:$C$1000<>"";SATIR(Sayfa1!$C$3:$C$1000)-2));SÜTUN(A$1)));"")
Bu formülleri ihtiyacınız kadar alta ve yana sürükleyiniz.
 
E

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
Alternatif .
Dizi formülüdür ( CTRL+SHIFT+ENTER tuşlarına basarak tamamlayınız formülü )
Aşağıya ve sağa doğru çekiniz.

Kod: 
=EĞERHATA(EĞER(B2="";"";İNDİS(Sayfa1!$C$3:$C$1000;KÜÇÜK(EĞER(Sayfa1!$B$3:$B$1000=KIRP($B2);SATIR(Sayfa1!$C$3:$C$1000));SÜTUNSAY($A$2:A$2))));"")
 
YUSUF44

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Kodda bazı hatalar vardı, düzelttim:

PHP: 
Sub devam()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son1 = s1.Cells(Rows.Count, "B").End(3).Row
eski = WorksheetFunction.Max(s2.Cells(Rows.Count, "B").End(3).Row, 2)
uyar = MsgBox("Eski veriler silinsin mi?", vbYesNo)
If uyar = vbYes Then
    s2.Range("B2:BB" & eski).ClearContents
    s2.Range("B2:BB" & eski).Interior.Color = xlNone
    s2.Range("B2:BB" & eski).Borders.LineStyle = xlNone

    s1.Range("B3:B" & son1).Copy s2.[B2]
    
    s2.Range("B2:B" & son1).RemoveDuplicates Columns:=1, Header:=xlNo
    son2 = s2.Cells(Rows.Count, "B").End(3).Row
    For kisi = 2 To son2
        For gun = 3 To son1
            If s1.Cells(gun, "B") = s2.Cells(kisi, "B") Then
                yeni = s2.Cells(kisi, Columns.Count).End(xlToLeft).Column + 1
                s2.Cells(kisi, yeni) = s1.Cells(gun, "C")
                s2.Cells(kisi, yeni).Interior.Color = s2.Cells(kisi, "B").Interior.Color
                s2.Cells(kisi, yeni).NumberFormat = "dd/mm/yyyy"
                s2.Cells(kisi, yeni).HorizontalAlignment = xlCenter
                s2.Cells(kisi, yeni).VerticalAlignment = xlCenter
            End If
        Next
    Next
End If
End Sub
 
N

nurluali

Katılım
19 Ocak 2012
Mesajlar
175
Excel Vers. ve Dili
Ağırlıklı olara 2003,2007,2010
Altın Üyelik Bitiş Tarihi
31.10.2023
YUSUF44' Alıntı:
Kodda bazı hatalar vardı, düzelttim:

PHP: 
Sub devam()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son1 = s1.Cells(Rows.Count, "B").End(3).Row
eski = WorksheetFunction.Max(s2.Cells(Rows.Count, "B").End(3).Row, 2)
uyar = MsgBox("Eski veriler silinsin mi?", vbYesNo)
If uyar = vbYes Then
    s2.Range("B2:BB" & eski).ClearContents
    s2.Range("B2:BB" & eski).Interior.Color = xlNone
    s2.Range("B2:BB" & eski).Borders.LineStyle = xlNone

    s1.Range("B3:B" & son1).Copy s2.[B2]
   
    s2.Range("B2:B" & son1).RemoveDuplicates Columns:=1, Header:=xlNo
    son2 = s2.Cells(Rows.Count, "B").End(3).Row
    For kisi = 2 To son2
        For gun = 3 To son1
            If s1.Cells(gun, "B") = s2.Cells(kisi, "B") Then
                yeni = s2.Cells(kisi, Columns.Count).End(xlToLeft).Column + 1
                s2.Cells(kisi, yeni) = s1.Cells(gun, "C")
                s2.Cells(kisi, yeni).Interior.Color = s2.Cells(kisi, "B").Interior.Color
                s2.Cells(kisi, yeni).NumberFormat = "dd/mm/yyyy"
                s2.Cells(kisi, yeni).HorizontalAlignment = xlCenter
                s2.Cells(kisi, yeni).VerticalAlignment = xlCenter
            End If
        Next
    Next
End If
End Sub
Genişletmek için tıkla ...
sayın YUSUF44 ilginize ve emeğiniz için çok teşekkür ediyorum. Tam istediğim gibi oldu. Elinize beyninize sağlık.
 
N

nurluali

Katılım
19 Ocak 2012
Mesajlar
175
Excel Vers. ve Dili
Ağırlıklı olara 2003,2007,2010
Altın Üyelik Bitiş Tarihi
31.10.2023
EmrExcel16' Alıntı:
Alternatif .
Dizi formülüdür ( CTRL+SHIFT+ENTER tuşlarına basarak tamamlayınız formülü )
Aşağıya ve sağa doğru çekiniz.

Kod: 
=EĞERHATA(EĞER(B2="";"";İNDİS(Sayfa1!$C$3:$C$1000;KÜÇÜK(EĞER(Sayfa1!$B$3:$B$1000=KIRP($B2);SATIR(Sayfa1!$C$3:$C$1000));SÜTUNSAY($A$2:A$2))));"")
Genişletmek için tıkla ...
Sayın EmrExcel16 ilginize çok teşekkür ediyorum. formül çalıştı fakat devamsızlık tarihleri başka öğrencinin devamsızlığı geliyor. Tekrar deneyip size döneceğim. Sağolun var olun
 
N

nurluali

Katılım
19 Ocak 2012
Mesajlar
175
Excel Vers. ve Dili
Ağırlıklı olara 2003,2007,2010
Altın Üyelik Bitiş Tarihi
31.10.2023
Korhan Ayhan' Alıntı:
Formülle alternatif;

DİZİ formüllerdir. Formülü hücreye yazdıkta sonra hücreyi CTRL+SHIFT+ENTER tuşlarına basarak terk ediniz. Aksi halde doğru sonuç üretmez.

B2;
Kod: 
=EĞERHATA(İNDİS(Sayfa1!$B$3:$B$1000;KAÇINCI(KÜÇÜK(EĞER(EĞERSAY($B$1:B1;Sayfa1!$B$3:$B$1000&"")=0;EĞERSAY(Sayfa1!$B$3:$B$1000;"<"&Sayfa1!$B$3:$B$1000);"");1);EĞERSAY(Sayfa1!$B$3:$B$1000;"<"&Sayfa1!$B$3:$B$1000);0));"")
C2;
Kod: 
=EĞERHATA(İNDİS(Sayfa1!$C$3:$C$1000;KÜÇÜK(EĞER(Sayfa1!$B$3:$B$1000=$B2;EĞER(Sayfa1!$C$3:$C$1000<>"";SATIR(Sayfa1!$C$3:$C$1000)-2));SÜTUN(A$1)));"")
Bu formülleri ihtiyacınız kadar alta ve yana sürükleyiniz.
Genişletmek için tıkla ...
Sayın Korhan Ayhan bey emeğinize ve elinize sağlık yapmak istediğim gibi olmuş. Tekrar çok teşekkür eder saygılar sunarım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst