I have copied a colorindex UDF from here and went to VBE, inserted a new module in my Personal project, pasted the UDF and expected to be able to use it in any excel file. It's not working though. I have used this particular UDF before, but on a prevous computer that is not around for me to look at.
My goal is to use =IF(colorindex(J2)=colorindex($K$1),J2,"").
with a macro. I am looking to copy row 2 to the last row and past the copied rows directly below the copied contents.
View 9 Replies View Relatedi try to paste in active cell copied range.
I mean that i do follow:
- i select range of cell - mostly range of column f.e. A2:A500
- i click/select on any free cell (f.e. B1)
- then i run macro
i expected it paste unique values (text or number)
this dont work
i dont know how defined the range
I have formula that copies a range of cells and pastes to another worksheet (based on the click of a button on that row), however i need to adapt it to define which sheet to paste it to based on the contents of another cell on the same row. The below code all works for the first part of this, i added in Sub MN and Sub Month_to_Classify to resolve the second part. When i run this at the moment i get
Run-time error '1004': Method 'Range' of object'_Global' failed
and the highlighted line of code is in Sub MN:
Range(ActiveCell.Offset(0, -8)).Name = "Man"
Sub AreYouSure()
[Code] ........
I need VBA coding that starts in a cell, moves 5 columns to the left, and then copies the left 8 characters of the string. The Macro should end there, but I'm hoping to be able to then paste those 8 characters elsewhere, say a different programme or web page.
I can move the cell no problem:
ActiveCell.Offset(0, -5).Select
But how to then copy those left 8 characters so it stays in the clipboard at the end of the macro?
The formula needs to be non-cell specific, i.e. I need to use the above selection and NOT a cell name such as A5 etc.
I am trying to pull 4 cells (Q3:T3) from multiple workbooks into a master workbook. When I run the below macro, I only have the first column of the copied data returned, and can't figure out how to have it paste all four cells.
Sub ExtractData()
Dim wb As Workbook
Dim TheFile As String
Dim MyPath As String
Static CopyCell
[Code] ....
I'm trying to perform a copy & paste operation by hand which to me should be easy in theory. I have a worksheet whose formulas have been corrupted. I have a backup of this sheet- I'd like to copy the backup sheet into the workbook. The problem is that the formulas, which reference other worksheets within the workbook, are copied over as links to the backup workbook instead of the new workbook they are being copied too. This seems simple, but how do I copy the worksheet and the references without having to go through all of the references by hand to only apply to the local book.
View 4 Replies View RelatedI'm trying to find a macro that will copy data from the areas of B120:E179 and I120:K179 for example (linked to another worksheet within the workbook) and special paste (Values Only and skipping blank cells) it to the next available open cell up top where basic data entry will be taking place B10:E29 and I10:K29. I need it to only copy/paste the rows with data (skipping all cells/rows with no data) and once it is finished coping I will need it to place an "X" in column M next to the row that it copied data from. I would also need it to reference the data in each row from B to E and if there is an entry say on B14 to E14 that matches it but if I10 to E29 are blank then paste that information on row 14. If it does not match or if those columns are full then paste on next available line.
I hope I'm making sense here. This is for a vehicle tracking log between checkpoints. Each driver and info will be listed on each row. Columns B through E will contain information for each driver: name, badge, #passengers, and vehicle #. The log lists location, time, and destination for outgoing travelers in columns F to H. Incoming info is listed on Columns I to K............
I am trying to create a macro to copy a set of datas in a row , paste into another workbook (specific sheet),then save it as one of the datas that was copied over.
Workbook1
Ticket#
Description
Name
12345
Test 1
David
32145
Test 2
Steve
Workbook2 - sheet (ABC)
Copy row 2 from Workbook1, paste to row 1 in Workbook2 sheet(ABC)12345
Test 1
David
Saveas Workbook2 - ABC - "12345" - Ticket #
Copy row 3 from Workbook1, paste to row 1 in Workbook2 sheet(ABC)
And so on. I will have a set of data to trasfer to Workbook2, each row different workbook.
I am working on a database and trying to remove duplicates. When there are duplicates, I want to take the contents of one cell and copy them as a comment on the cell above (or below).
I tried to work on a small macro to do so, but the contents of the cell cannot be copied (it comes out as a blank).
The long way is to 'double click' in the cell, Ctrl+A, cut, click the cell above, Ctrl+F2, paste. This way is very long as I have thousands of duplicates.
Just finished amending a piece of code to enable me to search for an agents name in a list of files. This is then copied to a new worksheet (named by the name entered in the search). What I need is to cut(or delete) the row from the original sheet (sheet 1 in this case) thus leaving me the remaining list of files.
Below is how the code is setup at the moment....(just copies the row)
I just copied and modify this code; What I want is to add sumting on the file name, without changing, file path, original file name and file extension
Say : I get the file
D: DocsMemo.docx
I can paste it to the fnpath with a changed filename
C: \_Temp Memo_BPMC-0001.docx
Heres the code
[Code] .....
Macro on copied sheet. I have a macro using the following to bring a shape to the front:
View 4 Replies View RelatedI'm working on this sheet and i'd like to copy information from row "i,i", insert a new row below it and copy that information to the new empty row.
View 6 Replies View Relatedfind the attached sheet. I want advice for the VBA Code I used in this sheet. I am simply using nested if. advice me any other solution for the same as I want data to be copied from Jan to Dec ? I am beginer in VBA coding.
View 3 Replies View RelatedI have a spreadsheet model I want to give to my students. I do not want them to be able to copy the spreadsheet.
Know of a product which can protect a spreadsheet from being copied and distributed to non intended users.
Something like "pairing" to a computers ID.
I need formulas to be automatic added when i insert row
View 2 Replies View RelatedI have this bit of code which is working perfectly. Now I need it to delete the rows it just copied. How would I go about doing this?
Sub TESTMonthEndReport()
Dim x As Long, y As Long
y = 2
Application.ScreenUpdating = False
For x = 1 To Worksheets("January 2013").Range("K276").End(xlUp).Row
If Worksheets("January 2013").Range("K" & x) = "Waiting" Then
Worksheets("January 2013").Range("K" & x).EntireRow.Copy
Sheets("February 2013").Range("A" & y).PasteSpecial
Application.CutCopyMode = False
y = y + 1
End If
Next x
End Sub
After using a vlookup formula, and a if then statment I found out that there are duplicates on my other sheets. I want to use a Macro to use the duplicate value in search and find to locate the item and highlight it on my other sheet. I have searched the web but can't find anything on this.
I can't seem to paste my coppied cell into the what in the find.
Sub Macro15()
'
' Macro15 Macro
'
'
Selection.Copy
[Code]....
I've been trying to copy and drag formulas on my spreadsheet by the references are not working. Example. I have =$B1 in cell A1. If I copy and drag that to A2 it remains =$B1. And it should change to =$B2, correct? Same as if if make the column absolute.
View 9 Replies View RelatedI have a spreadsheet that is controlled solely by userforms. I have a search button that finds all cells that match the query and copies the whole row into another sheet, often about 10 rows appear. What I now would like to happen is that these rows are then copied into a list box for viewing in the form apposed to in the spread sheet.
I have a sample spreadsheet to show how the data would be set out.
original thread 2. Originally Posted by Dave Hawley
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wSheet As Worksheet, wSheet2 As Worksheet
Dim strNum As String, strNum2 As String
If Target(1, 1).Address = "$J$5" Then
If Target = vbNullString Then Exit Sub
If IsNumeric(Target) Then
strNum = Target + 1
strNum2 = Target
On Error Resume Next
Set wSheet = Worksheets(strNum)
Set wSheet2 = Worksheets(strNum2)
On Error Goto 0
If Not wSheet Is Nothing Then
Application.EnableEvents = False
Application.Undo......................
What I would like to do is after the new sheet is created it would make cell j5 on the newly created sheet the same name as the sheet itself. I've tried to do that but the above code tries to activate. Is there a way to have the above code only work on the very first sheet and for the cell naming code to work on only the created sheets
I'm attempting to copy some data from one spreadsheet to to a workbook in another spreadsheet. However, when I do my copy, I lose all of the formating of the intial data. Does anyone know if there a way that I can keep the the format of the original to the new spreadsheet?
View 5 Replies View RelatedUsing Excel 2007 I duplicated a worksheet by right clicking the worksheet tab and selecting Move or copy... with the Create a copy option. Of the six comments on the original worksheet only one appears in the duplicate.
View 2 Replies View RelatedI have a problem in copy formulas form one cell to another, my formulas are writen in one workbook in this way... '=Dog+Cat.
The problem is that I did a looking table code (vlookup) and when it shows the formula I have #¿Name?.
I would like to knw if there is a way to fix this using the vlookup or I'll be obligated to use special Copypaste
when I cut or copy a range - and then select a different area - how do I reference to the original cut or copied selection, i.e. the "marching ants" range?
View 3 Replies View RelatedMy boss sends me emails with people's information, which I then reformat to put in invoices in word, save as PDF, record in excel, and send out with an email from Outlook. I would love to find an easier way. I'm wondering about putting the info in an excel table so that I can then use a mail merge to create an invoice with the address--unless it turns out to be more work than to format each one (I'm newish to Excel).
The info I get is listed in the following way:
First Name: Mia
Last Name: Kant
Email Address: mika@gmail.com
Country: Afghanistan
[code]....
I need to use some but not all of the info, but if I could get it to format into a table, I assume I could then pick and choose.
I'm trying to copy the a name from cell X2...JohnDoe and rename the current sheet with the contents of X2. I'm using the following code and getting my sheet named as "True"
Sub SheetName()
'
' SheetName Macro
'
Dim ShName As String
ShName = Range("X2").Select
Selection.Copy
Sheets.Add.Name = ShName
End Sub
I copied a list of data from Vendio Counters for pages in my website, which includes a check Box in their 1st column.
When copying the list, you automatically get the check box plus the data.
When I paste it into my counter tracking spreadsheet, the Check Box is also pasted into one of my columns.
The problem is that I only want 1 column which is the actual count.
I have tried everything to delete the Check boxes to no avail. I've even tried to delete the column and it won't delete.
All the other extra columns can be cleared or columns deleted
It's been a long time since I have worked with Excell, it use to be the " $ " that made things absolute or relative.
I have this formula:
='1'!C194+C193 on sheet 1 named "1" without the " ". I need to copy it across 31 sheets. I thought that it was the " ! ", without the " ", that makes the address absolute so I took it out and then attemped to copie it to other sheets. The idea was that the formula would then read: ='2'!C194+C193 on sheet 2, and ='3'!C194+C193 on sheet 3 and so on. The formula is in the exact same location on each sheet, C194. But this won't work. I am at this time doing each formula one at a time. I have many workbooks that will use the same style of copy and paste; about 15 workbooks each with 31 sheets.
It would help if someone could explain how to save time. I do know how to use the Ctrl to select different cells and how to use Ctrl+Page UP/Down to change tabs. I just have to get the formula correct.