Kelime sonlarının aynı hizaya getirilmesi

[EKREM1661]

Saygıdeğer Arkadaşlar..! Ne zamandır foruma yöneltmeyi düşündüğüm ve ilişikte yine bu forumdan edinmiş olduğum bir örnek mevcut.. Bu örneğe yakın farklı bir uygulama türünü örnek üzerinde ifade ettim. Konu; "ardışık üst üste yer alan iki ayrı hücrede yer alan kelimelerin (sağa yaslama yapmadan) sağdan aynı hizaya getirilmesi ile ilgili..

 

[excel03]

merhaba;

Sub hizala()
xx = Range("b10").Value
yy = Range("b11").Value
Xlen = Len(xx)
Ylen = Len(yy)
Flen = Abs(Xlen - Ylen)
Range("b11").Value = Space(Flen) & Range("b11").Value
End Sub

 

[EKREM1661]

Sn. excel03 yukarıdaki makroyu bir butona atayarak denedim fakat olmadı..
(bendeki örnekte kelimelerin sol başlarını hizaya getiriyor, bizde ise tersi olup sağ başlarını hizaya getirecek)

 

[excel03]

merhaba;
[b10] ve [b11] de bulunan verilerinizin ikisini de ya sola hizalayıp,yada ikisini de sağa hizalayıp,kodu çalıştırınız.

 

[EKREM1661]

Sn. excel03 yine olmadı, belki tanımlanma istiyor diye xx ve yy deyimlerine tanımlama yaptım gene olmadı.. Eksik yaptığım bir şey var..