Randbetween ve CommandButton sorunu

[aslıı1298]

Merhaba iyi aksamlar,
İki tane commandbutton ekledim.Ve bu commandbuttonlara ikisine de ayrı bir sekilde ayrı hücreler de randbetween kodunu atadım.Ancak herhangi birine tıkladığım da butonların bütün hepsi değişiyor yani iki buton da çalışıyor bunu nasıl düzeltebilirim. Yardımcı olursanız sevinirim

 

[ÖmerFaruk]

Kodları ya da dosyanızı ekler misiniz

 

[aslıı1298]

Sub Düğme2_Tıklat()
Calculate
Range("C3:H3").Name = "mycode"
Range("mycode").Interior.Pattern = x1none
Range("mycode").FormulaR1C1 = "=Randbetween(100,200)"
end sub
End Sub
Sub Düğme3_Tıklat()
Calculate
Range("C5:H10").Name = "mycode2"
Range("mycode2").Interior.Pattern = x1none
Range("mycode2").FormulaR1C1 = "=randbetween(10,100)"
end sub

 

[aslıı1298]

command button degilmis bu arada kusura bakmayın

 

[ÖmerFaruk]

Kodları aşağıdakilerle değiştir.

Sub Düğme2_Tıklat()
Dim Hücre As Range
    Range("C3:H3").Name = "mycode"
    Range("mycode").Interior.Pattern = x1none
    For Each Hücre In Range("mycode")
        Hücre = WorksheetFunction.RandBetween(100, 200)
    Next Hücre
End Sub
Sub Düğme3_Tıklat()
    Dim Hücre As Range
    Range("C5:H10").Name = "mycode"
    Range("mycode").Interior.Pattern = x1none
    For Each Hücre In Range("mycode")
        Hücre = WorksheetFunction.RandBetween(10, 100)
    Next Hücre
End Sub

 

[aslıı1298]

teşekkür ederimmm