iki limit arasında belirtilen sayı kadar değer atama

[gazicemal]

Öncelikle herkese merhaba,

Benim istediğim olay belirli bir tabloya değerleri iki değer arasında tablo içine yazdırmak. Formül var ama tablonun içine atmıyor Örneği ekte verdim yardımcı olursanız çok sevinirim. Yeni VB kullanmaya ve öğrenemeye çalıştığım için hatanın nedenini ve çözümünü belirtirseniz benim için çok daha iyi olur...

 

[veyselemre]

Sub Düğme1_Tıklat()
    [d5:I24].ClearContents
    For Each huc In [d5:I24].Cells
10
        deg = WorksheetFunction.Round(Rnd() * 10000, 4)
        If deg >= [L2] And deg <= [n2] And WorksheetFunction.CountIf([d5:ı24], deg) = 0 Then
            huc.Value = deg
        Else
            GoTo 10
        End If
    Next
End Sub

 

[gazicemal]

Sayın Veyselemre Bey,

yardımlarınız için çok saolun anladım galiba zor yolu seçmişiz meğerse