Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Shorting code
Is there a way to short this code?
Sub AddingClients() Dim Startcell As Range Dim shtOffset As Integer Set Startcell = shtClient.Range("b2") shtOffset = shtClient.Range("a1").Value Startcell.Offset(shtOffset, 0) = shtInput.Range("c16") Startcell.Offset(shtOffset, 1) = shtInput.Range("c4") Startcell.Offset(shtOffset, 2) = shtInput.Range("c15") Startcell.Offset(shtOffset, 3) = shtInput.Range("c17") Startcell.Offset(shtOffset, 4) = shtInput.Range("c18") Startcell.Offset(shtOffset, 5) = shtInput.Range("c5") Startcell.Offset(shtOffset, 6) = shtInput.Range("c9") Startcell.Offset(shtOffset, 7) = shtInput.Range("c10") Startcell.Offset(shtOffset, 8) = shtInput.Range("c11") Startcell.Offset(shtOffset, 9) = shtInput.Range("c20") Startcell.Offset(shtOffset, 10) = shtInput.Range("c21") Startcell.Offset(shtOffset, 11) = shtInput.Range("c23") Startcell.Offset(shtOffset, 12) = shtInput.Range("c25") Startcell.Offset(shtOffset, 13) = shtInput.Range("c26") Startcell.Offset(shtOffset, 14) = shtInput.Range("c29") Startcell.Offset(shtOffset, 15) = shtInput.Range("c30") Startcell.Offset(shtOffset, 16) = shtInput.Range("c31") Startcell.Offset(shtOffset, 17) = shtInput.Range("c32") End Sub -- Wag more, bark less |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Shorting the Code | Excel Programming | |||
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
operator statements, shorting when reusing one of the statements? | Excel Programming |