yazılan kelimenin harflerini hücrelere sırayla yazdırmak

[mbilgis]

merhaba arkadaşlar
yapılabilir mi bilmiyorum ama..
Excel dosyasını açtığımızda karşımıza popup çıkacak ve kelimeyi yazıcaz sonra enterlayınca bu kelimenin harflerini sırasıyla bir satırın sütunlarına yazıcak.. Yani her harfi ayrı sütuna yazdoracak.. Böyle bir makro yazılabilir mi.. Nasıl yapabiliriz.. Lütfen yardımm...

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu çalışmanızın "ThisWorkbook" bölümüne uygulayın.

Private Sub Workbook_Open()
    Veri = InputBox("Verinizi giriniz...")
    If Veri = "" Then Exit Sub
    
    Cells(1, 1).EntireRow.ClearContents
    
    For X = 1 To Len(Veri)
        Cells(1, X) = Mid(Veri, X, 1)
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mbilgis]

korhan bey
teşekkür ederim..

20 harfle sınırlı olacak ve harfler küçük yazılsada sütunlara büyük yazılacak..
çok mu şey istiyorum bilmiyorum ama..

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Workbook_Open()
    Veri = InputBox("Verinizi giriniz...")
    If Veri = "" Then Exit Sub
    
    Range("B3:U3").ClearContents
    
    For X = 1 To 20
        If IsNumeric(Mid(Veri, X, 1)) Then
            Cells(3, X + 1) = Mid(Veri, X, 1)
        Else
            Cells(3, X + 1) = UCase(Replace(Replace(Mid(Veri, X, 1), "ı", "I"), "i", "İ"))
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mbilgis]

emeğiniz ve yardımınız için teşekkürler..