yazıyı hücrelere harf harf dağıtmak

[Ayhan Ercan]

selam arkadaşlar.

örnekle sorumu belirteyim.

a1 hücresine "ahmet mehmet" yazdım. command düğmesine bastığımda sayfa1 deki "a1" de yazmış olduğum veriyi sayfa2 de a1 den başlayarak sırayla harf harf yan yana hücrelere yazsın istiyorum. yani:

a1=a
b1=h
c1=m
d1=e
e1=t
f1="boşluk"
g1=m
h1=e
i1=h
j1=m
k1=e
l1=t

şimdiden teşekkürler..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub harfharfaktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For a = 1 To Len(s1.[a1])
s2.Cells(1, a) = Mid(s1.[a1], a, 1)
Next
End Sub

 

[Ayhan Ercan]

elinize sağlık.çok teşekkür ederim...