سلام و عرض ادب خدمت دوستان،
برای فیلتر اطلاعات یك جدول، از یه همچین فرمولی استفاده میكنم
Private Sub PARDAKHTHA_KOD()
LastRow = Sheets("DARAMAD").Range("AB:AG").Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastrow_2 = Sheets("GOZARESH").Range("AQ:AU").Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To LastRow
If Sheets("DARAMAD").Range("AC" & i).Value = Sheets("gozaresh").Range("AC2") Then
lastrow_2 = lastrow_2 + 1
Sheets("GOZARESH").Range("AQ" & lastrow_2).Value = Sheets("DARAMAD").Range("AB" & i).Value
Sheets("GOZARESH").Range("AR" & lastrow_2).Value = Sheets("DARAMAD").Range("AD" & i).Value
End If
Next i
End Sub
حالا مشكل اینه كه میخوام ستون ردیف (مثلا ستون AA)، متناسب با مقدار دادههای وارد شده، شمارهگذاری بشه، این كار رو با فرمول توی اكسل نمیخوام انجام بدم، لطفا راهنمایی بفرمایید
برای فیلتر اطلاعات یك جدول، از یه همچین فرمولی استفاده میكنم
Private Sub PARDAKHTHA_KOD()
LastRow = Sheets("DARAMAD").Range("AB:AG").Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastrow_2 = Sheets("GOZARESH").Range("AQ:AU").Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To LastRow
If Sheets("DARAMAD").Range("AC" & i).Value = Sheets("gozaresh").Range("AC2") Then
lastrow_2 = lastrow_2 + 1
Sheets("GOZARESH").Range("AQ" & lastrow_2).Value = Sheets("DARAMAD").Range("AB" & i).Value
Sheets("GOZARESH").Range("AR" & lastrow_2).Value = Sheets("DARAMAD").Range("AD" & i).Value
End If
Next i
End Sub
حالا مشكل اینه كه میخوام ستون ردیف (مثلا ستون AA)، متناسب با مقدار دادههای وارد شده، شمارهگذاری بشه، این كار رو با فرمول توی اكسل نمیخوام انجام بدم، لطفا راهنمایی بفرمایید