Birden Fazla İsim İçin Tek Veri Girme

[inan]

Arkadaşlar,

Diyelim benim aşagıdaki gibi bir metnim var;


Sayın,..........

Ilk öncelikle sizi burada görmekten mutluk duyduğumuzu sizlerle
paylaşmak istiyorum..........

diye devam edem bir metnim var. Benim istedigim bu metni 50 kişiye göndermek

ve her defasında ''Sayın'' dan sonra gelen noktalı yere soy isimleri yazmamak.

Ben istiyorum ki Soy isimleri bir yere yazdığımda otomatik olarak bu metnin

Sayın dan sonra gelen yerine soy isimleri otomatik olarak atsın.

Bu mümkünmüdür??

Yardımlarınız için şimdiden teşekkür ederim...

 

[N.Ziya Hiçdurmaz]

yanıt

A1 Hücresine Sayın yazıldığında D1 Hücresindeki soyismi yanına koyar.(sayfa kod bölümüne yapıştırınız.)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If [a1] = "Sayın" Then
[a1] = [a1] & " " & [d1]
End If
End Sub

 

[inan]

visual basic in dikkatine

Vermiş olduğunuz bilgiyi uygulayamadım yardımcı olabilirmisiniz..

teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Resim bir ve ikideki bilgileri uguladıktan sonra a1 hücresine Sayın yazdığınızda d1 hücresindeki soyisim gelecektir.(makronun çalışabilmesi için araçlardan makro güvenliğini orta seviye ayarlamalı ve açılışta makroları etkinleştir butonuna basmalısınız.)

 

[mehmett]

Düşeyara fonksiyonu ile yapabileceğiniz bir çözüm önerisi gönderiyorum.

 

[Merhum İdris SERDAR]

Bunu Word'te Mail -Merge / Mektup Birlieştir ile çok daha iyi yapmak mümkün.

.

 

[Necdet]

Merhaba

Aşağıdaki linki inceleyiniz

http://www.excel.web.tr/showthread.php?t=6935