کد vba برای save as

[میثم مقدم نیا]

سلام و درود
خسته نباشید
من یه سیستمی رو طراحی کردم از دیتابیس کارکنان یعنی یه پنل طراحی کردم که با جستجو شماره پرسنلی کارکنان میتونید اونا رو مرخصی بدید ... انتقالی بدید ولی یه مشکل دارم اونم اینه که سیستم بایگانی ام مشکل داره من میخام وقتی طرف رو مرخصی دادم فرم مرخصی رو تو پوشه با نام خود طرف که در یکی از سلول های فرم مرخصی وجود داره با نام مرخصی مثلا استعلاجی فلانی در پوشه بایگانی فلانی ذخیره کنه امکانش هست؟؟؟
از اکسل ۲۰۱۰ استفاده میکنم
ممنون میشم راهنمایی کنید من فقط ساخت پوشه با نام یکی از سلول ها رو بلد نیستم

با سلام خدمت شما دوست عزیزم
فرض کنید فهرستی از اسامی کارکنان در محدوده یک شیت دارید، و حالا می‌خواهید برای هر کدام از آن‌ها یک پوشه ایجاد کنید تا اطلاعات آن‌ها را ثبت کنید .

اگر این پوشه‌ها را یکی یکی بسازید ، زمان زیادی را هدر می‌دهد . اما چطور می‌توانید به سرعت این پوشه‌ها را ایجاد کنید ؟

ایجاد پوشه براساس مقادیر سلول با کد VBA


برای مثال :

من یک سری اسامی در یک شیت دارم ، می‌خواهم برای هر یک از آن‌ها یک پوشه ایجاد کنم ، و آن‌ها را در یک مسیر مشخص ذخیره کنم

با کد VBA من می‌توانم این کار را انجام دهم .

۱. فایل اکسل را در مسیر مورد نظر ذخیره کنید و محدوده نام ها را ذخیره کنید.



۲. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۳. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قرار دهید .

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r= 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub 

۴. بعد از قرار دادن متن ، کلید F5 را فشار دهید تا آن را اجرا کنید .


توجه: به ازای سلول های محدوده انتخاب شده در مسیر فایل اکسل پویشه ایجاد می شود.

[ehn]

با سلام خدمت شما دوست عزیزم
فرض کنید فهرستی از اسامی کارکنان در محدوده یک شیت دارید، و حالا می‌خواهید برای هر کدام از آن‌ها یک پوشه ایجاد کنید تا اطلاعات آن‌ها را ثبت کنید .

اگر این پوشه‌ها را یکی یکی بسازید ، زمان زیادی را هدر می‌دهد . اما چطور می‌توانید به سرعت این پوشه‌ها را ایجاد کنید ؟

ایجاد پوشه براساس مقادیر سلول با کد VBA


برای مثال :

من یک سری اسامی در یک شیت دارم ، می‌خواهم برای هر یک از آن‌ها یک پوشه ایجاد کنم ، و آن‌ها را در یک مسیر مشخص ذخیره کنم

با کد VBA من می‌توانم این کار را انجام دهم .

۱. فایل اکسل را در مسیر مورد نظر ذخیره کنید و محدوده نام ها را ذخیره کنید.



۲. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۳. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قرار دهید .

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r= 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub 

۴. بعد از قرار دادن متن ، کلید F5 را فشار دهید تا آن را اجرا کنید .


توجه: به ازای سلول های محدوده انتخاب شده در مسیر فایل اکسل پویشه ایجاد می شود.

ازتون خیلی ممنونم که سریع پاسخگو بودید
اداره ما به گونه ایه که برای بابگانی هی باید سیو از بزنی و اسم طرف رو سیو کنی مثلا مرخصی فلانی من میخام وقتی به طرف مرخصی دادم ... مرخصی رو سیو کنه به طور اتوماتیک در پوشه به نام طرف اگه پوشه وجود نداشت مثلا نام پوشه رو از سلول b5,v8 بگیره و مرخصی رو با نام طرف که در سلول n2 هست ذخیره کنه
همچین چیزی ممکنه؟؟؟