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

Katılım
13 Aralık 2018
Mesajlar
101
Excel Vers. ve Dili
Microsoft 365 | Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Bu formül ile yapabilirsiniz.

=SAYIYAÇEVİR(A1)
 

HsNKgL

Altın Üye
Katılım
25 Ekim 2018
Mesajlar
38
Excel Vers. ve Dili
Ms Office 2016 Türkçe
=KIRP formlünü kullanırsanız boşlukları kaldırırsınız
 

HsNKgL

Altın Üye
Katılım
25 Ekim 2018
Mesajlar
38
Excel Vers. ve Dili
Ms Office 2016 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Her rakamın başında standart 2 karakter boşluk varsa aşağıdaki formülü kullanabilirsiniz.


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

denese

Altın Üye
Katılım
17 Mart 2011
Mesajlar
432
Excel Vers. ve Dili
Office 2019
Merhaba,

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

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
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.

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

denese

Altın Üye
Katılım
17 Mart 2011
Mesajlar
432
Excel Vers. ve Dili
Office 2019
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.

Kod:
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.

1573481967086.png
 

denese

Altın Üye
Katılım
17 Mart 2011
Mesajlar
432
Excel Vers. ve Dili
Office 2019
"Tüm sayfada yapmak için Range("A1:D500") silin yerine Cells yazın. "

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

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
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?

Kod:
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

Altın Üye
Katılım
17 Mart 2011
Mesajlar
432
Excel Vers. ve Dili
Office 2019
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?

Kod:
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:D 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..

1573546286893.png
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
O zaman şu kodu kullanın.

Kod:
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

Altın Üye
Katılım
17 Mart 2011
Mesajlar
432
Excel Vers. ve Dili
Office 2019
O zaman şu kodu kullanın.

Kod:
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
 
Üst