بازگرداندن مقادیر و ردیف با استفاده از vba

[khorasan66]

سلام علیکم
خواهشمند است دستورات vba جهت انجام تاریع مندرج در فایل پیوست را برایم ارائه فرمائید

[kazamie]

سلام علیکم
خواهشمند است دستورات 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