ترحيل مختصر من ورقة 1 الى صفحة اخى محددة بالمرفق

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل

السلام عليكم ورحمة الله وبركاته وبعد

امل المساعدة في الترحيل كما في الملف المرفق :

ترحيل من h10 :i10 في ورقة 1 الى ورقة (الامانات ) a: b ترحيل من K10 :L 10في ورقة 1 الى ورقة (الامانات ) a: c

تحياتي

book12.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Sub ALIDROOS_S()

With ورقة1

Q = .Range("A2").End(xlDown).Row + 1

.Range("A" & Q & ":B" & Q).Value = Range(Cells(10, "H"), Cells(10, "I")).Value

.Range("A" & Q + 1).Value = Cells(10, 11).Value

.Range("C" & Q + 1).Value = Cells(10, 12).Value

End With

End Sub

وهذا كود اخر

Sub ALIDROOS()

With ورقة1.Columns(1).Rows(2).End(xlDown)

.Offset(1, 0) = [H10]: .Offset(1, 1) = [I10]

.Offset(2, 0) = [K10]: .Offset(2, 2) = [L10]

End With

End Sub

اختار مايحلو لك

تم تعديل ديسمبر 31, 2011 بواسطه alidroos

[skyblue]

شكرا استاذي العبدروس على الحل .

وكل عام وانتم بالف خير