Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy based on condition in target cell
I am not a VBA or Excel macro specialist, which is why I cannot come up
with a solution to this problem on my own. I have a spreadsheet with several thousand rows. Column G has a bunch of empty cells. I want to go down row by row and copy the contents of the cell in column F into the cell next to it in column G if the cell in column G is empty and then change the text color of the cell in column G to blue. Something like: If Gx is empty copy Fx to Gx color Gx blue The above is easy to record in a macro for one cell, but how do I write a macro that goes down all 3,000 rows and executes this? Any help would be greatly appreciated. Jesko Waniek |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy based on condition in target cell
Sub waniek()
Dim MyLastRow As Long Dim MyRange As Range Dim StartRow As Long Dim MyRow As Long Dim rDest As Range Dim i As Long MyLastRow = Cells(40000, 7).End(xlUp).Row Set MyRange = Range("a1:k" & MyLastRow) i = 1 Do While i < MyLastRow If Range("g" & i) = "" Then Set rDest = Range("g" & i) MyRow = i Range("f" & MyRow).Copy Destination:=rDest rDest.Font.ColorIndex = 5 End If i = i + 1 Loop End Sub On Jan 31, 6:11 pm, JWaniek wrote: I am not a VBA or Excel macro specialist, which is why I cannot come up with a solution to this problem on my own. I have a spreadsheet with several thousand rows. Column G has a bunch of empty cells. I want to go down row by row and copy the contents of the cell in column F into the cell next to it in column G if the cell in column G is empty and then change the text color of the cell in column G to blue. Something like: If Gx is empty copy Fx to Gx color Gx blue The above is easy to record in a macro for one cell, but how do I write a macro that goes down all 3,000 rows and executes this? Any help would be greatly appreciated. Jesko Waniek |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy and Paste based on Condition | Excel Discussion (Misc queries) | |||
Copy range based on condition | Excel Programming | |||
copy cell based on condition where row numbers are not the same. | Excel Programming | |||
Copy Row based on a condition | Excel Worksheet Functions | |||
How to copy only some rows from range based on condition? | Excel Programming |