Tek hücreye yazılan sözcügü baska hücrelere harf olarak aktarma

[aslıı1298]

Merhaba iyi aksamlar,
Ben bir sözcügü yazdığımda belirli hücrelere sırasıyla kodlamasını istiyorum bunun kodunu nasıl yazabilirim bir türlü bulamadım. Mesela Aslı yazdığım da bunu A1-A4 arası yazıcak A S L I olarak.Yardımcı olabilirseniz sevinirim

 

[Haluk]

Anlatması uzun sürebilir, ekli dosyaya bakın...

İndir Test

Dosyayı indir Test

dosya.co

.

 

[ÖmerFaruk]

Hazırlamıştım. Boşa gitmesin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Intersect(Target, Range("A:A")) Is Nothing Then GoTo SON
    Cells(10, 10) = Cells(10, 10) + Target.Row
    SonSütun = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
    If SonSütun < 2 Then SonSütun = 2
    Range(Cells(Target.Row, 2), Cells(Target.Row, SonSütun)).ClearContents
    KODLA = UCase(Range("A" & Target.Row).Value)
    For i = 1 To Len(KODLA)
        Cells(Target.Row, i) = Mid(KODLA, i, 1)
    Next i
SON:
    Application.EnableEvents = True
End Sub

 

[aslıı1298]

Tesekkür ederim Ama bunun vba kodu lazım bana aynen böyle olucak bu arada tam anlatmak istediğim buydu

 

[aslıı1298]

Hazırlamıştım. Boşa gitmesin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Intersect(Target, Range("A:A")) Is Nothing Then GoTo SON
    Cells(10, 10) = Cells(10, 10) + Target.Row
    SonSütun = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
    If SonSütun < 2 Then SonSütun = 2
    Range(Cells(Target.Row, 2), Cells(Target.Row, SonSütun)).ClearContents
    KODLA = UCase(Range("A" & Target.Row).Value)
    For i = 1 To Len(KODLA)
        Cells(Target.Row, i) = Mid(KODLA, i, 1)
    Next i
SON:
    Application.EnableEvents = True
End Sub

Tam olarak ne olduğunu anlayamadım ben bir hücreye yazdığımın hecelenmesini istiyorum sadece

 

[ÖmerFaruk]

A1 hücresine ASLI yazınca
A1...A
B1..S
C1..L
D1..I

istediğin bu değil mi?

 

[aslıı1298]

Evet, doğru. A1 hücresinde ASLI yazıyor mesela ben bunu C1=A,C2=S,C3=L,C4=I olarak yazsın istiyorum bide mesela A1 hücresini değiştirdiğim örnegin "next" yazdım bunu yine aynı c1,c2,c3,c4 e harf olarak kodlayabilmeli

 

[Haluk]

@NextLevel ;

5.mesajdaki gibi bir cevap gelme ihtimaline binâen dosya eklemiştim ....

.

 

[ÖmerFaruk]

Azimle sonuçlanacak.
C1 den itibaren aşağı doğru kodladım.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Intersect(Target, Range("A:A")) Is Nothing Then GoTo SON
    Cells(10, 10) = Cells(10, 10) + Target.Row
    SonSatır = Range("C" & Rows.Count).End(xlUp).Row
    Range("C1:C" & SonSatır).ClearContents
    KODLA = UCase(Range("A" & Target.Row).Value)
    For i = 1 To Len(KODLA)
        Cells(i, 3) = Mid(KODLA, i, 1)
    Next i
SON:
    Application.EnableEvents = True
End Sub

 

[aslıı1298]

tesekkür ederimm calısıyor.ileride düğmeyle yaptırmaya calısırsam bu islemi yine de calısır dimi büyük ihtimal

 

[ÖmerFaruk]

Ufak tefek revizyonla olacaktır.

 

[aslıı1298]

Ufak tefek revizyonla olacaktır.

Tesekkür ederim müsait olduğunuzda ekleyebilir misiniz ? çok tesekkür ederim bu arada

 

[ÖmerFaruk]

Her ikisini de Excel dosyasına ayrı sayfalarda işledim.

 

[aslıı1298]

altın üye değilim malesef off cok ugrastırdım sizi cidden

 

[ÖmerFaruk]

https://dosya.co/tvgaexv6itci/KelimeSırala.xlsm.html

 

[aslıı1298]

https://dosya.co/tvgaexv6itci/KelimeSırala.xlsm.html

Günaydınn,cok tesekkür ederim tekrardan