ترحيل

[مراد بديار]

ترحيل

ترحيل.rar

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

السلام عليكم

 

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

Sub Macro1()

With ورقة2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9"))
End With

ورقة1.Range("F4:F9").ClearContents
MsgBox " تم الترحيل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله"
End Sub

تحياتي

[مراد بديار]

السلام عليكم

 

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

Sub Macro1()

With ورقة2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9"))
End With

ورقة1.Range("F4:F9").ClearContents
MsgBox " تم الترحيل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله"
End Sub

تحياتي

ارجوا التوضيح على الملف المرفق

[مراد بديار]

 

السلام عليكم

 

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

Sub Macro1()

With ورقة2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9"))
End With

ورقة1.Range("F4:F9").ClearContents
MsgBox " تم الترحيل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله"
End Sub

تحياتي

ارجوا التوضيح على الملف المرفق

 

اريد عدم اضافة حقل جديد بل من الموجود فقط

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

السلام عليكم

جرب التالي

Sub kh_Start()
Dim M As Long
On Error GoTo 1
M = WorksheetFunction.Match(ورقة1.[F4], ورقة2.Range("A2:A10000").Value, 0)

With ورقة2.Cells(1, "A").End(xlUp).Offset(M, 0)
    .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9"))
End With

ورقة1.Range("F4:F9").ClearContents
MsgBox " تم التعديل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله"
1:
If Err Then MsgBox "استخدام خاطىء": Err.Clear
End Sub

تحياتي

[رجب جاويش]

استاذى الحبيب / عبد الله باقشير

بسم الله ما شاء الله

ابداعات لا تنتهى تصل الى المطلوب من أقصر وأذكى الطرق

 

 

ولإثراء الموضوع

هذا حل آخر على خطى أستاذى الحبيب

 

ترحيل1.rar

[مراد بديار]

استاذى الحبيب / عبد الله باقشير

بسم الله ما شاء الله

ابداعات لا تنتهى تصل الى المطلوب من أقصر وأذكى الطرق

 

 

ولإثراء الموضوع

هذا حل آخر على خطى أستاذى الحبيب

مشكور اخي

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

اخي الحبيب رجب جاويش