Süzerek aktarma

[magnesia]

Arkadaşlar selam..
"Veri Giriş" sayfasının E4:E10000 arasındaki operatör isimlerini, "Operatör" sayfasına süzerek, alfabetik olarak sıralamasını istiyorum.
Şimdiden teşekkürler.

 

[magnesia]

Yardım lütfen

 

[byfika]

Merhabalar,
İstediğiniz böyle bir şey mi?
İyi çalışmalar..

 

[magnesia]

byfika arkadaşım.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Şu an dışarıdayım. Dönünce dener, sonuçtan bilgi veririm.

 

[magnesia]

byfika arkadaşım..
İlgi ve emeğine tekrar teşekkürler ama filtre istemiyorum.
Eklediğiniz örnek benim isteğimi karşılamıyor..
İlk başta da belirttiğim gibi "Veri Giriş" sayfasının E4:E10000 arasında binlerce isim olacak ve çoğu da tekrar isimlerden oluşacak. Bu sayfadaki operatör isimlerini, "Operatör" sayfası aktif hale geldiğinde bu isimleri süzüp teke düşürerek aktarmasını ve alfabetik olarak sıralamasını istiyorum.

 

[byfika]

Merhabalar,
Sonucunda bir süzme (filtreleme) var, Siz manuel olarak istemiyorsunuz. Makro ile süzme (filtreleme) yapıp alfabetik olarak sayfa2 ye aktarma olacak şekilde ayarlı.

Bunu dener misiniz?
İyi çalışmalar

 

[magnesia]

Sanırım ben yapamadım..
Olmuyor.. Çalışmıyor.. Sayfa aktif olduğunda kodların çalışmasını istiyorum.. Ayrıca bu kodları hangi sayfaya ekleyeceğim..?

 

[netzone]

Merhaba,

byfika'nın yapmış olduğu gönderide sizin de belirmiş olduğunuz gibi; e4-e10000 arasını sayfa 1 e koymuş olduğu buton ile "tekeindir" fonksiyonunu tetikleyerek mükerrer kayıtların silinip sayfa 2 de yer alan e4-e10000 arasına kopyalamaktadır.

indirdiğini dosyanın kodlarını inceleyerek kendi çalışmanıza uyarlayabilirsiniz.

iyi çalışmalar.

 

[magnesia]

Sayın netzone.
Aynen dediğiniz gibi yaptım. "Veri Giriş" sayfasına bir makro düğmesi ekleyip sayın byfika'nın kodları yerleştirdim. Kod içindeki "sayfa2" yi "Operatör" yaptım. Sonuç alamadım...

 

[byfika]

Sayın netzone.
Aynen dediğiniz gibi yaptım. "Veri Giriş" sayfasına bir makro düğmesi ekleyip sayın byfika'nın kodları yerleştirdim. Kod içindeki "sayfa2" yi "Operatör" yaptım. Sonuç alamadım...

Örnek dosyayı çalıştırdınız mı? Tekeindir makro Kodları Modul1 içerisinde ve sayfa2 de alfabetik dizen kod ise sayfa2 nin kod bölümünde. Ayrıca eğer sayfa2 nin adını OPERATÖR yaptıysanız moduldeki kodta bulunan sayfa2 yi de OPERATÖR yapmanız gerekir. Daha önce yazdığınız gibi sayfa1 in adını VERİ GİRİŞİ yapabilirsiniz. 6. mesajımdaki dosyayı anlattığım şekilde güncelledim.

KOD AŞAĞIDAKİ GİBİ OLACAK :

Sub tekeindir()
For e = 4 To [e65536].End(3).Row
If WorksheetFunction.CountIf(Range("e4:e" & e), Cells(e, 5)) = 1 Then
Sheets("OPERATÖR").Cells(e, 5) = Cells(e, 5)
End If
Next
End Sub

 

[magnesia]

Şaşılacak bir durum var.. Sizin eklediğiniz örnek dosya çalışıyor ama kodları benim programa aktardım mı çalışmıyor..

 

[magnesia]

Sayın byfika.
Kodları daha önce sizin dediğiniz gibi değiştirmiştim.
Operatör sayfasına süzme ve aktarma işlemi yapıyor ama bu sayfaya da E4'den itibaren sıralıyor.
Oysa ben süzme işlemini Operatör sayfası A1'den itibaren yapmasını istiyorum.

 

[netzone]

Merhaba,

Sayfa 2'nin kodlarını;

Private Sub Worksheet_Change(ByVal Target As Range)
Range("a1:a10000").Sort key1:=Range("a3"), ORDER1:=xlAscending
End Sub

modül kodlarını;

Sub tekeindir()
For e = 4 To [e65536].End(3).Row
If WorksheetFunction.CountIf(Range("e4:e" & e), Cells(e, 5)) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(e, 1) = Cells(e, 5)
End If
Next
End Sub


değiştirip tekrar deneyiniz.

iyi çalışmalar.

 

[byfika]

Dosya istediğiniz gibi hazır.
İyi çalışmalar.

 

[byfika]

Sayın netzone un cevabı yazdığını görmemiştim.
Tekrar iyi çalışmalar

 

[magnesia]

Sayın byfika ve netzone.
İşlem tamam..
İlginize, bilginize ve emeğinize teşekkür ederim.

 

[byfika]

Geri dönüşünüz için teşekkürler.
İyi çalışmalar