خوب کارو برای خودتون سخت کردید ، اینطوری بنویسید راحتره
کد PHP:
Private Sub CommandButton1_Click()
lastrow = Sheet1.Range("a:h").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastrow_2 = Sheet2.Range("a:d").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
For i = 2 To lastrow
If ((Sheet1.Range("d" & i).Value = "80") And (Sheet1.Range("d" & i).Offset(0, 2).Value = "ÏÇÑÏ") And (Sheet1.Range("d" & i).Offset(0, 4).Value = "ÏÇÔÊå")) Then
lastrow_2 = lastrow_2 + 1
Sheet2.Range("b" & lastrow_2).Value = Sheet1.Range("d" & i).Value
Sheet2.Range("c" & lastrow_2).Value = Sheet1.Range("d" & i).Offset(0, 2).Value
Sheet2.Range("d" & lastrow_2).Value = Sheet1.Range("d" & i).Offset(0, 4).Value
End If
Next i
End Sub
علاقه مندی ها (Bookmarks)