تعديل علي كود

[جلال محمد]

اخواني الكرام 

السلام عليكم 

مرفق ملف به كود ترحيل للاستاذ ( عبد الله باقشير ) 

يقوم بترحيل الغياب الي الصفحة الثانية 

انا اريد ان يقوم بالترحيل الي الملف  ( book1 ) 

فما التغير المطلوب علي الكود 

شكرا لكم 

New folder.rar

[جلال محمد]

سبحان الله وبحمدة ..... سبحان الله العظيم

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

السلام عليكم

 

يجب ان يكون الملف book1 مفتوح

جرب الكود التالي

Sub kh_Start()
Dim Cel As Range
Dim Adr As String
Dim r As Integer, rr As Integer
On Error GoTo 1
Adr = [J3]
For Each Cel In Range("C6:C12")
    rr = Val(Cel)
    If rr Then
        With Workbooks("Book1").Sheets("Sheet1")
            With .Range(Adr).Cells(rr, Columns.Count).End(xlToLeft)
                .Offset(0, 1).Value = Cel.Offset(0, 2).Value
            End With
        End With
    End If
    
Next
MsgBox "تم الترحيل بنجاح"
1:
End Sub

تحياتي

[جلال محمد]

أخي الكريم عبد الله 

جزاك الله خيرا علي سرعة الرد .... وفعلا هو المطلوب 

ولكن لي طلب أخر علي الملف المرفق ... والطلب موضح بالمرفق 

وشكرا جزيلا لك 

New folder.rar

[جلال محمد]

اخي الكريم عبد الله 

العمود المرحل متغير المكان ..... فهل يمكن وضع امكانية في الكود الاختيار العمود المرحل ؟؟

وشكرا لك

[جلال محمد]

السلام عليكم

هل يمكن التعديل في الكود يمكنني من اختيار العمود المرحل ؟؟؟

[وليد زقزوق]

هل يوجد صيغة لمعادلة IFتتعامل مع الوان الخلايا والوان الخطوط

[جلال محمد]

اخواني الكرام 

اريد التحكم في اختيار العمود الذي يتم ترحيلة ... كما في المثال المرفق

وشكرا لكم

 

New folder.rar

[جلال محمد]

سبحان الله ... والحمد الله .... ولااله الا الله .... والله اكبر

[جلال محمد]

اخواني الكرام 

السلام عليكم 

الحمد الله توصلت الي الحل 

احيانا الواحد دماغة بتكون ( فاصلة شحن )

اليكم الملف

 

ترحيل الي ملف.rar