كود ترحيل على اساس شرطين

[۩◊۩ أبو حنين ۩◊۩]

فى شيت TODAY  يتم جلب البيانات فى العمود  C من ملف اخر

المطلوب عمل كود ترحيل  يتم على اساسة  ترحيل البيانات من شيت TODAY من الخلايا من C3   الى  C 25

مع متغيرين

1. الخليه  B1 هو اسم الشيت المراد الترحيل اليه
2. مثال اذا كان B1 )  =  2015 يتم الترحيل الى شيت 2015 )
3. الخليه C1   هو اليوم المراد الترحيل اليه فى شيت 2015
4. مع عدم تكرار الترحيل اذا تم النرحيل

ارجو ان تكون الصوره واضحه

Data.rar

[رجب جاويش]

السلام عليكم

أخى الفاضل

جرب هذا الكود

ولكن يجب تعديل تواريخ الأيام فى باقى الصفحات بحيث يكون مثل صفحة 2015

Sub ragab()
Dim cl As Range
Application.ScreenUpdating = False
T = Range("B1").Text
On Error Resume Next
Set Rng = Sheets(T).Range("C2:ND2")
For Each cl In Rng
    If Range("c2") = cl Then
        x = cl.Column
        Range("C3:C35").Copy
        Sheets(T).Cells(3, x).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Exit For
    End If
Next
Application.ScreenUpdating = True
End Sub

حيث أن الكود يعمل تمام عند الترحيل الى صفحة 2015

 

Data.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب  والمعلم ... رجب جاويش

سلمت يداك بكل خير

جارى تجربه الملف