کپی کردن عدد Textbox از فرم VBAبه یک سلول مشخص در شیت دیگری

[a.dal65]

درود به اساتید
من میخوام وقتی کاربر دکمه چاپ رو از فرم VBA زد
عددی که توی Textbox بالای دکمه چاپ هست در سلول O5 شیت Print وارد بشه و ماکروی که به نام CommandButton1 توی شیت Print هست اجرا بشه.

[majid_mx4]

با سلام

میتوانید از دستور زیر استفاده نمایید.


Private Sub Image1_Click()
Sheets("Print").Range("O5") = Val(TextBox15.Text)
Dim vSheet As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set vSheet = Worksheets("Print")
vSheet.PrintOut Preview:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


موفق باشید .