ترحيل بيانات

[الشيباني1]

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

Book1.zip

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

السلام عليكم

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

بكود الحدث:

Private Sub Worksheet_Activate()

KH_START

End Sub

وهذا الكود المعني بالاستدعاء

Sub KH_START()

Dim S As String

Dim R As Integer, RR As Integer, C As Integer, CC As Integer

S = ActiveSheet.Name

Application.ScreenUpdating = False

Range("J5:M2000" ).ClearContents

With ورقة1

    For R = 5 To .Range("K2000").End(xlUp).Row

        If .Cells(R, "K") = S Then

            RR = RR + 1

            For C = 1 To 4

                CC = Choose(C, 10, 12, 13, 14)

                Cells(RR + 4, C + 9) = .Cells(R, CC)

            Next C

        End If

    Next R

End With

Application.ScreenUpdating = True

End Sub

تفضل المرفق

استدعاء الى اوراق العمل.rar

[الشيباني1]

استاذنا العزيز رائع كعادتك دائما اشكرك وادامك الرحمن لنا مرجعا

[الشيباني1]

أستاذنا العزيز مع تقديري واحترامي هل بالامكان تعديل الكود ليتقبل الغاء اية بيانات من صفحات الوكلاء عند الغاءها من الصفحة الرئيسيه (بعد ترحيلها حتما") مع الامتنان

[احمد فضيله]

بارك الله فيك

[احمد فضيله]

tofimoon4 فكرتك حلوة بالنسبة لموضوع الالغاء

بس الكود فعلا بيعمل اللى انت عايزه

[الشيباني1]

اخي العزيز انا شويه غيرت بالكود مسحت السطر السادس فقط واشتغل جيدجدا