Tekrar eden değerler hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Ek' te göndermiş olduğum örnek dosyada, sabit bir değerim var ve bu sabit değere ait bir çok satır ve bir birini tekrar etmeyen değerler mevcut. Başka bir sayfaya bu değerleri getirmek istiyorum. Nasıl bir formül kullanmam gerek. Sizden yardım rica ediyorum

Saygılarımla,

Hakan ASLAN

 

[Mahir64]

Merhaba,

A3 hücresine yazın ve sağa çekerek çoğaltın.
DİZİ formülüdür.

=EĞERHATA(İNDİS(VERİ!C$2:C$1000;KÜÇÜK(EĞER(VERİ!$B$2:$B$1000=$B$1;SATIR(VERİ!$B$2:$B$1000)-SATIR(VERİ!$B$2)+1);SATIRSAY(A$3:A3)));"")

 

[hakanaslan78]

Merhaba,

A3 hücresine yazın ve sağa çekerek çoğaltın.
DİZİ formülüdür.

=EĞERHATA(İNDİS(VERİ!C$2:C$1000;KÜÇÜK(EĞER(VERİ!$B$2:$B$1000=$B$1;SATIR(VERİ!$B$2:$B$1000)-SATIR(VERİ!$B$2)+1);SATIRSAY(A$3:A3)));"")

Mahir Bey teşekkür ederim,

Bu şekilde aşağıya doğru verileri çektiğimde tek bir satırın değeri geliyor. Harun B. ait olan diğer değerlerinde gelmesini istiyorum.



Saygılarımla,

Hakan ASLAN

 

[Korhan Ayhan]

@Mahir64 beyin mesajında ki bold renkli satırı dikkate aldınız mı?

 

[AdemCan]

Konu fonksiyon ama alternatif olarak makro ile yapılmak istenirse ilgili kodlar aşağıdadır.

Sub veriler()
Application.ScreenUpdating = False
Dim veri As Worksheet, kisi As Worksheet
Dim son As Long, son2 As Long, i As Long

Set veri = Sheets("VERİ")
Set kisi = Sheets("HARUN B.")

son = veri.Cells(Rows.Count, 2).End(3).Row
son2 = kisi.Cells(Rows.Count, 2).End(3).Row

kisi.Range("A3:F" & son2 + 1).Clear

For i = 2 To son
    If kisi.Range("B1") = veri.Cells(i, 2) Then
        son2 = kisi.Cells(Rows.Count, 2).End(3).Row + 1
        kisi.Cells(son2, 1) = veri.Cells(i, 3)
        kisi.Cells(son2, 2) = veri.Cells(i, 4)
        kisi.Cells(son2, 3) = veri.Cells(i, 5)
        kisi.Cells(son2, 4) = veri.Cells(i, 6)
        kisi.Cells(son2, 5) = veri.Cells(i, 7)
        kisi.Cells(son2, 6) = veri.Cells(i, 8)
    End If
Next i
Set veri = Nothing: Set kisi = Nothing
son = 0: son2 = 0: i = 0
Application.ScreenUpdating = True
End Sub

 

[hakanaslan78]

Mahir Bey teşekkür ederim,

Bu şekilde aşağıya doğru verileri çektiğimde tek bir satırın değeri geliyor. Harun B. ait olan diğer değerlerinde gelmesini istiyorum.

Ekli dosyayı görüntüle 230252

Saygılarımla,

Hakan ASLAN

Mahir bey,

Ben bir yerde yanlışlık yapıyorum sanırım. Dizi formülü olduğu için, Ctrl+Shift+Enter yapmama rağmen formüller aşşağıya doğru uygulanmıyor.

Saygılarımla,

Hakan ASLAN

 

[Ömer]

Merhaba,

A3 hücresinde formülü dizi formülüne çevirdikten sonra formülün başına ve sonuna { } ayraçları otomatik eklendi mi? Eklendiyse A3 hücresine önce sağa sonra A3:F3 ü seçip alta kopyalamanız gerekir. Eklenmediyse dizi formülüne çevirme işlemi olmamış demektir.

Uyguladıktan sonra yine de olmuyorsa, uyguladığınız dosyayı ekler misiniz.

 

[hakanaslan78]

Merhaba,

A3 hücresinde formülü dizi formülüne çevirdikten sonra formülün başına ve sonuna { } ayraçları otomatik eklendi mi? Eklendiyse A3 hücresine önce sağa sonra A3:F3 ü seçip alta kopyalamanız gerekir. Eklenmediyse dizi formülüne çevirme işlemi olmamış demektir.

Uyguladıktan sonra yine de olmuyorsa, uyguladığınız dosyayı ekler misiniz.

Ömer bey sizden ricam, formülü bu şekilde yaza bilirmisiniz.

Saygılarımla,

Hakan ASLAN

 

[hakanaslan78]

Konu fonksiyon ama alternatif olarak makro ile yapılmak istenirse ilgili kodlar aşağıdadır.

Sub veriler()
Application.ScreenUpdating = False
Dim veri As Worksheet, kisi As Worksheet
Dim son As Long, son2 As Long, i As Long

Set veri = Sheets("VERİ")
Set kisi = Sheets("HARUN B.")

son = veri.Cells(Rows.Count, 2).End(3).Row
son2 = kisi.Cells(Rows.Count, 2).End(3).Row

kisi.Range("A3:F" & son2 + 1).Clear

For i = 2 To son
    If kisi.Range("B1") = veri.Cells(i, 2) Then
        son2 = kisi.Cells(Rows.Count, 2).End(3).Row + 1
        kisi.Cells(son2, 1) = veri.Cells(i, 3)
        kisi.Cells(son2, 2) = veri.Cells(i, 4)
        kisi.Cells(son2, 3) = veri.Cells(i, 5)
        kisi.Cells(son2, 4) = veri.Cells(i, 6)
        kisi.Cells(son2, 5) = veri.Cells(i, 7)
        kisi.Cells(son2, 6) = veri.Cells(i, 8)
    End If
Next i
Set veri = Nothing: Set kisi = Nothing
son = 0: son2 = 0: i = 0
Application.ScreenUpdating = True
End Sub

Faye Bey, alternatifiniz için çok teşekkürler.

Saygılarımla,

Hakan ASLAN

 

[Ömer]

Yazarım tabi de, öğrenmeniz için sizin yazıp eklemeniz daha doğru olurdu.
Ektedir.

.

 

[hakanaslan78]

Yazarım tabi de, öğrenmeniz için sizin yazıp eklemeniz daha doğru olurdu.
Ektedir.

.

Çok teşekkür ederim, ellerine sağlık.