hücre içindeki kelimenin başındaki boşluk silme

[akilic54]

slm. değerli arkadaşlar bana yardım edermisiniz. çok önemli. plss.
sorunum: ekte gonderdiğim listede vergi kimlik numarası olan a firmasının vergi kimlik numarasının basında bir boşluk var. trl h denedim fakat olmuyor. yapamadım tek tek silince düzeliyor ve tanımladığım 3 - 3 - 4 formatına geliyor. kısaca bu boşlugu nasıl yok ederim lütfen bana yardım edin. yapılışınıda lütfen tarif ediverin. şimdiden teşekkürler

 

[fedeal]

sayfanın kod bölümüne kopyalayın,iyi çalışmalar.
(sayfaya aynı şekilde devamlı kopyalama yaptıgınızı düşünerek kodları SelectionChange olayına yazdım)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 3 To Range("b65536").End(xlUp).Row
If Cells(i, 2).Value = "" Then
Else
Cells(i, 2).Value = CDbl(Cells(i, 2).Value)
End If
Next
End Sub

istediginiz gibi dosyanıza uyarladım yeni bilgileri girip deneyin
kendiniz yapmak isterseniz sayfa1 sekmesinin üzerine sağ tıklayın kod görünteleyi seçin açılan sayfaya kodları kopyalayın

 

[fedeal]

Bunun için başka yol mutlaka vardır benim buldugum makrosuz yöntem.
b3 ten itibaren işlem yapılacak hücreleri seçin
veri-metni sütunlara dönüştür-sabit genişlikliyi seçip ileriyi tıklayın
veri önizlemeden 1inciyi tıklayın (boşluktan sonra ilk sayıdan önceki)
ileri
hedefte $b$3 yazıyor olacak onu $a$3 yapın son
hedef hücre içerigi değiştirilsinmi -tamam

bir kötü tarafı sıra noları tekrar yazmanız gerekecek.

 

[S.Yiğit]

Merhaba,

Bahsettiğiniz boşluğu kopyalayarak b3 ten itibaren işlem yapılacak hücreleri seçin ve ctrl h yapıp aranan'a kopyaladığınız boşluğu yapıştırın yeni değeri boş bırakıp tümünü değiştire tıklayınız.

 

[tahsinanarat]

Baştaki ve sondaki boşlukları siler
Sub Dene()
Cells.Replace Chr(160), ""
For Each huc In ActiveSheet.UsedRange
huc.Value = Trim(huc.Value)
Next
End Sub

 

[ahzola]

Baştaki ve sondaki boşlukları siler
Sub Dene()
Cells.Replace Chr(160), ""
For Each huc In ActiveSheet.UsedRange
huc.Value = Trim(huc.Value)
Next
End Sub

Merhabalar

sn ararat a teşekkür ederekten.

Bu makronun kısmen çalışması için
ilave yapılmasını istiyorum. Uzmanlarımızından

A sütunu 10. satır
B5 C7 hücresi gibi

yardımlarınız bekliyorum
Saygılarımla.

 

[ahzola]

Merhabalar

sn ararat a teşekkür ederekten.

Bu makronun kısmen çalışması için
ilave yapılmasını istiyorum. Uzmanlarımızından

A sütunu 10. satır
B5 C7 hücresi gibi

yardımlarınız bekliyorum
Saygılarımla.

Belki arayan olur.
http://www.excel.web.tr/f50/satyr-ba-yndaki-bo-luk-karakterini-silmek-t28819.html