سلام علیکم
خواهشمند است دستورات vba جهت انجام تاریع مندرج در فایل پیوست را برایم ارائه فرمائید
کد:
Sub ggg()
Dim i As Long
For i = 1 To WorksheetFunction.CountA(Range("A:A"))
If Cells(i, 1) = Range("F2") And Cells(i, 2) = Range("G2") Then
Range("F9") = Cells(i, 1).Row
Range("G9") = Cells(i, 3)
End If
Next i
End Sub
کامنت