تعديل الكود

[هدي ياسمين]

أريد مساعدة منكم وجزاكم الله خيرااا

ارفق ملف test يوجد كود macro على شيت main  ارجوا تعديل هذا الكود بحيث يوجد صورة  رقم 1  ادخل فيها البيانات  وعند  الضغط على زر الترحيل  يظهر صورة رقم 2

صورة رقم 3  ادخال أكثر من سطر وعند الضغظ على زر الترحيل يظهر صورة رقم 4

كل عام وجميع منتدى اوفيسنا بخير اعادالله علينا وعليكم باليمن والبركات

test1.xlsm

[أ / محمد صالح]

لا أدري ما سبب تكرار المواضيع

حسب فهمي للمطلوب تم تعديل الكود ليقوم بنفس الترحيل حتى لو أكثر من صف

يمكن وضع هذا الكود في مودبول جديد

Sub tarheel()
lr = Range("a4").End(xlDown).Row

Set Sh = Sheets.Add

With ActiveSheet
    .Move after:=Sheets(Sheets.Count)
    .Name = Sheets.Count - 1
    .Range("A1:P12").Borders.Weight = xlMedium
    .Range("A1:P12").HorizontalAlignment = xlCenter

    With .Cells(1).Resize(1, 16)
        .Value = Array("ITEM NUMBER", "ITEM DESC", "QUANTITY", "UNIT PRICE", "TOTAL", "WHSE", "ACOUNT CODE", "BUSINESS UNIT", "DEPARTMENT", "WORK CENTER", "FLOCK", "ÚÏÏ ÇáØÈÇáí", "æÒä ÇáØÈíáÉ ", "ÚÏÏ 0.9", "", "ÚÏÏ 1.34")
        .Interior.ColorIndex = 53
        .Font.Bold = True
        .Font.Color = vbWhite
    End With

Dim sh1 As Worksheet
Set sh1 = Sheets("main")

For n = 5 To lr
lr2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Range("A" & lr2) = sh1.Range("E" & n).Value
    .Range("C" & lr2) = sh1.Range("f" & n).Value
    .Range("D" & lr2) = sh1.Range("E" & n).Value
    .Range("F" & lr2 & ":K" & lr2).Value = Array("DAT010", "1141000022", "JP-PROD.", "JP-WIPDP", "JP-WIPWC", "Flock_4")
    .Range("N" & lr2) = sh1.Range("c" & n).Value
    .Range("P" & lr2) = sh1.Range("a" & n).Value + sh1.Range("b" & n).Value
    .Columns("A:P").EntireColumn.AutoFit
Next n

End With

End Sub

مع حذف الكود في حدث عند تغيير قيم الشيت main

مع ربط الزر بالماكرو الجديد tarheel

بالتوفيق

[هدي ياسمين]

من لا يشكر الناس لا يشكر الله، وأنتم جميعاً تستحقون الشكر والثناء، فلولاكم لم يكن منتدى يصل إلى الأفضل ، ولولا جهودكم لما كان للنجاح أي وصول ولما تحققت الأهداف، فأنتم أساس رفعة هذه المنتدى وأساس تقدُّمه، وأنتم من يحمل شعلة النجاح والتطور، فشكراً لكم وإلى الأمام دائماً.

تم تنفيذ المطلوب 

الاخ العزيز محمد صالح يوجد تكرار على كل ضغط عمليه ترحيل اي 

عند ضغط على الترحيل يقوم بالترحيل سواء صف أو أكثر تمام 

ولكن ارجوا ان يكون بدون تكرار الترحيل اي يظهر رساله تم الترحيل مسبقا يعمل فصل بين الصف المرحل أو أكثر من صف  عند ادخال اي بيانات جديده على الجدول عند الضغط على الترحيل