Need Help With Active Cell
 

Ok, I have done the following coding and it works very well.

Sub PltfrmWs()
Range("B25").Activate
If Range("B25") = 0 Then
Range("A24:G29").Delete
Else
Range("A26:G26").Resize(Range("B25").Value).Inser
shift:=xlDown

End If
End Sub


My next question to you guys, is how can I get this to drop the activ
cell down past whatever number is in "B25". Lets say "B25" is qty 5.
I need this to move down from "B25"(Currently the active cell) to th
next line after the 5 blank inserts(or whatever qty is in "B25"). I
this possible, if so can you lead me to the answer?

Thank You,
Chri

--
zero63
-----------------------------------------------------------------------
zero635's Profile: http://www.excelforum.com/member.php...fo&userid=2480
View this thread: http://www.excelforum.com/showthread.php?threadid=38819

Need Help With Active Cell
 

Try placing this after the insert command......

ActiveCell.Offset(ActiveCell.Value + 1, 0).Activate


--
Cheers
Nigel



"zero635" wrote in
message ...

Ok, I have done the following coding and it works very well.

Sub PltfrmWs()
Range("B25").Activate
If Range("B25") = 0 Then
Range("A24:G29").Delete
Else
Range("A26:G26").Resize(Range("B25").Value).Insert
shift:=xlDown

End If
End Sub


My next question to you guys, is how can I get this to drop the active
cell down past whatever number is in "B25". Lets say "B25" is qty 5.
I need this to move down from "B25"(Currently the active cell) to the
next line after the 5 blank inserts(or whatever qty is in "B25"). Is
this possible, if so can you lead me to the answer?

Thank You,
Chris


--
zero635
------------------------------------------------------------------------
zero635's Profile:
http://www.excelforum.com/member.php...o&userid=24802
View this thread: http://www.excelforum.com/showthread...hreadid=388195