Kullanim kolayligi!

[mavisachal]

Arkadaslar selam,

Cok kisa ama icinden cikamadigim bir sorunu sizinle paylasmak ve fikirlerinizi almak istiyorum.

Ornekte gordugunuz gibi numaralarin karsisinda aslinda isimlerin olmasi gerekiyor bunu makro ile hic filtre kullanmadan yapmanin bir yolu var midir?

Inanin cok ugrastim for dongusu kullandim ama isin icinden cikamadim.

Tesekkurler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
[E3:F1000].Clear
Columns("A:A").Select
    Range("A1:A1000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "E3"), Unique:=True
Columns("C:C").Select
    Range("C1:C1000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "F3"), Unique:=True
[A1].Select
End Sub

 

[mavisachal]

Tesekkur ederim ancak filtre koymadan yapabilmek icin ne yapmamiz gerekir acaba onun icn ugrasiyorum?

 

[Zeki Gürsoy]

Boşlukları silsek olur mu?

Columns("A:C").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Columns("B").Delete

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Sub Düğme1_Tıklat()
Range("C1:C30").Cut Destination:=Range("B1:B30")
[A1:A30].Sort Key1:=Range("A1")
[C1:C30].Sort Key1:=Range("C1")
[B1:B30].Sort Key1:=Range("B1")
End Sub

 

[mavisachal]

Yok seyit hocam olmadi istedigim sonucu cikarmiyor