فصلا تعديل كود الترحيل

[بلال منذر]

فصلا وليس امرا قيام بتعديل طفيف لهذا الكود ليرحل البيانات بدون رقم تسلسلي و يبدا الترحيل من خلية الاسم D15

Sub terhel()
Dim EndRow As Long
    If Sheets("ÓäÏ ÊÍÕíá").Range("B12").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("D35").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("E12").Value = "" Then
        MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ"
Else
    EndRow = Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Range("A1").CurrentRegion.Rows.Count

    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 1).Value = EndRow
    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 4).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 2).Value
    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 5).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(35, 4).Value
    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 6).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 5).Value
        Sheets("ÓäÏ ÊÍÕíá").Range("B12").ClearContents
    MsgBox prompt:="Êã ØÈÇÚÉ æ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ"
End If
    
End Sub

 

terhel.xlsm

[احمد بدره]

ممكن يكون المطلوب هكذا

terhel.xlsm

[بلال منذر]

30 دقائق مضت, ahmedkamelelsayed0 said:

ممكن يكون المطلوب هكذا

terhel.xlsm

بارك الله فيك استذنا ahmedkamelelsayed0 وجزالك الله كل الخير وزادك الله علما.

[بلال منذر]

14 ساعات مضت, bilouinfo said:

بارك الله فيك استذنا ahmedkamelelsayed0 وجزالك الله كل الخير وزادك الله علما.

بعد التحية والسلام

للأسف لم يكن المطلوب المرغوب.

-اولا هذا التعديل على الكود يرحل البيانات في المرة الاولى بشكل عادي اما في المرة الثانية فانه يرحل البيانات فقي نفس مكان البيانات السابقة المرحلة...يعنى انه لا يرحل البيانات صف بعد صف.

- ثانيا لا اريد ان استعمل الترقيم التلقائئ (.Range("A1").CurrentRegion.Rows.Count )....أريد ان يكون مكان الرقم فارغ..يعنى يرحل لي ثلاث خانات فقط...

فهل من مساعدة..

تم تعديل يوليو 30, 2018 بواسطه bilouinfo

[بلال منذر]

هل من مساعدة؟؟