ALFABETİK SIRAYA GÖRE SIRA NUMARASI VERME

[teyadih]

Kolay Gelsin Arkadaşlar
D Sütununda bulunan isimlerin baş harflerine göre sıra numarası veren bir formüle ihtiyacım var
Yani Örnekte 7 tane A ile başlayan isim var Önce A olanları 1 den 7 ye kadar verecek sonra varsa B yi 8 den başlatıp,
sıradaki diğer harflere göre Örnek Numaralandırma sütununda olduğu üzere devam edecek şekilde
Örnek dosyayı ekte gönderiyorum. Teşekkür ederim

 

[turist]

Tavsiye:
Muhtemelen Orijinal dosyanızda; "Adı Soyadı" olarak yer alan Personel için ayrı bir sayfada A1 hücresinden başlayaraka İsim listesi oluşturun.
Bu listeyi Küçükten Büyüğe (A-Z) dizin, sonra yanındaki sütuna 1 den başlayan numaralarını yazın.
Bu numaraları dilerseniz B1 hücresine =SATIR() formül yazarak otomatik numaralandırabilirsiniz.
Daha sonra "Personel" sayfasında DÜŞEYARA fonksiyonu ile bu numaraları Y sütununa yazdırabilirsiniz.
İyi çalışmalar.

 

[teyadih]

Evet sayın turist dediğiniz gibi verilen sıra numarasına göre diğer sayfaya taşıyacağım. Genel listemde çok fazla değişiklik olduğundan her defasındı A-Z sıralaması yapmadan alfabetik olarak otomatik sıra numarası vermesi ve sıra numarasına göre de otomatik olarak sıralaması için istemiştim formülü

 

[teyadih]

Formülü D Sütununda bulunan isimlerin baş harflerine göre sıra numarası verecek şekilde istemiştim ama AB sütununda baş harfleri var sıralama Ab sütununa göre de olabilir

 

[turist]

Dosyanız eklidir.

 

[teyadih]

elinize sağlık sayın turist

 

[YUSUF44]

Alternatif olarak makrolu çözüm için aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Option Base 1
Sub numaralama()
Dim alfabe()
alfabe = Array("A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", "R", "S", "Ş", "T", "U", "Ü", "V", "Y", "Z")
son = Cells(Rows.Count, "D").End(3).Row
sıra = 1
Range("Y3:Y" & son) = ""
For başharf = 1 To 29
    For isim = 3 To son
        If Cells(isim, "Y") = "" Then
            If Left(Cells(isim, "D"), 1) = alfabe(başharf) Then
                Cells(isim, "Y") = sıra
                sıra = sıra + 1
            End If
        End If
    Next
Next

End Sub

 

[turist]

elinize sağlık sayın turist

Sağ olun.

 

[teyadih]

Sayın turist sizi yoruyorum hakkınızı helal edin. aynı formülle ilgili bir şey daha rica edebilir miyim? Formülü gönderdiğim örnek dosyadaki hem hakim hem de personel sayfasını kapsayacak şekilde yapabilir misiniz. Yani önce Hakim sayfasındaki A lara sıra numarası verecek sonra Personel sayfasındaki A lara

 

[teyadih]

sayın turist formül daha önceki personel sayfasında olacak ama önce Hakim sayfasındaki harf durumunu sonra personel sayfasındaki harf durumunu dikkate alacak şekilde

 

[teyadih]

size zahmet ilgilenirseniz sevinirim

 

[turist]

sayın turist formül daha önceki personel sayfasında olacak ama önce Hakim sayfasındaki harf durumunu sonra personel sayfasındaki harf durumunu dikkate alacak şekilde

#5 No.lu cevapta dosya güncellenmiştir.Tekrar indirip bakınız.

 

[teyadih]

Teşekkür ederim sayın turist elinize sağlık. p.tesi bakıp dönüş yapacağım

 

[teyadih]

Merhaba sayın turist eksik bilgi verdim sanırım. Sıra no yu önce Hakim sayfasındaki A lara verecek Sonra Personel sayfasındaki A lara
aynı şekilde diğer harfler içinde önce Hakim sonra Personel sayfasındaki harfleri yani her 2 sayfada ki harfleri dikkate alacak şekilde. Örnek Hakim sayfasında 7 tane A ile Personel sayfasında ki 7 tane A dan sonra Hakim sayfasındaki B nin 15 den başlayıp devam etmesi. Yordum sizi kusura bakmayın

 

[Erdem Akdemir]

Alternatif,

=TOPLA.ÇARPIM(--DEĞİL(($A$2:$A$114>A2)))-EĞERSAY(A2:$A$114;A2)+1

 

[YUSUF44]

Her ne kadar bir önceki verdiğim çözümle ilgili herhangi bir dönüş yapmamış olsanız da aşağıdaki kodları bir deneyin isterseniz:

Option Base 1
Sub numaralama()
Set s1 = Sheets("HAKİM")
Set s2 = Sheets("personel")
Dim alfabe()
alfabe = Array("A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", "R", "S", "Ş", "T", "U", "Ü", "V", "Y", "Z")
sonhakim = s1.Cells(Rows.Count, "D").End(3).Row
sonpersonel = s2.Cells(Rows.Count, "D").End(3).Row
sıra = 1
s1.Range("Y3:Y" & sonhakim) = ""
s2.Range("Y3:Y" & sonpersonel) = ""
For başharf = 1 To 29
    For hakim = 3 To sonhakim
        If s1.Cells(hakim, "Y") = "" Then
            If Left(s1.Cells(hakim, "D"), 1) = alfabe(başharf) Then
                s1.Cells(hakim, "Y") = sıra
                sıra = sıra + 1
            End If
        End If
    Next
    For personel = 3 To sonpersonel
        If s2.Cells(personel, "Y") = "" Then
            If Left(s2.Cells(personel, "D"), 1) = alfabe(başharf) Then
                s2.Cells(personel, "Y") = sıra
                sıra = sıra + 1
            End If
        End If
    Next
Next

End Sub

 

[teyadih]

Sağ olun sayın kuvari elinize sağlık. Yukarıda yazdığım gibi ilk önce hakim listesinden başlamak üzere hakim ve personel listelerinin her ikisini de dikkate alacak şekilde düzenleyebilir misiniz formülü

 

[teyadih]

Özür dilerim sayın yusuf44 eğerli formülle ilgili verdiğim eksik bilgilerle ilgilenirken sizi atlamışım.

 

[teyadih]

Sayın yusuf44 makrodan hiç anlamadığım için bir arkadaşın yardımı ile uyguladık ancak nerede hata yaptık anlamadım A lara vermiyor 10.satırdan itibaren B lerden veriyor numaraları. Birde otomatik çalışmıyor bir düğme koymak gerekiyor sanırım. Örnek dosyaya uygulama şansınız var mı acaba

 

[YUSUF44]

Ekli dosyayı inceleyiniz. Örnek dosyanızda düzgün şekilde çalışıyor. Sizde düzgün çalışmadıysa asıl dosyanız örnek dosyanızla aynı yapıda değildir.