با سلام
فایل پیوست را بررسی کنید (در هنگام باز شدن Update Link را انتخاب کنید)
کد PHP:
Sub TEST()
On Error Resume Next
T = 0
xx = Sheet1.Range("Table1[[#Headers],[äÇã]]").End(xlDown).Row
For I = 1 To xx
If Sheets("report").Range("D6") = Sheet1.Range("BH" & I) Then
Y = Sheet1.Range("BH" & I).Row
T = 1
Exit For
End If
Next
yy = Sheet1.Range("b4", Sheet1.Range("b4").End(xlToRight)).Count - 2
Sheets("report").Range("E10:F" & yy).ClearContents
K = 10
If T = 1 Then
For J = 2 To yy
If Sheet1.Cells(Y, J) > 0 Then
Sheets("report").Range("E" & K) = Sheet1.Cells(3, J)
Sheets("report").Range("F" & K) = Sheet1.Cells(Y, J)
K = K + 1
End If
Next
End If
End Sub
علاقه مندی ها (Bookmarks)