I have something I've been trying to figure out for quite some time. I have to add the word 'special' at the end of various cells that has text already in it. Is there a macro that does this? Everytime I create one, it wipes out the text and adds the word 'special' instead. I need it to add the word 'special' at the END of the text that's already in there.
View 9 RepliesMy question is about creating a hierarchy of Data Types.
I need to code 3 Data Types:
1.) MealPlan
2.) Meal
3.) MealItem
MealPlan represents a daily meal plan. It should have a certain number of meals. An example of MealPlan would be "Healthy" and have a total of 3 meals. Meal represents a single meal. It should have a certain number of meal items. An example of Meal would be "Meal 1" and have a total of 3 meal items. MealItem represents a single meal item. It should have a certain number of protein calories, fat calories, carb calories. An example of MealItem would be "Broccoli" and have protein calories of .2, carb calories of .8, fat calories of .1.
By using Data Types, I hope to create meal plans, which are made up of meals, which are made of meal items. The following code creates a Data Type hierarchy for two Data Types. I've examined it closely but i'm still having a hard time recreating it for my needs as stated above.
I have written the code below. And I found two problems:
1.The code stopped to work when I change from Paste to PasteSpecial.
Sub Copyfriction()
Dim DestWB As Workbook: Set DestWB = ActiveWorkbook
Dim DestWS As Worksheet: Set DestWS = ActiveSheet
Dim DestCLL As Range: Set DestCLL = ActiveCell
Dim UserChoice
UserChoice = Application.GetOpenFilename(FileFilter:="Text Files (*.xls),*.xls")
[Code] ........
2.As you see the right cell on the the destination sheet need to be selected. So Im planing to run the macro when double clicking the cell in question. I have tried the next
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$6" Then
Copyfriction
Cancel = True
End If
End Sub
I have the following macro that is linked to a button.
There is also a function that is called to check to see if the file is already open.
These macros & functions work properly.
Basically, the Case statements check the extension of the file to be opened and then calls the correct macro to open that particular file.
I have shown the macro that is called by the Case statement that has the extension .xls . . . Excel
I want to keep these Case statements as I always want Excel files opened in new instances of Excel.
What I need is when the existing case statements do not find an extension that is listed, I want code added to this macro that can open any type of file, such as files with other types of extensions or without extensions.
My son suggested that I should try to get a macro that could open the file using the RUN command found under the Start Button. Sounds good to me.
I have written a short VBA code to create a Paste Special values keyboard shortcut.
Is there a way or a place that I can put this code so that every time I open any workbook in Excel, or open Excel itself that this VBA code will be active and I can use the keyboard shortcut?
I have some simple Macro code that works fine for the COPY side of the action...
View 14 Replies View RelatedI have a macro that copies the main report sheet in my workbook. The point of the macro is to get a copy of the report data without allowing anyone to see the formulas/data behind it - when it pastes, it pastes only the values in the tables and then copies the charts, deletes the live ones, and pastes only the images back on the sheet. The macro works on my computer and my partner's computer, but not on anyone else's. It stops at this point:
View 5 Replies View RelatedI've got a sheet which has two column headings - Resources and Cost. I have another sheet which has the calculations for both of these. They are in cells H24 and D29 of the second sheet. I want to have a macro on the second sheet that if I click it, it will paste special these two figures (values only so no formulae), into the active cell on the first sheet. This is the code I've got so far but every time I run the macro it just pastes into the same two cells in the first sheet.
View 4 Replies View RelatedI am having problems with 1 of my macro's and I am at a loss as to why!
I anticipate there is a simple answer and I apologize in advance, but....
This line of code is no longer working
I want to create a button in the toolbar for each time I open excel. I want to click the button and I automatically want the button to perform these three seperate actions: paste values, paste formulas, paste formats
I need to create a macro to "paste special - values", therefore I have coded
"Selection.PasteSpecial Paste:=xlPasteValues"
It works well if copy and paste special within the same excel sheet.
However, when I ctrl C on any other website and revert back to excel to use my macro to paste special, it cannot work.
I have a spreadsheet with 2 macros in it, one for copying cells and deleting contents/comments etc.
Selection.Copy
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Selection.ClearComments
Application.CutCopyMode = True
and another to Paste Special (all except borders)
Selection.Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
The first macro works fine but the second macro comes up with a runtime error '1004' Paste Special method of range class failed.
I created a macro that copies a range from one worksheet to another as shown below, which correctly copies everything including formulas.
View 9 Replies View RelatedI have a sheet which is protected but people are still able to change cell formats etc if they use the standard paste method. I want people to be able to paste data in but it forces paste special values to stop people pasting formats etc over already formatted and locked cells.
I know I could write a macro and run it using the shortcut keys ctrl-v but then the users lose the ability to undo if they make a mistake.
Is there a way to force paste special or allow users to run a macro but be able to do undo if they make a mistake?
I am looking for a macro to highlight duplicate data in Col A.
I have googled etc, and found quite a few, but some were slowish, some didn't work, some did.
The best I have found so far is this 1. I believe this was posted by Richard Schollar
Sub ColorDupes()
Dim v As Variant, r As Range, i As Long, j As Long
Set r = Selection
v = r.Value
For i = 1 To UBound(v, 1)
For j = 1 To UBound(v, 2)
If Not IsEmpty(v(i, j)) Then
If Application.WorksheetFunction.CountIf(r, v(i, j)) > 1 Then r(i, j).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub
This seems to run fine and be quite quick providing I highlight the column first.
What I'm looking for is a pop up window to also show me some data relating to the duplicates. I usually work with large lists and would like the macro to say how many duplicates it found from how many rows of data.
It is a very handy macro, and is very short on the coding side I notice compared to all the others I found (Which is Good?), I'm no coder
I have a workbook with many sheets in it. Within each sheet there is a cell with the Text "March 09" there are then 3 cells to the right of this cell with relevant information. Is there a Macro that can search for this text March 09, then copy this and the 3 cells to the right of it and paste special this information 1 cell below for all 4 cells.
View 2 Replies View RelatedDesigning very simple macro, it simply trims of some bits from the spreadsheet.
I paste special the trimmed cells over the top of the existing cells.
The macro works fine on my computer.
I took the code from my computer and put it on the other persons computer. The macro didn't work claiming issue with the paste special.
Not sure if it's me or a new change in excel 2010, yet creating a simple macro as listed below does not work.
Outside of macro I will select a range of data and copy.
Then, using macro I'd like i to perform: paste special values, in the current cell
I have 9 worksheets in a book with sheets 1-8 used for data entry, and sheet 9 used for a weekly data upload. Sheets 1-8 are all formatted the same, they just represent different vendors. I need a macro to look through column F (invoice number) on sheets 1-8 and see if the value of each cell already appears in column c on sheet 9. If the value is not found and the row value for column M (sheets 1-8) is >0, I need to copy the data from columns D:K and paste special values into the next blank row on sheet 9.
Basically I'm trying to see if I've already paid an invoice, and if not then I need to automatically add the data for payment. I've tried to mess around with a VBA code myself and ended up with a migraine every time. I've also tried to use the advanced filter, but the cell values I need to copy over contain formulas and conditional formatting...not to mention I can't delete the data on sheet 9 that has already been added.
I am looking for a macro that can do one of two things. I am not sure which way I want to go with this yet and how automated it should be. Either scenario will result in a significant time save.
Scenario One
1. Copy & Paste Special Values on the selected/active worksheet
2. Protect Selected Worksheet with password "1234"
3. Delete ALL worksheets except the selected/active worksheet from the file. Names of other sheets can be various and are not static
For example:
A workbook has the following: sheets1, sheet2, sheet3, sheet_unknown_name
If you are working in sheet1 the macro would copy paste special values the entire sheet, protect sheet1 with the password "1234" and delete any and all other sheets.
Scenario Two
1. Copy & Paste Special Values on the selected/active worksheet into a new workbook
2. Protect the new workbook with password "1234"
3. Rename the new workbook with the original workbook name adding either "em_" to the front or "_em" to the end of the filename
4. File, Send To, Mail Recipient as attachment.
I often need to use Paste Special... Values, using Excel 2003. So I recorded a Macro into "Personal.xls" and assigned a shortcut key combination "CTRL-Shift-V" so that it would always be available. I first select one or more cells and hit CTRL-C to copy to clipboard, click on another cell, then hit CTRL-Shift-V to run the following macro: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
It often works . . . and it often fails. When it is working it seems to keep working over and over. When it is failing it keeps failing. So it is almost as if there are two "modes" of operation, which for lack of terms, for this post I will coin the terms "fail mode" and "fixed mode". Once I am in one of the two modes, it stays there for a while. When it is in the "fail mode", I always get the dreaded: Run-time error 1004: "Pastespecial method of Range class failed".
Since this problem is very intermittent, I believe this is why there are so many posts in the Internet about this, and so many people are replying back "it works fine for me". I have seen many solutions offered but none work so far for just a simple shortcut key to do a PasteSpecial :Values. Some solutions "work" . . . such as adding the PasteSpecial button to the Toolbar, or pressing ALT-E-S-V <Enter> - but both of these bring up the Paste Special dialog box which I want to avoid. I spent days trying the many solutions offered but so far all I have found is a trick to convert Excel from "fail mode" to "fixed mode". The trick is to add a line to the macro to first do a "Paste Special: Format:
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
...................................
I'm trying to create a macro which will edit the content of a cell and update. I'm just using the "Record New Macro" option in tools.
It doesn't seem to perform the F2 edit function within the macro.
I'm sure this has been discussed previously, but I can't get the search function to work for me.
Can a macro make a workbook everytime you copy, it will paste special formulas only and skip blank rows? And can I still let me select the range manually? I would like to use this to link workbooks.
View 2 Replies View RelatedI created a named range formula:
=TEXT(TODAY(),"m/d/yyyy")&" "&TEXT(NOW(),"h:mm AM/PM")
The goal of that formula was to return a Date/Time stamp that is fixed and doesn't change over time. The formula is intended to run in which ever cell that I select to enter it into. I named the formula:
=DS
What I am trying to do is create a macro that will run the formula using a hot key function. I want to be able to select a cell and hit CTRL D and have that above formula run in that cell. I have multiple sheets in my workbook and I need the macro to be able to run on any sheet in my workbook. Below is what I have:
Sub DateStamp()
'
' DateStamp Macro
[Code]....
I was trying to apply the macro to only a certain range of cells on any given sheet.
I need a macro… when I run the macro.. I want to create work sheet based in the shift time and copy entire row related to that shift time of all the cell to that particular sheet… there may be multiple rows related to same shift time but remaining data may be different..
View 9 Replies View Relatedmy destination cells will have formulas like:
='E:My WorkTestData[CCC.xlsx]Input'!$S$31
Everything works fine. But I don't want the destination cells to display the full formula, but the actual Value only
I thought of a way to build a script that first builds the formula to one cell then Copy Paste Special value of that Cell to my desired Cell.
But when the code runs The cursor moves back and forth all the time...
I often need to use Paste Special . .. Values, using Excel 2003. So I recorded a Macro into "Personal.xls" and assigned a shortcut key combination "CTRL-Shift-V" so that it would always be available. I first select one or more cells and hit CTRL-C to copy to clipboard, click on another cell, then hit CTRL-Shift-V to run the following macro:
VB : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
It often works . . . and it often fails. When it is working it seems to keep working over and over. When it is failing it keeps failing. So it is almost as if there are two "modes" of operation, which for lack of terms, for this post I will coin the terms "fail mode" and "fixed mode". Once I am in one of the two modes, it stays there for a while. When it is in the "fail mode", I always get the dreaded:
Run-time error 1004: "Pastespecial method of Range class failed".
Since this problem is very intermittent, I believe this is why there are so many posts in the Internet about this, and so many people are replying back "it works fine for me". I have seen many solutions offered but none work so far for just a simple shortcut key to do a PasteSpecial :Values. Some solutions "work" . . . such as adding the PasteSpecial button to the Toolbar, or pressing ALT-E-S-V <Enter> - but both of these bring up the Paste Special dialog box which I want to avoid.
I spent days trying the many solutions offered but so far all I have found is a trick to convert Excel from "fail mode" to "fixed mode". The trick is to add a line to the macro to first do a "Paste Special: Format:
VB:
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Then select and copy any cell/s, click on another cell, and run the macro just ONCE - it will paste the formatted value successfully and you are now in the "fixed mode". Now you can remove the PasteSpecial:Format line that you just added, to get back to the original macro with just the "Paste Special: Values" line:
VB : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Now Excel is in the "fixed mode" and the original macro will once again start working properly. BUT only for a while !! Then some time later, usually within a day or a couple hours . . . Excel goes back into that "mode" where once again the macro fails repeatedly. I have been unable to isolate what causes the mode to return to failure.
Any simple way to either change the code so that it ALWAYS is successful, why this often is not successful ? I believe that the fact that adding in the Paste Special : Format code and running it just once to fix the problem, also could be a clue as to what causes this problem to "sometimes" occur.
When I enter data in the cells A1 and B1, C1 needs to calculate the result. (not copy and paste)
For examle: I have formula C1=(A1+B1)/2
C column for formula, but shows result only when there is a data in A and B
I have a row that contains each date for the year in B5:NB5. I would like to have a button or macro that will jump to the cell containing today's date.
View 4 Replies View RelatedI need to create a macro that can create a dynamic copy/paste loop. So far what I have is horribly inefficient. Each row in colmn A(minus the header) has a unique number in it. For each unique number, I need to paste it based on the number of column headers in row 1(minus column A). So, if there are 20 column headers, I need to copy cell A2 and paste it 19 times in another sheet. Then, I need to move to the next number in column A and do the same thing. Here's what I have:
[Code] .........
You can see that this is not dynamic. If I add another row to my table and rerun the macro, it will not catch it. I've attached a sample file to show you the big picture of what I'm trying to do. The data that I have is in Sheet1, and I'm trying to get it into the format in Sheet3. Rows/columns will be periodically added to the table in Sheet1, so the macro needs to be dynamic to catch that. The data in Sheet3 will always remain, and the macro will add the updated data below the old data in Sheet3.
FC_Macro_Sample.xlsm