hücre içine metin ekleme

[cobanoglu]

seçtigim alandaki tüm hücrelerin içindeki metinlerin sonuna "(..Adet) "yazısını eklemek istiyorum mümkünmüdür..!

 

[hamitcan]

Aşağıdaki kod işinizi görür zannedersem.

Sub gg()
For Each hucre In Selection
hucre.Value = hucre & " adet"
Next
End Sub

 

[cobanoglu]

teşekkürler

 

[Levent Menteşoğlu]

Bu işlemi hücre biçimlendirme ilede yapabilirsiniz. Böylece hücrelerdeki sayılarla işlem yapma olanağınızda olur. Aşağıdaki resmi inceleyin.