ترحيل من خلايا متفرقة الى سطر واحد في ورقة اخرى

[عاطف عاطف]

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

ترحيل من خلايا متفرقة.xlsb

[lionheart]

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

 

[عاطف عاطف]

الاستاذ قلب الاسد 

بداية كل الشكر والامتنان لاهتماك 

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

في المرفق تصور عن ما اطلبه  

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

ترحيل من خلايا متفرقة 1.xlsb

[lionheart]

Try by yourself first and then write your notes. I will not waste my time with unclear topics