makro ile kelimeyi tersten yaz

[can-can]

merhaba arkadaslar yardımlarınızı bekliyorum cok tesekkurler....
örnek
http://dosya.co/mv6dyjg3sok0/makro_ile_kelimeyi_tersten_yaz.xlsx.html

 

[antonio]

Kullanmakta olduğum internetin dosya yükleme sitelerine erişimi yok. (driver hariç) Bu yüzden dosyanızı inceleyemedim. Konu başlığından edindiğim fikirden hareketle, "A1" hücresinde ki kelimeyi "B1" hücresine tersten yazdırmak istediğinizi farz ederek aşağıdaki kodları hazırladım. Siz kendinize göre düzenlersiniz.

Sub kelimeyi_ters_yaz()
Dim kelime As String
With Sayfa1
    kelime = .Range("A1").Value
    ss = Len(kelime)
    For i = ss To 1 Step -1
        harf = harf & .Range("A1").Characters(i, 1).Text
    Next i
    .Range("B1").Value = harf
End With
End Sub

 

[Asri]

Alternatif;

Örneğiniz deki ilk iki kelime tersten yazma formatına uygun değil.

Seçilen alandaki yada tüm sayfadaki kelimeleri tersten yazdırma ve daha 100 lerce işlem için aşağıdaki Excel sağ tuş eklentisini kullabilir siniz.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

HARF VE KELİME İŞLEMLERİ BÖLÜMÜ
*Cümleyi tersten yazdır.
*Tüm harfleri küçük yap.
*Tüm harfleri büyük yap.
*ilk harfler buyuk digerleri kucuk
*İlk harf buyuk son kelime buyuk
*ilk harf buyuk digerleri kucuk
*Türkçe harfler ingilizce olsun
*Tüm boşluklar tek boşluk
*Satır başı-sonu boşluk sil
*Tüm boşluklari sil
*Bitişik kelimeleri sil merhabaDünya -> merhaba Dünya

 

[Orion1]

merhaba arkadaslar yardımlarınızı bekliyorum cok tesekkurler....
örnek
http://dosya.co/mv6dyjg3sok0/makro_ile_kelimeyi_tersten_yaz.xlsx.html

Buyurun.

Sub tersten59()
Dim sonsat As Long
Range("B:B").ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sonsat
    Cells(i, "B").Value = VBA.StrReverse(Cells(i, "A").Value)
Next i
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[antonio]

Buyurun.

Sub tersten59()
Dim sonsat As Long
Range("B:B").ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sonsat
    Cells(i, "B").Value = VBA.StrReverse(Cells(i, "A").Value)
Next i
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Böyle pratik bir fonksiyon olduğunu bilmiyordum. Teşekkürler Usta.

 

[Orion1]

Böyle pratik bir fonksiyon olduğunu bilmiyordum. Teşekkürler Usta.

Rica ederim.
İyi çalışmalar.
Kod yazarken vba sonrada nokta koyun ,açılır kutudan vba fonksiyonları çıkacaktır.VBA.