[حل شده] کپی کردن عدد 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

موفق باشید .