اضافه شدن خودکار مقدار در جدول با توجه به داده جدید در یک جدول دیگر

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • M.ALINEJAD
    • 2020/09/07
    • 1
    • 56.00

    پرسش اضافه شدن خودکار مقدار در جدول با توجه به داده جدید در یک جدول دیگر

    سلام دوستان
    وقتتون بخیر
    دو تا جدول دارم. یکی جدول محصولات، یکی هم باقیمانده محصولات.
    میخوام وقتی تو جدول محصولات، یک محصول جدید وارد میکنم، بطور خودکار این محصول جدید تو جدول باقیمانده محصولات لیست بشه.
    از این کد استفاده کردم:
    Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Sheet1.Range("Product")) Is Nothing Then
    Dim newTableSize As Range
    Set newTableSize = Sheet1.ListObjects("Product").Range
    Sheet3.ListObjects("Remain").Resize Range("c3:i" & Range("c" & Rows.Count).End(xlUp).Row)
    End If


    End Sub
    جدول محصولاتم از c3 شروع میشه تا g35
    جدول باقیمانده از c3 شروع میشه تا i35
    از خطی که قرمز کردم ایراد میگیره
    ممنون میشم راهنماییک کنید.
چند لحظه..