Sayı değerine uygun öncül yerleştirmek

[fatihglr]

Herkese selamlar. Örnek üzerinden problemi anlatarak yardımınızı isteyeyim değerli arkadaşlar.
bir hücreye 3 değerini girdiğimde aynı satırdaki 4-5 hücreye 2-5 arasında tam sayı değerleri atasın otomatik istiyorum.
A1 için 3 yazdığımda B1,C1,D1... otomatik 2-5 aralıkta değer alsın
A2 için 2 yazdığımda B2,C2,D2.. 1-3 aralığında değer alsın yani.

Umarım ifade edebilmişimdir. Teşekkürler. Saygılarımla

 

[uzmanamele]

Merhaba

Formül bu ancak her veri girişinde tetiklendiği için sürekli değişir.
=RASTGELEARADA(2;5)
=RASTGELEARADA(1;3)

Ne yapmak istediğinizi daha net ifade etmeniz gerekir.

 

[fatihglr]

Merhaba

Formül bu ancak her veri girişinde tetiklendiği için sürekli değişir.
=RASTGELEARADA(2;5)
=RASTGELEARADA(1;3)

Ne yapmak istediğinizi daha net ifade etmeniz gerekir.

Haklısınız daha açıklayıcı yazayım. Hastalarımla alakalı bir tablo oluşturuyorum ve kol kuvvetini değerlendirirken 1-5 arasında bir değer alıyor hastanın kuvveti. Örneğin hastamız 5 üzerinden 3 puan olarak kol kuvveti verdik A1 hücresine . Öncül olarak B1, C1, D1 hücrelerine de kolun kuvvetini değerlendirirken kullandığımız alt parametrelerle ilgili değerler atamasını istiyorum. yani ortalama kol kuvvetine 3 verince alt değerlendirme parametrelerine 2-4 arasında değerler; ortalama kol kuvvetine 2 verince 1-3 arasında değerler atasın istiyorum.

 

[uzmanamele]

Merhaba

Bu kodu sayfanın kod bölümüne yazarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a2")) Is Nothing Then Exit Sub
Cells(1, 2) = Application.WorksheetFunction.RandBetween(2, 5)
Cells(1, 3) = Application.WorksheetFunction.RandBetween(2, 5)
Cells(1, 4) = Application.WorksheetFunction.RandBetween(2, 5)
Cells(2, 2) = Application.WorksheetFunction.RandBetween(1, 3)
Cells(2, 3) = Application.WorksheetFunction.RandBetween(1, 3)
Cells(2, 4) = Application.WorksheetFunction.RandBetween(1, 3)
End Sub

 

[fatihglr]

Merhaba

Bu kodu sayfanın kod bölümüne yazarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a2")) Is Nothing Then Exit Sub
Cells(1, 2) = Application.WorksheetFunction.RandBetween(2, 5)
Cells(1, 3) = Application.WorksheetFunction.RandBetween(2, 5)
Cells(1, 4) = Application.WorksheetFunction.RandBetween(2, 5)
Cells(2, 2) = Application.WorksheetFunction.RandBetween(1, 3)
Cells(2, 3) = Application.WorksheetFunction.RandBetween(1, 3)
Cells(2, 4) = Application.WorksheetFunction.RandBetween(1, 3)
End Sub

malesef herhangi bir tepki vermiyor sayfa bu kodla. teşekkürler yine de

 

[uzmanamele]

malesef herhangi bir tepki vermiyor sayfa bu kodla. teşekkürler yine de

 

[fatihglr]

Ekli dosyayı görüntüle 234773

tekrar denedim. istediğime yakın oldu teşekkür ediyorum sağolun.