Soru Makro ile Otomatik Düzeltme işlemi

[mehmetd]

Örneğin B sütun yukarıdan-aşağı veya 10 satırın baştan-sona herhangi bir yerine X yazdığımda 25 yazmasını istiyorum. Bunu Vba kodlarla nasıl yapabilirim. Yarımdım eden ve ilgilenen arkadaşlara şimdiden teşekkür ederim. Saygılarımla. İyi çalışmalar

 

[ÖmerFaruk]

Sayfanızın kod bölümüne aşağıdakini yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    If UCase(Target) <> "X" Then Exit Sub
    Application.EnableEvents = False
    Target = 25
    Application.EnableEvents = True
End Sub

Eğer 1-10. satırlar için yapmak isterseniz ilk IF sorgusunu aşağıdakiyle değiştirin.
If Intersect(Target, Rows("1:10")) Is Nothing Then Exit Sub

 

[mehmetd]

Sn. Ömer Bey günaydın.
Örneğin: ilgili kodu H6:M16 arasına uygulamak istesem ne yapmam gerek. Yardımınızı talep ediyorum

 

[Korhan Ayhan]

Deneyiniz.

If Intersect(Target, Range("H6:M16")) Is Nothing Then Exit Sub

 

[mehmetd]

Sn. Korhan Bey en son verdiğiniz kod olmadı yada ben başaramadım size zahmet bir excel dosyası üzerinde örnek olarak paylaşabilir misiniz?

 

[Korhan Ayhan]

Ömer beyin önerdiği kod da başlığın altındaki satırı yani ikinci satırı silip benim verdiğim satırı uygulayınız. Zor olmasa gerek.