Excelde Bir Hücredeki İsim Ters Çevrilebilir mi?

[izcik]

Örnek olarak A1 hücresinde

"KIRMIZI RENKLİ BMW ARABA" ismi

ters çevrilip

"ARABA BMW RENKLİ KIRMIZI" şekline dönüştürülebilir mi?

 

[Orion1]

KTF yaptım.
B1 hücresindeki formülü inceleyiniz.
Dosyanız ekte.

Function terse_cevir(deg As String, olcut As String)
Dim deg2, deg3 As String, i As Integer
deg2 = Split(deg, olcut)
For i = UBound(deg2) To LBound(deg2) Step -1
    deg3 = deg3 & olcut & deg2(i)
Next i
deg3 = Right(deg3, Len(deg3) - 1)
terse_cevir = deg3

End Function

 

[uzmanamele]

merhaba

tersi yazılacak metnin A1 de olduğunu düşünürsek aşağıdaki kod işinizi görür mü?

Sub tersten_yaz()
    a = Split(Cells(1, 1), " ")
    y = 2
    For i = 1 To UBound(a)
        y = y + 1
        Cells(1, 2) = Left(Cells(1, 1), (Application.WorksheetFunction.Find(" ", Cells(1, 1), 1) - 1))
        Cells(1, y) = Left(a(i), Len(a(i)))
    Next i
Call tersini_birleştir
End Sub

Sub tersini_birleştir()
ssüt = Cells(1, 256).End(xlToLeft).Column
For j = ssüt To 2 Step -1
x = x + 1
Cells(2, x + 1) = Cells(1, j)
Next j
For z = 2 To ssüt
tersi = tersi + Cells(2, z) & " "
Cells(2, 1) = tersi
Next z
End Sub

 

[izcik]

Değerli Evren Gizlen aslında bir şeyi belirtmedim kendi hatam. Bizim ürünlerin isimlerinin bazılarının arasında tire var bazılarının arasında yok. bu dosyanızda tireli bir ismi yapıştırdığım zaman ters çevirmeyi yapmadı. Ama normal isimlerde yaptı. Ama sonradan düşündüm; ben bu tireleri Ctrl + H ile boşluklara dönüştürürüm. Ve öylece yaparım değerli arkadaşım Evren Gizlen.

Değerli Uzmanamele rica etsem dosyayı oluşturabilir misiniz?

Ne zaman makro düğmesini yapmaya kalksam ya "compile... " diye bir hata veriyor, ya da

".. makrosu bulunamadı" diye bir hata veriyor..

 

[Orion1]

Değerli Evren Gizlen aslında bir şeyi belirtmedim kendi hatam. Bizim ürünlerin isimlerinin bazılarının arasında tire var bazılarının arasında yok. bu dosyanızda tireli bir ismi yapıştırdığım zaman ters çevirmeyi yapmadı. Ama normal isimlerde yaptı. Ama sonradan düşündüm; ben bu tireleri Ctrl + H ile boşluklara dönüştürürüm. Ve öylece yaparım değerli arkadaşım Evren Gizlen.

Değerli Uzmanamele rica etsem dosyayı oluşturabilir misiniz?

Ne zaman makro düğmesini yapmaya kalksam ya "compile... " diye bir hata veriyor, ya da

".. makrosu bulunamadı" diye bir hata veriyor..

Kodları değiştirdim.
2 numaralı mesajdan dosyayı indirip.B1 ve B2 hücrelerindeki formülü inceleyiniz..cool:

 

[izcik]

Ama yine de tireliler için de bir dosya oluşturursanız daha iyi olur

 

[izcik]

Oldu işte budur

 

[Orion1]

Oldu işte budur

.............................................
;-)

 

[izcik]

Değerli Uzmanamele öğrenmek amacıyla verdiğiniz kodları yapmaya çalışıyorum ama olmuyor. Zannedersem iki adet düğme oluşuyor. Tersen yaz ve tersini birleştir şeklinde.. Rica etsem bunun dosyasını oluşturabilir misiniz?

Saygılar

 

[uzmanamele]

Değerli Uzmanamele öğrenmek amacıyla verdiğiniz kodları yapmaya çalışıyorum ama olmuyor. Zannedersem iki adet düğme oluşuyor. Tersen yaz ve tersini birleştir şeklinde.. Rica etsem bunun dosyasını oluşturabilir misiniz?

Saygılar

merhaba
syn Evren bey'in ktf'sini kullanınız. benimki beyin jimnastiği.

 

[izcik]

Teşekürrler değerli üstadım. Bu da çok güzel olmuş

 

[izcik]

yalnız merak ettim bu KTF nedir? Bir şeyin kısaltması galiba

 

[uzmanamele]

yalnız merak ettim bu KTF nedir? Bir şeyin kısaltması galiba

merhaba

KTF : Kullanıcı Tanımlı Fonksiyon