min max değerler arasında rastgele sayı üretme

[oguz293]

sanırım yanlış yerde konu açtım daha evvel
örnek tabloda belirttiğim gibi parça kodlarını girdiğimde o parça koduna ait ölçü değerleri içinde rast gele sayılar yazmasını istiyorum yardımcı olabilirseniz sevinirim iyi çalışmalar

 

[Merhum İdris SERDAR]

sanırım yanlış yerde konu açtım daha evvel
örnek tabloda belirttiğim gibi parça kodlarını girdiğimde o parça koduna ait ölçü değerleri içinde rast gele sayılar yazmasını istiyorum yardımcı olabilirseniz sevinirim iyi çalışmalar

.

Dosyanız ekte.

.

 

[prmts]

Ben size iç çap için örnek kod vereyim siz genişletirsiniz. Takılırsanız bakarız.

'iç çap
dn:
yz = (Range("a10").Value - 5)
yz2 = (Range("a10").Value + 5)
Randomize
no = Int((yz2) * Rnd + 1)
If no < yz Then GoTo dn
Range("b10").Value = no / 10

Geç kalmışım.

 

[oguz293]

yapmış olduğunuz dosyaya göz attım ancak şöyle bir sorun var sayfanın herhangi bir yerine bir sayı yazınca bile değerler değişiyor ben ise sadece parça kodu kısmına yazdığım zaman sadece o satırın değişmesini istiyordum böyle bir şey mümkünmü acaba

 

[Merhum İdris SERDAR]

.

Bir de buna bakın.


.

 

[oguz293]

evet istediğim buydu çok teşekkür ederim kolay gelsin

 

[oguz293]

METİN

Geçen gün bana son göndermiş olduğunuz örnekle çok yardım cı oldunuz ama bir şey daha eklemem gerektii son sütıuna metin giriyorum ve alttaki çizelgeye kodu girdiğimde o parça koduna ait değerleri otomatik rastgele yazıyor buraya kadar herşey güzel ama en sonuna o koda ait parça adını da yazmasını istiyorum metin olarak şimdiden çok teşekkür ederim örnek gönderiyorum size