Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copying selective data
I'm trying to ensure I dont undully copy empty cells. I have several hundred
Vehicals arriving per week, at present I'm allowing 1700 lines per week for these vehicles. however over the week I may only receive 1400. When working with a 5 week period the calculations can take forever. How can I only copy the values of the actual entries. My simple code: Range("EQ10:EQ10000").Select Selection.Copy Range("EX10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False The caluculation can then be alligned to this: Regards |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copying selective data
Maybe
Lastrow = Cells(Rows.Count, "EQ").End(xlUp).Row Range("EQ10:EQ" & Lastrow).Copy Range("EX10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False "leerem" wrote: I'm trying to ensure I dont undully copy empty cells. I have several hundred Vehicals arriving per week, at present I'm allowing 1700 lines per week for these vehicles. however over the week I may only receive 1400. When working with a 5 week period the calculations can take forever. How can I only copy the values of the actual entries. My simple code: Range("EQ10:EQ10000").Select Selection.Copy Range("EX10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False The caluculation can then be alligned to this: Regards |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copying selective data
Sub leerem()
Set r1 = Range("EX10:EX10000") r1.Clear n = Cells(Rows.Count, "EQ").End(xlUp).Row Set r1 = Range("EQ10:EQ" & n) r1.Copy Range("EX10").PasteSpecial Paste:=xlPasteValues End Sub -- Gary''s Student - gsnu200797 "leerem" wrote: I'm trying to ensure I dont undully copy empty cells. I have several hundred Vehicals arriving per week, at present I'm allowing 1700 lines per week for these vehicles. however over the week I may only receive 1400. When working with a 5 week period the calculations can take forever. How can I only copy the values of the actual entries. My simple code: Range("EQ10:EQ10000").Select Selection.Copy Range("EX10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False The caluculation can then be alligned to this: Regards |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copying selective data
Many thanks that works great
"Mike H" wrote: Maybe Lastrow = Cells(Rows.Count, "EQ").End(xlUp).Row Range("EQ10:EQ" & Lastrow).Copy Range("EX10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False "leerem" wrote: I'm trying to ensure I dont undully copy empty cells. I have several hundred Vehicals arriving per week, at present I'm allowing 1700 lines per week for these vehicles. however over the week I may only receive 1400. When working with a 5 week period the calculations can take forever. How can I only copy the values of the actual entries. My simple code: Range("EQ10:EQ10000").Select Selection.Copy Range("EX10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False The caluculation can then be alligned to this: Regards |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formula to sum selective data. | Excel Discussion (Misc queries) | |||
Charting selective data | Excel Discussion (Misc queries) | |||
Charting Selective Data | Charts and Charting in Excel | |||
Selective extraction of data | Excel Discussion (Misc queries) | |||
Need help merging selective data | Excel Discussion (Misc queries) |