کپی کردن عدد 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

موفق باشید .