كود يستدعى البيانات مع وضع البيانات المستدعاة اسفل المعيار الخاص بها

[اسامه مجدى]

السلام عليكم و رحمة الله و بركاتة

مرفق ملف به كود يستدعى البيانات مع وضع البيانات المستدعاة اسفل المعيار الخاص بة

المشكلة فى ان الكود يقوم باستدعاء جزء من البيانات وليس كل البيانات

برجاء المساعدة فى تصحيح الكود

جزاكم الله خيراً

كود يستدعى البيانات مع وضع البيانات المستدعاة اسفل المعيار الخاص بها.rar

[عبدالله باقشير]

السلام عليكم

تم تعديل السطر الثامن من الكود

With Sheets("Sheet3").Cells(300, lastcol).End(xlUp)

===============================================

Private Sub CommandButton4_Click()

For lastcol = 1 To Sheet3.Cells(1, Sheet3.Columns.Count).End(xlToLeft).Column

         If Cells(1, lastcol).Value > "0" Then

            For x = 1 To Sheets.Count

                If Sheets(x).Name = "Sheet3" Then Exit For

                If Sheets(x).Name = Cells(1, lastcol).Text Then

                    For r = 1 To Sheets(x).[a300].End(xlUp).Row

                        With Sheets("Sheet3").Cells(300, lastcol).End(xlUp)

                            .Offset(1, 0) = Sheets(x).Cells(r, 1)

                            .Offset(1, 1) = Sheets(x).Cells(r, 2)

                        End With

                    Next r

                End If

            Next x

        End If

    Next lastcol

End Sub

شاهد المرفق

استدعاء بيانات مع وضع البيانات المستدعاة اسفل المعيار الخاص بها.rar

[محمدي عبد السميع]

جزاك الله خيرا

وبارك لك

[اسامه مجدى]

السلام عليكم و رحمة الله و بركاتة

جزاك الله خيرا يا استاذ خبور خير

و الحمد لله الذى وهبنا خبور خير

استاذ نتعلم منه الكثير

جزاك الله خيرا