اظهار ناتج الخلية K6 في الخلية D16 في شيت كشف حساب

[Elsayed A Eldiasty]

 

اريد اظهار ناتج الخلية K6 من صفحة العميل عند اختيار اسم العميل من الخلية H6 في شيت كشف الحساب واظهار ناتج الخلية K6 في الخلية D16 في شيت كشف حساب

فاتورة حساب العملاء.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

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

 

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اذا كنت لا تريد عمل زر لتنفيذ الكود

يمكنك وضع هذا الكود فى حدث الورقة "كشف حساب"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$6" Then Call GetData
End Sub

 

[Elsayed A Eldiasty]

شكرا جدا لحضرتك الكود اشتغل وتمام