Aynı değerler

[5353]

Sayfa 2 de A1 hücresinde "Kurum no" yazıyor. Yine A2 hücresinde "Kurum no" yazıyor ve her satırsa A3 A4 .."Kurum no" yazıyor.
Sayfa 1 de ise A5 sütünün da "Kurum no". B5 hücresindeki değeri getirmesini istiyorum. Ekteki dosyada Kırmızı yazıları kendi getirsin.

 

[ÖmerFaruk]

=KAYDIR(Sayfa1!$A$1;KÜÇÜK(EĞER(A2=KIRP(KAYDIR(Sayfa1!$A$1;;;MAK(((Sayfa1!$A:$A)<>"")*SATIR(Sayfa1!$A:$A));1));SATIR(KAYDIR(Sayfa1!$A$1;;;MAK(((Sayfa1!$A:$A)<>"")*SATIR(Sayfa1!$A:$A));1));999999);SATIR()-1)-1;1;1)

 

[Ziynettin]

Alternatif.

Sub test()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("sayfa1")
Set ws2 = Sheets("sayfa2")

Set dz = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
Set dv = CreateObject("scripting.dictionary")

son1 = ws1.Cells(Rows.Count, 1).End(3).Row
a = ws1.Range("A1:B" & son1).Value

For i = 1 To UBound(a)
    krt = VBA.Trim(a(i, 1))
    If krt = "Kurum No:" Then
        dc(krt) = dc(krt) & "|" & a(i, 2)
        dz(krt) = dz(krt) + 1
    End If
Next i

son2 = ws2.Cells(Rows.Count, 1).End(3).Row
b = ws2.Range("A2:A" & son2).Value
ReDim c(1 To UBound(b), 1 To 1)

For i = 1 To UBound(b)
    krt = VBA.Trim(b(i, 1))
    dv(krt) = dv(krt) + 1
    If dv(krt) <= dz(krt) Then
        sayi = dv(krt)
        c(i, 1) = Split(dc(krt), "|")(sayi)
    End If
Next i

ws2.[B2].Resize(UBound(b)) = c

MsgBox "İşlem bitti...", vbInformation
End Sub

 

[5353]

Ziynettin
ÖmerFaruk
Çok teşekkür ederim.

 

[5353]

=KAYDIR(Sayfa1!$A$1;KÜÇÜK(EĞER(A2=KIRP(KAYDIR(Sayfa1!$A$1;;;MAK(((Sayfa1!$A:$A)<>"")*SATIR(Sayfa1!$A:$A));1));SATIR(KAYDIR(Sayfa1!$A$1;;;MAK(((Sayfa1!$A:$A)<>"")*SATIR(Sayfa1!$A:$A));1));999999);SATIR()-1)-1;1;1)

bu bende çalışmadı belirtmek isterim.

 

[ÖmerFaruk]

bu bende çalışmadı belirtmek isterim.

Formülü tekrar dosyanıza ekledim, çalışıyor.
Kontrol edin lütfen.

 

[Mahir64]

Sayın @5353 bu sorun son zamanlarda sıklıkla dile geliyor. Öncelikle Excel Vers. ve Dili bilgilerinizi güncelleyin. https://www.excel.web.tr/account

Sayın @ÖmerFaruk bey 365 kullanıyor. 365 versiyonunda DİZİ formülleri direk enter tuşuna bastığında çalışıyor ama alt versiyonlarda Shift+Ctrl+Enter tuşlarıyla çalışmakta. Sizde çalışmama sebebi de sizin versiyonunuzdan kaynaklı bir sorun.
@ÖmerFaruk beyin dosyayı indirdiğinizde, formülde {......} muhtemelen sizde görünecek.

İyi çalışmalar.

 

[ÖmerFaruk]

Kusura bakmayın, versiyon farkını unutmuşum.

 

[5353]

Kusura bakmayın, versiyon farkını unutmuşum.

Esteğfurullah. Eksiklik bende öğrenmeye çalışan benim. Öğrenmiş olduk sorun yok. Dizi formülü tamamdır.

 

[Mahir64]

Arkadaşlar yanlış anlamayın lütfen genel bilgi için yazdım.