command butona makro atama

[cem yılmaz]

öncelikle böyle basit bir işlem için konu açtığım için özür dilerim ama tam olarak cevap bulamadım.benim istediğim oluşturduğum command butona makro atamak fakat buton üzerine gelip sağ tıkladığımda sadece "kes,kopyala,yapıştır,özellikler,kod görüntüle...vs."gibi seçenekler var fakat makro ata seçeneği yok nasıl yapabilirim?
İlginize şimdiden Teşekkür Ederim Arkadaşlar

 

[cem yılmaz]

butona bastığımda "a1 ile b1 arasına girdiğim sayıları d1 hücresine listelesin" makrosunu bulup yaptım fakat command butona atama yapamıyorum

 

[Ömer]

Merhaba,

CommandButton a çift tıklayın kod penceresi açılacaktır, araya kodlarınızı yazarak deneyiniz..

 

[cem yılmaz]

teşekkür ederim bu problemim çözüldü kullandığım formül aşağıdaki gibi fakat şöyle bir durum var..
örneğin girdiğim sayı aralığı 100 adet bunun 50 adedini f1 hücresine kalan 50 adedinide h1 hücresine yapıştırsın?
Bu işlem için yardım edebilirmisiniz?

Sub sayıyaz()
a = Range("A1")
b = Range("B1")
For i = a To b
Cells(i + 1 - a, 4) = i
Next
End Sub

 

[Ayhan Ercan]

denermisiniz....

Sub sayıyaz()
a = Range("A1")
b = Range("B1")
c = b / 2
For i = a To c
For j = c To b - 1
Cells(i + 1 - a, 6) = i
Cells(j + 1 - c, 7) = j + 1
Next
Next
End Sub