After using Copy/Pastespecial in my macro, when it completes I have the flashing border around the range that was copied, (like you do when you do it manually).
What line of code do I need in my macro to make this go away?
Is it possible to modify the attached code so that it will copy bold text and border as shown in attachment sample1 and paste in sheet Shop. Currently the code just copy's and pastes without bold text and borders.
Sample1.PNG
I have a picture that has been inserted into a worksheet via a macro and I have a number of macros to increase and decrease size. They work fine.
However, whenever I run one of those macros by selecting a button on the worksheet, it results in a border around the picture.
Facts:
- worksheet is called "Admin"
- picture is called "ClientLogo"
- Line.Weight set to "0" or "False" or "xlNone" or removed all result in a border
Question: Code / syntax for removing or setting the border to nothing?
VB:
Sub ReduceShape()
Dim shp As ShapeRange
On Error Goto NoSelectionMade
Sheets("Admin").Shapes("ClientLogo").Select
Set shp = Selection.ShapeRange
[Code]...
I've got some VBA that adds and removes a border around a merged cell. I created it by recording a macro and it's pretty clunky. It needs to do this for 6 different merged cells, based on different events and takes around 5 seconds to complete. Not a major problem, but I was hoping that I could make it more efficient. Anyway, code below:
Adding the border:
Code:
Sub AddRAGBorderChart1()
'
' AddRAGBorderChart1 Macro
'
'
Range("D4:M15").Select
[code]....
Removing the border:
Code:
Sub RemoveRAGBorderChart1()
'
' RemoveRAGBorderChart1 Macro
'
'
Range("D4:M15").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
[code]....
The border around a user form is really annoying. Is there any way to remove this so that when you load the user form without a title bar your image you use is just your image and not with a border around it???
View 4 Replies View RelatedI have been using excel for years but have always managed to resolve issues using formula's etc but now i have had to step into the realms of macro's. I am slowly learning but urgently need help with the below problem which is bound to be a simple solution.
I have compiled a workbook for users to administrate on a daily basis. (each worksheet is a different day of the month but the same template) There are a few hidden worksheets as the info is extracted from these to run reports.
The issue/s i have is that administrators use cut, copy and paste to repeat data opposed to retyping, this messes formats, formulas and validation up. I have used a macro from the net to remove this option and it works fine. Problem is that if they do not enable macro's this will cease to be an option.
I understand that you cannot remove the option of enabling macro's but you can force. Again used a macro from the web that if you don't enable it only shows a welcome page saying that macro's need to be enabled to use. (all others are hidden) if macro's are enabled the welcome page disappears and the worksheets 1-31 reappear. Again this worked fine.
I tried putting both macro's into the same workbook but kept coming up with errors, each one i resolved led to another.
So short of it i need a instructions/macro to force macros and remove cut copy and paste.
I need a macro that will take the values that are in the far right cells and move them to an area on the left. the columns they will be pulling from are the IU & IV column starting with row 2 down to row 460. from there I need the values to be pasted into the D & E Columns starting at row 6. The two columns IU & IV are a date and a task for that date. When they are pasted into the columns D&E they will need to be sorted by dates (or just all of the blanks removed), with the soonest occurrence at the top. The reason for pasting values is because I have formulas pulling the tasks and dates off of another sheet. The last thing is that the macro needs to be triggered by the information in cell c2, when that cell is changed the formulas go to work and everything in cells IU & IV update. That is when I would like the macro to kick in and work the miracle.
I have been trying to build a colony of formulas that could do it, but I have given up, then I tried to make an array index it for me, but that wasn't working for me either.
I imported data in to column A and it looks like it inserted a question mark (which I think represents a space or tab )before about half the names.
So when I import the data in my contact manager it inserts a square and throws off the import.
I know it is a simple question but have not been successful.
I am using Excel 2007.
All I want to do is copy and paste the data and remove all those question marks. I would assume it is simple as pasting with "remove formatting" but I am not seeing that option.Plus they are names so I want to keep capitalization etc.
I also tried pasting in a text file to remove formatting and paste in the text file.. (the names ended up indented) and then "paste special" back in to excel with no formatting .which I was able to do in 2000 but with no luck with 2007.
Im creating a form with a spin box option - however when i run it in test I always get a black border around the arrows. Its anoying because I want to make the spinbox small and it overtakes the arrows. I looked everywhere in the properties but can't find where to turn it off. I saw the arrorw and background color but nothing about the border.
I attached 2 pictures for reference.
I am looking to see if is possible to copy and paste a worksheet and then remove data( only values not Text) and also not removing formatting and formulas
View 1 Replies View RelatedMy goal is following:
I do an inventory of my schools equipment and have much info in many columns. But I just want to concentrate on column A.
This is example of the room names at my school and look like this:
Column A
A01
A01
A02
A02
....
to copy column C and D, from row 3 to the end, from sheet2,in sheet1, column A and B, starting with row 2 and after that I need to create a border to the copied values and I need to create a border to the empty cell from column C.
open attached file
I'm using 2003.
1. Copy cells B5 to V-First blank row in Strength Tests worksheet
2. Paste cells into Racks worksheet in cell C5
3. Change font size to 6
4. Sort by Column T descending then by Column C ascending
5. Copy one row (A5-W5 (1Rx23C)) from Racks worksheet
6. Paste row into M1 worksheet in cell D4
7. Print M1
8. Drop down one row on the Racks worksheet
9. Repeat steps 5-8 until there's a blank row.
This macro works fine on my machine but not with other users:
This should copy/paste certain cells then paste 3 sheets into a new work book.
ON other computers it seems to paste in a picture? works OK for me?
Sub ValidationTests()
'
' ValidationTests Macro
' Macro recorded 21/12/2011 by '
'
Sheets("Score Sheet").Select
Range("A8:M18").Select
Range("H18").Activate
Selection.Copy
[Code] ..........
I would like to implement specific cell ranges from two specific worksheets each within 33 workbooks (which all have several tabs) into a summary page in a separate workbook.
The cell ranges are going across my spreadsheet in rows and I would like for them to transpose into a columns depending on the data which I have separated by catergory on the summary page. They are all on the same location in each workbook which is separated by country. The cell ranges are E26:P37 and I would like to transpose them and have them put below eachother without overwriting for my format on the summary page, how I can put this together in a macro?
Attached is my code, pay attention to the bold part. I want the sourceSheet to be copied as a sheet and pasted in the targetSheet (the Sheet2 of "NewBook") but I want it pasted asvalues. Here is the specific part which needs to be looked at...and below is the full code.
VB:
Set sourceBook = Application.Workbooks.Open(sourceFilename)
Set sourceSheet = sourceBook.Sheets("Current")
Set targetSheet = NewBook.Sheets("Sheet2")
[Code].....
copy/paste Every Sheet Single ( P Column ) and Paste to Notepad and take P1 As file name for note pad.
View 1 Replies View RelatedI have one workbook that needs two macros.
On the "Complete Backlog" tab of my workbook, I want users to enter in the requested information based on the column header. Then I would like a Macro attached to a button that says "Refresh" that the user would click after they have entered in all of the information. This macro should look in Column M (WIP Status) and if any of the cells say "Close", it should Cut the entire row from the spreadsheet(Ex. A2:M2) and Paste it into the speadsheet titled "Closed Jobs".
This is so that as jobs are closed/finished, they are removed and stored on a separate sheet. The items would have to be pasted so that it pastes into the next available row - not just on top of each other.
I also need another macro that i can put into a button that doesn't "delete" a row from the sheet, but just copies over to another sheet - so that there are two instances in the workbook.
If would look something like: If a cell in "Column G / Director" of the "Complete Backlog" speadsheet is equal to "Snodgress" then copy columns A-L of the same row to the spreadsheet titled "Snodgress" - of course skipping down the rows to the next blank row.
.....is equal to "Herr" copy row to "Herr" spreadsheet.
....is equal to "McCormick" copy row to "McCormick" spreadsheet.
and so on.
HTML Code:
Range Apple
A B C D E
1 2 2 4 3
2 1 3 5
3 4 6 9
4 5 3 1 3
5 7 7 7 6
Range Pear
A B C D E
4 1 3 5
5 1 1 1
6 2
7 2 2
8 5 7
Range Apple
A B C D E
1 2 2 4 3
2 1 3 5
3 4 6 9
4 5 3 1 3
5 7 7 7 6
I m wondering if it is possible to cause a worksheet tab, within a workbook, to flash? What I have is a check box, that when clicked, opens up a hidden worksheet. What I would like to have happen is once the worksheet is unhidden, the worksheet tab begins to flash to show the user it is now active.
View 6 Replies View RelatedI originally posted this question with out the code I'm using. I am trying to make a specific cell flash to catch the attention of other dispatchers. The problem is when I we try to close the active page it will automatically open. The only way we can completely close the page is to close Excel completely. Doing this though also closes several other pages that we need to have remaining open.
Public NextFlash As Double
Public Const FR As String = "B3"
Sub StartFlashing()
If Range(FR).Interior.ColorIndex = 3 Then
Range(FR).Interior.ColorIndex = x1ColorIndexNone
Else
Range(FR).Interior.ColorIndex = 3
End If
NextFlash = Now + TimeSerial(0, 0, 1)
Application.OnTime NextFlash, "StartFlashing", , True......................
I have solved many problems with the solutions presented here.
I have multiple workbooks which contains numerous different dates.
and I need to make them flash when the dates are due within one week etc.
I would like to know what kind of command in vba or formula in excel it needs.
how to make an object, e.g. Oval Object to flash a solid yellow & white colour? I can make blinking cells, but not objects.
View 12 Replies View RelatedThis might sound daft, but im just wondering if it is possible to Flash text 2 different colours in a cell. Cell A1 will say - - - Well done. and I want it to flash blue and red, but not use VBA to do it. Can it be done or am I wishful thinking? This would be on Office 97.
View 6 Replies View RelatedI have the following code........
Which I have attached to button in Module 1.
The button is being used to remove duplicate names from a list of names and then copying the result before pasting it into another sheet.
The removal of duplicates works OK but when I try to paste I get a ........
A while back I was assisted with trying to prevent excessive screen flashing...
I was originally using the Application.ScreenUpdating=False method...but it was still a little jumpy... so Richard Schollar (a valued member in our forum) helped me with this code and it seemed to work...
Now I am trying to apply it again to another macro and it is not working so well. The thing I found is that on some people's computers it does work well, but not on mine.
Does anyone know why that is and how I can fix it so it doesn't flash on mine either?
I mean to format a cell in a way that it will flash if certain conditions are met. For example : to make C14 to flash if B14>0. Different colour formatting is not enough to catch the "oldies" eyes!
View 4 Replies View RelatedI need to get a range of cells to flash when they get close to todays date, I have tried but can't do it, not very good at conditional format or vba, easy step by step if poss, i have sheet if required,
todays date = 11/01/12 (in cell O1 as autodate)
title in cell K7 is date on site
in Cell K8 = 13/01/12
in Cell K9 = 19/02/12 etc....
I would like this cells background to flash if its 2 days from the onsite date
I have % figures in the following cells, E20, G20, I20, K20, L20, F24, H24, J24, G28, I28, H32, F16, J16, G12, I12, H8.
These figures are the result of a formula of other cells, with constantly changing values, therefore the % figures are constantly changing as well.
What I would like to do is highlight the cell with highest % figure, ideally to 'flash', either cell colour or flashing text.
Any way to make a button to blink if by the user form?
What I mean: I got a "UserForm", it got 9 buttons and each of them have a macro (everything works perfectly), but is there a way without affecting the current macro for each button, somehow when pressed chosen me button, it flashes while delivering its intended macro?
Sample:
UserForm:
in there
Button
in this button have a macro
Sub blqh_blqh
hfhglhgd
vfdbdfbd
End sub
..........​follows another macro to the button flashes................