Karate Icin yardim

[kanazawa]

Merhaba ben TC.Karate federasyonu MHK Uyesi ve sekreteriyim.
Ekteki dosyada basit bir islem yapmak istiyorum.
Ekteki dosyada TKF KUMITE KLASMAN sutunundaki Orta hakem - Yan Hakem ve Bölge vize adi altinda lisanslar var.Ben bir makro ile adil gorev dagilimi yapmak icin AZ sutunundaki yuzdeleri bolge vize lisansı hariç siralamak istiyorum.Bolge vize maclarda gorev almadigi icin gerek yok.Sıralama sadece Orta hakem ve Yan hakemleri kapsamali.Yeni olusacak sayfada ilk 7 baslik sabit kalacak sekilde % leri yuksekten kucuge gore siralayacak makroya yardimlariniz onemle rica olunur.Ayrica bir uluslararasi maca bizzat benim davetlim olmak isterseniz bildirmeniz yeterli.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. 7 sabit başlıktan ne kasdettiğinizi açıklarsanız makroda gerekli değişikliği yapabilirim.

Sub yenitabloolustur()
Sheets("GENEL_SONUCLAR").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "YENİ_TABLO"
Set s1 = Sheets("YENİ_TABLO")
If s1.AutoFilterMode = False Then s1.[A2:BA65536].AutoFilter
s1.[A2:BA65536].AutoFilter Field:=6, Criteria1:="BÖLGE VİZE"
s1.[3:65536].SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
s1.ShowAllData
s1.Rows("3:65536").Sort Key1:=s1.[az3], Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[kanazawa]

Levent bey,
Oncelikle cok tesekkur ederim...7 sabit basliktan kastim "sira no - adi soyadi-bolge no" diye giden 7 baslikti.
Oncelikle sayfa buyuk oldugu icin sayfada H ile AW sutunu dahil aradaki sutunlar silinsin istiyorum.
Birde yuzde siralamasina sadece Orta ve Yan hakemler girsin istiyorum...Şimdiki haliyle lisansı olmayanlar ve Ulusal vize olanlarda giriyor ve onlari zaten toplantilarimizda konusmuyoruz.

Simdiden cok tesekkurler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub yenitabloolustur()
Sheets("GENEL_SONUCLAR").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "YENİ_TABLO"
Set s1 = Sheets("YENİ_TABLO")
If s1.AutoFilterMode = False Then s1.[A2:BA65536].AutoFilter
s1.[A2:BA65536].AutoFilter Field:=6, Criteria1:="<>ORTA HAKEM", Operator:=xlAnd, Criteria2:="<>YAN HAKEM"
s1.[3:65536].SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
s1.ShowAllData
s1.Rows("3:65536").Sort Key1:=s1.[az3], Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
s1.[A2:BA65536].AutoFilter
s1.[AX:BA].Copy
s1.[AX:AX].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
s1.[H:AV].Delete Shift:=xlToLeft
ActiveWindow.FreezePanes = False
End Sub