hamdy eldeep قام بنشر يناير 14, 2021 مشاركة قام بنشر يناير 14, 2021 برجاء المساعدة في تعديل هذا الكود الذي لا يعمل ولكم كل الشكرgosh.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 14, 2021 مشاركة قام بنشر يناير 14, 2021 الكود الصحيح 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 1 رابط هذا التعليق شارك More sharing options...
hamdy eldeep قام بنشر يناير 16, 2021 الكاتب مشاركة قام بنشر يناير 16, 2021 استاذي الفاضل جهد مشكور وعمل جيد لكن هناك تعديل صغير الرجاء النظر في الملف المرفق hamdy.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 16, 2021 مشاركة قام بنشر يناير 16, 2021 هذا الكود 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 1 رابط هذا التعليق شارك More sharing options...
hamdy eldeep قام بنشر يناير 16, 2021 الكاتب مشاركة قام بنشر يناير 16, 2021 استاذي العزيز اسف جدا لكثرة الطلبات انا اعتبر الصفحة entry مدحلات يومية والصفحة list سجل لحصر الحالات السنوية الكود بيرحل صف واحد في صف واحد ولا يسمح بتعدد الحالات في السجل السنوي برجاء التعديل حتي يكون كل المرحل محفوظ في تقرير سنوي عاجز عن شكر حضرتك وبكرر اسفي لكثرة الطلبات رابط هذا التعليق شارك More sharing options...
hamdy eldeep قام بنشر يناير 19, 2021 الكاتب مشاركة قام بنشر يناير 19, 2021 انا بذكر حضرتك برسالة امس .. كان الله في عونك استاذي العزيز اسف لحضرتك شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.