A'dan Z'ye Sıralama

[BeRDeN]

Bir türlü çözemedim şu sorunu ve gerçekten çok önemli benim için. şimdi resimdeki gibi excel dosyam var. gördüğünüz gibi bazı firmaların başında * işareti var.
önce a sütununu sonrada kendi içinde b sütununu alfabetik olarak sıralamam lazım ama başlardaki yıldız işareti bozuyor olayı. o * işaretini kaale almadan b sütununuda alfabetik olarak sıralayabilir miyiz? yani yine başlarındaki yıldız kalacak ama yıldız yokmuş gibi alfabetik olarak sıralayack
yardımcı olacak arkadaşlar için tüm dosyayıda upload ediyorum.
gerçekten çok öenmli bu.

http://rapidshare.com/files/305668519/ISPARTA_TKF_-_Kopya.xlsx.html


edit; birde bu dosyadki tüm yıldız işaretlerini kırmızı yapabilir miyiz? tek seferde ve kolaylıkla?

 

[N.Ziya Hiçdurmaz]

yanıt

İsteğinizi karşılarsa kendinize uyarlarsınız.

Sub test()
Dim sat, s As Integer
Dim deg
s = 1
    deg = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", _
    "P", "R", "S", "Ş", "T", "U", "V", "Y", "Z")
    For i = 0 To 23
    For sat = 1 To Cells(65536, "a").End(xlUp).Row
        If Mid(Cells(sat, "a"), 2, 1) Like deg(i) Then
            Range(Cells(s, "D"), Cells(s, "E")) = Range(Cells(sat, "a"), Cells(sat, "b")).Value
            s = s + 1
        End If
    Next: Next
End Sub

 

[BeRDeN]

excelin tamamını bilmeye 100 verirsek, ben ancak 5 ya da 10 biliyorum bu programı.
dolayısıyla bu verdiğiniz kodu nereye nasıl yazacağım konusunda hiç bir fikrim yok.