makro ile hücredeki kelimelerin ilk harfleri kopyala

[can-can]

merhaba arkaslar,elimdeki isim listesinin ilk harflerini kopyalamak istiyorum. yardımlarınızı bekliyorum.

 

[askm]

Örnek dosyanızı eklerseniz yardımcı olalım. Kopyalanan harfler nereye eklenecek.

 

[can-can]

Örnek dosyanızı eklerseniz yardımcı olalım. Kopyalanan harfler nereye eklenecek.

yardımımzı bekliyorum saygılar...
http://dosya.co/h6egj2hzzjpp/tesekkurler.xlsx.html

 

[askm]

Kusura bakmayın dosyanızı indiremiyorum.

 

[can-can]

http://s3.dosya.tc/server11/s3b1yj/tesekkurler.xlsx.html
https://drive.google.com/open?id=0B5lJhGACMaB1d2lSamFnNGY4QTA
yardımınızı bekliyorum.saygılarr

 

[can-can]

bunun gibi olcak yardımınızı bekliyorum..

 

[askm]

Sub Askm_Harf_Cek()
Dim SonSatir As Long
SonSatir = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To SonSatir
    Cells(i, 2) = Mid(Cells(i, 1), 1, 1)
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "ASKM"

End Sub

 

[Emir Hüseyin Çoban]

.
Alternatif kod satırı
cells(i,2)=left(cells(i,1),1)

.