| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify row based on criteria and copy paste special values only
On Jul 20, 3:59*pm, Per Jessen wrote:
Hi As far as I can tell, it is doing what it is supposed to do. Bold the selected line and substitute formulas in same line with constant values. But the code will run a bit faster if you skip the select statements: For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row * * If Cells(i, 7) = "" Then * * * * With Rows(i) * * * * * * .Font.Bold = True * * * * * * .Copy * * * * * * .PasteSpecial Paste:=xlPasteValues, _ * * * * * * * * Operation:=xlNone, SkipBlanks _ * * * * * * * * :=False, Transpose:=False * * * * End With * * End If Next i Application.CutCopyMode = False Hopes this helps. ... Per On 20 Jul., 21:41, wrote: I've got the following code that does select the correct row and bolds it, but it's not doing the copy and paste special.....can anyone help me out on this? * * For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row * * * * If Cells(i, 7) = "" Then * * * * * * Rows(i).Select * * * * * * Selection.Font.Bold = True * * * * * * Selection.Copy * * * * * * Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * * * * :=False, Transpose:=False * * * * End If * * Next i- Hide quoted text - - Show quoted text - Thank you! |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy - Paste Special (Values) | Excel Programming | |||
| Copy & Paste Special Using Values | Excel Programming | |||
| copy paste special values | Excel Programming | |||
| Dynamic Copy/Paste Special Formulas/Paste Special Values | Excel Programming | |||
| Complex identify values then cut/copy/paste query | Excel Programming | |||
Threaded Mode
