ساعدونى فى الترحيل

[عفاف جمال]

هل يمكن ترحيل الاسماء الملونة بالاصفر فى شيت 1 وشيت 2 الى ورقة شيت3 مع العلم اريد عند الترحيل ان تحذف الاسماء التى رحلت من شيت 1 و2 ويتم ذللك وكانها غير موجودة من الاصل

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

Book1.rar

[konafa4000]

السلام عليكم ،،،

اسف جدأ لقد حاولت ولم انجح؟

اعتقد أن اخواننا بالمنتدى سيفدوننا (جزاهم الله خيرا)

konafa4000

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

السلام عليكم

Option Explicit



Sub Kh_Sh_Name_Data()

Dim S

For Each S In Array("Sheet1", "Sheet2")

    Kh_Call_Data CStr(S)

Next

End Sub


---------------------------------

Sub Kh_Call_Data(Sh_Name As String)

Dim X As Range

Dim r As Integer, n As Integer

n = Range("A10000").End(xlUp).Row

With Worksheets(Sh_Name)

    For r = 2 To .Range("A10000").End(xlUp).Row

        If .Range("A" & r).Interior.ColorIndex = 6 Then

            n = n + 1

            Range("A" & n).Resize(1, 3).Value = .Range("A" & r).Resize(1, 3).Value

            If X Is Nothing Then Set X = .Rows(r) Else _

            Set X = Union(X, .Rows(r))

        End If

    Next

End With

If Not X Is Nothing Then X.Delete

End Sub

يمكنك تغيير اسماء الاوراق المستدعى منها البيانات او اضافة اسماء اخرى بجانب الموجود في السطر الثالث هنا

Array("Sheet1", "Sheet2")

خبور خير

استدعاء بيانات من اوراق معينة مع حذف المرحل.rar

[عفاف جمال]

اشكرك اخى خبور على الجهد الطيب والبذزل معى وجعللك الله دائما زخرا للمنتدى وارجو منك طلب بسيط وهو عمل طريقة لتصحيح التسلسل فى شيت 1 و 2 و 3 بعد الترحيل الذى حدث للبيانات

[عفاف جمال]

شكرك اخى خبور على الجهد الطيب والبذزل معى وجعللك الله دائما زخرا للمنتدى وارجو منك طلب بسيط وهو عمل طريقة لتصحيح التسلسل فى شيت 1 و 2 و 3 بعد الترحيل الذى حدث للبيانات

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

السلام عليكم

شكرك اخى خبور على الجهد الطيب والبذزل معى وجعللك الله دائما زخرا للمنتدى وارجو منك طلب بسيط وهو عمل طريقة لتصحيح التسلسل فى شيت 1 و 2 و 3 بعد الترحيل الذى حدث للبيانات

شيت 1 و 2

اعملي معادلة في العمود A لارجاع التسلسل

=ROW()-1

اما الشيت 3

فتم تعديل الكود

استدعاء بيانات من اوراق معينة مع حذف المرحل.rar

[عفاف جمال]

اللهم اجزه عنى خيرا جزاك الله خيرا ورمضان كريم