ثبت فرم و ذخیره در شیت دیگر

[mfr]

سلام دوستان طبق فایل نمونه میخوام توی شیت فرم اطلاعات رو وارد کنم وبا زدن دکمه ذخیره توی شیت اطلاعات ذخیره بشه ... در ضمن بشه با دکمه چاپ اونو پرینت کرد...
ممنون میشم از دوستان و استید راهنمایی بفرمایند...

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mfr]

کسی نیست جواب بده

[iranweld]

کسی نیست جواب بده

با سلام

یک فایل آماده داشتم برای شما ارسال میکنم با تغییر تکست باکس ها میتوانید مطابق خواسته خود ردیف کنید

[mfr]

خیلی ممنونم دوست خوبم ... ولی میخوام مثل فایل نمونه باشه .. نمی خوام از form استفاده کنم

[Amir Ghasemiyan]

سلام دوست عزيز
براي ذخيره در ديتابيس ميتونين از كد زير كمك بگيريد

Sub Macro2()
    Range("D1:D3").Copy Destination:=Range("B4")
    Range("B1:B6").Copy
    Sheets("ÇØáÇÚÇÊ").Select
    Range("A1").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("ÝÑã").Select
    Range("B4:B6").ClearContents
    Range("B1").Select
End Sub

براي پرينت هم ميتونين از كد زير كمك بگيرين:

Sub Macro4()
    Range("A1:D3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub