Çözüldü VBA Kullanarak Satırların Yerini Değiştirme

[ErdalÖzdemir]

Merhaba arkadaşlar.

Yapmak istediğim işlem; WBA kullanarak aşağıdaki metinde İl, başkan ve Şube Müdürü yazan satırları 2. satırdan başlayarak taşımak istiyorum.

Yardımlarınız için şimdiden teşekkür ederim.

SINIFI	KADRO_UNVANI
YHS	Aşçı
YHS	Bekçi
YHS	Hizmetli
YHS	Hizmetli(Ş)
YHS	Kaloriferci
THS	İl Başkanı
THS	Şube Müdürü
THS	İl Muhasebecisi
THS	Programcı
THS	Tekniker (Özelleştirme)

 

[ÖmerFaruk]

Bu isteğinizi FİLTRE özelliğiyle rahatlıkla yapabilirsiniz.
Aşağıdaki gibi filtre seçeneğini kullanıp tamam dedikten sonra görünen hücreleri kopyalayıp istediğiniz sayfa ve aralığa yapıştırabilirsiniz.
Bu yeterli değilse belirtin lütfen. Zira VBA ile de aynı işlemi yapacağız.

 

[ErdalÖzdemir]

Ömer Bey teşekkür ederim.
Filitre özelliğini biliyorum, fakat ben bu tabloyu bu noktaya WBA kullanarak getiriyorum. WBA ile yaparsak bütün işlemler birada yapılmış olur.

 

[Necdet]

Sınıf ve kadro unvanına göre sılama yaptığınızda zaten istediğiniz kişiler ilk sıraya çıkacaktır.

Kod istiyorsanız :

Public Sub Sirala()

Dim i As Long
i = Cells(Rows.Count, "A").End(3).Row
Range("A2:B" & i).Sort Key1:=[A1], Key2:=[B1]

End Sub

Not : Bu öneri verdiğiniz örnek veriler için geçerli, başka ünvarlar varsa sıkıntı olabilir.

 

[ErdalÖzdemir]

Necdet Bey Kodro unvanı olmayanlar da var
Bu yüzden istediğim sıralamayı yapamıyorum.

 

[Necdet]

Necdet Bey Kodro unvanı olmayanlar da var
Bu yüzden istediğim sıralamayı yapamıyorum.

o yüzden dedim zaten farlı ünvar varsa diye, siz ünvanı olmayanların olduğunu söylüyorsunuz.
Sanırım kamu kurumunda çalışıyorsunuz, bu tür sıkıntıları aşmanız için hem sınıfa hem de unvanlara kod vermek ve sıralamayı bu kod üzerinden yapmak gerekir.

 

[ErdalÖzdemir]

Necdet Hocam;
Tablonun tamamı aşağıdaki gibi, fakat unvan çeşidi zamanla aratabilmektedir.

Tabloyu bu şekilde sıralamak istiyorum.

SINIFI KADRO_UNVANI
GİH İl Milli Eğitim Müdürü
GİH İl Millî Eğitim Müdür Yardımcısı
GİH İl Milli Eğitim Şube Müdürü
GİH Eğitim Müfettişi
YHS Aşçı
YHS Bekçi
YHS Hizmetli
YHS Hizmetli(Ş)
YHS Kaloriferci
THS Mimar
THS Mühendis
THS Mühendis(Özelleştirme)
THS Programcı
THS Tekniker (Özelleştirme)
THS Tekniker (Ş)
THS Tekniker(THS)
THS Teknisyen (Ş)
THS Teknisyen(THS)
GİH Araştırmacı (Özelleştirme)
GİH Araştırmacı(6360)
GİH Araştırmacı(6639)
GİH Araştırmacı(703)
GİH Bilgisayar İşletmeni
GİH Eğitim Müfettişi
GİH Memur
GİH Memur(Ş)
GİH Muhasebeci
GİH Sayman(Döner Sermaye)
GİH Şef
GİH Sivil Savunma Uzmanı
GİH Şoför
GİH Tesis Müdürü
GİH Veri Hazırlama ve Kontrol İşletmeni
GİH Veznedar(Döner Sermaye)
EÖH Öğretmen
AH Avukat
AH Avukat (Ş)
- Geçici İşçi(696 KHK)
- Sözleşmeli Destek Personeli(657 S.K. 4/B)
- Sözleşmeli Fizyoterapist(657 S.K. 4/B)
- Sözleşmeli İdari Büro Görevlisi(657 S.K. 4/B)
- Sözleşmeli İdari Destek Görevlisi(657 S.K. 4/B)
- Sürekli İşçi

 

[Necdet]

yıllar önce sayıştayda çalışırken üyeler arasında sıralama sıkıntısı çıkmıştı.
tüm ünvanlar kendi içinde sicil numarasına göre sıralanıyordu.
Ama bazıları daha sonra Sayıştaya girmiş olmalarına rağmen önce üye seçildiği için ve bordro listesinde de sicil numarası küçük olandan sonra listelendiği için yedirememişler.
Bizde malesef durum böyle. Biz de ünvan kodlarını ona göre düzenlemiştik.
Öreğin 120 ünvan kodu üye ise, bunu ilk seçilene, 121 i ikinci seçilene 123 vs vs diye tam 10 adet adı üye olan ama ünvan kodu farklı olan bir sistem kurmuştuk.

Siz de öyle yapmalısınız, Şimdi ben sizin verdiğiniz listede kimin önce çıkacağını bilemem. siz ona göre bir kod veriniz ve öyle sıralayınız.

Kendimce bir sıralama yaptım. İnceleyiniz

SINIFI KADRO_UNVANI	Unvan kodu
GİH İl Milli Eğitim Müdürü	100​
GİH İl Millî Eğitim Müdür Yardımcısı	110​
GİH İl Milli Eğitim Şube Müdürü	120​
GİH Eğitim Müfettişi	130​
YHS Aşçı	200​
YHS Bekçi	210​
YHS Hizmetli	220​
YHS Hizmetli(Ş)	230​
YHS Kaloriferci	240​
THS Mimar	300​
THS Mühendis	310​
THS Mühendis(Özelleştirme)	311​
THS Programcı	312​
THS Tekniker (Özelleştirme)	313​
THS Tekniker (Ş)	314​
THS Tekniker(THS)	315​
THS Teknisyen (Ş)	316​
THS Teknisyen(THS)	317​
GİH Araştırmacı (Özelleştirme)	400​
GİH Araştırmacı(6360)	401​
GİH Araştırmacı(6639)	402​
GİH Araştırmacı(703)	403​
GİH Bilgisayar İşletmeni	404​
GİH Eğitim Müfettişi	405​
GİH Memur	406​
GİH Memur(Ş)	407​
GİH Muhasebeci	408​
GİH Sayman(Döner Sermaye)	409​
GİH Şef	410​
GİH Sivil Savunma Uzmanı	411​
GİH Şoför	412​
GİH Tesis Müdürü	413​
GİH Veri Hazırlama ve Kontrol İşletmeni	414​
GİH Veznedar(Döner Sermaye)	415​
EÖH Öğretmen	500​
AH Avukat	600​
AH Avukat (Ş)	601​
- Geçici İşçi(696 KHK)	700​
- Sözleşmeli Destek Personeli(657 S.K. 4/B)	701​
- Sözleşmeli Fizyoterapist(657 S.K. 4/B)	702​
- Sözleşmeli İdari Büro Görevlisi(657 S.K. 4/B)	703​
- Sözleşmeli İdari Destek Görevlisi(657 S.K. 4/B)	704​
- Sürekli İşçi	705​

 

[ErdalÖzdemir]

Necdet Hocam, ben sadece aşağıdaki unvanların en başta olmasını istiyorum. Diğerleri için normal A dan Z ye sıralama olabilir.

GİH İl Milli Eğitim Müdürü
GİH İl Millî Eğitim Müdür Yardımcısı
GİH İl Milli Eğitim Şube Müdürü
GİH Eğitim Müfettişi

 

[Necdet]

Tekrar Merhaba,

Yukarıda tüm ünvanları verdiğiniz ünvanlardan Özel Liste oluşturun. Sıralamada bu listeyi kullanın.
Dosya
Excel Seçenekleri
Gelişmiş
Genel
bölümde özel liste oluşturma var.

 

[Necdet]

Ben özel liste oluşturdum, siz örnek bir dosya oluşturun, denemek istiyorum.
Şimdiye kadar hiç denemedim.

 

[ErdalÖzdemir]

Hocam teşekkür ederim. Sezinde belirtiğiniz gibi unvanlara numara verip buna göre sıralama yaptım. sorunu çözmüş oldum.

 

[ErdalÖzdemir]

Hocam teşekkür ederim. Ben bu tabloyu kod ile 16 tabladan belirli kriterlere göre çektiğim için bu sıralma işinide kod içinde yapabilir miyiz diye düşündüm. Dediğinizde haklısınız, listeleme yönteme ile yapılabiliyor.