makro ile hücrenin karesini alıp yazdırma

[ndm]

basit bir soru ama makrolara yeni basladım. bir hucrenin karesi alınıp tekrar aynı hucreye nasıl yazdırılır?

 

[danersin]

hücreye

=5^2

yazın. ^işareti q klavyede shift+3 ile çıkıyor ve bir sonraki karakter basılana kadar gözükmez.

 

[xxrt]

Boş Bir modüle kopyalayın.

Sub karesi()
On Error Resume Next
   x = InputBox("Karesi Alınacak Sayıyı Girin")
    y = x * x
    MsgBox "Karesi  " & y
End Sub

Sub karesi_hücre()
x = ActiveCell.Value
  ActiveCell.Value = x * x
End Sub

 

[ndm]

ben bunu makro ile yaptırmak istiyorum. mesela ctrl+q tuşuna basınca c3 hücresinin karesini alıp tekrar c3 e yazsın.

 

[ndm]

xxrt mesajları aynı anda atmısız. verdiğin kodlar çok işime yaradı tşk.
yalnız bu atadıgım kısayol tusu calısmadı. mesela ilk örnekte karesini bulup yazıyor hucreye ama taa Araçlardan makroyu calıstır dedigimde. buna bir kısayol atayamazmıyız?

 

[xxrt]

Siz F5'i istediğinize değiştirerek atayın..

Sub Auto_Open()
    Application.OnKey "{F5}", "karesi_hücre"
End Sub

Sub Auto_Close()
    Application.OnKey "{F5}"
End Sub

Sub karesi_hücre()
On Error Resume Next
x = ActiveCell.Value
If x = "" Then
MsgBox "Hücrede Karesi Alınacak Değer Yok"
Else
  ActiveCell.Value = x * x
  End If
End Sub

Butonlara makroatamak için