Yazı Ekleme

[Mdemir63]

Selamlar ,
Arkadaşlar Hücreye şehir ismi girdiğimde önüne otomatik yazı eklemesini istiyorum nasıl yapabilirim ?

Saygılar

 

[Korhan Ayhan]

Selamlar,

Eğer görsel olarak eklemek isterseniz alanı seçin hücre biçimlendirme menüsünden isteğe uyarlanmış kısmına "1. BÖLGE MÜDÜRLÜĞÜ "Genel ayarını uygulayın.

Eğer gerçek anlamda yazı eklemek istiyorsanız sayfanın kod bölümüne aşağıdaki kodu uygulayıp deneyin.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target <> "" Then
    Application.EnableEvents = False
    Target = "1. BÖLGE MÜDÜRLÜĞÜ " & Target
    Application.EnableEvents = True
    End If
Son:
End Sub

 

[Mdemir63]

Selamlar,

Hocam çok teşekkür ederim . Elinize sağlık
Saygılar

 

[1Al2Ver]

Selamlar,

Eğer görsel olarak eklemek isterseniz alanı seçin hücre biçimlendirme menüsünden isteğe uyarlanmış kısmına "1. BÖLGE MÜDÜRLÜĞÜ "Genel ayarını uygulayın.

Eğer gerçek anlamda yazı eklemek istiyorsanız sayfanın kod bölümüne aşağıdaki kodu uygulayıp deneyin.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target <> "" Then
    Application.EnableEvents = False
    Target = "1. BÖLGE MÜDÜRLÜĞÜ " & Target
    Application.EnableEvents = True
    End If
Son:
End Sub

Sayın Korhan Ayhan merhaba,

Çözümünüzden ben de faydalandım, teşekkür ederim.

 

[Mdemir63]

Selamlar,
Hocam şöyle birşey yapabilirmiyiz. A sütununa tüm şehir isimlerini yazdıktan sonra bir butona basarak önlerine 1. BÖLGE MÜDÜRLÜĞÜ yazısını getirebilirmiyiz?

Saygılar

 

[Mdemir63]

Selamlar,
Arkadaşlar bu kodları bir butona atayarak yapamazmıyız?

Saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub YAZI_EKLE()
    Dim X As Long
    
    For X = 1 To Range("A65536").End(3).Row
    If Cells(X, 1) <> "" Then
    Cells(X, 1) = "1. BÖLGE MÜDÜRLÜĞÜ " & Cells(X, 1)
    End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Mdemir63]

Selamlar,

Hocam gerçekten mükemmelsiniz. Gecenin bir yarısı emek sarfediyorsunuz. Çok teşekkür ederim. Sağolun

Saygılar

 

[monopol]

Merhaba, benimde çok işime yarayacak bu kod. yalnız, eklediği yazıdan sonra boşluk bırakmaması için ne yapabiliriz? Yani 1. BÖLGE MÜDÜRLÜĞÜ Malatya yerine, 1. BÖLGE MÜDÜRLÜĞÜMalatya olmasını nasıl sağlarız?