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

 

[diablus]

Aşağıdaki kodu kullanabilirsiniz.

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

hocam bunu butona bağlamak yerine veri girildiğinde otomatik yapmasını nasıl sağlarız

 

[Korhan Ayhan]

İşlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    For Each Rng In Target.Cells
        Rng = WorksheetFunction.Proper(Rng)
    Next
End Sub

Ayrıca linki inceeleyerek profilinizi güncellemenizi rica ederim..

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[diablus]

İşlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    For Each Rng In Target.Cells
        Rng = WorksheetFunction.Proper(Rng)
    Next
End Sub

Ayrıca linki inceeleyerek profilinizi güncellemenizi rica ederim..

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

teşekkürler hocam oldu

 

[diablus]

İşlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    For Each Rng In Target.Cells
        Rng = WorksheetFunction.Proper(Rng)
    Next
End Sub

Ayrıca linki inceeleyerek profilinizi güncellemenizi rica ederim..

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

Hocam sizin yazdığınız kod ile şu kodu birleştirdiğimde çalışmıyor. nasıl birleştirebilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sutun As Variant
If Not IsNumeric(Target.Value) Then
Exit Sub
End If
If Not Intersect(Target, Range("G:G")) Is Nothing Then
For Each Sutun In Array("A", "B", "C", "D", "E", "F")
Range(Cells(Target.Row, Sutun), Cells(Target.Row + Target.Value - 1, Sutun)).Merge
Next
End If
End Sub

 

[Korhan Ayhan]

Öncelikle profilinizdeki ofis sürümü bilgisini güncellemenizi rica ederim.

Excel Vers. ve Dili Iyi

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr