Otomatik evet hayır doldurma

[burhancavus61]

Sayfa1 de G5 ile G22 arasında herhangi bir hücreye evet yazdığım anda diğer hücrelerin Hayır yazılmasını sağlamak istiyorum. Açılan pencere ile evet seçiyorum diğer hücrelere tek tek hayır yazıyorum. Bunu kolaylaştırmam gerek yardımlarınızı bekliyorum.

 

[YUSUF44]

Aşağıdaki kodları sayfanın kod bölümüne yapıştırıp deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G5:G22]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If WorksheetFunction.Proper(Trim(Target)) = "Evet" Then
    Application.EnableEvents = False
        For Each hucre In [G5:G22]
            If hucre.Address <> Target.Address Then
                hucre.Value = "Hayır"
            End If
        Next
    Application.EnableEvents = True
End If
End Sub

 

[burhancavus61]

Teşekkür ederim Yusuf bey elinize sağlık.