جون ايمن قام بنشر نوفمبر 27, 2021 مشاركة قام بنشر نوفمبر 27, 2021 فى المثال المرفق عندى اكثر من شركة واكثر من منتج اريد عندما اختار اسم الشركة يتم ترحيل البيانات الى صفحة الشركة واشكركم مقدما ترحيل.xlsx رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر نوفمبر 27, 2021 مشاركة قام بنشر نوفمبر 27, 2021 Private Sub Worksheet_Change(ByVal Target As Range) Dim sCompany As String, m As Long If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Address = "$D$5" Then sCompany = Target.Value If Evaluate("ISREF('" & sCompany & "'!A1)") Then With Sheets(sCompany) m = .Cells(Rows.Count, "D").End(xlUp).Row + 1 .Range("D" & m).Resize(1, 4).Value = Application.Transpose(Range("M7:M10").Value) MsgBox "Data Copied To [ " & .Name & " ] Worksheet", 64 End With End If End If End Sub 4 رابط هذا التعليق شارك More sharing options...
جون ايمن قام بنشر نوفمبر 27, 2021 الكاتب مشاركة قام بنشر نوفمبر 27, 2021 شكرا جدا لتعب حضرتك واستجابتك بس ممكن تنفذى الكود دة على الملف نفسة لانى بصراحة عاوز افهم وانا اللى اطبقة بعد كدة لان اللى انا عملة فى الملف دة مجرد مثل لكن الملف الاصلى اكبر من ده بكتير فحابب ان افهم الكود الاول وبعدين اطبقى وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر نوفمبر 27, 2021 مشاركة قام بنشر نوفمبر 27, 2021 Post the code in worksheet module. Right-click the sheet name then select View Code then paste the code 1 رابط هذا التعليق شارك More sharing options...
هشام جودي قام بنشر نوفمبر 30, 2021 مشاركة قام بنشر نوفمبر 30, 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.