حسونة حسين

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

تمام كده مظبوط هل وضعت هذه الفاتورة الثالثه في نفس الفولدر الذي ارسلته لك في الملف المضغوط أم ماذا صنعت هل هذه الفاتورة ضمن الفولدر الذي في ملف المضغوط ام في مكان اخر اخى الكريم الكود به اسم الفولدر هو ( فواتير ) كما بالصورة التاليه كل ما هو بفولدر فواتير بمجرد تشغيل الكود سوف يجلبه لك اخى الكريم

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم طلبك ان شاء الله Monthly Summery.zip

اخى الكريم جرب هذا المعادله =IFERROR(INDEX(BLF!$B$2:$B$7684;SMALL(IF(BLF!$A$2:$A$7684=$C$7;IF(BLF!$D$2:$D$7684=$F$10;IF(BLF!$F$2:$F$7684="P";(ROW($A$2:$A$300)-ROW($A$2)+1);"what is the value you want for false")));ROWS($C$13:C13)));"") ضع مكان هذه العباره "what is the value you want for false" ضع جواب الشرط لو كانت النتيجة false ولو مش عايز تكتب فيها شرط تفضل هذه المعادله =IFERROR(INDEX(BLF!$B$2:$B$7684;SMALL(IF(BLF!$A$2:$A$7684=$C$7;IF(BLF!$D$2:$D$7684=$F$10;IF(BLF!$F$2:$F$7684="P";(ROW($A$2:$A$300)-ROW($A$2)+1))));ROWS($C$13:C13)));"")

وعليكم السلام ورحمة الله وبركاته الملف يفتح بدون طلب رقم سري

اقفل الملف اللى انت شايف كتابته غريبه (ملف pdf ) بدون حفظ واستخدم هذا الكود Private Sub Command1_Click() Dim strFile As String strFile = Application.GetOpenFilename() Textbox5.txt = strFile End Sub

وعليكم السلام ورحمة الله وبركاته تفضل هذا الموضوع به شرح مستفيض لما تريد للاستاذة ساجده

وعليكم السلام ورحمة الله وبركاته جرب هذا الكود اخى الكريم Private Sub Command1_Click() Dim strFile As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) Textbox5.txt = strFile End Sub

وعليكم السلام ورحمة الله وبركاته استبدل هذه الجمله ThisWorkbook.Path & "\" الى "E:\"

وعليكم السلام ورحمة الله وبركاته لا تدعم جداول بيانات في جوجل vba ما يدعمه تطبيق "جداول البيانات" هو عمل وظائف جافا سكريبت مثل وحدات الماكرو. تحقق من ذلك لمزيد من المعلومات حول وحدات ماكرو جافا سكريبت هنا

اخى الكريم هذا الفيديو للاستاذة ساجده يوضح لك كيف وضع علامه مائيه في الاكسل رابط الفيديو هنا والعلامه المائيه الخاصه بالملف pdf

السلام عليكم ورحمة الله وبركاته يمكنك الاستفادة من هذا الموضوع

Birth as variant حضرتك كاتبها خطأ veriant

الحمد لله الذي بنعمته تتم الصالحات وفيك بارك اخى الكريم

تم التحويل عن طريق موقع اسمه ilovepdf

الشكر لله والحمد لله الذي بنعمته تتم الصالحات

وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات

خطوة ١ ازاله الفلتر من الخليه N6 خطوة عمل تحديد لجميع خلايا الشيت مثل مكان الماوس في هذه الصورة ثم كليك يمين واختيار row height ثم كتابه الرقم وليكن ٢٣ وهو ارتفاع الصف عندك في الصفوف السابقه

السلام عليكم ورحمة الله وبركاته تفضل اخى الكريم Book5-1.xlsx

الحمد لله الذي بنعمته تتم الصالحات

تفضل اخى الكريم لعله ما تريد ترويسةالعوري.docx

الحمد لله الذي بنعمته تتم الصالحات بالتوفيق ان شاء الله

هذه المتغيرات كانت في كودك ليس لها بالنسبه لي استخدام في الكود بهذا الشكل

تفضل اخى الكريم Dim strDate As String, strTime As String Dim filePath As String Dim ws As Worksheet Dim i As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then For Each ws In ThisWorkbook.Worksheets For Each f In ws.Range("a2:a" & cells(Rows.Count, "A").End(xlUp).Row) If f = ListBox1.List(i, 0) Then f.Offset(0, 3).Value = "ايقاف" f.Offset(0, 4).Value = Date Exit For End If Next f Next ws End If Next i i = Empty Application.Calculation= xlCalculationAutomatic Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True

اخى نزل الملف مره اخرى تم تعديله او انسخ الكود مره اخرى Sub Test() Dim SH As Worksheet, WS As Worksheet, SHLR As Long, WSLR As Long, CEL As Range Application.DisplayAlerts = False Application.EnableEvents = False Set WS = ThisWorkbook.Worksheets("Total") For Each SH In Worksheets If SH.Name <> "Total" Then With SH SHLR = SH.Cells(Rows.Count, 4).End(xlUp).Row + 1 For Each CEL In SH.Range("D14:D" & SHLR) If CEL.Value <> Empty Then WSLR = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row + 1 WS.Range("A" & WSLR) = SH.Range("I14") WS.Range("B" & WSLR) = SH.Range("L14") WS.Range("C" & WSLR) = CEL.Value End If Next CEL End With End If Next SH Application.DisplayAlerts = True Application.EnableEvents = True End Sub