Hi, I'm using this code to move any text from Col K to Col H. I want only
the text that is moved to Col H to be in red text, but when I use code to
accomplish this, the entire column text is red. Any idea on how I could just
have the text that is moved be red? Thanks

Sub MovePayments()

' Move payments from column K (11) to column H (8)

Application.DisplayAlerts = False

Set rng = Columns(11).SpecialCells(xlConstants)
For Each cell In rng
Cells(cell.Row, "H").Value = cell.Value
Next
rng.ClearContents


End Sub

I had success by doing it with your original code adding
Cells(cell.Row, "H").Font.ColorIndex = 3
in the for next loop and going into the options dialog box selecting
edit and disabling the extend lists and formats and formulas.



ploddinggaltn wrote:
> Hi, I'm using this code to move any text from Col K to Col H. I want only
> the text that is moved to Col H to be in red text, but when I use code to
> accomplish this, the entire column text is red. Any idea on how I could just
> have the text that is moved be red? Thanks
>
> Sub MovePayments()
>
> ' Move payments from column K (11) to column H (8)
>
> Application.DisplayAlerts = False
>
> Set rng = Columns(11).SpecialCells(xlConstants)
> For Each cell In rng
> Cells(cell.Row, "H").Value = cell.Value
> Next
> rng.ClearContents
>
>
> End Sub

Sub MovePayments()
' Move payments from column K (11) to column H (8)

Application.DisplayAlerts = False

Set rng = Columns(11).SpecialCells(xlConstants)
For Each cell In rng
Cells(cell.Row, "H").Value = cell.Value
Next
rng.ClearContents
rng.Offset(0, -2).Interior.ColorIndex = 3

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"ploddinggaltn" <(E-Mail Removed)> wrote in message
news:3A02C97F-463E-49B0-95FB-(E-Mail Removed)...
> Hi, I'm using this code to move any text from Col K to Col H. I want only
> the text that is moved to Col H to be in red text, but when I use code to
> accomplish this, the entire column text is red. Any idea on how I could
just
> have the text that is moved be red? Thanks
>
> Sub MovePayments()
>
> ' Move payments from column K (11) to column H (8)
>
> Application.DisplayAlerts = False
>
> Set rng = Columns(11).SpecialCells(xlConstants)
> For Each cell In rng
> Cells(cell.Row, "H").Value = cell.Value
> Next
> rng.ClearContents
>
>
> End Sub