حاصل جمع

[mina62]

سلام حاصل جمع دو عدد تکس باکس و قرار گرفتن در خانه های اکسل

[generalsamad]

با سلام
نیاز به ایجاد پست جدید نبوده میتونستید
فایلتون رو توی همون پست قرار دهید

Private Sub CommandButton1_Click()
EmptyRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
k = EmptyRow
Range("B" & k).Value = Val(TextBox1.Text) + Val(TextBox2.Text)
TextBox1.Text = ""
TextBox2.Text = ""
End Sub 

فایل ضمیمه گردید
در صورت حل موضوع لطفا در پست اول تیک سبز حل شد را بزنید