Hücre İçindeki değerlerin başına karakter eklemek

[MİLENYUMTUNCAY]

B sütunundaki pembe renkli olan tüm hücrelerin başına * eklemek istiyorum. Örneğin B sütununda 5,7,1245,5666. satırlarda olan kelimeler Ahmet,Mehmet,Hüseyin,Tuncay şeklinde. Ben bunların şu şekilde olmasını istiyorum. *Ahmet,*Mehmet,*Hüseyin,*Tuncay. Bunu nasıl yapabilirim? Önerebileceğiniz her hangi bir kod ya da metot varsa ve benimle paylaşırsanız sevinirim. Saygılar...

 

[Ali]

Sub degistir()
For i = 1 To [b65536].End(3).Row
If Cells(i, 2).Font.ColorIndex = 38 Then '38 yerine hangi renk kodu kullandı iseniz onu yazınız
Cells(i, 2).Value = "*" & Cells(i, 2).Value
End If
Next
End Sub

 

[Necdet]

Sayın MilenyumTuncay,

Alternatif olarak ekteki dosyayı inceleyiniz

 

[MİLENYUMTUNCAY]

çok teşekkür ederim arkadaşlar yardımlarınız için. sayenizde işlerim çok hızlı ilerliyor. emeğiniz için teşekkürler...

 

[çagdaş2]

Merhaba,

Örneği açamıyorum, yeniden yükleyebilmeniz mümkün müdür?

Teşekkürler

Sayın MilenyumTuncay,

Alternatif olarak ekteki dosyayı inceleyiniz
Eklenmiş Dosyalar
Dosya Türü: zip Secili_Hucrelere_Yildiz_Ekle.zip (6.3 KB, 24 Görüntülenme)