sayı aralığı girip farklı sayılar üretme Çok acil!

[udentr2002]

merhaba sayın hocalarım ektede bir dosya ile gönderiyorum eğer yapabilrseniz inanın çok sevinirim. Dosyadada anlattım Belli bir sayı aralığı girip sonra istediğim yere 60 tane birbirinden farklı virgülden sonrada 2 hane olacak ve o girdiğim sayı aralığında (58,65 - 74,12) olacak şekilde parantez içindeki gibi mesala o aralığın içinde olacak tüm sayılar otomatik olarak sayı üretip hücrelere yazacak bir şey yapabilmek mümkünmüdür gerek excel formülü gerek makro ile yardımcı olursanız çok ama çok sevinirim yaptığım bir programda bunun gibi 500'e yakın sayı girmek zorunda kalıyorum buda çok zamanımı alıyor vede bazen hatalara sebep oluyor lütfen yardım edin mümkün değilsede bildirirseniz sevinirim. Şimdiden teşekkürler

 

[Levent Menteşoğlu]

Öncelikle aralığın alt limitini D1 hücresine, üst limitinide E1 hücresine yazın ve aşağıdaki kodu sayfa üzerinde bir butona bağlayarak çalıştırın.

Sub sayiuret()
For a = 1 To 60
10 deg = WorksheetFunction.Round(Rnd() * 100, 2)
son = Cells(65536, c + 4).End(3).Row + 1
If deg >= [d1] And deg <= [e1] And WorksheetFunction.CountIf([d4:f23], deg) = 0 Then
Cells(son, c + 4) = deg
Else
GoTo 10
End If
If a Mod 20 = 0 Then c = c + 1
Next
End Sub

 

[udentr2002]

levent ben sana ne diyeyim be dostum inan bana sende olmazsan halimiz harap öyle harikja bir şey gönderdinki bana öyle yardımcı oldunki anlatamam diyecek hiç bir şey bulamıyorum Allah razı olsun senden tekrar tekrar sonsuz teşekkürler dostum

 

[udentr2002]

tekrar selam levent dostum o gönderdiğin kodda 100'den büyük limitler girdiğimde sanırım çalışmıyor bunun için ne yapabilirim anlatırmısın lütfern biliyorum çok oluyorum ama lütfen cevap bekliyorum

 

[Levent Menteşoğlu]

10 deg = WorksheetFunction.Round(Rnd() * 100, 2)

Yukarıdaki satırdaki 100 çarpanını 1000 yapın.

 

[udentr2002]

incelermisin dosyayı be abi lütfen

biliyorum seni yoruyorum ama çalışıyor ama ben o sayıların altında ortalamalarını ve standart sapmalarını almak zorundayım o yüzden onları yazınca ve sayı üret butonuna basınca altından başlıyor yazmaya bunun için ne yapabilirim yani sürekli buıtona basınca hep aynı yere sayıları yazsın örnekte daha açıklamalı anlattım incelersen çok sevinirim şimdiden çok ama çok teşekkürler ekli dosyada daha detaylı anlatmaya çalıştım cevabını bekliyorum teşekkürler şimdiden

 

[udentr2002]

levent bey

abi o dosyayı bir inceleyebilirmisin lütfen

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Formüllerinizi 24.satırdan itibaren aşağı doğru yerleştirin.

[LEFT]Sub sayiuret()
[d4:f23].ClearContents
For a = 1 To 60
son = Cells(24, c + 4).End(3).Row + 1
10 deg = WorksheetFunction.Round(Rnd() * 1000, 2)
If deg >= [d1] And deg <= [e1] And WorksheetFunction.CountIf([d4:f23], deg) = 0 Then
Cells(son, c + 4) = deg
Else
GoTo 10
End If
If a Mod 20 = 0 Then c = c + 1
Next
End Sub
[/LEFT]

 

[udentr2002]

sayın levent hocam

gerçekten 2 günde bir sürü problemmimi çözdün sen çok ama çok teşekkür ederim eline sağlık kendine çok iyi bak görüşebilmek dileği ile

 

[ertanbeler]

sayı üretme

daha önceden oluşturulmuş makroları inceledim fakat 1,70 ile 1,86 arasıda sayı üret dediğimde makrolar yavaşlıyo hatta kitleniyor.ekte örnek verdim incelerseniz sevinirim