Doğrulama Yaparken Satır Eşitleme

[Salyangoz]

Selamlar arkadaşlar iyi bayramlar dilerim,

Ekteki dosyada görüldüğü gibi listede 3 seçenek var ve 4 satırlık bir grup bu listeden uygun olanı seçiyor.
Ancak grubun ilk hücresi eğer listede bulunan 3 seçenekten istediğimiz birini seçtiğinde 4'lü gruptaki tüm seçeneklerin de değişmesini istiyorsak nasıl bir işlem yapabiliriz..?

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
If Target = "Ofansif" Then Range("B5:B7") = "Ofansif"
End Sub

 

[Salyangoz]

Teşekkürler,
Aynı Worksheet üzerinde bu gibi birden fazla kod gereksinimi olduğunda ne gibi bir değişiklik yapıyoruz kod üzerinde ?
Bu kodu ikinci defa giremediğimiz için soruyorum, birkaç şey denedim ancak olmadı. Yani iki yada daha fazla takım için düşünürsek aynı Worksheet içerisine birden fazla kodu ne şekilde girebiliriz ?

 

[Necdet]

Örneğin?



.

 

[Salyangoz]

Teşekkürler

Ekte anlatmak istediğim döküman yer alıyor, bazı denemelerde bulundum ancak olmadı sadece tek işlem için oluyor. Burada her takım için ayrı olarak 1. Devre Ofansif olduğunda kendi listesi Ofansif olması gerekiyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B4,B11,B18]) Is Nothing Then Exit Sub
    If Target = "Ofansif" Then Range(Cells(Target.Row + 1, 2), Cells(Target.Row + 3, 2)) = "Ofansif"
End Sub

 

[Salyangoz]

Ellerinize sağlık gerçekten çok hoş oldu, aslında bir çok yerde kullanılabilecek bir kod, tekrar teşekkürler.