عمر طاهر قام بنشر مايو 28, 2023 مشاركة قام بنشر مايو 28, 2023 السلام عليكم ورحمة الله هل يمكن تعبئة الخلايا بالكود مثلا أدخل الرمز فيكتب الصنف بالخلية المجاورة vlookup مثلا..؟ المرفق للتعديل رجاء ولكم شكري 01.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مايو 28, 2023 أفضل إجابة مشاركة قام بنشر مايو 28, 2023 In worksheet module paste the following code Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Row > 4 And Target.Column = 1 Then x = Application.Match(Target.Value, Sheets(2).Columns(1), 0) If Not IsError(x) Then Target.Offset(, 1).Value = Sheets(2).Cells(x, 2).Value End If End If End Sub 2 رابط هذا التعليق شارك More sharing options...
عمر طاهر قام بنشر مايو 29, 2023 الكاتب مشاركة قام بنشر مايو 29, 2023 14 ساعات مضت, lionheart said: In worksheet module paste the following code Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Row > 4 And Target.Column = 1 Then x = Application.Match(Target.Value, Sheets(2).Columns(1), 0) If Not IsError(x) Then Target.Offset(, 1).Value = Sheets(2).Cells(x, 2).Value End If End If End Sub شكرا لك اخي ممنون لطفك 1 رابط هذا التعليق شارك 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.