Copy and Paste Between 2 sheets

Mar 14th, 2002, 07:47 PM

I have 2 Sheets ,Sheet("Graph") and Sheet("Main") I used this command but it quite long because it have to go between Graph and Main do you have anyidea to improve this ?
If Range("K16").Value <> "-" then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
If Range("K17").Value <> "-" then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
If Range("K18").Value <> "-" then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
........
........
............. many many

Thanks

Ivan F Moala · Mar 14th, 2002, 08:07 PM

Dim oCell As Range

For Each oCell In Range("K16:K25")
If oCell.Value <> "-" Then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
Next

ivan

Mar 15th, 2002, 12:46 AM

Thanks..

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 14th, 2002, 07:47 PM	#1
Guest Posts: n/a	I have 2 Sheets ,Sheet("Graph") and Sheet("Main") I used this command but it quite long because it have to go between Graph and Main do you have anyidea to improve this ? If Range("K16").Value <> "-" then Sheets("Graph").Range("AR5").Copy Sheets("Graph").Cells(i + 1, 44).PasteSpecial End If If Range("K17").Value <> "-" then Sheets("Graph").Range("AR5").Copy Sheets("Graph").Cells(i + 1, 44).PasteSpecial End If If Range("K18").Value <> "-" then Sheets("Graph").Range("AR5").Copy Sheets("Graph").Cells(i + 1, 44).PasteSpecial End If ........ ........ ............. many many Thanks

Mar 14th, 2002, 08:07 PM	#2
Ivan F Moala MrExcel MVP Join Date: Feb 2002 Location: Auckland, New Zealand Posts: 4,209	Dim oCell As Range For Each oCell In Range("K16:K25") If oCell.Value <> "-" Then Sheets("Graph").Range("AR5").Copy Sheets("Graph").Cells(i + 1, 44).PasteSpecial End If Next ivan