berabereyse penaltılar belirlesin

[Muhammet Okumuş]

arkdaşlar dosyada a ve b sütununda takımlar c ve d sütununda skorlar var.herkangi bir skor yazdğımda g ve h sütunuda yer alan penaltı skorlarını e ve f sütununa yazmak istiyorum
Yardımcı olurmusunuz?

 

[uzmanamele]

merhaba
liglerin bitmesini dörtgözle bekliyorum. :hihoho:

 

[Muhammet Okumuş]

bende bekliyorum

 

[ozgretmen]

Sorunuzu biraz daha açık yazar mısınız ?

 

[Muhammet Okumuş]

hocam c ve d sütununa rastgele beraber skor yazdığımda g ve h sütunundan rastgele skor alacak

 

[Muhammet Okumuş]

çözüm var mı

 

[Korhan Ayhan]

Selamlar,

E2 hücresine;

=EĞER(C2=D2;DOLAYLI("G"&RASTGELEARADA(2;21));0)

F2 hücresine;

=EĞER(C2=D2;DOLAYLI("H"&RASTGELEARADA(2;21));0)

Formüllerini uygulayıp denermisiniz.

 

[Muhammet Okumuş]

Hocam oldu ama aynı satırdan almıyor örneğin 5 varken 1 alamaz

 

[Korhan Ayhan]

Selamlar,

Bu durumda size eğer isterseniz makrolu çözüm önereceğim.

 

[Muhammet Okumuş]

olsun hocam aslında ben çözüm ürettim.g hücresine p5-4 p5-3 .... gibi değerler yazdım.
soldan formulünü kullanacam.ama yapamadım

 

[Korhan Ayhan]

Selamlar,

Sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Satır As Byte
    On Error GoTo Son
    If Intersect(Target, [C2:D65536]) Is Nothing Then Exit Sub
    Satır = Evaluate("=RASTGELEARADA(2,21)")
    If Cells(Target.Row, "C") <> Empty And Cells(Target.Row, "D") <> Empty Then
    If Cells(Target.Row, "C") = Cells(Target.Row, "D") Then
    Application.EnableEvents = False
    Cells(Target.Row, "E") = Cells(Satır, "G")
    Cells(Target.Row, "F") = Cells(Satır, "H")
    Else
    Cells(Target.Row, "E") = Empty
    Cells(Target.Row, "F") = Empty
    End If
    End If
    Application.EnableEvents = True
Son:
    Application.EnableEvents = True
End Sub

 

[Muhammet Okumuş]

çok teşekkür ederim Sn Korhan Ayhan

 

[Muhammet Okumuş]

sn korhan penaltı skorları sürekli değişiyor.sabit yapamaz mıyız

 

[Korhan Ayhan]

Selamlar,

Sürekli değişiyor derken neyi kastettiğinizi anlamadım. Örneğin 2. satıra skor girdiğinizde (beraberlik) yandaki listeden rastgele penaltı seçiyor. Ve bu satıra bir daha müdahale etmediğiniz sürece değerler değişmiyor. Siz farklı bir uygulamamı istiyor sunuz ?