bir çok veriyi sılama ve eşleştirme nasıl yapılır

[dlukas]

ekde anlatılmıştır.
tşk.excel 2010 kullanıyorum
lütfen rar.ile cevaplamayın

 

[YUSUF44]

ilk isteğinizi yani L sütununda benzersizleri göstermeyi makro kaydet yöntemiyle kendiniz de yapabilirsiniz. Ben o yöntemle yaptım ve sonra çıkan kodlarda bazı değişiklikler yaparak aşağıdaki kodları elde ettim:

Sub Makro3()
'
' Makro3 Makro
'

'
a = [j1].End(xlDown).Row
Range("L2:L" & a).ClearContents
    Range("J2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$L$1:$L$1783").RemoveDuplicates Columns:=1, Header:= _
        xlYes
    ActiveWorkbook.Worksheets("deneme").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("deneme").Sort.SortFields.Add Key:=Range("L2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("deneme").Sort
        .SetRange Range("L2:L1783")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    [L2].Select
End Sub

Yalnız eğer profilinizde belirttiğiniz gibi 2003 kullanıyorsanız bu kodlar 2003'te çalışır mı bilmiyorum.

 

[dlukas]

teşekkürler
YUSUF44
bunu yapmanın başka yolu yokmudur,yani makrosuz bir yöntem varmıdır.

 

[YUSUF44]

Belki vardır ancak ben bilmiyorum maalesef, makro en kolay yöntemdir diye düşünüyorum. Makroda hata olasılığı daha azdır. Bu arada kodlarda ufak değişiklikler yaptım:

Sub Makro3()
a = Cells(Rows.Count, "j").End(xlUp).Row
Range("L2:L" & a).ClearContents
Range("j2:j" & a).Select
    Selection.Copy
Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$L$2:$L" & a).RemoveDuplicates Columns:=1, Header:= _
        xlYes
    ActiveWorkbook.Worksheets("deneme").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("deneme").Sort.SortFields.Add Key:=Range("L2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
b = Cells(Rows.Count, "l").End(xlUp).Row
With ActiveWorkbook.Worksheets("deneme").Sort
        .SetRange Range("L2:L" & b)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With
[L2].Select
End Sub

 

[gelibolu]

L2 ye bu fonksiyonu kopyalarsanız tekilleri sayabilirsiniz
=EĞER(EĞERSAY(J$1:J2;J2)=1;MAK(L$1:L1)+1;"")

 

[gelibolu]

sıralama örnekleri

Ekte bu siteden aldığım örnek bir dosya var işinize yarayacağını düşünüyorum.