Hücredeki yazının tersini yazdırma

[Mdemir63]

Selamlar,

Arkadaşlar, A1 hücresindeki yazının C1 hücresine tersini yazdırmak istiyorum. Nasıl yapabilirim.

Saygılar

 

[Merhum İdris SERDAR]

=RIGHT(A1;LEN(A1)-FIND("*";SUBSTITUTE(A1;" ";"*";LEN(A1)-LEN(SUBSTITUTE(A1;" ";"")))))&" - "&LEFT(A1;FIND(" ";A1;1))

=SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKO(A1;" ";"")))))&" - "&SOLDAN(A1;BUL(" ";A1;1))

şeklinde deneyin.

.

 

[Mdemir63]

Hocam çok teşekkürler
Saygılar

 

[Orion1]

Merhaba.
Kod ile isterseniz aşağıdaki kodu deneyiniz.

Sub tersine_yaz()
Range("C1").Value = ""
If Range("A1").Value = "" Then Exit Sub
For i = Len(Range("A1").Value) To 1 Step -1
    deg = deg & Mid(Range("A1").Value, i, 1)
Next
Range("C1").Value = deg
End Sub

 

[Ali]

Sayın komutan buda başka alternatif

[COLOR=black]=YERİNEKOY(A1;SOLDAN(A1;MBUL("-";A1)-1)&"-";"")&"-"&SOLDAN(A1;MBUL("-";A1)-1)[/COLOR]

 

[Mdemir63]

Ali Hocam teşekkürler
Saygılar

 

[Mdemir63]

Orion2 Hocam
Kodlar Ankara - Bolu 'yu ulob - arakna haline getiriyor
Saygılar

 

[Orion1]

Arkadaşlar, A1 hücresindeki yazının C1 hücresine tersini yazdırmak istiyorum. Nasıl yapabilirim.

Orion2 Hocam
Kodlar Ankara - Bolu 'yu ulob - arakna haline getiriyor
Saygılar

Evet çünkü tersten okuyor.

 

[Zeki Gürsoy]

Sub Ters()
 
a = Split([a1], "-")
 
[b1] = a(1) & " - " & Trim$(a(0))

End Sub

 

[Mdemir63]

Selamlar,
Arkadaşlar 3 isimli olursa nasıl yapabiliriz?
Örneğin ;
Ankara-İstanbul-İzmir
İzmir-İstanbul -Ankara

olarak nasıl yaptırabilirim.

Saygılar

 

[Necdet]

Merhaba,

Sayın anemos'un kodlarını değiştirerek yapılabilir.

Sub Ters()
Columns("B").Clear
For i = 1 To [A65536].End(3).Row
Ayrılmış = Split(Cells(i, "A"), "-")
    For j = UBound(Ayrılmış) To 0 Step -1
        If j = UBound(Ayrılmış) Then
            Cells(i, "B") = Ayrılmış(j)
        Else
            Cells(i, "B") = Cells(i, "B") & "-" & Ayrılmış(j)
        End If
    Next j
Next i
End Sub

 

[Mdemir63]

Selamlar,
Necdet abi teşekkür ederim gecenin bu saatinde hemen yardıma koştunuz. Ama butona basmadan (yani buton kullanmadan) Örneğin A1 hücresinde Ankara-İstanbul-İzmir yazdık B1 hücresine İzmir-İstanbul-Ankara yazdırabilirmiyiz? Abi Çok oldum ama Fonksiyonla da bir çözüm bulabilirmiyiz?
Saygılar sunarım

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanın kod bölümüne kopyalayıp dener misiniz?
Bu konuda fonksyonlarla çözüm bulmak beni aşar

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Ayrılmış = Split(Target, "-")
    For j = UBound(Ayrılmış) To 0 Step -1
        If j = UBound(Ayrılmış) Then
            Değer = Ayrılmış(j)
        Else
            Değer = Değer & "-" & Ayrılmış(j)
        End If
    Next j
    Target.Offset(0, 1) = Değer
Son:
End Sub

 

[Ali]

Selamlar,
Necdet abi teşekkür ederim gecenin bu saatinde hemen yardıma koştunuz. Ama butona basmadan (yani buton kullanmadan) Örneğin A1 hücresinde Ankara-İstanbul-İzmir yazdık B1 hücresine İzmir-İstanbul-Ankara yazdırabilirmiyiz? Abi Çok oldum ama Fonksiyonla da bir çözüm bulabilirmiyiz?
Saygılar sunarım

Aşağıdaki yazdığım fonksiyonu bir deneyiniz

=SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;"-";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"-";"")))))&"-"&YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;SOLDAN(A1;MBUL("-";A1)-1);"");SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;"-";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"-";"")))));"");"-";"")&"-"&SOLDAN(A1;MBUL("-";A1)-1)

 

[Mdemir63]

Sn. Necdet abi ve Sn. Ali hocam çok teşekkürler
Saygılar