Hi friends,
my requirement is to copy from one sheet to another sheet with paste special values but its not working in my code.
Please suggest me where i am missing and the below is the code.
For Each Cell In Worksheets("semi (2)").Range("b13:b22")
If IsEmpty(Cell) = True Then
MsgBox "All posted"
Else
Range("c4").Copy Worksheets("all Sale").Cells(nextrow, 1)
Range("p4").Copy Worksheets("all Sale").Cells(nextrow, 2)
Range("l6").Copy Worksheets("all Sale").Cells(nextrow, 3)
Range("l10").Copy Worksheets("all Sale").Cells(nextrow, 4)
Cell.Copy Worksheets("all Sale").Cells(nextrow, 5)
Dim a As Integer
a = Cell.Row
Cells(a, 5).Copy Worksheets("all Sale").Cells(nextrow, 6)
Cells(a, 6).Copy Worksheets("all Sale").Cells(nextrow, 7)
Cells(a, 7).Copy Worksheets("all Sale").Cells(nextrow, 8)
Cells(a, 8).Copy Worksheets("all Sale").Cells(nextrow, 9)
Cells(a, 9).Copy Worksheets("all Sale").Cells(nextrow, 10)
Cells(a, 10).Copy Worksheets("all Sale").Cells(nextrow, 11)
Cells(a, 11).Copy Worksheets("all Sale").Cells(nextrow, 12)
Cells(a, 12).Copy Worksheets("all Sale").Cells(nextrow, 13)
Cells(a, 13).Copy Worksheets("all Sale").Cells(nextrow, 14)
Cells(a, 14).Copy Worksheets("all Sale").Cells(nextrow, 15)
Cells(a, 15).Copy Worksheets("all Sale").Cells(nextrow, 16)
Cells(a, 16).Copy Worksheets("all Sale").Cells(nextrow, 17)
Cells(a, 17).Copy Worksheets("all Sale").Cells(nextrow, 18)
nextrow = nextrow + 1
End If
Next
Bookmarks