Cümlenin başına ve sonuna ekleme yapma

[Ridan]

Merhaba,
Aşağıdaki kod ile belirli hücrelerdeki cümlelerin başına ve sonuna "BALIKESİR" eklenmektedir. Eğer zaten eklenmiş ise tekrar eklemesin, ekli olmayan hücrelere BALIKESİR eklesin..

Sub ekle()
    For i = 8 To [b24].End(3).Row
    Cells(i, 2).Value = "BALIKESİR" & "-" & Cells(i, 2) & "-" & "BALIKESİR"
    Next i
    
    For k = 36 To [b51].End(3).Row
    Cells(k, 2).Value = "BALIKESİR" & "-" & Cells(k, 2) & "-" & "BALIKESİR"
    Next k
End Sub

 

[Asri]

deneyiniz.

Sub ekle()
    For i = 8 To [b24].End(3).Row
      If Left(Cells(i, 2).Value, 9) <> "BALIKESİR" Then
         Cells(i, 2).Value = "BALIKESİR" & "-" & Cells(i, 2)
      End If
    
      If Right(Cells(i, 2).Value, 9) <> "BALIKESİR" Then
         Cells(i, 2).Value = Cells(i, 2) & "-" & "BALIKESİR"
      End If
    
    Next i
    
    For k = 36 To [b51].End(3).Row
      If Left(Cells(k, 2).Value, 9) <> "BALIKESİR" Then
         Cells(k, 2).Value = "BALIKESİR" & "-" & Cells(k, 2)
      End If
    
      If Right(Cells(k, 2).Value, 9) <> "BALIKESİR" Then
         Cells(k, 2).Value = Cells(k, 2) & "-" & "BALIKESİR"
      End If
    
    Next k
End Sub

 

[Necdet]

Merhaba,

Önce Linki İnceleyiniz.

http://www.excel.web.tr/f59/forum-kurallarina-uymayan-basliklar-hakkinda-t4621.html

Farklı bir çözüm

        Cells(i, 2) = Replace(Replace(Cells(i, 2), "BALIKESİR-", ""), "-BALIKESİR", "")
        Cells(i, 2).Value = "BALIKESİR" & "-" & Cells(i, 2) & "-" & "BALIKESİR"

 

[Ridan]

Necdet bey, kodunuz herhangi bir sonuç vermedi.. Cümlenin başına ve sonuna BALIKESİR eklemedi.

---------
sayın asri, BALIKESİR değişken, kodu buna göre düzenleyebilir misiniz?

 

[Asri]

Necdet bey, kodunuz herhangi bir sonuç vermedi.. Cümlenin başına ve sonuna BALIKESİR eklemedi.

---------
sayın asri, BALIKESİR değişken, kodu buna göre düzenleyebilir misiniz?

Değişken bilgisini nereden alacak?

Kod değişken ise, var olan eklenmiş hücrelerde o değişkene göre mi eklenmiş olacak.

kodumuz : Adana ancak hücrelermiz aşağıdaki şekilde olabiliyormu

izmi-jhkjhkj-izmir

Kodumuz : Adana ise hücreler de aşağıdaki şekilde mi oluyor?

Adana-kjkkkjkjka-Adana

 

[Necdet]

Necdet bey, kodunuz herhangi bir sonuç vermedi.. Cümlenin başına ve sonuna BALIKESİR eklemedi.

---------
sayın asri, BALIKESİR değişken, kodu buna göre düzenleyebilir misiniz?

Ben kodların tamamını vermedim, sadece ilgili kodu verdim.

Benim denememde çalıştı. Üstelik kaç kere çalıştırırsanız çalıştırın tek "BALIKESİR" ekler.

Yukarıdaki kodları kendi makronuza göre düzenleyin.

 

[Ridan]

Değişken bilgisini nereden alacak?

Kod değişken ise, var olan eklenmiş hücrelerde o değişkene göre mi eklenmiş olacak.

kodumuz : Adana ancak hücrelermiz aşağıdaki şekilde olabiliyormu

izmi-jhkjhkj-izmir

Kodumuz : Adana ise hücreler de aşağıdaki şekilde mi oluyor?

Adana-kjkkkjkjka-Adana

------
Haklısınız, eksik sordum.. Değişken olarak -Sheets("sabit").Range("D4")- adresini kullanmaktayım.
...
evet aynen öyle..
balıkesir-susurluk-balıkesir gibi

 

[Asri]

@Necdet Yeşertener bey in kod önerisi daha mantıklı, onu kullandım.
Aşağıdaki kodu deneyiniz.

Sub ekle()
    degiskenilk = Sheets("sabit").Range("D4") & "-"
    degiskenson = "-" & Sheets("sabit").Range("D4")
    
    For i = 8 To [b24].End(3).Row
        Cells(i, 2) = Replace(Replace(Cells(i, 2), degiskenilk, ""), degiskenson, "")
        Cells(i, 2).Value = degiskenilk & Cells(i, 2) & degiskenson
    Next i
    
    For k = 36 To [b51].End(3).Row
        Cells(k, 2) = Replace(Replace(Cells(k, 2), degiskenilk, ""), degiskenson, "")
        Cells(k, 2).Value = degiskenilk & Cells(k, 2) & degiskenson
    Next k
End Sub

 

[Ridan]

Teşekkürler, elinize sağlık..
(kodun başında başka bir kod olduğu için Necdet beyin kodu istediğim sonucu vermemişti.. Düzelttim, şimdi sorun yok.)