Finding next empty empty cell in a range of columns
I have been through the posts here and can not find exactly the same senario
as I want to perform. I have a spreadsheet where data will be held in columns for people. Each person has its own column. I want to be able to place a persons name in the heading of each column. So I am trying to find the next empty column in row 3 to place the name. The code I have used but does not appear to work is NextCol = Application.WorksheetFunction.CountA(Range("D3:W3" )) + 1 It always returns a value of 1. This code is in a commandButton(Click) proceedure. I thought it would look at the range and give me the next column free as a response? |
Finding next empty empty cell in a range of columns
maybe...
Dim NextCol as long with activesheet nextcol = .cells(3,.columns.count).end(xltoleft).column + 1 end with But the only way I would think your code wouldn't work is if the code was looking at the wrong sheet: NextCol _ = Application.WorksheetFunction.CountA(worksheets("S heet99").Range("D3:W3")) + 1 UncleBun wrote: I have been through the posts here and can not find exactly the same senario as I want to perform. I have a spreadsheet where data will be held in columns for people. Each person has its own column. I want to be able to place a persons name in the heading of each column. So I am trying to find the next empty column in row 3 to place the name. The code I have used but does not appear to work is NextCol = Application.WorksheetFunction.CountA(Range("D3:W3" )) + 1 It always returns a value of 1. This code is in a commandButton(Click) proceedure. I thought it would look at the range and give me the next column free as a response? -- Dave Peterson |
All times are GMT +1. The time now is 10:46 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com