اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

الردود الموصى بها

 

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

InkedWhatsApp Image 2021-04-18 at 9.06.38 PM (1)_LI.jpg

InkedWhatsApp Image 2021-04-18 at 9.06.38 PM_LI.jpg

InkedWhatsApp Image 2021-04-18 at 9.06.39 PM_LI.jpg

فاتورة حساب العملاء.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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information