محمد عدنان قام بنشر أكتوبر 2, 2021 مشاركة قام بنشر أكتوبر 2, 2021 السلام عليكم ممكن المساعدة بماكرو تقل اسماء الطلبة على نموذج الغياب و تيكون النقل من خلال قائمة باسماء الشعب و شكرا غياب الطلبة 111.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر أكتوبر 2, 2021 أفضل إجابة مشاركة قام بنشر أكتوبر 2, 2021 Sub Test() Dim x, ws As Worksheet, sh As Worksheet, s As String, m As Long Application.ScreenUpdating = False Set ws = Worksheets(1) Set sh = Worksheets(2) sh.Range("B7:B" & Rows.Count).ClearContents s = sh.Range("AI3").Value If s = "" Then MsgBox "Select Grade First", vbExclamation: Exit Sub x = Application.Match(s, ws.Rows(1), 0) If IsError(x) Then MsgBox "No Data For This Grade", vbExclamation: Exit Sub m = ws.Cells(Rows.Count, x).End(xlUp).Row If m < 4 Then MsgBox "No Data", vbExclamation: Exit Sub sh.Range("B7").Resize(m - 3).Value = ws.Cells(4, x).Resize(m - 3).Value Application.ScreenUpdating = True End Sub 4 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر أكتوبر 3, 2021 الكاتب مشاركة قام بنشر أكتوبر 3, 2021 شكرا لك جزاك الله كل خير 3 رابط هذا التعليق شارك 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.