[Çözüldü] Hücreye her ver girdikten sonra sayfada güncelleme yapsan

[drejan62]

Merhabalar,
Sayfa1 de herhangi bir hücreye veri girdiğimde sayfa ayarı bozuluyor.
Bunun için bende  alttaku kodu kullanıyorum fakat bu kodu bir butona atadığım için hücreden çıktıktan sonra makroyu çalıştırmam gerekiyor.
Acaba bu kodları nasıl yzmalıyım ki hücreye veri girişi yapıp enter tuşuna bastıktan sonra yada başka bir nücreye geçtikten sonra saya otomatik bu kodları çalıştırsın?
Teşekkür ederim

Kod: [Seç]

  Cells.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("a1").Select

[Orion1]

Sayfanın modülüne change olayına yazınız.

[drejan62]

Sayfanın modülüne change olayına yazınız.

Üstad günaydın,
alttaki gibi yaptım ama hücreyi seçer seçmez birşiyler yapmaya baxyışor ve ben hiçbirşey yapamıyorum öylece ekran güncellenip duruyor.
shift+esc ye basıp öyle durduruyorum.
ben hücreden çıktınktan sonra sadece birkez yapmısını istiyorum,
her hücre değiytikçe güncellesin yani.
kodlar altta

Kod: [Seç]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Cells.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("a1").Select
End Sub

[Orion1]

selectionchangeye değil change olayına demiştim.
Aşağıdaki kodları yapıştırınız.Ötekileri siliniz.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("a1").Select
End Sub


[drejan62]

Tamamdır üstad sağol

[Orion1]

Tamamdır üstad sağol

Rica ederim.
İyi çalışmalar.