طلب مساعدة في تعديل الكود الذي لا يعمل

[hamdy eldeep]

برجاء المساعدة في تعديل هذا الكود الذي لا يعمل

ولكم كل الشكرgosh.xlsm

[سليم حاصبيا]

الكود الصحيح

Sub button1_click()
Dim last_E As Integer
Dim last_L As Integer
Dim col%
last_E = Sheets("entry").Cells(Rows.Count, "K").End(3).Row
last_L = Sheets("list").Cells(Rows.Count, 1).End(3).Row + 1

col = 15
 Sheets("list").Cells(last_E, 1).Resize(last_E - 2, col).Value = _
 Sheets("entry").Cells(3, "K").Resize(last_E - 2, col).Value
End Sub

hamdy.xlsm

[hamdy eldeep]

استاذي الفاضل جهد مشكور وعمل جيد

لكن هناك تعديل صغير الرجاء النظر في الملف المرفق

hamdy.xlsm

[سليم حاصبيا]

هذا الكود

Sub button1_click()
Dim last_E%
Dim last_L%
Dim col%, i%
Dim E As Worksheet
Dim L As Worksheet
Set E = Sheets("entry")
Set L = Sheets("list")
last_E = E.Cells(Rows.Count, "L").End(3).Row
last_L = L.Cells(Rows.Count, 2).End(3).Row + 2
col = 15
For i = 3 To last_L
If Application.CountA(E.Cells(i, "L").Resize(, col - 1)) <> 0 Then
  L.Cells(last_E, 2).Resize(, col - 1).Value = _
  E.Cells(last_E, "L").Resize(, col - 1).Value
End If
Next
E.Range("L3:y" & last_E) = vbNullString

End Sub

 

[hamdy eldeep]

استاذي العزيز اسف جدا لكثرة الطلبات انا اعتبر الصفحة entry  مدحلات يومية

والصفحة list سجل لحصر الحالات السنوية 

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

برجاء التعديل حتي يكون كل المرحل محفوظ في تقرير سنوي 

عاجز عن شكر حضرتك

وبكرر اسفي لكثرة الطلبات

[hamdy eldeep]

انا بذكر حضرتك برسالة امس .. كان الله في عونك

استاذي العزيز اسف لحضرتك 

شكرا