Belirli bir formülü VBA olarak yazmak.

[yeappa]

Merhaba,

=YAZIM.DÜZENİ formulunu Makro Kaydet vasitasi ile vba icerisine aktardim.
Bu sekilde yapildiginda formulun etki edecegi hucreler de koda yazilmakta.

Bu islemi hucrelere uygulanmayacak sekilde yazabilir miyiz?
Hucrelere uygulanmayacak bu kodu bir butona makro atayarak calistirmak amacim.

Sub yazimduzelt()
'
' yazimduzelt Makro
'

'
    ActiveCell.FormulaR1C1 = "=PROPER(R[-11]C)"
    Range("A23").Select
End Sub

 

[Merhum İdris SERDAR]

.

Bunu deneyin. Bir düğmeye bağlayın ve yazım düzenini uygulayacağınız alan veya hücreleri seçerek makroyu çalıştırın.

Sub yd()

Dim aln As Range, hcr As Range
Set aln = Selection

For Each hcr In aln
hcr.Value = WorksheetFunction.Proper(hcr.Value)
Next hcr

End Sub

.

 

[yeappa]

.

Bunu deneyin. Bir düğmeye bağlayın ve yazım düzenini uygulayacağınız alan veya hücreleri seçerek makroyu çalıştırın.

Sub yd()

Dim aln As Range, hcr As Range
Set aln = Selection

For Each hcr In aln
hcr.Value = WorksheetFunction.Proper(hcr.Value)
Next hcr

End Sub

.

Hucre icerigine bakmaksizin calisti.
Tesekkurler.