(تمت الاجابة) عمل كود يقوم بالترحيل الى نطاق محدد

[زوهير]

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

من فضللكم كود يقوم بالترحيل الى نطاق محدد في الصفحة الثانية

والمرفق يوصح ذلك

ترحيل الى نطاق محدد.rar

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

w = 3

Do Until Cells(w, 1).Value = ""

LR = Sheets("as").Cells(44, 1).End(xlUp).Row

For i = 1 To 5

If Cells(w, i).Value = "" Then

Sheets("as").Cells(LR + 1, i).Value = "(////////)"

Else

Cells(w, i).Copy

Sheets("as").Cells(LR + 1, i).PasteSpecial xlPasteValues

Sheets("as").Cells(LR + 1, i).Borders.Color = 2

Application.CutCopyMode = False

End If

Next

w = w + 1

Loop

Application.ScreenUpdating = True

End Sub

[abouelhassan]

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

احترامى وخالص دعائى والله

[زوهير]

اعذرني على الاطالة في الرد

بارك الله فيك اخي عبدالله الكود يعمل بشكل جيد

بارك الله فيك وجزاك الله خير وزادك علما يارب

[عبدالله المجرب]

اخي الفاضل ابو الحسن شكراً للتشجيع المتواصل

==

اخي زوهير

الحمدلله ان كان هذا ما طلبت

تمت الاجابة

[أبو أنس حاجب]

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

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

امدك الله بالصحة والعافية وزادك علماً على علم

أبوأنس

[عبدالله المجرب]

شكراً لك اخي ابوانس