Kelimeleri Harflere Ayırma

[excelapachi]

Sa. Arkadaşlar örneğin Ahmet isminin her harfini ayrı ayrı hücrelere yazdırmamız mümkünmü ? Örnekteki dosyada olduğu gibi. Teşk.

 

[Leoncio]

Merhaba;

Sub dagit()
Dim i As Integer
Dim hucre As Range
For Each hucre In Selection
c = hucre.Value
For i = 1 To Len(c)
hucre.Offset(0, i) = Mid(c, i, 1)
Next
Next
End Sub

deneyiniz.

 

[excelapachi]

dagit formülünü modüle ekledim ama çalıştıramadım nasıl yapıyorum.

 

[mesudiye_052]

SELAMLAR;

Formül ile yapılışı

=PARÇAAL($A$3&" "&$B$3;SÜTUN(A1);1)

 

[excelapachi]

Teşk. Çok Sağolun Oldu.

 

[izcik]

Çok güzel ve tam arşivlik bir bilgi. Teşekkürler değerli Leoncio ve değerli mesudiye 052.

 

[oguzcanturk]

SELAMLAR;

Formül ile yapılışı

=PARÇAAL($A$3&" "&$B$3;SÜTUN(A1);1)

teşekkürler...

 

[akzc1]

ya çok yeni olacak ama bu formülleri çalıştırmak için nasıl yapıoduk?? diyelim makroyu yazdım nasıl çalışıo??