Süzerek aktarma

[magnesia]

Arkadaşlar selam.
Daha önce benzer bir soru sordum ama biraz değişiklik yaptım.. Eski kodları da yeniye uyarlayamayınca tekrar forumdaki üstadlara işim düştü..

Sorum şu :
"OPERATÖR" sayfası aktif hale gelince, "DATA" sayfasının D4 : D10000 arasındaki isimleri (sadece isim olacak) süzerek, A1'den itibaren, alfabetik olarak (A'dan Z'ye) sıralamasını istiyorum.

Şimdiden teşekkürler.

 

[byfika]

Merhabalar,
Daha önce verdiğiniz dosyada hatırladığım kadarıyla, VERİ GİRİŞ ve OPERATÖR sayfaları vardı, Veri giriş sayfasının E sütununda isimler vardı, aynı isim birkaç kez yazılmış olabilirdi ve bu isimler OPERATÖR sayfasında A sütununa süzülerek aktarılmasını ayrıca alfabetik sıraya sokulmasını istemiştiniz.
Bu aktarma işleminden sonra otomatik olarak yapılmaktaydı.
Siz sadece VERİ GİRİŞ sayfasının adını DATA yapıp, verilerin VERİ GİRİŞ sayfasında E4 den itibaren olan verilerin DATA sayfası D4-D10000 arasında olmasını mı istiyorsunuz? Eğer bu şekilde ise VERİ GİRİŞ sayfasının adını DATA yapın ve

MODULDEKİ KODU AŞAĞIDAKİ İLE DEĞİŞTİRİN:

Sub tekeindir()
Sheets("operatör").Range("A4:a65536").ClearContents
For d = 4 To [d65536].End(3).Row
If WorksheetFunction.CountIf(Range("d4:d" & d), Cells(d, 4)) = 1 Then
Sheets("OPERATÖR").Cells(d, 1) = Cells(d, 4)
End If
Next
End Sub

İyi çalışmalar.