Bütün değerlerin başına “*” koymak için...

[Liberty]

Merhaba, bütün hücrelerdeki değerlerin başına(rakam ya da metin farketmez) “*”(yıldız) işareti koymak istiyorum. Hepsini tek seferde nasıl yaparım? Örneğin “Ali” iken “*Ali” olsun.

 

[conari]

Merhaba, bütün hücrelerdeki değerlerin başına(rakam ya da metin farketmez) “*”(yıldız) işareti koymak istiyorum. Hepsini tek seferde nasıl yaparım? Örneğin “Ali” iken “*Ali” olsun.

örnek dosya eklermisiniz?

 

[Seyit Tiken]

İlgili alanı seçin → Hücre Biçimlendir → Genel → Metin → İsteğe Uyarlanmış → Metin Kutusu : "*"@ şeklinde yazıp deneyin.

 

[conari]

İlgili alanı seçin → Hücre Biçimlendir → Genel → Metin → İsteğe Uyarlanmış → Metin Kutusu : "*"@ şeklinde yazıp deneyin.

Eğer görsel olarak yapmak istiyorsanız yukarıdaki işlem işi görür
fakat metin değişsin derseniz.

A sütunu için işlemi yapar
Sub ekle()
son = [a65536].End(3).Row
For x = 1 To son
Metin = Range("a" & x).Value
Range("a" & x).Value = "*" & Range("a" & x).Value
Next
End Sub

 

[Liberty]

Tamam şimdi yaptım. Yalnız varolanı değiştirmiyor. Yeni değer girince istediğim gibi çıkıyor. Varolanı değiştirmesi için içine girip enter demem lazım. ?

sanırım macro yazmışsınız ama nasıl kullanacağımı bilmiyorum. Macrosuz bir çözüm gerekiyor. (Teşekkür ederim)

 

[conari]

Örnek dosyayı inceleyin makro sadece
A sütunu için çalışır.

bir hücreyi yaptı iseniz biçim boyacısını kullanarak tüm hücreleri boyayın

 

[omerceri]

Sn Seyit Diken'in dediği gibi formatladığınız herhangi bir hücreyi kopyalayıp, isim yazılı hücreleri seçip, Özel yapıştır/biçimleri derseniz.

 

[Liberty]

Tekrar teşekkür ederim bu kadarı yeterli olacak.