Manuel Girilen Metnin Sonuna Metin Ekleme

[Yesilyurtlu]

Üstadım;
B7:B400 sütununda ki hücrelere ne yazarsam yazayım sonuna ilköğretim Okulu Müdürlüğü eklesin.

Yardımcı olabilir misiiz?

 

[Ömer]

Merhaba,

Biçim olarak eklenmesi yeterli mi yoksa veri olarak eklenmesi mi gerekiyor.

.

 

[Yesilyurtlu]

öMER ABİ;
Şehit Hasan Kol yazdığım zaman ilköğretim Okulu Müdürlüğü
Şehit Hasan Kol ilköğretim Okulu Müdürlüğü olarak yazsın.Nasıl uygun görürseniz ömer abi

 

[Ömer]

Sizin tercihinizle alakalı bir durum,

* Eğer veriyi değiştirmeden görüntüsünün değişmesi işinizi görür ise;

B7:B400 aralığını fare ile seçin / hücre biçimlendirme / isteğe uyarlanmıştan tür bölümüne;

@" İlköğretim Okulu Müdürlüğü"

yazın.

* Eğer görsel değil, veriye ilave yapmak istiyorsanız çalışma sayfasının kod bölümüne aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim deg As String
 
    If Intersect(Target, [B7:B400]) Is Nothing Then Exit Sub
 
    deg = " İlköğretim Okulu Müdürlüğü"
    Application.EnableEvents = False
        If Target <> "" Then Target = Target & deg
    Application.EnableEvents = True
 
End Sub

 

[Yesilyurtlu]

Ömer abi;
B7:B400 aralığını fare ile seçin / hücre biçimlendirme / isteğe uyarlanmıştan tür bölümüne;

@" İlköğretim Okulu Müdürlüğü"
şeklinde yaparak işlemi tamamladım ve sorunsuz çalıştı.

Yardımlarınız için teşekkür ederim abi.
Sağolasın