سلام دوستان
وقتتون بخیر
دو تا جدول دارم. یکی جدول محصولات، یکی هم باقیمانده محصولات.
میخوام وقتی تو جدول محصولات، یک محصول جدید وارد میکنم، بطور خودکار این محصول جدید تو جدول باقیمانده محصولات لیست بشه.
از این کد استفاده کردم:
جدول باقیمانده از c3 شروع میشه تا i35
از خطی که قرمز کردم ایراد میگیره
ممنون میشم راهنماییک کنید.
وقتتون بخیر
دو تا جدول دارم. یکی جدول محصولات، یکی هم باقیمانده محصولات.
میخوام وقتی تو جدول محصولات، یک محصول جدید وارد میکنم، بطور خودکار این محصول جدید تو جدول باقیمانده محصولات لیست بشه.
از این کد استفاده کردم:
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 شروع میشه تا g35If 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 شروع میشه تا i35
از خطی که قرمز کردم ایراد میگیره
ممنون میشم راهنماییک کنید.