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

[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

[mfr]

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

[iranweld]

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

با سلام

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

[mfr]

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

[mfr]

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