Wouldn't it be simpler to tell them to click the cell in that 4 cell
range that isn't equal to the one above and get them to hold Alt then
whilst holding it press I then R?, there is no way of determining which
cell has the mismatched value i.e should the code look up 3 cells from
where they clicked or down 3 cells?, would that be too far? perhaps in
to the next cost centre?, maybe a rethink on what you really want to
achieve, that said here's some code that will insert a row wherever you
click in column B, it goes in the worksheet code module that you are
working on
Code:
--------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 2 Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
Selection.EntireRow.Insert
End Sub
--------------------
Harold Good;344285 Wrote:
Hi,
I'm new to VBA but didn't find the help I need online. I'd like some
simple code to enable a client to add a new row to a budget cost center.
There may be 20 cost centers, each with 4 rows for entering budget
information in the budget form I give them. But some cost centers will
need more detailed descriptions, thus another row or two may need to be
added by the client.
I would like for them to be able to click once in any of the 4 rows (to
make it the active cell) in a given cost center (the fifth row is a
summary row), then either click a button or a execute key combination to
add a new row within that cost center.
1. So the first thing the code needs to do is go to Column B while
staying in the current row. I don't know how to do the code for this.
In Column B every cell has a Cost Center number. B5:B10 might be 64400;
B11:B15 might be 63300.
2. So after the code arrives in Col B, I'd like it to move down until
it finds the first cell which is not equal to the cell above it. That is
where I'll insert the new row, keeping it within the same cost center
rows.
If anyone can help with some code to do these two steps, I'd really
appreciate it!
Thank you,
Harold
--
Simon Lloyd
Regards,
Simon Lloyd
'The Code Cage' (
http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.thecodecage.com/forumz/member.php?userid=1
View this thread:
http://www.thecodecage.com/forumz/sh...ad.php?t=96330