أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود إنشاء فولدر يأخذ اسمه من اخر خلية فى عمود محدد

السلام عليكم لدى ملف ادخل فيه بيانات اشخاص وكل شخص له مرفقات وهذه المرفقات تكون موجوده فى فولدر باسم رقم هاتفه ارجو من م ..


موضوع مغلق


17-03-2022 08:18 مساء
mohamedmondy
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2022
رقم العضوية : 24026
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 26-11-1982
يتابعهم : 5
يتابعونه : 0
قوة السمعة : 10
 offline 

السلام عليكم لدى ملف ادخل فيه بيانات اشخاص وكل شخص له مرفقات وهذه المرفقات تكون موجوده فى فولدر باسم رقم هاتفه
ارجو من مساعدتى فى انشاء كود لعمل فولدر ياخذ اسمه تلقائية رقم هاتف العميل ويكون هذا الرقم فى عمود محدد
مرفق ملف العمل لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  data.rar   تحميل rar مرات التحميل :(6)
الحجم :(39.144) KB



أفضل إجابة مقدمة من soufisamchi وهي:
الملف مرفق:
عرض الإجابة




18-03-2022 12:42 صباحا
مشاهدة مشاركة منفردة [1]
soufisamchi
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 170
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود إنشاء فولدر يأخذ اسمه من اخر خلية فى عمود محدد
عدل الكود كما يلي :

Private Sub CommandButton1_Click()
Dim StrFolder As String
Dim add As Integer
StrFolder = ActiveWorkbook.path & "" & TextBox1
add = Sheet2.Range("b1000").End(xlUp).Row + 1
For i = 4 To add
If ActiveWorkbook.path & "" & Sheet2.Cells(i, 2).Value = StrFolder Then
MsgBox "رقم هاتف مسجل به شخص سابقا"
Exit Sub
End If
Next
If Dir(StrFolder, vbDirectory) = "" Then
                Shell ("cmd /c mkdir """ & StrFolder & """")
  Else
  MsgBox " مجلد موجود سابقا برقم هذا "
Exit Sub
    End If
Sheet2.Cells(add, 2).Value = Me.TextBox1.Value
Sheet2.Cells(add, 3).Value = Me.TextBox2.Value
Sheet2.Cells(add, 4).Value = Me.TextBox3.Value
Sheet2.Cells(add, 5).Value = Me.ListBox1.Value
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.ListBox1.Value = ""
MsgBox "تم إضافة البيانات بنجاح"
End Sub


 

18-03-2022 08:15 صباحا
مشاهدة مشاركة منفردة [2]
soufisamchi
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 170
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود إنشاء فولدر يأخذ اسمه من اخر خلية فى عمود محدد
صحح هذا الاسطر
1
StrFolder = ActiveWorkbook.path & "" & TextBox1
2
If ActiveWorkbook.path & "" & Sheet2.Cells(i, 2).Value = StrFolder Then

18-03-2022 06:04 مساء
مشاهدة مشاركة منفردة [3]
soufisamchi
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 170
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود إنشاء فولدر يأخذ اسمه من اخر خلية فى عمود محدد
الملف مرفق:
 
 
  data.rar   تحميل rar مرات التحميل :(4)
الحجم :(41.701) KB




الكلمات الدلالية
إنشاء ، فولدر ، يأخذ ، اسمه ، خلية ، عمود ، محدد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:48 مساء