Gereksiz Bosluklari Silmek

Bugun bir arkadasimizin calismasindaki rakamlarin sonlarinda birer adet bosluk vardi, ve bosluklarin replace menusunu (ctrl + h) kullanarak silinemedigini soyledi.

Bu durumda Trim ve Value fonksiyonlarini onerdim fakat bunlardan da sonuc cikmadi, sonunda yapilmasi gereken vb kullanmakti, iste bu tarz disardan aldiginzi verilerde olusan gereksiz bosluklari silebileceginiz bosluklar;

Sub Gereksiz_Bosluklari_Sil()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Selection.SpecialCells(xlConstants).Replace What:=Chr(160), _
Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Selection.SpecialCells(xlConstants).Replace What:=Chr(32), _
Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Gereksiz Bosluklari Silmek” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


5 + 3 =