Çalışma sayfasında sutunlar içindeki verileri sola yaslama

[Beytur35]

Arkadaşlar, daha önce kullandığım aşağıdaki bu kod, "A" sutununda bulunan hücreler içindeki verileri son satıra kadar sola hizalıyor. Bu makroyu sadece "A" sutunu için değil de; çalışma sayfasıdaki tüm sutunlar içindeki verileri sola hizala şeklinde revize edebilir miyiz?

Sub SolaYaslal()

For i = 1 To Cells(Rows.Count, 1).End(3).Row
Cells(i, 1) = Trim(Cells(i, 1))

Next i
End If
End Sub

 

[dEdE]

Merhaba,
Yukarıdaki kodların "A" sutununda bulunan hücreler içindeki verileri son satıra kadar sola hizaladığından emin misiniz? Trim ifadesi sözcükler arasındaki tek boşluklar dışında metinden tüm boşlukları kaldırır.
Ayrıca koddaki End If ifadesinin orada olmaması lazım.

Tüm hücerleri sola yaslamak için aşağıdaki kodu dener misiniz?

Sub SolaYasla()
    Cells.HorizontalAlignment = xlLeft
End Sub

 

[Beytur35]

Merhaba,
Yukarıdaki kodların "A" sutununda bulunan hücreler içindeki verileri son satıra kadar sola hizaladığından emin misiniz? Trim ifadesi sözcükler arasındaki tek boşluklar dışında metinden tüm boşlukları kaldırır.
Ayrıca koddaki End If ifadesinin orada olmaması lazım.

Tüm hücerleri sola yaslamak için aşağıdaki kodu dener misiniz?

Sub SolaYasla()
    Cells.HorizontalAlignment = xlLeft
End Sub

Sayın dEdE...

Merhaba; vermiş olduğunuz kodu denedim. Düzgün çalışıyor. Yani tam istediğim gibi. Tüm çalışma sayfasını da kapsıyor. Benim verdiğim kodun (bir forum arkadaşım yardımcı oldu) çalışması ise Örneğin, excel sayfasında bir hücreye veri girdikten sonra, o hücreyi seçip önce "F2" tuşu sonra da "Home" tuşuna basıp hücrenin başına geldiğimiz de, klavyeden el yordamı ile veriyi hücre içinde ileri öteleriz ya, işte yukarıdaki kod böyle işlem görmüş veriyi tamamen sola yanaştırıyor. Bunu da başarı ile yapıyor. İsterseniz siz de bir deneyiniz. Ama sizin verdiğiniz kodun görevini yapmıyor. Sizin kod da excel hücresine nizami veri girişinde "Metni ortala" ya da "Metni sağa hizala" gibi konumlarda çalışıyor. Ama öteki durumda çalışmıyor. İf End konusu istemeden yaptığım bir yanlışlıktı; haklısınız. Saygılarımla. Sağlıkla kalın.

 

[dEdE]

klavyeden el yordamı ile veriyi hücre içinde ileri öteleriz ya,

Yani boşluk tuşuna basarsınız. Trim komutuda(Kırp Fonksiyonu) sözcükler arasındaki tek boşluklar dışında metinden tüm boşlukları kaldırır yani metnin baş kısmına eklediğiniz sizin deyiminizle "klavyeden el yordamı ile veriyi hücre içinde ileri ötelediğinizde" eklediğiniz boşlukları kaldırır. Haliyle metin de boşluk sayısı kadar sola gider.
Hoşçakalın.

 

[Beytur35]

Yani boşluk tuşuna basarsınız. Trim komutuda(Kırp Fonksiyonu) sözcükler arasındaki tek boşluklar dışında metinden tüm boşlukları kaldırır yani metnin baş kısmına eklediğiniz sizin deyiminizle "klavyeden el yordamı ile veriyi hücre içinde ileri ötelediğinizde" eklediğiniz boşlukları kaldırır. Haliyle metin de boşluk sayısı kadar sola gider.
Hoşçakalın.

Sayın dEdE ...

Evet, amacım (space tuşu ile) eklenmiş olan boşlukları kaldırmaktı. İlginiz ve yardımlarınız için teşekkür ediyorum.