Makroyu tüm sütun için uygulamak

[kemalfarukdogan]

Merhabalar şimdi bu makroyu tüm sütuna uygulamak istiyorum. Örnek dosya linkteki .rar dadır. Yardımlarınız için çok teşekkür ederim.

http://s7.dosya.tc/server3/t44vys/Ornek1.rar.html

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("A1").Value = "Almanya" Then Range("B1").Value = "Yok"
Application.EnableEvents = True
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Value = "Almanya" Then Target.Offset(0, 1).Value = "Yok"
    Application.EnableEvents = True
End Sub

 

[kemalfarukdogan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Value = "Almanya" Then Target.Offset(0, 1).Value = "Yok"
    Application.EnableEvents = True
End Sub

Dediğiniz çalışıyor. Ama hemen bir yanında ki hücre sütun için değil de bir iki hücre sütun sonrası için ne yapmalıyım? örneğin A1-B1 için değilde A1-B3 için nasıl yazmam gerekir?

 

[Ömer BARAN]

Merhaba.

Sayın AYHAN'ın verdiği kod'da Offset(0, 1) kısmındaki sayılarda değişiklikler yaparak kod'un işleyişini anlayabilir,
olması gereken sayıları kendiniz tespit edebilirsiniz bence.

İpucu: sayılardan biri kaç satır sonrasına, diğeri kaç sütun sonrasına işlem yapılacağını belirliyor.

Kolay gelsin.

 

[kemalfarukdogan]

Merhaba.

Sayın AYHAN'ın verdiği kod'da Offset(0, 1) kısmındaki sayılarda değişiklikler yaparak kod'un işleyişini anlayabilir,
olması gereken sayıları kendiniz tespit edebilirsiniz bence.

İpucu: sayılardan biri kaç satır sonrasına, diğeri kaç sütun sonrasına işlem yapılacağını belirliyor.

Kolay gelsin.

Peki bunu sadece bir kaç sütun için yapmak istersem ne yapmam gerekiyor?

Çok sağolun hocam. Forum sayesinde çok şey öğrendim.

 

[Korhan Ayhan]

Merhaba,

Sütun tanımlaması için aşağıdaki yapıyı kullanabilirsiniz.

Sadece "A" sütunundaki hücreler değiştiğinde çalışır. Örnek A1 değişince B1 hücresine "Yok" yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = "Almanya" Then Target.Offset(0, 1).Value = "Yok"
    Application.EnableEvents = True
End Sub

Aşağıdaki kod ise "A ve D" sütunlarındaki hücreler değiştiğinde çalışır. Örnek A1 değişince B1 hücresine "Yok" yazar. D1 hücresi değişince E1 hücresine "Yok" yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A,D:D")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = "Almanya" Then Target.Offset(0, 1).Value = "Yok"
    Application.EnableEvents = True
End Sub