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

ErdalÖzdemir

Altın Üye
Katılım
12 Ağustos 2022
Mesajlar
91
Excel Vers. ve Dili
2013 TÜRKÇE
Altın Üyelik Bitiş Tarihi
21-09-2025
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.

242097
 

ErdalÖzdemir

Altın Üye
Katılım
12 Ağustos 2022
Mesajlar
91
Excel Vers. ve Dili
2013 TÜRKÇE
Altın Üyelik Bitiş Tarihi
21-09-2025
Ö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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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 :

Kod:
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.
 
Son düzenleme:

ErdalÖzdemir

Altın Üye
Katılım
12 Ağustos 2022
Mesajlar
91
Excel Vers. ve Dili
2013 TÜRKÇE
Altın Üyelik Bitiş Tarihi
21-09-2025
Necdet Bey Kodro unvanı olmayanlar da var
Bu yüzden istediğim sıralamayı yapamıyorum.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Altın Üye
Katılım
12 Ağustos 2022
Mesajlar
91
Excel Vers. ve Dili
2013 TÜRKÇE
Altın Üyelik Bitiş Tarihi
21-09-2025
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Altın Üye
Katılım
12 Ağustos 2022
Mesajlar
91
Excel Vers. ve Dili
2013 TÜRKÇE
Altın Üyelik Bitiş Tarihi
21-09-2025
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Ben özel liste oluşturdum, siz örnek bir dosya oluşturun, denemek istiyorum.
Şimdiye kadar hiç denemedim.
 

ErdalÖzdemir

Altın Üye
Katılım
12 Ağustos 2022
Mesajlar
91
Excel Vers. ve Dili
2013 TÜRKÇE
Altın Üyelik Bitiş Tarihi
21-09-2025
Hocam teşekkür ederim. Sezinde belirtiğiniz gibi unvanlara numara verip buna göre sıralama yaptım. sorunu çözmüş oldum.
 

ErdalÖzdemir

Altın Üye
Katılım
12 Ağustos 2022
Mesajlar
91
Excel Vers. ve Dili
2013 TÜRKÇE
Altın Üyelik Bitiş Tarihi
21-09-2025
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.
 
Üst