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

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

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!

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

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!