sayfalardaki verileri benzersiz sıralama

[modoste]

merhaba sayın hocalarım
ekli çizelgede OCAK-ŞUBAt... aralık a kadar hep aynı şablonda hazırlanmış aylık puantajlardan
Özet sayfasındaki sonuç çizelgesini siz değerli hocalarımdan öğrendiğim bilgilerle ve mantıkla yapmayı başardım. F1 hücresine aradığım ismi manuel girdiğimde istediğim sonuçlara ulaşıyorum
Özet sayfasında C3 den başlamak şartıyla diğer sayfaların C4:C60 arasındaki isimlerin benzersiz olarak sıralamak istiyorum.

sorumun ana fikri sekmelerde belirli bir aralıktaki değişik adları benzersiz sıralamak daha önce bi çözüm vardı ama bu tablo içine aktaramadım o çözümü
sayın MUYGUN hocam galiba cevaplamıştı.

 

[Ömer]

Merhaba,

Birşeyler yapmaya çalıştım. Umarım istediğiniz gibi olmuştur. Module kopyalayarak çalıştırın.

Sub Sırala()
Application.ScreenUpdating = False
Dim j As Variant
Dim i As Long
Dim S1 As Worksheet
Set S1 = Sheets("Özet")
S1.Select
Columns("C:C").ClearContents
 
sat = 3
For i = 4 To 60
For j = 1 To 12
 
If WorksheetFunction.CountIf(Sheets(j).Range("C4:C60"), _
    Sheets(j).Cells(i, "c").Value) = 1 Then
        Cells(sat, "as") = Sheets(j).Cells(i, "c")
        sat = sat + 1
    End If
 
Next j, i
 
son = [AS65536].End(3).Row
 
Range("AS3:AS" & son).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("C3"), Unique:=True
Columns("AS:AS").ClearContents
Range("C3:C65536").Sort Key1:=Range("C3")
Columns("C:C").EntireColumn.AutoFit
 
Application.ScreenUpdating = True
End Sub

.

 

[modoste]

sayın Ömer hocam öncelikle tekrar ilginize teşekkür ettim
sizden istediklerim 2 şey daha var kod yazılmış halini siz ekleyip bana dosyamı tekrar ekleyebilirmisiniz
bir diğeride bu şablon mesela 60. satıta kadar belirlediğim yerler diyelim 100 oldu böyle bi hale getircem o zaman KOD daki nereleri değişeceğimi yada isimlerin olduğu veriler hücresi C değilde başka bi sutun olursa KOD daki nereleri nasıl değişeceğimi KOD kısmında kırmızı renkle yazarak belirtebilirmisiniz

 

[Ömer]

Kodların yanına gerekli açıklamaları yapmaya çalıştım.

.

 

[modoste]

çok teşekkür ettim hocam
bende şimdi sizden daha önce bana formüllediğiniz bi çizelge üzerinde değişik varyasyonlar yapmaya çalışıyorum inşallah başarırım