hücre içi kelime öncesi ve sonrası karakter ekle

[honestman]

Merhaba,

Örneğin A1:A20 aralığında hücre içinde yer alan bir kelimeden önce ve sonra * karakteri eklemek isterseknasıl bir kod yazmalıyız?

 

[antonio]

Merhaba,

Örneğin A1:A20 aralığında hücre içinde yer alan bir kelimeden önce ve sonra * karakteri eklemek isterseknasıl bir kod yazmalıyız?

Sub ekle()
Dim sh As Worksheet
Set sh = Worksheets("Sayfa1")
deg = ""
For i = 1 To 20
deg = Cells(i, 1).Value
Cells(i, 1).Value = "*" & deg & "*"

Next i
End Sub

 

[honestman]

Ben eksik anlattım sanırım. Örneğin A1 hücresinde Ahmetersinantonio yazıyor diyelim. Ben ersin kelimesini içinden bulup öncesine ve sonrasına "-" eklesin istiyorum.

If Cells(i, "A") Like "*ersin*" Then 'sonrasını yapamadım'

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Degistir()
    Range("A1:A20").Replace "ersin", "-ersin-"
End Sub

.