Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
i need a macro to read blank cells
i need a macro to check all blank cells in column E then move what is in
column D in the same row into that cell if the coresponding cell in column D is blank tehn we use wahtever value is in the C column. please make it simple with tons of comments as am new to macros and would like to write my own macros. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
i need a macro to read blank cells
Anthony
Try this Sub findBlanksInE() 'Assign a variable to hold last row number Dim lLastRow As Long 'Assign a variable to hold the range object Dim myCell As Range 'Find the last row in column E by going to bottom/up lLastRow = Range("E65536").End(xlUp).Row 'iterate each cell (myCell) in the defined range For Each myCell In Range("E1:E" & lLastRow) 'If the cell is blank "" If myCell = "" Then 'If the cell, offset one column Left(D) is not blank If myCell.Offset(0, -1).Value < "" Then myCell.Value = myCell.Offset(0, -1).Value Else 'If cell, offset 1 column left IS blank, use two columns left (C) myCell.Value = myCell.Offset(0, -2).Value End If End If 'Loop to next cell Next myCell End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England DTHIS www.nickhodge.co.uk "anthony" wrote in message ... i need a macro to check all blank cells in column E then move what is in column D in the same row into that cell if the coresponding cell in column D is blank tehn we use wahtever value is in the C column. please make it simple with tons of comments as am new to macros and would like to write my own macros. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
i need a macro to read blank cells
Sub movefromcold()
For Each c In Range("c2:c10").SpecialCells(xlBlanks) c.Offset(, 1).Cut c Next End Sub -- Don Guillett SalesAid Software "anthony" wrote in message ... i need a macro to check all blank cells in column E then move what is in column D in the same row into that cell if the coresponding cell in column D is blank tehn we use wahtever value is in the C column. please make it simple with tons of comments as am new to macros and would like to write my own macros. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
i need a macro to read blank cells
DOES THIS MACRO COPY THE VALUES FROM THE D (OR C) COLUMNS INTO THE E COLUMN OR DOES IT MOVE THEM. COZ I NEED TO MOVE THEM (NOT COPY) |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
i need a macro to read blank cells
Please don't SHOUT. It is considered to be very bad netiquette and will not
make you friends here. Did you not see my post? Even if Nicks just did a copy, you can always then delete or clear contents of the un-needed column. Sub movefromcold() For Each c In Range("d2:d100").SpecialCells(xlBlanks) c.Offset(, 1).Cut c Next End Sub -- Don Guillett SalesAid Software "anthony" wrote in message ... DOES THIS MACRO COPY THE VALUES FROM THE D (OR C) COLUMNS INTO THE E COLUMN OR DOES IT MOVE THEM. COZ I NEED TO MOVE THEM (NOT COPY) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using a Macro to paste into Blank Cells | Excel Worksheet Functions | |||
Generating truly blank cells | Excel Worksheet Functions | |||
enter numbers in blank cells | Excel Worksheet Functions | |||
Counting blank and filled cells within a range. | Excel Discussion (Misc queries) | |||
Macro to omit blank cells needed | Excel Worksheet Functions |