نسخ وترحيل

[أيهاب ممدوح]

ارجوا من الاخوة الافاضل

ارجوا دمج كود التحويل مع كود النسخ وترحيل معا في كود واحد

ترحيل رقم السند و اسم الفرع المحول منه و اسم الفرع المحول اليه والتاريخ والكميه واسم الصنف في الجدول الموجود في نفس الشيت

شكرا

[أيهاب ممدوح]

هذا ملف اخر يعمل كود التحويل بين الفرع بشكل جيد من خلال صفحه الحويل ولكن اريد تن ازيد علي الكود نسخ البيانات للتحويل في شكل كشف كما موضح في صفحه التحويل

كلما اضغط علي النقل يدرج التحول في الفروع كما هو ويدرج البيانات في الكشف في اول صف فارغ

شكرا

مرفق

[أيهاب ممدوح]

رفع

[أيهاب ممدوح]

الاخوة الكرام

ارجوا ضم الكودين في كود واحد شكرا

Sub Button286_Click()

Dim x1, i As Integer

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="ehab123"

Columns("d:iq").EntireColumn.Hidden = True

If ActiveSheet.Shapes("Drop Down 6").ControlFormat.Value = 33 Then

Columns("d:iq").EntireColumn.Hidden = False

Range("d6").Select

ElseIf ActiveSheet.Shapes("Drop Down 6").ControlFormat.Value = 32 Then

For i = 11 To 251 Step 8

Cells(1, i).EntireColumn.Hidden = False

Next

Range("k6").Select

Else

x1 = ActiveSheet.Shapes("Drop Down 6").ControlFormat.Value

Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _

Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1 + 7)).EntireColumn.Hidden = False

Cells(6, ((x1 - 1) * 5) + x1 * 3 + 1).Select

End If

ActiveSheet.Protect Password:="ehab123"

End Sub

Sub copy()

Range("g2").copy Range("ah" & [ah1000].End(xlUp).Row + 1)

Range("c3").copy Range("ai" & [ai1000].End(xlUp).Row + 1)

Range("c4").copy Range("aj" & [aj1000].End(xlUp).Row + 1)

Range("g4").copy Range("ak" & [ak1000].End(xlUp).Row + 1)

Range("g3").copy Range("al" & [al1000].End(xlUp).Row + 1)

Range("c5").copy Range("am" & [am1000].End(xlUp).Row + 1)

End Sub

[أيهاب ممدوح]

للرفع

[أيهاب ممدوح]

شكر ا الاخوة الاحباء

[أيهاب ممدوح]

شكرا

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

[الـعيدروس]

الحمد لله