elsedik قام بنشر يناير 16, 2013 مشاركة قام بنشر يناير 16, 2013 عندما يتم ترحيل الفاتورة الى الصحفة رقم 2 اريد يتم ترحيل بيانات الفاتورة بمقدار بنود تفاصيل الفاتورة مرفق ملف ترحيل فاتورة .rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 16, 2013 مشاركة قام بنشر يناير 16, 2013 السلام عليكم تفضل هذا الكود مختصر وبسيط يقوم بما طلبت Sub invoice_in() Dim Z As Integer, Y As Integer If Sheet5.[C12] = Empty Or Sheet5.[E12] = Empty Then MsgBox " من فضلك ادخل البيانات " Exit Sub End If ''''''''''''''''''''''''''''''''''''' If MsgBox("هل تريد ادخال البيانات", vbYesNo, lifesoft) = vbNo Then Exit Sub ''''''''''''''''''''''''''''''''''''' Z = Sheet2.Range("a3500").End(xlUp).Row + 1 Y = Application.WorksheetFunction.CountA(Sheet5.[C17:C36]) ''''''''''''''''''''''''''''''''''''' Application.ScreenUpdating = False With Sheet2 .Range("A" & Z).Resize(Y, 6).Value = Array([C12], [C14], [E12], [E14], [I12], [I14]) .Range("G" & Z).Resize(Y, 9).Value = Range("B17").Resize(Y, 9).Value .Range("P" & Z).Resize(Y, 3).Value = Array([J39], [J40], [J41]) End With Application.ScreenUpdating = True ''''''''''''''''''''''''''''''''''''' End Sub في امان الله رابط هذا التعليق شارك More sharing options...
elsedik قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 استاذ/ عبد الله باقشير جزاك الله كل خير على هذا الكود الرائع على قدمت من معلومات لمحبي الاكسل فى هذا المنتدى الفاضل رابط هذا التعليق شارك More sharing options...
elsedik قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 ممكن كود لاستدعاء الفاتورة وتعديلة اسف جدا على طلباتى الكيثرة رابط هذا التعليق شارك More sharing options...
اسلام سيد قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 اخى الكريم راجع هذا الرابط ربما يساعدك http://www.officena.net/ib/index.php?showtopic=41982&hl=%2B%D8%AA%D8%B1%D8%AD%D9%8A%D9%84+%2B%D8%A7%D9%84%D9%81%D8%A7%D8%AA%D9%88%D8%B1%D8%A9 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.