با سلام
ميشه اشكال كار اين ماكرو رو بهم بگين؟
فقط كپي ميكنه. عمل پيست انجام نميشه
ممنون
کد HTML:
Sub rep()
On Error Resume Next
Dim c
Dim i
i = 0
For i = 2 To 10 Step 2
If Val(Sheet1.Range("a" & i).Value) > 1300 Then
Sheet1.Range("a" & i, "d" & i).Select
Selection.Copy
Exit For
Dim d As Range
For Each d In Sheet2.Range("a2:a10")
If d.Value = "" Then
Sheets("sheet2").Select
Range(d).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Exit For
End If
Next d
End If
Next i
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)