Makro İle Yazım Düzeni Yardım

[adamar]

Sayın Üstadlarım,

excel çalışma sayfam da yazılarımın makro ile yazım düzenine sokmak istiyorum.
bu konuda yardımcı olurmusunuz.

Not: Bir önceki açılan konulara baktım ancak istediğim yardımı bulamadım.
makro atayarak sayfa düzeninin yapılmasını istiyorum.
Sayfada değişiklik yapılarak yapılan makrolar sürekli hata veriyor.

İlginiz için şimdiden herkese çok teşekkür ederim.

 

[Levent Menteşoğlu]

Sorunuzu çok yüzeysel sormuşsunuz. Detay bilgi olmadan çözüm bulmak zorlaşır.

 

[adamar]

Sorunuzu çok yüzeysel sormuşsunuz. Detay bilgi olmadan çözüm bulmak zorlaşır.

Marko atanmış bir buton ile sayfadan ki yazıları.yazım formüllü haliyle düzeni oluşturacak makro ya ihtiyacım var.


şu aşağıdaki kodu buldum ancak bu sadece a kolunu için yapıyor, düzenlemeye çalıştım. ama tüm sayfa için uyarlayamadım.
"Sub yazım_düzeni()
son = Range("a65536").End(xlUp).Row
For i = 1 To son
Range("a" & i) = Application.WorksheetFunction.Proper(Range("a" & i))
Next
End Sub

Birde sayfada uygulanabilen
şu kod var ancak bu da sürekli hata veriyor özellikle ömceki satırlarda değişiklik yapıldığında.
"Private Sub Worksheet_Change(ByVal Target As Range)
Target = Application.WorksheetFunction.Proper(Target)
End Sub

link : http://www.excel.web.tr/f48/z-ld-kelimelerin-lk-harflerinin-buyuk-yapylmasy-makro-t57602.html

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanabilirsiniz.

Sub ilkharfbuyuk()
For Each hucre In Cells.SpecialCells(xlCellTypeConstants, 2)
hucre.Value = Evaluate("=PROPER(" & """" & hucre & """" & ")")
Next
End Sub

 

[adamar]

ellerinize sağlık