عاطف عاطف قام بنشر أكتوبر 2, 2021 مشاركة قام بنشر أكتوبر 2, 2021 السادة الاعزاء : ارجو ان يتسع صدركم لمساعدتي في هذا البرنامج ارغب : بترحيل محتوى الخلايا الخضراء الى ورقة ( مجمع اوامر الصرف ) - وهنا يتم ذكر رقم امر المستند مكرر في اسطر ورقة المجمع حسب الخلايا الممتلئة في ورقة واجهة الادخال - مع الشكر الجزيل لكل الجهود ترحيل من خلايا متفرقة.xlsb رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر أكتوبر 2, 2021 مشاركة قام بنشر أكتوبر 2, 2021 Sub Test() Dim ws As Worksheet, sh As Worksheet, n As Long, r As Long Application.ScreenUpdating = False Set ws = Worksheets(2) Set sh = Worksheets(3) n = sh.Cells(Rows.Count, 2).End(xlUp).Row + 1 For r = 8 To 13 If ws.Cells(r, 1).Value <> "" Then sh.Cells(n, 2).Resize(1, 3).Value = Array(ws.Range("D4").Value, ws.Range("H4").Value, ws.Range("D5").Value) sh.Cells(n, 5).Value = ws.Cells(r, 1).Value sh.Cells(n, 6).Resize(1, 3).Value = ws.Cells(r, 4).Resize(1, 3).Value sh.Cells(n, 9).Value = ws.Cells(r, 8).Value sh.Cells(n, 10).Value = ws.Range("C18").Value sh.Cells(n, 11).Value = ws.Range("C19").Value sh.Cells(n, 12).Value = ws.Range("A21").Value sh.Cells(n, 13).Value = ws.Range("D21").Value sh.Cells(n, 14).Value = ws.Range("F21").Value sh.Cells(n, 15).Value = ws.Range("H21").Value sh.Cells(n, 16).Value = ws.Range("I21").Value sh.Cells(n, 17).Value = ws.Range("C36").Value sh.Cells(n, 18).Value = ws.Range("C37").Value sh.Cells(n, 19).Value = ws.Range("I36").Value n = n + 1 End If Next r Application.ScreenUpdating = True End Sub 2 رابط هذا التعليق شارك More sharing options...
عاطف عاطف قام بنشر أكتوبر 2, 2021 الكاتب مشاركة قام بنشر أكتوبر 2, 2021 الاستاذ قلب الاسد بداية كل الشكر والامتنان لاهتماك ربما لم اتمكن من التعبير عن ما اريده بشكل واضح في المرفق تصور عن ما اطلبه وفي كل الحالات ومهما كان الرد اشكرك مرة اخرى وهذا ليس بغريب عن اخلاقك العالية ترحيل من خلايا متفرقة 1.xlsb 1 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر أكتوبر 3, 2021 مشاركة قام بنشر أكتوبر 3, 2021 Try by yourself first and then write your notes. I will not waste my time with unclear topics رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان