Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
check for non-blank cells in Microsoft Excel VBA Programming
I am working on a macro in Microsoft Excel 2000 vba.
I want to concatenate the two cells to the left of it. This is what I have so far: ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-1])" Range("E4").Select Selection.AutoFill Destination:=Range("E4:E6") Range("E4:E6").Select Range("E7").Select End Sub How do I run the same macro, but have it check to the cell left of it? If the cell to the left of it has a value in it, I want it to concatenate. If the cell is a *null* or *blank cell*, I want the sub to stop. How do I do it? Thank you in advance for your help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
check for non-blank cells in Microsoft Excel VBA Programming
Hi rhodyma
try this Sub h() If ActiveCell.Offset(0, -1) "" Then ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-1])" Range("E4").AutoFill Destination:=Range("E4:E6") Range("E7").Select Else Exit Sub End If End Sub if activecell = Range("E4") then cange it to Range("E4") .Offset(0, -1) "" Then Range("E4").FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-1])" Regards Yngve |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Check for Non Blank and Blank Cells Before Save | Excel Discussion (Misc queries) | |||
How to check for blank cells with formula | Excel Discussion (Misc queries) | |||
Using Vlookup and IF statements to check for blank cells | Excel Worksheet Functions | |||
check for two blank cells before populating a 3rd. | Excel Worksheet Functions | |||
Check for References to Blank Cells | Excel Programming |