Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to fill a column if the column next to it is not blank
Hello,
I don't know much about VBA and Excel 2007 but am working my way through it slowly. Basically, I have two columns. A contains several rows of data, and B is currently empty. Where A is not empty, I want to put a "1" in column B. I don't know the best way to do this. I was thinking about selecting the row and doing some kind of autofill, but that doesn't check the row next to it. So I suppose I could do something like Dim i as integer Set i = 1 Do until i = 1000 'there will never be more than 1000 rows.. If Ai is not blank Then Bi = 1 End If Next i Not really sure how to do that in VBA though! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to fill a column if the column next to it is not blank
Try something like this:
Dim rng as Range, c as Range Set rng = Range("A1:A10") 'adjust as needed for your own needs For Each c in rng.Cells if c.Value = "" then c.Offset(0, 1).Value = 1 Next c HTH "cqmman" wrote in message ... Hello, I don't know much about VBA and Excel 2007 but am working my way through it slowly. Basically, I have two columns. A contains several rows of data, and B is currently empty. Where A is not empty, I want to put a "1" in column B. I don't know the best way to do this. I was thinking about selecting the row and doing some kind of autofill, but that doesn't check the row next to it. So I suppose I could do something like Dim i as integer Set i = 1 Do until i = 1000 'there will never be more than 1000 rows.. If Ai is not blank Then Bi = 1 End If Next i Not really sure how to do that in VBA though! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to fill a column if the column next to it is not blank
On 15 May, 22:32, "Spicelon" wrote:
Try something like this: Dim rng as Range, c as Range Set rng = Range("A1:A10") * * 'adjust as needed for your own needs For Each c in rng.Cells * * if c.Value = "" then c.Offset(0, 1).Value = 1 Next c HTH Thanks, that is great! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto-update Fill Series in column that has randomly spaced blank c | Excel Discussion (Misc queries) | |||
fill blank cells in a column | Excel Worksheet Functions | |||
Fill column blanks from last non-blank cell | Excel Discussion (Misc queries) | |||
Help: How do I fill a column with values if it is blank? | Excel Programming | |||
how can i fill blank cells in column with abc while the right col. | Excel Discussion (Misc queries) |