Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify row based on criteria and copy paste special values only
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify row based on criteria and copy paste special values only
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, S Himmelrich 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify row based on criteria and copy paste special values only
Hi there,
Copy and paste the following: Sub HighlightAndCopy() Dim sht As Worksheet, i As Long Set sht = ThisWorkbook.Worksheets("Sheet1") With sht 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 End With End If Next i Application.CutCopyMode = False End With End Sub -- A. Ch. Eirinberg "S Himmelrich" 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify row based on criteria and copy paste special values only
On Jul 20, 4:07*pm, Howard31
wrote: Hi there, Copy and paste the following: Sub HighlightAndCopy() * * Dim sht As Worksheet, i As Long * * Set sht = ThisWorkbook.Worksheets("Sheet1") * * With sht * * * * 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 * * * * * * * * End With * * * * * * End If * * * * Next i * * * * Application.CutCopyMode = False * * End With End Sub -- A. Ch. Eirinberg "SHimmelrich" 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! |
#5
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! |
Reply |
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 |