kelime ekleme

[Mdemir63]

Selamlar,
Arkadaşlar a sütununda yazdığım her bilginin sonuna kemal eklemesini nasıl yaparım?

Saygılar

 

[Orion1]

Çalışma sayfasının kod bölümüne aşağıdaki kodları yazınız,ve A sütunna bir değer giriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
Cells(Target.Row, "B").Value = Target.Value & "-KEMAL"
End Sub

 

[uzmanamele]

merhaba
ekteki dosya işinizi görür mü?

 

[uzmanamele]

merhaba
hücreleri biçimlendir / sayı / isteğe uyarlanmış
@ "eklenecek metin" şeklinde yeni biçim oluşturulmuştur.

 

[kamsal]

Sayın uzmanamele,
verdiğiniz bilgi benimde çok işime yaradı. Teşekkür ediyorum. Saygılarımla

 

[dilek.372]

Ben çok teşekkür etmeliyim..Sağolun.