Elsayed A Eldiasty قام بنشر أبريل 18, 2021 مشاركة قام بنشر أبريل 18, 2021 اريد اظهار ناتج الخلية K6 من صفحة العميل عند اختيار اسم العميل من الخلية H6 في شيت كشف الحساب واظهار ناتج الخلية K6 في الخلية D16 في شيت كشف حساب فاتورة حساب العملاء.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أبريل 19, 2021 أفضل إجابة مشاركة قام بنشر أبريل 19, 2021 السلام عليكم ورحمة الله استخدم هذا الكود Sub GetData() Dim ws As Worksheet, Sh As Worksheet Dim ShNam As String, Arr As Variant, XSum As Double Dim i As Long, j As Long Set ws = Sheets("كشف حساب") ws.Range("B9:L14").ClearContents ShNam = ws.Range("H6").Text Set Sh = Sheets(ShNam) XSum = Sh.Range("K6").Value Arr = Sh.Range("B11:L" & Sh.Range("K" & Rows.Count).End(xlUp).Row).Value ws.Range("B9").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr ws.Range("D16") = XSum End Sub 2 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أبريل 19, 2021 مشاركة قام بنشر أبريل 19, 2021 السلام عليكم ورحمة الله اذا كنت لا تريد عمل زر لتنفيذ الكود يمكنك وضع هذا الكود فى حدث الورقة "كشف حساب" Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$6" Then Call GetData End Sub 1 رابط هذا التعليق شارك More sharing options...
Elsayed A Eldiasty قام بنشر أبريل 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.