makro ile kırp() ve temizle() nasıl yapılır?

[skyhero34]

Merhaba

Elimde şu şekilde bir makro var, bununla seçtiğim alanda Yazımdüzeni() formülünü uygulayabiliorum. fakat ben buna bir de Kırp() ve Temizle() fonksiyonlarınıda eklemek istiyorum. Forumda bu fonksiyonlar için birçok örnek buldum fakat bu makroyu bir türlü revize edemedim.

Sub YazimDuzeni()
Dim X As Range
For Each X In Selection
X.Value = Application.Proper(X.Value)
Next
End Sub

teşekkürler..

 

[programer]

örnek bir dosya eklermisiniz

 

[skyhero34]

Örnek dosyayı ekliyorum..

 

[Ömer]

Merhaba,

Sub YazimDuzeni()
    
    Dim x As Range
    
    For Each x In Selection
        x.Value = Application.Proper([COLOR=red]Application.Trim([/COLOR]x.Value[COLOR=red])[/COLOR])
    Next x
    
End Sub

Bu şekilde deneyin.

 

[skyhero34]

Ömer Bey çok Teşekkür ederim, işe yaradı. Fakat birde buna exceldeki TEMİZ() fonksiyonunu ekleyebilirmiyiz.

 

[Ömer]

Bu şekilde deneyin.

Sub YazimDuzeni()
 
    Dim x As Range
 
    For Each x In Selection
        x.Value = Application.Proper(WorksheetFunction.Clean(Application.Trim(x.Value)))
    Next x
 
End Sub

.

 

[skyhero34]

Çok Teşekkür Ederim.. Sorunsuz çalışmakta..