اذهب الي المحتوي
أوفيسنا

حسين مامون

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,280

  • تاريخ الانضمام

  • Days Won

    6

 نوع المحتوي 

مشاركات المكتوبه بواسطه حسين مامون

    اضافة في كود الترحيل

    في منتدى الاكسيل Excel

    قام بنشر

    ربما تقصد هذا  

    Sub TrData()
Dim ws As Worksheet, Detl As Worksheet
Dim LR, LR1 As Long, p As Long, A As Long, C As Range
Set ws = Sheets("قاعدة البيانات")
Set Detl = Sheets("بيان")
LR = Detl.Range("H" & Rows.Count).End(3).Row
For Each C In ws.Range("E2:E" & ws.Range("E" & Rows.Count).End(3).Row)
A = WorksheetFunction.CountIf(Detl.Range("H2:H" & LR), C)
If A = 0 Then
Detl.Range("H" & LR + 1).Offset(p).Resize(12) = C
Detl.Range("I" & LR + 1).Offset(p).Resize(12) = C.Offset(, 1)
p = p + 12
End If
Next
End Sub

     

    • Thanks 1

    ترحيل مع عدم تغيير الاسم

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    اخي الكريم لايمكن للجميع فهم طلبك كما فهمته انت وضعت شرح في الشيت ولكن بالنسبة لي لم افهمه 

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

    تحياتي :gift2:

×
×
  • اضف...

Important Information

  I accept