e sutunundaki benzer rakamlar L sutununa

[uguristanbul]

örnek dosydadad açıklamaya çalıştığım gibi e sutununda komisyon oranlarına ait rakamlar yukardan asagıya kucukten büyüge benzer her rakam 1 sefer olmak üzere L sutununa yazılmalı.
herkese saygılar

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
 
    Columns("E:E").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("L1"), Unique:=True
 
    Range("L2:L" & Rows.Count).Sort Range("L2")
    
End Sub

.

 

[uguristanbul]

2nci satırda
syntax eror hatası veriyor hocam

 

[Mahir64]

Merhaba
Altarnatif olarak;
Veri / Filtre uygula / Gelişmiş seçeneğini kullanabilirsiniz.

 

[Ömer]

2nci satırda
syntax eror hatası veriyor hocam

L sütununda açıklama için yazdığınız birleştirilmiş hücreyi düzelttiniz mi?

.

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()
    Range("E1:E27").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "L1"), Unique:=True
    Range("L2:L" & Cells(Rows.Count, "L").End(3).Row).Sort Key1:=[L1]
End Sub

 

[uguristanbul]

evet haklısınız bosluklar oldugu icin calısmamıs
su an sorunsuz calısıyor
tesekkurler
saygılar