DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Bicim_SayfaDiz()
Dim Sht1 As Worksheet, Sht2 As Worksheet
For Each Sht1 In Worksheets
For Each Sht2 In Worksheets
If Sht1.Name > Sht2.Name Then Sht1.Move After:=Sht2
Next Sht2
Next Sht1
End Sub
Sub Bicim_SayfaDizKucuk()
Dim Sht1 As Worksheet, Sht2 As Worksheet
For Each Sht1 In Worksheets
For Each Sht2 In Worksheets
If KH(Sht1.Name) > KH(Sht2.Name) Then Sht1.Move After:=Sht2
Next Sht2
Next Sht1
End Sub
Sub Bicim_SayfaDizBuyuk()
Dim Sht1 As Worksheet, Sht2 As Worksheet
For Each Sht1 In Worksheets
For Each Sht2 In Worksheets
If BH(Sht1.Name) > BH(Sht2.Name) Then Sht1.Move After:=Sht2
Next Sht2
Next Sht1
End Sub
Function KH(veri)
KH = Replace(veri, "İ", "i")
KH = Replace(KH, "I", "i")
KH = LCase(KH)
End Function
Function BH(cevir)
BH = Replace(cevir, "i", "I")
BH = Replace(BH, "ı", "I")
BH = UCase(BH)
End Function
Sub Bicim_SayfaDizB()
Dim Sht1 As Worksheet, Sht2 As Worksheet
For Each Sht1 In Worksheets
For Each Sht2 In Worksheets
Sht1.Name = BH(Sht1.Name)
If Sht1.Name > Sht2.Name Then Sht1.Move After:=Sht2
Next Sht2
Next Sht1
End Sub
Function BH(cevir)
BH = Replace(cevir, "i", "I")
BH = Replace(BH, "ı", "I")
BH = UCase(BH)
End Function
Sub Bicim_SayfaDizK()
Dim Sht1 As Worksheet, Sht2 As Worksheet
For Each Sht1 In Worksheets
For Each Sht2 In Worksheets
Sht1.Name = KH(Sht1.Name)
If Sht1.Name > Sht2.Name Then Sht1.Move After:=Sht2
Next Sht2
Next Sht1
End Sub
Function KH(veri)
KH = Replace(veri, "İ", "i")
KH = Replace(KH, "I", "i")
KH = LCase(KH)
End Function
Yani Büyük Harf ile ISTANBUL, IÃDIR, INEGÃ?L, ISPARTA yazdığınızda sıralaması yanlış olacaktır.Her türlü olasılığı denemedim
Sub Test()
Dim ShArr() As String
Dim i As Integer
Dim MyWd As Object
ReDim ShArr(1 To Sheets.Count)
For i = 1 To Sheets.Count
ShArr(i) = LCase(Sheets(i).Name)
Next
Set MyWd = CreateObject("Word.Basic")
MyWd.SortArray ShArr()
For i = LBound(ShArr) - 1 To 1 Step -1
Sheets(ShArr(i)).Move Before:=Sheets(ShArr(i + 1))
Next i
Set MyWd = Nothing
End Sub
VisualBasic' Alıntı:Yani Büyük Harf ile ISTANBUL, IÃDIR, INEGÃ?L, ISPARTA yazdığınızda sıralaması yanlış olacaktır.
Sizin yada Visual Basic'in yazdığı kodlardan hangisinin doğru olduğunun bu denli önem taşımaması gerekir diye düşünüyorum.Raider' Alıntı:Excel VBA'de bu tip kodlamalarla yapılan sıralamalarda; sıralanacak veriler arasında Türkçe karakterler içerenler maalesef yanlış sıralanır.
Yukarıdaki mesajımda yer alan link ve VisualBasictarafından önerilen kodlarda bu sorun vardır
Kesinlikle polemik yapmak gibi bir niyetim yoktu, buna emin olabilirsiniz.VisualBasic' Alıntı:Sanki olayda polemik var gibi geldi bana. :?
ifadesi, benim kodumun yanlış sonuç verdiği imajını uyandırdığı için ben de durumun böyle olmadığını, verdiğiniz örnek sayfa isimleriyle kodun doğru çalıştığını anlatmak istedim.VisualBasic' Alıntı:Yani Büyük Harf ile ISTANBUL, IÃDIR, INEGÃ?L, ISPARTA yazdığınızda sıralaması yanlış olacaktır.
Kesinlikle polemik yapmak gibi bir niyetim yoktu, buna emin olabilirsiniz.VisualBasic' Alıntı:Sanki olayda polemik var gibi geldi bana. :?
ifadesi, benim kodumun yanlış sonuç verdiği imajını uyandırdığı için ben de durumun böyle olmadığını, verdiğiniz örnek sayfa isimleriyle kodun doğru çalıştığını anlatmak istedim.VisualBasic' Alıntı:Yani Büyük Harf ile ISTANBUL, IÃDIR, INEGÃ?L, ISPARTA yazdığınızda sıralaması yanlış olacaktır.
Kesinlikle içinizde "acaba ??" diye bir düşünce olmasın, çünkü yukarıda yazdığım mesajlarımın içeriği tümüyle Excel ile ilgilidir ve ne kişiliğinize, ne de bilginize karşı herhangibir olumsuz düşünce gözetilmeden yazmışımdır.VisualBasic' Alıntı:- Bende aynı fikirdeydim ancak, birkaç cümle bir acaba uyandırdı bende ...