Hücrede kendiliğinden oluşan boşlukları silme.

[kelkitli]

Değerli Dostlar Selamlar,
Web den güncellediğim bilgilerin olduğu sütunda Hücrenin ilk karakterinden önce boşluk oluşuyor. Nedenini bilmiyorum. Tarih olarak yazılı değerler hücre biçimlendirme tarih olduğu halde bu boşluk sebebiyle formülleri yanıltıyor. Mesela A sütununda bu boşlukları nasıl yokederim.

 

[Skorpiyon]

Sayın kelkitli,

İlgili sütunu tutun, Ctrl + H yapın. "Aranan" kısmına bir boşluk verin. "Yeni Değer" kısmına hiç dokunmadan, "Tümünü Değiştir"
butonuna tıklayın.

Not : Yalnız bu hücreler içindeki tüm boşlukları kaldırır. Bilginize...

 

[kelkitli]

Sayın Sertkaya,
Cevabınız için teşekkür ederim. Bunu sadece soldan ilk karakter için yapamazmıyız.

 

[uzmanamele]

merhaba
bunlarıda deneyebilirsiniz

=YERİNEKOY(A1;" ";;1)
veya
=KIRP(A1)

 

[Skorpiyon]

Sayın kelkitli,

Aşağıdaki kodları da alternatif olarak deneyebilirsiniz.

Sub düzelt()
For a = 1 To [A65536].End(xlUp).Row
Cells(a, 1).Value = Mid(Cells(a, 1), 2, 5000)
Next a
End Sub

Not : Hücre içinde ilk karakter boşluk değilse, ilk harfi de siler.

 

[kelkitli]

Sayın Sertkaya, Sayın uzmanamele,
çok çok teşekkür ederim.

Sub kırp()
Sayfa1.Range("D1").FormulaR1C1 = "=TRIM(RC[-1])"
Sayfa1.Range("D1").AutoFill Destination:=Range("D1: D26"), Type:=xlFillDefault
Sayfa1.Range("D1: D26").Copy
Sayfa1.Range("D1: D26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sayfa1.Range("D1: D26").Copy
Sayfa1.Range("C1").Select
Sayfa1.Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sayfa1.Range("D1: D26") = ""
Application.CutCopyMode = False
Range("B1").Select
End Sub

Veriğiniz bilgilerden yola çıkarak şöyle birşey yaptım. Hazırladığım kod biraz tarzanca oldu ama işimi gördü. Sağolun, varolun.

 

[kelkitli]

Yanlış bölümde başlık açtığım için forum yöneticilerinden ve üyelerden özür dilerim. Çok utandım.

 

[uzmanamele]

merhaba
ilk 3 mesaja makro ile çözüm istiyorum demediğinizi için konu başlığını değiştirmiştim. makro çözümü syn Şaban Sertkaya ve siz yazmışsınız, yoksa yanlış açılmış başlık değil.

 

[kazandibi82]

Sayın kelkitli,

İlgili sütunu tutun, Ctrl + H yapın. "Aranan" kısmına bir boşluk verin. "Yeni Değer" kısmına hiç dokunmadan, "Tümünü Değiştir"
butonuna tıklayın.

Not : Yalnız bu hücreler içindeki tüm boşlukları kaldırır. Bilginize...

Saatlerdir formül oluştırmaya çalışıyorum bu durum için:biggrin:

ne kadarda kolaymış,

teşekkürler.

 

[mustafaine1]

bu aklinizia gelmedigine gore bundan sonra cok isinize yarayacak bir sey ogrendiniz gerek format ayarlari gerek replace etmek gerek duzeltmek icin kullanicaksiniz, kolay gelsin..