Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim)

Sabırsızlıkla bekliyorum hocam. Teşekkür ederim

kodun tamamı bu

gayet güzel çalışıyor

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)

Me.FillStyle = 0

yerlestir

harfyerlestir

End Sub

Private Sub yerlestir()

Dim x As Integer

Dim y As Integer

Dim z As Integer

For x = 1 To 11

z = Me("tc" & x).Value

y = Me("tc" & x).Left

Me.Circle (y + 80, (z * 300) + 500), 100, 0

Next x

End Sub

Private Sub harfyerlestir()

Dim harfler As String

harfler = "abcçdefgğhiıjklmnoöprsştuüvyz"

Dim x As Integer

Dim y As Integer

Dim i As Integer

Dim z As Integer

Dim t As Integer

Dim c As Integer

y = Len(harfler)

t = Len(Me.adı_soyadı)

For c = 1 To 20

Me("M" & c) = ""

Next c

For z = 1 To t

Me("M" & z).Value = Mid(Me.adı_soyadı, z, 1)

For x = 1 To y

If Mid(Me.adı_soyadı, z, 1) = Mid(harfler, x, 1) Then

Me.Circle (Me("M" & z).Left, (x * 200) + 6000), 100, 0

End If

Next x

Next z

End Sub

aslında harflerin ascıı kodları ile halledilirdi ancak ü ö ğ harflerinin kodları normal asci sıralamasının dışında büyük rakamlar verdiği için kendim bir harf sıralaması uydurdum

Eşref Abi;
Elleriin dert görmesin. Daha sık görüşmek ümidiyle.
Kolay Gelsin.

büyük harfleri unuttum siz büyük harfleri "abcçdefgğhiıjklmnoöprsştuüvyzABCDE"
diye devamına ekleyin tabi eklediğiniz zaman kod arıza çıkaracaktır ancak basit bir çıkarma işlemi ile bunun üstesinden geleceğinizi biliyorum ben sizin

Sayın esrefigit hocam, harikasınız. Teşekkür ederim...