A ve B sutunlarında aynı olanları bulmam lazım

[Ömer BARAN]

a stununda bulunan her kentin yanındaki değerin sıfır hariç en küçük değerini bulmam gerekiyor
yazdığım formulde ancak bütün kentlerin sıfır hariç en küçük değerini buluyor
MİN(EĞER(A21=$A$2:$A$21:$B$2:$B$21;KÜÇÜK($A$2:$A$2 1:$B$2:$B$21;EĞERSAY($A$2:$A$21:$B$2:$B$21;0)+1))) ctrl+shift+enter
yardımcı olursanız sevinirim

sevgili hocalar lütfen yardımcı olun...
sevgili hocalar soruma yanıt yoksada bu formule çözüm yok deseniz daha fazla ümitlenmesem

Sayın badem18 merhabalar.

Aynı soruyu daha önce sormuştunuz.
Ayrıca, burada olduğu gibi; sorunuzu, başka konuda açılmış sayfada sormanız da ayrı bir durum tabi.

Sorularınız için uygun bölüm seçerek konu açmanızı öneririm.

Sorunuza daha önce cevap vermiştim ve cevabımla ilgili olarak herhangi bir geri bildirimde de bulunmadınız.
Soruyu sorduğunuz ve benim cevap yazdığım konu sayfası aşağıda.

BURAYA tıklayarak cevabı görebilirsiniz.
.

 

[tahsinanarat]

A ve B Sutunlarını karşılaştırıp aynı olanları c sütununa yazar

Option Explicit
Sub SÜTUNLARI_KARŞILAŞTIR()
    Dim Say_A As Long, Say_B As Long, X As Long, Satır As Long, Sütun As Byte

    Say_A = WorksheetFunction.CountA(Columns(1))
    Say_B = WorksheetFunction.CountA(Columns(2))

    If Say_A > Say_B Then
        Sütun = 1
    Else
        Sütun = 2
    End If
        
    For X = 1 To Cells(65536, Sütun).End(3).Row
        If WorksheetFunction.CountIf(Columns(2), Cells(X, "A")) > 0 Then
            If WorksheetFunction.CountIf(Columns(3), Cells(X, "A")) = 0 Then
                Satır = Satır + 1
                Cells(Satır, "C") = Cells(X, "A")
            End If
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[xcoll]

http://dosya.web.tr/KWnWvZ


ektekı dosya ıçın bu formulu calıştırabılırmıyız

hatta daha fazla satır için gecerlı olsada olur

lütfen yardımcı olun ektekı dosyaya tum satırla uygulanacak sekılde uyumlaryabılımısınız ...

3000-5000 satır olsada olur