[حل شده] ساخت شیت خودکار بر اساس تغییر یک عدد در یک سلول

[khatereh2]

سلام.
یک فایل فیش حقوقی هست که یک شیت دیتابیس حاوی شماره پرسنلی و اطلاعات اشخاص و... داره
در شیت دیگر ، فرم فیش حقوقی طراحی شده که بر اساس vlookup اومدیم کاری کردیم که با تغییر شماره پرسنلی کل اطلاعات فیش حقوقی هر شخص میاد و یکی یکی تبدیل به PDF می کنیم و چاپ می کنیم
حالا میخواهیم به جای اینکه یکی یکی عدد شماره پرسنلی را عوض کنیم با VBA و زدن یک کلید به تعداد شماره پرسنلی ها، شیت فیش حقوقی برای هر شخص ساخته بشه.
چطور میتونم اینکار را انجام بدم؟

[M_ExceL]

سلام.
یک فایل فیش حقوقی هست که یک شیت دیتابیس حاوی شماره پرسنلی و اطلاعات اشخاص و... داره
در شیت دیگر ، فرم فیش حقوقی طراحی شده که بر اساس vlookup اومدیم کاری کردیم که با تغییر شماره پرسنلی کل اطلاعات فیش حقوقی هر شخص میاد و یکی یکی تبدیل به PDF می کنیم و چاپ می کنیم
حالا میخواهیم به جای اینکه یکی یکی عدد شماره پرسنلی را عوض کنیم با VBA و زدن یک کلید به تعداد شماره پرسنلی ها، شیت فیش حقوقی برای هر شخص ساخته بشه.
چطور میتونم اینکار را انجام بدم؟

سلام،
میشه این کارو پیاده کرد، ولی به جای ساخت شیت برای هر شخص، بهتره فایل pdf فیش حقوقی برای هر شخص ساخته بشه.
نمونه ای از فایلتون رو هم قرار بدید تا کد نویسی متناسب با فایل شما صورت پذیرد.
یا حق.

[khatereh2]

سلام،
میشه این کارو پیاده کرد، ولی به جای ساخت شیت برای هر شخص، بهتره فایل pdf فیش حقوقی برای هر شخص ساخته بشه.
نمونه ای از فایلتون رو هم قرار بدید تا کد نویسی متناسب با فایل شما صورت پذیرد.
یا حق.

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

[iranweld]

با سلام

ابتدا این فیلم آموزشی را تماشا کنید تا حد زیادی مشکل شما با Mail Merging برطرف میشود

https://forum.exceliran.com/showthread.php/2590-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-word-%D9%88-excel-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%AA%D8%B9%D8%AF%D8%A7%D8%AF-%D8%B2%DB%8C%D8%A7%D8%AF%DB%8C-%D9%81%D8%B1%D9%85?p=12933&viewfull=1#post12933

[M_ExceL]

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

سلام،
بفرمایید :

Sub M_excel()
Dim LoginName As String
LoginName = Environ("Username")
lrow = Sheets("G").Range("a" & Rows.Count).End(xlUp).Row
dpath = "C:\Users\" & LoginName & "\Desktop\fish hoghoghi\"
If Dir(dpath) = "" Then MkDir dpath
Application.ScreenUpdating = False
For i = 2 To lrow
Sheets("Hokm").Range("d3") = Sheets("g").Range("a" & i)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    dpath & Sheets("Hokm").Range("d3") & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
Next i
Application.ScreenUpdating = True
MsgBox ChrW(1593) & ChrW(1605) & ChrW(1604) & ChrW(1740) & _
ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1576) & ChrW(1575) _
& ChrW(32) & ChrW(1605) & ChrW(1608) & ChrW(1601) & ChrW(1602) _
& ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1606) & _
ChrW(1580) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1711) & _
ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1583)
End Sub 

فایل های pdf در مسیر دسکتاب و داخل فولدر fish hoghoghi ایجاد می شوند.
نیازی به ساخت فولدر fish hoghoghi نمی باشد. خود کد این کار رو انجام می دهد.
داخل فایل روی باتن ساخت pdf کلیک کنید، قبل از تست، حتما ماکرو رو فعال کنید.
یا حق.