Bazı hücrelerin başına yıldız koymam gerekiyor

[BeRDeN]

resimdeki gibi bir excel dosyam var. ve bunun gibi 7000 civarı kayıt var.
şimdi B sütunundaki bazı hücrelerin başında " * " (yıldız) işareti olmak zorunda. Ama daha sonra bunları alfabetik olarak sıralayacağım. Bu yıldızlar olmasına rağmen alfabetik sıralamayaı bozmamayı yapabilir miyim?
Eğer hayır diyecekseniz, yıldızsız olarak yazıp, alfabetik olarak sıralayıp daha sonra seçeceğim hücrelerin başına resimdeki gibi yıldız koyabilir miyim tek hamleyle?
Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Yardımcı sütun kullanarak işlemi yapabilirsiniz. Aşağıdaki formülü C sütununa uygularsanız. Verilerin başına otomatik olarak "*" eklenir.

="*"&SAĞDAN(B1;UZUNLUK(B1)-1)

 

[Necdet]

Merhaba,

İkinci seçenek, doğrudan hücre içinde eklemek isterseniz :

Aşağıdaki kodları bir modüle ekleyiniz.

Hücreleri seçtikten sonra kodu çalıştırınız.

Sub Yıldız()
Dim Hücre As Range
If Selection.Count = 0 Then Exit Sub
For Each Hücre In Selection
    Hücre.Value = "*" & Hücre.Value
Next Hücre
End Sub

 

[BeRDeN]

çok teşekkür ederim.

 

[bilisim2010]

Selamlar,

Yardımcı sütun kullanarak işlemi yapabilirsiniz. Aşağıdaki formülü C sütununa uygularsanız. Verilerin başına otomatik olarak "*" eklenir.

="*"&SAĞDAN(B1;UZUNLUK(B1)-1)

hocam bu kodu aldıktan sonra a1 deki 100 sayısını b1 den 101 c1 102 diye nasıl bir ek yapabiliriz? yani a1 de *100* var sağa doğru +1 yükseltmem gerek ama yıldız içinde olması gerekiyor

 

[Ali]

="*"&YERİNEKOY(A1;"*";"")+1&"*"