G
Guest
Guest
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
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