Sütundaki Metinin Alt çizgili olanları sıralama

[Mustafa MUTLU]

B sütununda 500 civarında metin mevcut.
Bunların 200 - 250 tanesi alt çizgili.
Bu verilerin içinden altı çizgili olanları
E sütununa sıralamak istiyorum.

İlginize
Teşekkür ederim..

 

[tahsinanarat]

A SUTUNUNDA ALT ÇİZGİLİ OLANLARI, A SUTUNUNDA SIRALAMA YAPAR
Sub Makro1()
AZBUYUK
Columns("A:A").Insert Shift:=xlToRight
Cells(2, 1).Value = "0"
Application.ScreenUpdating = False
sat = 2
For i = 2 To [b65536].End(3).Row
If Cells(i, "b").Font.Underline = xlUnderlineStyleSingle = True Then
Cells(i, "a").Value = sat - 1
sat = sat + 1
End If
Next i
For i = 2 To [b65536].End(3).Row
If Cells(i, "b").Font.Underline = xlUnderlineStyleSingle = False Then
Cells(i, "a").Value = sat - 1
sat = sat + 1
End If
Next i
AZBUYUK
Columns("A:A").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Sub AZBUYUK()
AD = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65000")) + 1
RA = 2 & ":"
CA = RA & AD
Rows(CA).Select
ta = 1
YA = 2 & ":" & AD
Rows(YA).Sort Key1:=Cells(ta), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[Mustafa MUTLU]

Yarın Deneyeceğim
Teşekkürler..