Macro: Copy And Adding New Row

Dec 18, 2009

I'm using this Macro to add a new row and it is adding the row just fine, but I would like only the content added in row B, C, D, and the rest of the rows left blank. It also will copy and add all rows right except for row 4 wich is the burnsville row. I have the macro attached to the shape in B 1and 2.

Sub InsRow()
Dim iRow As Long
iRow = InputBox("Enter row number")
Rows(iRow - 1).Copy
With Range("A" & iRow)
.PasteSpecial Paste:=xlPasteFormulas
.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End With
End Sub

View 10 Replies


Copy Data From Sheet To Same Row Or Adding New Row

Jul 15, 2014

I am trying to re-use it for a very similar purpose. I now have three sheets. The data from Sheet2 has already been imported due to the code I was given below. I am now trying to import data from Sheet3. The function needs to copy all data from sheet3 to sheet1. However, if there is already an entry that contains the same name, location and type (I.E. it was imported from sheet2 and created rows), then the data from sheet3 needs to be added to those same rows. If there is not an entry, I want the code to add new rows beneath.

To summarize, I need to pull in data from Sheet3 which contains Location, Type, D Length, E Length, Z Length. If there is a row in Sheet3 that contains the same unit (G2K_G2_FB1 for example), location, and type in Sheet1, the data needs to be added to the same row in Sheet1. If Sheet3 has a new location or type, it needs a new row added in Sheet1.

[Code] ....

I have attached a sample workbook. Temp_backup - Copy.xlsm‎

View 7 Replies View Related

Copy; Paste With Input Box, Adding A Blank Cell

Nov 1, 2009

Data range is A2:A301. From this range sometime all and sometime selected data is required to be copied in another column for example C2
downward. What is needed: select the range from A2:A301 with an input box then the required data to be pasted in C2 downward but with a blank cell after four cells.

and so on.

I'm doing it Ctrl+C n Ctrl+V but that is very time consuming.

View 5 Replies View Related

Copy Workbook Table To Another WB Without Adding Title In Formulas

Jan 4, 2012

I'm trying to copy a huge list of formulas and formats from one work book to another almost identical, each time it adds the old workbook name title into the formulas, this is easy to do in the formula bar for individual formulas but can this be done for many?

View 3 Replies View Related

Adding Columns And Copy Function Without Messing Up Original Code?

Dec 19, 2013

I have attached a copy spread sheet. This has been working great but i have been asked to add some items and i dont want to screw up the working functions.

I now want to add incert two columns so the actual costs of a first and second service can be added to the contracts and used contracts sheets, this information allong with data from a,b,e,g h needs to be copied over into a new sheet (report sheet) which will have the budgeeds costs in column i,j starting from row 3 and finding the last row so as not to overtype so that a report can be sent showing profit/loss.

The costs will be put in at diferent times so it only need to up date a changed cell

If i just add columns will this effect the auto archive coding? Could the data be copied over to the new sheet using the original code on start up? (so customer etc copied then as cost are put in these would be added to the respective rows on each start up.

I have had to remove some of the sheets to up load this so my not work correctly, but you can see the funtion in the code

View 3 Replies View Related

Copy A Range To Another Sheet Adding All The Workdays For A Time Period

May 2, 2014

I have a small range that i need to copy to another sheet for each working day of a time period(01/01/2014-30/04/2014) excluding weekends and holidays, adding the date in the first column of the new sheet.

View 9 Replies View Related

Copy / Paste To Text File Adding Extra Quotation Mark

Nov 3, 2011

I'm using =CONCATENATE() to create Html code.

HTML Code:
=CONCATENATE("<img class=",""""&"alignleft size-medium"&""""," ","title=",""""&D6&""""," ","src=",""""&
"http://www."&E6&"/images/"&C6&""""," ","alt=",""""&F6&""""," />")

The code looks good in the cell:

HTML Code:
<img class="alignleft size-medium" title="Image title here" src=
"" alt="Image alt here" />

But when I copy/paste onto a txt file, its adding an extra (unnecessary) Quotation mark (see code below)

HTML Code:
<img class=""alignleft size-medium"" title=""Image title here"" src=
"""" alt=""Image alt here"" />

View 8 Replies View Related

Adding More To My Macro

Oct 3, 2008

I have a Macro that I use often - It cuts a Designated Row from my AMZ-GM Open Sheet and moves it to the first open row of AMZ-GM Sold and leaves Cell U in that row Copied to the clipboard.

I would like to add two more jobs to that macro but am having a hard time.

1. I currently start the process in AMZ-GM Open.xls by Control F to find the SKU Number for the item I want to move ( it is always in Column N ) - I then manually highlight the entire row and run the macro below.

I would like to add code to my macro to highlight the row that my SKU cell found is in.

SO.... I want to start my macro from a single chosen cell instead of a chosen highlighted row.

I need to start my macro from the chosen cell in Column N. I need to add code to Highlight the row that my active cell is in and then proceed with the rest of the macro.

I recorded a macro starting with a cell -highlighting the row but it records as a specific cell / row number. I dont understand how to make it based on what ever cell is shown as active.

2. I would like to take the copied cell text ( U ) that remains from the last command and insert it into an open Word Document ( Amazon Sale.doc) at the position of the cursor in the that open Word Document. I'm not finding much info on moving that cells text to Word.

Heres my current Macro

Sub OpentoSold()
' OpentoSold Macro
' Macro recorded 2/1/2008 by Mike
' Keyboard Shortcut: Ctrl+q
Dim objLastRow As Range
Dim lastRow As Integer


Windows("AMZ-GM Sold.xls").Activate '

Set objLastRow = ActiveSheet.Cells.SpecialCells(xlLastCell)

lastRow = objLastRow.Row + 1


Range("U" & lastRow).Select


End Sub


View 9 Replies View Related

Adding This To A Macro

Jan 5, 2009

I have the following code i want to add to the code at that bottom:

With combobox1Data
If .ComboBox1 = "" Then
MsgBox "All location must be selected"

Current code is:

Private Sub cmdDone_Click()
End Sub
Private Sub CommandButton1_Click()
Dim TheName As String, Response As VbMsgBoxResult
TheName = ComboBox1.Value
Response = MsgBox("Are you sure you want to remove " & TheName, vbYesNo + vbQuestion)
If Response = vbNo Then Exit Sub
Range(TheName).Offset(-2).Resize(Range(TheName).Rows.Count + 2).Delete Shift:=xlUp

View 9 Replies View Related

Adding Code Into A Macro

Mar 28, 2009

I've added the following code into macro i have assigned to the button on this attached worksheet which deletes any row where the cell in the A column is blank.

View 6 Replies View Related

Macro For Adding One More Criteria

Aug 2, 2012

I want add one more criteria that if i have "Completed" & "Already Completed" i need both the criteria need to move to the next sheet name resloved

I try in the below macro to add but i am unable, how to add the criteria for the below macro

Sub Shift()
Dim r As Range, LR As Long

With Sheets("Details")

LR = .Range("A" & Rows.Count).End(xlUp).Row
LC = Sheets("Resolved").Cells(1, Columns.Count).End(xlToLeft).Column

Set r = .Range("A2").Resize(LR - 0)

[Code] .....

View 2 Replies View Related

Adding Checkboxes By Macro

Jul 17, 2007

How to add checkbox to specific cells? I would like to add one checkbox to "A2" then "A5" then "A8".... upto 101.

View 9 Replies View Related

Adding Macro To TextBox In VBA

Jul 19, 2007

I've got a userform which adds Textboxes automatically depending on a certain value. And the amount of Textboxes varies from 1 - 100. I add them with the line:

Set MyControl = UserForm1.Frame1.Controls.Add("forms.textbox.1", strControl, Visible)

Now my question is:
Can I add a macro to each of these textboxes automatically? A macro for the Change event I think it is.

All textboxes would have the same macro.

I kinda hoped it would be one of the following:
MyControl.OnAction = "test"
MyControl.Change = "test"

View 9 Replies View Related

Adding A Loop Of Dates To A Macro?

Jun 30, 2014

The way the code works right now is that I have it run as a few loops. it will first loop through the first worksheet in the array and delete what I need and then when that loop finishes it will run two macros that I have added in, then it will loop to the next worksheet in the array. right now it is only 2 sheets but eventually it will be many more. just working out the code for now. What I would like to do is in the second loop. my second macro in the code formats each page and, what I would like to do is add a date column to my code. I need to start at 1/05/2014 and then for the next iteration in the loop add 7 days.

[Code] ......

View 5 Replies View Related

Adding Date To Save Macro

May 5, 2008

i have a macro that richard buttrey has so kindly helped with

View 14 Replies View Related

Adding Rows And Calculation To Macro

Nov 3, 2008

I am extending rows on a salary schedule. As you can see below, the rows include: Bargaining Unit (GP) Schedule(2A) Range(5) Step (A) Hourly (S) and the hourly wage(11.52)


The Steps currently go from A thru M but I need to add N thru Z and after step M there is a 3.75% increase for each step.

You can see that this is a csv file (comma delimited). All of the other info needs to autofill and only the new steps (N-Z) will change and the wage for each of the new steps. The last row is 2 decimal points.

View 8 Replies View Related

Adding Hyperlink And Editing This Macro

Nov 5, 2008

adds the file name into column A if it could also hyperlink it to that file. 2nd, Change it so it doesn't start a new workbook and worksheet. I would like it to just run in the Workbook it is in and each time the macro runs or the workbook opens it updates any info that has changed.

View 5 Replies View Related

Adding Cell = Macro Not Working

Dec 9, 2008

I had a working macro before i added an extra row for another entry (No. of Hours spent). The entire data collection calculates the total price of a project (called PSR) in another cell underneath. The macro is suppose to move the entire data into another sheet to keep a history (in Sheet2). I've attached the file containing the workbook.

View 2 Replies View Related

Adding 7 Days To A Date Using Macro

Feb 25, 2009

Basically it's to make my content management easier.

I have made a button and assigned a macro to it. At the moment the button creates a new column and makes it the right size etc.

View 14 Replies View Related

Adding Comments To Cells Via Macro

Oct 8, 2009

When adding a comment I check for an existing comment, if exist then delete and add new comment and some text in that cell. This works as long as the cell has an existing comment; other wise it advances to the "Else" where I thought I would be entering a comment and text in an empty cell. Why does my macro treat an empty cell as if it has a comment?

View 4 Replies View Related

Adding Multiple Rows With A Macro

Feb 23, 2010

Ive made a simple macro in order to make easier to add new rows in a table, by filling the cells with the new data.

The problem is that according to one of the fields, Id like that macro to add multiple rows, with exactly the same information but numbering all these rows on this specific field from 1to the number I filled on the respective cell.

For example, I have beyond another fields that Ive already filled, the field "Parcel" and "Total of Parcels". I filled parcel with number 1 and total of parcels with 5. Then Id like the macro to add 5 rows with the "total of parcels" cells containing 5 on every row and the field parcel filled with number 1, 2, 3, 4 and 5, for each row created.

View 14 Replies View Related

Adding Single Row Using Excel Macro?

Jan 22, 2013

I am wondering if it is possible to use a formula or IF statement within a macro to add a single row at a time if a cell shows as False? For example, if the value in column AD is False, I want it to add a single row under that row that has False. However, if the value in column AD is True, I don't want it to add a row and skip to the next record. I need it for approximately 500 records.

View 2 Replies View Related

Adding Character Then Concatenating Macro?

Mar 8, 2013

I'm looking for a quicker way to take a list of numbers and adding commas, then putting them in the same cell so I can input them into a web database much faster. I can do it long hand by using concatenate first on the list to add commas to each cell, then making another concatenate to put them all in one cell, but doing the latter takes quite a while because of having to input each cell into the formula. Is there a way I can combine the 2 into a macro to accomodate for any length of cells?

Example, I have this list


As my list of numbers, and I need it to look like this in one cell:


View 5 Replies View Related

Adding Pause To Existing Macro?

Mar 21, 2013

I would like to add a pause to the following macro so that it inserts the word CANCEL 1 second after triggering. I know I need to use the Application.Ontime function but cannot work out how to integrate it.

Sub Cancel() Application.ScreenUpdating = False
Sheets("Sheet1").Range("T5") = "CANCEL"
Application.ScreenUpdating = True
End Sub

View 3 Replies View Related

Macro Adding Up Columns Wrong

Aug 19, 2013

This macro has a problem in that it totals up the colunmns in two places by error

The total should be at the end of the coumns only.

It gives me a total part way through the list which muddles things up a bit.

Sub prepareSAPexport()
' prepareSAPexport Macro
' prepare the sap export ready to be compared to CDS
' Keyboard Shortcut: Ctrl+s


View 1 Replies View Related

Macro Code For Adding CC To Email?

Nov 17, 2013

VBA COde for adding CC, BCC to email sent from excel. I already have the below code to send email from worksheet, i need to add a copy email.

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


View 5 Replies View Related

Adding Formula Through Macro Code

Jan 10, 2007

Im trying to autimatically insert a RTD formula in a cell but it is failing trowing the error 1004 : 'runtime 1004: application-defined or object-defined error'

Here is the ....

View 5 Replies View Related

Adding A Keyboard Shortcut In A Macro

May 6, 2007

How can i add a keyboard shortcut in already saved macro. Is there any way to do it or need to write a new macro?

View 2 Replies View Related

Adding Title Lines Within A Macro

Jul 20, 2007

i am completely new to writing macros. have recorded a macro but have just found out the each of the new sheets that the macro creates needs a line at the top of the sheet with a title in it

View 2 Replies View Related

Adding Subroutine To Macro For Slowing Down Time?

Aug 10, 2014

I would like to add a "subroutine" to my macro to show the numbers it is picking. But I am having a problem figuring out how to do this.. Here is my macro...

Sub generatelottery2()

Const l& = 1 'lower value
Const u& = 49 'upper value
Const n& = 6 'number of numbers per draw


View 3 Replies View Related

Copyrights 2005-15, All rights reserved