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

حسين مامون

الخبراء
  • Content Count

    665
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

189 Excellent

عن العضو حسين مامون

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    حسين مامون
  • الإهتمامات
    اكسيل

وسائل التواصل

  • MSN
    assotintaleb22@hotmail.com

اخر الزوار

1,301 زياره للملف الشخصي
  1. ربما المشكلة من اعدادات اللغة في VBA او لغة الويندوز انظر اسماء الشيتات في الاكواد اذا كانت متلخبطة يعني رموز غير مفهومة فالمشكلة كما قلت لك
  2. بعد ادن استادنا احمد يوسف ربما يكون الطلب كما في الصور او استعن بهذا الماكرو Sub SplitRow1() With ActiveWindow .SplitColumn = 0 .SplitRow = 1 End With ActiveWindow.FreezePanes = True End Sub
  3. انا شغال عندي 100/100 لا اعرف سبب المشكلة عندك ربما صيغة اسم الملف الرئيسي تختلف عما في الكود جرب نسخ اسم الملف الرئيسي والصقه بين علامة التنصيص
  4. ما عليك سوى تغيير سطر في الكود السطر من MsgBox driveObject.serialnumber الى Range("a1") = driveObject.serialnumber وسينسخ في الخليةA1
  5. عليكم السلام عليك بوضع هذا الكود في جميع النسخ المحفوظة في حدث Open بحيث لما تفتح نسخة يتنفذ الكود Private Sub Workbook_Open() Workbooks("فاتورة.xlsm").Save Workbooks("فاتورة.xlsm").Close End Sub
  6. ادخل رقم البحث في textbox1 واضغط مفتاح Entr على لوحة المفاتيح testefile.xlsm
  7. استاد abosam اولا اسماء الشيتات غير موجودة في القائمة النسدلة D7 فيها اسماء اخرى ثانيا ضع بعض البيانات في الرئيسية وفي احدى الشيتات التي تريد ان ترحل اليها ـ ليفهم الاساتذة ما تريد بالضبط تحياتي
  8. عليكم السلام بدون مرفق يصعب فهم الكلام جرب المرفق Book1.xlsm
  9. المرفق بحث في نفس الملف في كل الصفحات وترحيل الى شيت.xlsm
  10. نمودج قريب للشرح في مشاركتك اتمنى ان يساعدك في طلبك m2000.xlsm
  11. ربما يكون المطلوب Sub creatB() Dim OBJECTfso Dim OBJECTfolder Dim OBJECTfils Dim ws As Worksheet Set ws = ActiveSheet ws.Range("a2:a100").ClearContents Set OBJECTfso = CreateObject("scripting.filesystemobject") Set OBJECTfolder = OBJECTfso.getfolder("C:\Users\pc\Desktop\med") ws.Cells(1, "a").Value = "the file founf in " & OBJECTfolder.Name & "Are" For Each OBJECTfils In OBJECTfolder.Files ws.Range("a" & Rows.Count).End(xlUp).Offset(1) = OBJECTfils.Name 1: Next Set OBJECTfolder = Nothing Set OBJECTfils = Nothing Set OBJECTfso = Nothing End Sub
  12. انظر وضعت نتيجة متوقعة في صفحة الارقام ادا كان هذا ما تريد فيكفي انشاء ماكرو نسخ ولصق النتيجة التي وضعتها كمثال هي نقل ارقام جديدة الى ارقام قديمة صفحة الارقام ثم نقل القيم من صفحة قيود الى صفحة الارقام في عمود ارقام جديدة بحث واستبدال متكرر (2).xlsx
  13. الاستاد عاطف ارى انك لم تبدي اي رأي حول مشاركة الاستاد محي الدين ابو البشر حاول شرح اكثر لما تريد ضع النتيجة المتوقعة في عمودين اضافيين اخرين في الصفحة الاولى والثانية
  14. جرب هذا الماكرو ربما يفي بالغرض Set ws = Sheets("الهدف") Dim lr, lr2, X Dim CH As Range Set CH = ws.Range("o2") Dim SH As Worksheet lr2 = 11 Application.ScreenUpdating = False ws.Range("c11:e11").ClearContents For Each SH In Sheets If SH.Name = "الهدف" Then GoTo 1 lr = SH.Range("c" & Rows.Count).End(xlUp).Row For X = 5 To lr If CH = SH.Cells(X, "c") Then ws.[d5] = SH.Name ws.[c7] = SH.Cells(X, "b") ws.Range("c" & lr2).Value = SH.Cells(X, "a").Value ws.Range("d" & lr2).Resize(1, 2).Value = SH.Cells(X, "c").Resize(1, 2).Value lr2 = lr2 + 1 End If Next X 1: Next SH Application.ScreenUpdating = True End Sub
×
×
  • اضف...