Birden Fazla Sütun Kıyaslama Hakkında

[cybersonic06]

Merhaba,

Elimde 6 tane sütunda oluşan bir tablo var. (A,F,K,P,U,Z)

Örneğin A sütununun tüm satırlarındaki sayıları (değerleri) F,K,P,U,Z ile kıyaslayıp, aynı olanları sayıp not etmesini istiyorum.
Daha sonra F sütununun tüm satırlarındaki değerleri K,P,U,Z ile kıyaslayıp, aynı olanları sayıp not etmesini istiyorum.
Daha sonra K sütununun tüm satırlarındaki değerleri P,U,Z ile kıyaslayıp, aynı olanları sayıp not etmesini istiyorum.

Bu şekilde son sütuna kadar işlemin devam etmesini istiyorum.

Yani aslında mesela A3 te bulunan değerden F sütununda şu kadar , K sütununda bu kadar gibi görmek istiyorum.

Bu işlemi yapacak kod konusunda yardımcı olabilir misiniz acaba?

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...
Dosyanızın kayıtlı olduğu dizine Rapor.txt isimli bir dosya oluşturur.

Sub Kod()
sütunlar = Array("A", "F", "K", "P", "U", "Z")

dosya = Dir(ThisWorkbook.Path & "\Rapor.txt")
If dosya <> "" Then Kill ThisWorkbook.Path & "\" & dosya
Open ThisWorkbook.Path & "\Rapor.txt" For Output As #1

For a = LBound(sütunlar) To UBound(sütunlar) - 1
    For b = 1 To Cells(Rows.Count, sütunlar(a)).End(3).Row
        For c = a + 1 To UBound(sütunlar)
            Print #1, Replace(Cells(b, sütunlar(a)).Address, "$", "") & " hücresindeki değerden " & sütunlar(c) & " sütununda "; WorksheetFunction.CountIf(Columns(sütunlar(c)), Cells(b, sütunlar(a)).Value) & " tane var."
        Next
    Next
Next
Close #1
End Sub

 

[cybersonic06]

Merhaba,
Aşağıdaki kodu deneyiniz...
Dosyanızın kayıtlı olduğu dizine Rapor.txt isimli bir dosya oluşturur.

Sub Kod()
sütunlar = Array("A", "F", "K", "P", "U", "Z")

dosya = Dir(ThisWorkbook.Path & "\Rapor.txt")
If dosya <> "" Then Kill ThisWorkbook.Path & "\" & dosya
Open ThisWorkbook.Path & "\Rapor.txt" For Output As #1

For a = LBound(sütunlar) To UBound(sütunlar) - 1
    For b = 1 To Cells(Rows.Count, sütunlar(a)).End(3).Row
        For c = a + 1 To UBound(sütunlar)
            Print #1, Replace(Cells(b, sütunlar(a)).Address, "$", "") & " hücresindeki değerden " & sütunlar(c) & " sütununda "; WorksheetFunction.CountIf(Columns(sütunlar(c)), Cells(b, sütunlar(a)).Value) & " tane var."
        Next
    Next
Next
Close #1
End Sub

merhaba yardımınız için teşekkür ederim