buton ile hücre içerisindeki veriyi bir diğer hücredeki veriyle toplama

[proje1234]

merhaba örneğin, a1 hücresinde 5 sayısı var, b1'de de 2 sayısı. Buton veya vba kodları ile a1 hücresine b1 hücresini ekleyerek güncel a1:7 ve güncel b1:0 yapılabilir mi? Şimdiden teşekkür ederim

 

[mesuttasar]

Evet tabiki yapabilirsiniz.

Sub tt()
Dim x, y As Integer
x = Cells(1, 1).Value
y = Cells(1, 2).Value
Cells(1, 1) = x + y
Cells(1, 2) = 0
End Sub

 

[proje1234]

çok teşekkür ederim, bir sorum daha olacaktı. eklencek ve çıkartılacak hücreleri yani a1 ve b1 hücrelerini kullanıcının kendisinin seçmesi mümkün kü? Çok teşekkürler tekrardan

 

[mesuttasar]

Aşağıdaki kodları deneyebilirsiniz.

Sub test()
Dim r, t As Range
Dim x, y As Integer
On Error Resume Next
x = 0
y = 0

Set r = Application.InputBox(Prompt:="Birinci Hucreyi Seçin", Type:=8)
x = r.Value
xx = r.Address

Set t = Application.InputBox(Prompt:="Ikinci Hucreyi Seçin", Type:=8)
y = t.Value
yy = t.Address
cevap = MsgBox("Seçilen hücreler toplanacak mi?", vbQuestion + vbYesNo, "Ne Yapilacak")
If cevap = vbYes Then
Range(xx) = x + y
Range(yy) = 0
Else
Range(xx) = x - y
Range(yy) = 0
End If
End Sub

 

[proje1234]

Ufak bir düzeltme ile çalıştı, çok yardımcı oldunuz sağ olun