ترحيل بدون تكرار

[mahmoud hamza]

اريد الترحيل من الشيت main بدون حذف البيانات منه وبدون التكرار فى الشيتات الاخرى

المطلوب داخل المرفق .. ارجو المساعدة الضرورية اخوانى لان الموضوع هام جدا جدا

أجندة محامى (Autosaved).xlsm

تم تعديل سبتمبر 29, 2018 بواسطه mahmoud hamza

[Ali Mohamed Ali]

تفضل اخى الكريم

 

أجندة محامى (Autosaved).xlsm

[mahmoud hamza]

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

 كيف يمكن اضافه شيتات جديدة وتكون على هذا المنوال

اريد ترحيل العمود k - L بتنسيق short date

عمل رائع جزاك الله كل خير

 

تم تعديل سبتمبر 29, 2018 بواسطه mahmoud hamza

[Ali Mohamed Ali]

Option Explicit
Sub TARHIL()
Dim Sh As String
Dim i As Integer
Dim AA As Integer
'======================================================
Application.ScreenUpdating = False
Sheets("جنح").Range("A2:O1000").ClearContents
Sheets("مدنى").Range("A2:O1000").ClearContents 
'يمكنك فى هذا الجزء اضافة اى شيت اخر جديد على نفس هذه الطريقة الموجودة
'======================================================
For i = 2 To Cells(10000, "A").End(xlUp).Row
    Sh = Cells(i, "D").Value
    AA = Sheets(Sh).Cells(10000, 1).End(xlUp).Row + 1
    If AA < 2 Then AA = 2
    On Error Resume Next
    Range(Cells(i, "A"), Cells(i, "O")).Copy
    Sheets(Sh).Range("A" & AA).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 1
Next i
Application.ScreenUpdating = True
MsgBox "تم الترحيل بنجاح"
End Sub

 

 

تم تعديل سبتمبر 29, 2018 بواسطه ali mohamed ali

[mahmoud hamza]

جزاك الله كل خير .. هو المطلوب تمام

اريد ترحيل العمود K - L بتنسيق short date

وهل توجد امكانية الترحيل على هذا المنوال بأول كلمة فى نص .. بدلاً من ان تكون كلمة واحدة فى كل خلية

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

 

تم تعديل سبتمبر 29, 2018 بواسطه mahmoud hamza

[Ali Mohamed Ali]

'واذا اردت الترحيل من العمود K : L فقط
'عليك بتغيير هذا الصف فى الكود
Range(Cells(i, "A"), Cells(i, "O")).Copy
'وجعله هكذا
Range(Cells(i, "K"), Cells(i, "L")).Copy

 

[mahmoud hamza]

لا يا سيدى اريد نفس كود الترحيل هذا ولكن العمودين K - l فقط يتم ترحيلهم بتنسيق تاريخ

واذا اردت انا اضيف اعمده جديدة اقوم بالتعديل فى الجزء اللى حضرتك بعته