تحديد الصف المراد ثم ترحيلة

[heshsaom]

السلام عليكم

برجاء

كود ترحيل لصف معين فى حالة تظلية واختيارة من شيت 1ثم الضغط على زر ترحيل الى شيت10 وهكذا  صف من شيت2 وترحيلة الى الصف التالى ل شيت 10 وهكذا ................

[heshsaom]

السلام عليكم

برجاء

كود ترحيل لصف معين فى حالة تظلية واختيارة من شيت 1ثم الضغط على زر ترحيل الى شيت10 وهكذا  صف من شيت2 وترحيلة الى الصف التالى ل شيت 10 وهكذا ................

[heshsaom]

السلام عليكم

برجاء

كود ترحيل لصف معين فى حالة تظلية واختيارة من شيت 1ثم الضغط على زر ترحيل الى شيت10 وهكذا  صف من شيت2 وترحيلة الى الصف التالى ل شيت 10 وهكذا ................

[أبو حنــــين]

مرحبا

استعمل هذا الكود

Sub copyto()
Dim lr As Integer, sh As Worksheet
Set sh = Sheets("10")
With sh
If Selection.Count < 16 Then
MsgBox "التحديد غير صحيح", vbExclamation, "خطأ"
Exit Sub
Else

lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Selection.Copy
sh.Range("A" & lr).PasteSpecial (xlPasteValues)
End If
End With
Application.CutCopyMode = False
End Sub

 

[أبو حنــــين]

Sub copyto()
Dim lr As Integer, sh As Worksheet
Set sh = Sheets("10")
With sh
If Selection.Count < 16 Then
MsgBox "التحديد غير صحيح", vbExclamation, "خطأ"
Exit Sub
Else

lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Selection.Copy
sh.Range("A" & lr).PasteSpecial (xlPasteValues)
End If
End With
Application.CutCopyMode = False
End Sub

 

[أبو حنــــين]

Sub copyto()
Dim lr As Integer, sh As Worksheet
Set sh = Sheets("10")
With sh
If Selection.Count < 16 Then
MsgBox "التحديد غير صحيح", vbExclamation, "خطأ"
Exit Sub
Else

lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Selection.Copy
sh.Range("A" & lr).PasteSpecial (xlPasteValues)
End If
End With
Application.CutCopyMode = False
End Sub

هذه الجزئية يمكن الاستغناء عنها

MsgBox "التحديد غير صحيح", vbExclamation, "خطأ"

تم تعديل يونيو 23, 2016 بواسطه أبو حنــــين

[heshsaom]

اشكر شكراً جزيلاً على المساعدة وسرعة الرد 

سيدى الفاضل

هناك كودين لموديولين 

الموديول1 خاص بـ شيت تسجيل الوارد وتم عمل كود ترحيل الى جميع الشيت حسب الاسم

اما الموديول الثانى خاص بـ شيت تقرير المتابعة  فقد طلبت من سيادتك ( اننى اريد ترحيل صف معين من بعض الشيتات وذلك بشرط ان اظلل هذا الصف المراد ترحيلة الى شيت تقرير المتابعة ) ولكن عند استخدام الكود الذى تفضلت سيادتك بأرسالة لى فقد تم ترحيل عدد 3 مرات فقط وبعد ذلك كلما حاولت ترحيل اى صف من الشيتات يمسح اخر ترحيل و يرحل المختار بعد ذلك وهكذا

ومرفق لسيادتكم نموذج المراد

 

متابعة الاعمال الادارية.rar

[heshsaom]

السلام عليكم

الاخ ابو حنين يظهر انى حسدتك على سرعة الرد على و بعد الطلب الثانى لم اجد رد على حتى الان 

برجاء سرعة الرد على الطلب الثانى حتى يكتمل الموضوع