Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Insert New Row in a block of data
This is the code I have, and i want this to either be added in a new row (as there is other information below this line) or add a new row after the form adds the information to the spreadsheet? Private Sub CommandButton1_Click() ActiveWorkbook.Sheets("Jobs").Activate Range("B7").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Value = Job_No Range("B7").Select End Sub -- Clare ------------------------------------------------------------------------ Clare's Profile: http://www.excelforum.com/member.php...o&userid=36047 View this thread: http://www.excelforum.com/showthread...hreadid=558463 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Insert New Row in a block of data
Hi Claire Not to sure what you want but the code to insert a row would be: Selection.EntireRow.Insert -- jetted ------------------------------------------------------------------------ jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532 View this thread: http://www.excelforum.com/showthread...hreadid=558463 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Insert New Row in a block of data
Maybe...
Option Explicit Private Sub CommandButton1_Click() dim DestCell as Range with activeworkbook.sheets("Jobs") set destcell = .cells(.rows.count,"B").end(xlup) if destcell.row < 7 then set destcell = .range("B7") end if if isempty(destcell.value) then 'it's already empty 'so do nothing else 'come down one row set destcell = destcell.offset(1,0) end if destcell.value = Job_No.Text 'from a textbox??? end if Clare wrote: This is the code I have, and i want this to either be added in a new row (as there is other information below this line) or add a new row after the form adds the information to the spreadsheet? Private Sub CommandButton1_Click() ActiveWorkbook.Sheets("Jobs").Activate Range("B7").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Value = Job_No Range("B7").Select End Sub -- Clare ------------------------------------------------------------------------ Clare's Profile: http://www.excelforum.com/member.php...o&userid=36047 View this thread: http://www.excelforum.com/showthread...hreadid=558463 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I insert a blank row after every row with data with Excel | Excel Discussion (Misc queries) | |||
Excel Macro to Copy & Paste | Excel Worksheet Functions | |||
Sort pages? | Excel Discussion (Misc queries) | |||
Changing the format of a block of data | Excel Discussion (Misc queries) | |||
insert data from one excel file into another | Excel Discussion (Misc queries) |