ayrı sayfalardaki sayıları benzersiz sıralama

[Erdem Akdemir]

arkadaşlar merhaba

ek'te tam detayıyla konuyu anlattım,ayrı sayfalardaki sayıları mükerrer olmayacak şekilde küçükten büyüğe sıralamak istiyorum.yardımlarınızı bekliyorum

iyi çalışmalar.

 

[hamitcan]

Böyle deneyin.

Sub SirayaDiz()
    Sheets("Sayfa1").Columns(3).Clear
    For i = 1 To Sheets("Sayfa1").[a65536].End(3).Row
        s = WorksheetFunction.CountIf(Sheets("Sayfa2").Columns(1), Sheets("Sayfa1").Cells(i, 1))
        If s <= 1 Then
            c = c + 1
            Sheets("Sayfa1").Cells(c, 3) = Sheets("Sayfa1").Cells(i, 1)
        End If
    Next
    For i = 1 To Sheets("Sayfa2").[a65536].End(3).Row
        s = WorksheetFunction.CountIf(Sheets("Sayfa1").Columns(1), Sheets("Sayfa2").Cells(i, 1))
        If s = 0 Then
            c = c + 1
            Sheets("Sayfa1").Cells(c, 3) = Sheets("Sayfa2").Cells(i, 1)
        End If
    Next
    Sheets("Sayfa1").Columns(3).Sort key1:=Sheets("Sayfa1").[c1], order1:=xlDescending
End Sub

 

[Erdem Akdemir]

formül ile yapamazmıyız

 

[hamitcan]

Kolay olacağını düşünmüyorum.

 

[can.arikan]

merhabalar.. sorunu anladığım kadarıyla anlatayım yalnız excelim türkçe sanırım çevirebilirsin:
bütün sayıları alt alta kopyala yapıştır yaparsın sonra üstte "veri" yani ingilizce versiyondaki data sekmesinin altında "yinelenenleri kaldır" diye bir buton var. ingilizcesini bilmiyorum ama "data validation"un hemen solunda ekrana bakışa göre. tıkladıktan sonra gelen ekranda istediğin sütunu seçiyorsun. yinelenenler gidiyor. sonrada verileri seçip sağ tıklıyorsun "sırala"yı seçip büyükten küçüğe ya da aksini seçiyorsun. umarım yardımcı olabilmişimdir.