Çözüldü Hücre başındaki veya sonundaki boşluğu silme ?

[UysalMuzaffer]

Merhaba,

Örnek1; (Başlarında boşluk var forumda otomatik siliyor koyamadım.)
7,424
67,882
11,1

başında boşluk var, bunu nasıl silebilirim formül ile ?
Sağdan da boşluklar oluyor, onlar içinde formül yazar mısınız ?

Örnek2;
7,424
67,882
11,1

 

[Muzaffer Ali]

Merhaba.

Bu formül ile yapabilirsiniz.

=SAYIYAÇEVİR(A1)

 

[UysalMuzaffer]

Bakar mısınız ?

 

[HsNKgL]

=KIRP formlünü kullanırsanız boşlukları kaldırırsınız

 

[UysalMuzaffer]

=KIRP formlünü kullanırsanız boşlukları kaldırırsınız

#DEĞER olarak yazmasa da başkaki boşluklar duruyor..

 

[çıtır]

Deneyiniz.

=YERİNEKOY(A2;DAMGA(160);"")*1

 

[HsNKgL]

Ctrl + H kombinasyounu değiştir menüsünü kullarak boşlukları kaldırabilirsiniz. Örnek olarak değişiklik yapacağınız hücreleri seçin Ctrl + H değiştir menüsünden ilk kiritere bir boşluk bırakın ve tümünü değiştir deyin...

 

[Muzaffer Ali]

Her rakamın başında standart 2 karakter boşluk varsa aşağıdaki formülü kullanabilirsiniz.


=YERİNEKOY(A2;" ";"";2)

 

[Muzaffer Ali]

Bir de şöyle deneyin.

=DEĞİŞTİR(A3;1;2;"")

 

[UysalMuzaffer]

Yardımlarınız için teşekkür ^.^

 

[denese]

Merhaba,

Sayfadaki tüm hücrelerin başındaki ve sonundaki boşlukları makro ile nasıl silebiliriz.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod A1:D500 hücreleri arasında istediğinizi yapar.
Tüm sayfada yapmak için Range("A1:D500") silin yerine Cells yazın. Ancak bunu yaptığınızda tüm hücrelere bakacağı için işlem çok uzun sürecektir.

Sub Test()
    Dim Alan As Range
    For Each Alan In Range("A1:D500")
        Alan = Trim(Alan)
    Next
    MsgBox "İşlem tamamlandı."
End Sub

 

[denese]

Merhaba.
Aşağıdaki kod A1:D500 hücreleri arasında istediğinizi yapar.
Tüm sayfada yapmak için Range("A1:D500") silin yerine Cells yazın. Ancak bunu yaptığınızda tüm hücrelere bakacağı için işlem çok uzun sürecektir.

Sub Test()
    Dim Alan As Range
    For Each Alan In Range("A1:D500")
        Alan = Trim(Alan)
    Next
    MsgBox "İşlem tamamlandı."
End Sub

Merhaba, alanı genişlettiğimde şu şekilde hata veriyor.

 

[denese]

"Tüm sayfada yapmak için Range("A1500") silin yerine Cells yazın. "

Bu cümlenize atlamışım. Kusura bakmayın. Dediğiniz şekilde uyguladım aşağıdaki hatayı verdi,

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.
Bir hata ile karşılaşıldığında hangi hücrede hata ile karşılaşıldığını söyleyecektir.
Bu hücrenin ekran görüntüsünü ekle misiniz?

Sub Test()
    Dim Alan As Range
    For Each Alan In Range("A1:D500")
        On Error GoTo HataVar
        Alan = Trim(Alan)
    Next
    MsgBox "İşlem tamamlandı."
    Exit Sub
HataVar:
    MsgBox "Hata veren hücre adresi " & Alan.Address
End Sub

 

[denese]

Aşağıdaki kodu kullanın.
Bir hata ile karşılaşıldığında hangi hücrede hata ile karşılaşıldığını söyleyecektir.
Bu hücrenin ekran görüntüsünü ekle misiniz?

Sub Test()
    Dim Alan As Range
    For Each Alan In Range("A1:D500")
        On Error GoTo HataVar
        Alan = Trim(Alan)
    Next
    MsgBox "İşlem tamamlandı."
    Exit Sub
HataVar:
    MsgBox "Hata veren hücre adresi " & Alan.Address
End Sub

Merhaba,

Desteğiniz için teşekkür ediyorum. Bu kod A sütunları arasında çalışıyor. Satır ve sütun aralığı arttıkça işlem süresi uzuyor. Sayıları metine dönüştürüyor. Yapmak istediğim, sayfadaki tüm hücrelerin başındaki ve sonundaki boşlukları, hücre biçimlerini bozmadan kısa sürede silebilmek..

 

[Muzaffer Ali]

Dosyanızı ekleyin bakalım.

 

[denese]

Dosyanızı ekleyin bakalım.

Ektedir.

 

[Muzaffer Ali]

O zaman şu kodu kullanın.

Sub Test()
    Dim Alan As Range
    For Each Alan In Range("A1:K500")
        On Error GoTo HataVar
        If Not IsNumeric(Alan) Then Alan = Trim(Alan)
    Next
    MsgBox "İşlem tamamlandı."
    Exit Sub
HataVar:
    MsgBox "Hata veren hücre adresi " & Alan.Address
End Sub

 

[denese]

O zaman şu kodu kullanın.

Sub Test()
    Dim Alan As Range
    For Each Alan In Range("A1:K500")
        On Error GoTo HataVar
        If Not IsNumeric(Alan) Then Alan = Trim(Alan)
    Next
    MsgBox "İşlem tamamlandı."
    Exit Sub
HataVar:
    MsgBox "Hata veren hücre adresi " & Alan.Address
End Sub

Çok teşekkürler Sn. dalgalikur. İstediğim gibi çalışıyor.

Saygılar