Sozcukler üzerine çalışırken....

[Gökhande]

arkadaşlar sozcuk heceleri uzerınde bir calışma yaparken çıkmaza girdim. iş yukumu hafifletmek icin bi fonksiyona ihtiyac duydum lakin işin içinden çıkamadım yardımlarınızı beklıyorum excell dosyasını yukledım gerekli bilgilendirme ve problemim içerisinde detaylı yazmaktadır yardımcı olabilirseniz çok makbule gecer simdiden tesekkur ederim iyi calışmalar

 

[excel03]

merhaba;

Sub dönüştür()
Dim kaynak As Range
Dim hedef As Range
sonsat = (Sheets("Sayfa1").Cells(65536, "D").End(3).Row)
Set kaynak = Range("d7:r" & sonsat)
Set hedef = Range("t7:ah" & sonsat)
For i = 1 To sonsat - 6
    For j = 1 To 15
        x = Len(kaynak.Rows(i).Cells(j).Value)
        For t = 1 To x
        y = Mid(kaynak.Rows(i).Cells(j), t, 1)
        Select Case y
        Case "a", "e", "ı", "i", "o", "ö", "u", "ü"
        hedef.Rows(i).Cells(j).Value = hedef.Rows(i).Cells(j).Value + "v"
        Case 1
        hedef.Rows(i).Cells(j).Value = 1
        Case Else
        hedef.Rows(i).Cells(j).Value = hedef.Rows(i).Cells(j).Value + "c"
        End Select
        Next t
    Next j
Next i
End Sub

 

[Gökhande]

çok tesekkur ederım yardımınız icin