| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can i avoid mutiple copy pasting of this code ?
Sub Dates()
If Worksheets("Inductions Update Page").Range("c8") < "" Then Worksheets("Print & Shading Page").Range("C8") = _ Worksheets("Induction Frequency Page").Range("C8") + _ Worksheets("Inductions Update Page").Range("C8") Else Worksheets("Induction Update Page").Range("C9") = "" End If If Worksheets("Inductions Update Page").Range("c9") < "" Then Worksheets("Print & Shading Page").Range("C9") = _ Worksheets("Induction Frequency Page").Range("C9") + _ Worksheets("Inductions Update Page").Range("C9") Else Worksheets("Induction Update Page").Range("C9") = "" End If End Sub I need to do the above coding to all cells the the range of (C8:R30) Is there an easier way other than how i have began, that being each step range changed to the next cell? Corey.... |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Can i avoid mutiple copy pasting of this code ?
Corey,
Something like this ? Dim Cell As Range Dim PSP As Worksheet Dim IFP As Worksheet Set PSP = Worksheets("Print & Shading Page") Set IFP = Worksheets("Induction Frequency Page") For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30") With Cell If .Value < "" Then PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value End If End With Next There's no point in this line: Worksheets("Induction Update Page").Range("C9") = "" because you are already checking that it is < "". NickHK "Corey" wrote in message ... Sub Dates() If Worksheets("Inductions Update Page").Range("c8") < "" Then Worksheets("Print & Shading Page").Range("C8") = _ Worksheets("Induction Frequency Page").Range("C8") + _ Worksheets("Inductions Update Page").Range("C8") Else Worksheets("Induction Update Page").Range("C9") = "" End If If Worksheets("Inductions Update Page").Range("c9") < "" Then Worksheets("Print & Shading Page").Range("C9") = _ Worksheets("Induction Frequency Page").Range("C9") + _ Worksheets("Inductions Update Page").Range("C9") Else Worksheets("Induction Update Page").Range("C9") = "" End If End Sub I need to do the above coding to all cells the the range of (C8:R30) Is there an easier way other than how i have began, that being each step range changed to the next cell? Corey.... |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Can i avoid mutiple copy pasting of this code ?
Thanks Nick,
Are you saying that i need to still enter MULTIPLE entries or this code: __________________________________________________ ___ sub dates() Dim Cell As Range Dim PSP As Worksheet Dim IFP As Worksheet Set PSP = Worksheets("Print & Shading Page") Set IFP = Worksheets("Induction Frequency Page") For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30") With Cell If .Value < "" Then PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value End If End With Next End Sub __________________________________________________ ___ you posted is ALL i need? Corey.... "NickHK" wrote in message ... Corey, Something like this ? Dim Cell As Range Dim PSP As Worksheet Dim IFP As Worksheet Set PSP = Worksheets("Print & Shading Page") Set IFP = Worksheets("Induction Frequency Page") For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30") With Cell If .Value < "" Then PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value End If End With Next There's no point in this line: Worksheets("Induction Update Page").Range("C9") = "" because you are already checking that it is < "". NickHK "Corey" wrote in message ... Sub Dates() If Worksheets("Inductions Update Page").Range("c8") < "" Then Worksheets("Print & Shading Page").Range("C8") = _ Worksheets("Induction Frequency Page").Range("C8") + _ Worksheets("Inductions Update Page").Range("C8") Else Worksheets("Induction Update Page").Range("C9") = "" End If If Worksheets("Inductions Update Page").Range("c9") < "" Then Worksheets("Print & Shading Page").Range("C9") = _ Worksheets("Induction Frequency Page").Range("C9") + _ Worksheets("Inductions Update Page").Range("C9") Else Worksheets("Induction Update Page").Range("C9") = "" End If End Sub I need to do the above coding to all cells the the range of (C8:R30) Is there an easier way other than how i have began, that being each step range changed to the next cell? Corey.... |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Can i avoid mutiple copy pasting of this code ?
Got it, does the lot in a one-r.
You just saved me a hell of a lot a data code entry thanks Corey.... "Corey" wrote in message ... Thanks Nick, Are you saying that i need to still enter MULTIPLE entries or this code: __________________________________________________ ___ sub dates() Dim Cell As Range Dim PSP As Worksheet Dim IFP As Worksheet Set PSP = Worksheets("Print & Shading Page") Set IFP = Worksheets("Induction Frequency Page") For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30") With Cell If .Value < "" Then PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value End If End With Next End Sub __________________________________________________ ___ you posted is ALL i need? Corey.... "NickHK" wrote in message ... Corey, Something like this ? Dim Cell As Range Dim PSP As Worksheet Dim IFP As Worksheet Set PSP = Worksheets("Print & Shading Page") Set IFP = Worksheets("Induction Frequency Page") For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30") With Cell If .Value < "" Then PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value End If End With Next There's no point in this line: Worksheets("Induction Update Page").Range("C9") = "" because you are already checking that it is < "". NickHK "Corey" wrote in message ... Sub Dates() If Worksheets("Inductions Update Page").Range("c8") < "" Then Worksheets("Print & Shading Page").Range("C8") = _ Worksheets("Induction Frequency Page").Range("C8") + _ Worksheets("Inductions Update Page").Range("C8") Else Worksheets("Induction Update Page").Range("C9") = "" End If If Worksheets("Inductions Update Page").Range("c9") < "" Then Worksheets("Print & Shading Page").Range("C9") = _ Worksheets("Induction Frequency Page").Range("C9") + _ Worksheets("Inductions Update Page").Range("C9") Else Worksheets("Induction Update Page").Range("C9") = "" End If End Sub I need to do the above coding to all cells the the range of (C8:R30) Is there an easier way other than how i have began, that being each step range changed to the next cell? Corey.... |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Can i avoid mutiple copy pasting of this code ?
Corey:
FYI,, The "For Each" keywords indicate a looping of all elements of a collection, which in this case are Cells C8 to R30 (23 rows 16 cols) all 368 of them. "Corey" wrote in message : Thanks Nick, Are you saying that i need to still enter MULTIPLE entries or this code: __________________________________________________ ___ sub dates() Dim Cell As Range Dim PSP As Worksheet Dim IFP As Worksheet Set PSP = Worksheets("Print & Shading Page") Set IFP = Worksheets("Induction Frequency Page") For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30") With Cell If .Value < "" Then PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value End If End With Next End Sub __________________________________________________ ___ you posted is ALL i need? Corey.... "NickHK" wrote in message ... Corey, Something like this ? Dim Cell As Range Dim PSP As Worksheet Dim IFP As Worksheet Set PSP = Worksheets("Print & Shading Page") Set IFP = Worksheets("Induction Frequency Page") For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30") With Cell If .Value < "" Then PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value End If End With Next There's no point in this line: Worksheets("Induction Update Page").Range("C9") = "" because you are already checking that it is < "". NickHK "Corey" wrote in message ... Sub Dates() If Worksheets("Inductions Update Page").Range("c8") < "" Then Worksheets("Print & Shading Page").Range("C8") = _ Worksheets("Induction Frequency Page").Range("C8") + _ Worksheets("Inductions Update Page").Range("C8") Else Worksheets("Induction Update Page").Range("C9") = "" End If If Worksheets("Inductions Update Page").Range("c9") < "" Then Worksheets("Print & Shading Page").Range("C9") = _ Worksheets("Induction Frequency Page").Range("C9") + _ Worksheets("Inductions Update Page").Range("C9") Else Worksheets("Induction Update Page").Range("C9") = "" End If End Sub I need to do the above coding to all cells the the range of (C8:R30) Is there an easier way other than how i have began, that being each step range changed to the next cell? Corey.... |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel 2002: How to avoid pasting blanks ? | Excel Discussion (Misc queries) | |||
| Pasting into mutiple cells | Excel Discussion (Misc queries) | |||
| Help! Trying to avoid cut & pasting! | Excel Programming | |||
| Pasting mutiple paragraph text into a single cell | Excel Discussion (Misc queries) | |||
| how to avoid merging when pasting multiple ranges | Excel Programming | |||
Linear Mode
