hücreye çif tıklama

[hurkanpisirici]

merhaba eklediğim dosyada A sütununda herhangi bir hücreye tıkladığımda userformu mu çağırabiliyorum.userformumum üzerinde optionbuton larım ve üzerlerinde 1mm - 2mm gibi veriler yazıyor.Benim istediğim ben 1 i tıkladığım anda çift tıklayıp formu açtığım hücreye o rakam gelsin?

yardım edecek bir arkadaş varmı acaba?

 

[Orion1]

Dosyanız ekte.

 

[Necdet]

Merhaba,

Dosyayı inceliyiniz.

Private Sub OptionButton1_Click()
ActiveCell = 1
End Sub

Private Sub OptionButton2_Click()
ActiveCell = 2
End Sub

Private Sub OptionButton3_Click()
ActiveCell = 3
End Sub

 

[hurkanpisirici]

evren hocam teşekkür ederim userformu açmayıda sizden öğrenmiştim elinize sağlık.

 

[Necdet]

Ben Mesajı süslerken geç kalmışım

 

[abdi]

Private Sub OptionButton1_Click()

ActiveCell.Value = OptionButton1.Caption

End Sub

Private Sub OptionButton2_Click()
ActiveCell.Value = OptionButton2.Caption

End Sub

Private Sub OptionButton3_Click()
ActiveCell.Value = OptionButton3.Caption

End Sub

Private Sub UserForm_Click()

End Sub

 

[hurkanpisirici]

sayın necdet hocam sizede çok teşekkür ederim

 

[hurkanpisirici]

necdet hocam evren hocam benim soru kalıplarıma alıştı çok yoruyorum onu hepinize sabrınız için çok teşekkürler

 

[Necdet]

Sormayan yaşamaz demiş bir düşünür.