اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم 

 

اريد كيفيه فتح ملف والتسجيل فيه عغند الوقف او دخول اعلامه في العمود المعين علي ان يتم تسجيل التاريخ والرحله واسم المندوب للسطر من الملف الاساي وتسجيله مباشره في الملف الذي سيتم فتحه لكي اسجل البيانات التي اريدها مباشره دو ن الحاجه الي نسخ البيانات يدويا مره اخري 

 

officna.rar

قام بنشر

حسب فهمي للمطلوب

ضع هذا الكود في حدث الصفحة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [N2:N10]) Is Nothing Then
A_E = Range("A" & Target.Row) & " " & Range("B" & Target.Row) & " " & _
Range("C" & Target.Row) & " " & Range("D" & Target.Row) & " " & Range("E" & Target.Row)
F_J = Range("F" & Target.Row) & " " & Range("G" & Target.Row) & " " & _
Range("H" & Target.Row) & " " & Range("I" & Target.Row) & " " & Range("J" & Target.Row)
Target = A_E & "  " & F_J
End If
End Sub
قام بنشر

السلام عليكم

الاستاذ القدير / عبدالله المجرب

 

اقل ما يقال عنك وعن اعمالك كلها

انه هو (( الابداع ذاته ))

جزاك الله خيرا استاذنا

قام بنشر

السلام عليكم  اانا اسف لعدم الرد لانشغالي وشكرا لكم الاستاذ عبد الله لمت يتم تفعيل الكود  فاسألك بالله ان تشرح لي كيفيه تشجيل الكود وتشغيله وشكرا لكم

قام بنشر

السلام عليكم انا ارى الكود ولكنه لا يعمل  ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟  غير موجود للتفعيل عند تنفيذ برنامج الماكرو لا يتم تحديد ماكروا من لالاساس ؟؟؟؟؟؟؟؟لماذا

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information