Everything works in the script. It is a little slow on some of the users pc's.But they discovered a problem when they paste more than a couple values ,the workbook locks up.
1 I like to know how to speed this up?
2 I would like to understand as to why excel locks up.
You can recreate the lock up by picking a name from the drop down list in column A5 then Copy that name and paste in A6 To A10. I'm using Excel 2002.
I have a workbook with several sheets, but just on the sheet called “sales” I need a macro to do the following:
If F4 = CST
Then Lock down H4-S4 and AM4-AZ4
But if F4 is changed to something else I need H4-S4 and AM4-AZ4 to be unlocked
Is a password necessary for this? It is ou
I just want it to lock and unlock, not protect and unprotect.
I've been having trouble recently with my workbook file size growing rapidly due to copy and paste commands and such. I found a very nice macro to reduce file size called ExcelDiet located at [url]
Option Explicit
Sub ExcelDiet()
Dim j As Long
Dim k As Long
Dim LastRow As Long
Dim LastCol As Long
Dim ColFormula As Range
Dim RowFormula As Range
Dim ColValue As Range
Dim RowValue As Range
Dim Shp As Shape
Dim ws As Worksheet
Application. ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
This code works fine until I share the workbook. Can anyone take a look at this code and provide some information as to why this might be happening?
I am making a spreadsheet that sorts and pastes, but I need to know if I can add a code to the Sort and Paste Macro that will open the second spread sheet needed without just already having it open and using the
Windows("estimate sheet one.xls").Activate
I've created a form and would like to use a macro to transfer the form information details (form) from an intermediate worksheet (database intermediate) to the main database worksheet (database).
So far I've only been able to record a simple macro that will do just that. However, when I click on my assigned macro again, the information is washed away and the new form details have replaced it. Been trying to use the x1down coding to make it such that each new data goes onto the subsequent line? But I can't seem to get it right without getting an error message.
I've attached the file to give you a better picture,
how to unprotect the sheets in order to be able copying datas to to certain cells.
The unprotection works but only when I start the macro the second time. I do not understand why.
After I did the updates I want to reprotect the sheets but that seems not to work in my case.
ActiveSheet.Unprotect Password:="my_password_here"
'unprotect the sheet
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="my_password_here"
' Reprotect the Sheet
Writing the code to assign a button so when I click it it types or pastes a short response on the body of a reply message or where I place the cursor.
View 5 Replies View RelatedI have a workbook that contains several macros and many formulas. It
works beautifully until I try to print or do a print preview. Then it locks
up excel and I have to restart. Any ideas about what is causing this?
Autofilter is turned on in a weekly spreadsheet that I receive. Functionality to move around by arrows or page up/down works until I select something out of an autofilter drop down. Screen locks in place. Can't arrow down or up (but can go left/right). Page up/down is broke also.
If I exit and re-enter it works until I filter. Scroll lock does nothing.
In a cell there would be a formula, an "if" formula and I want to know is there something in Excel that will lock in a true statement. Like lets say in cell "A1" a formula would read =if(b1>1,.001,.002), I want to lock in a number when the statement is true. Cannot be change no more after when it is true.
View 9 Replies View RelatedI am importing external data to "Workbook A" from the source workbook, "Workbook B." Workbook A is set up to refresh every 15 minutes. Workbook B is shared. I am recieving an error saying either, the 'file is in use', or 'the file is locked,' depending on the senario.
Scenario 1:
1. I open A and enable data connections.
2. I try to open B, but receive the message: '(File location...) is in use. Try again later.
Scenario 2:
1. I open B.
2. I open A.
3. I go back to B to edit information.
4. When I try saving the information I get the following message: 'File is locked. Try the command again later.'
I need to be able to have A open and periodically refreshing. I also need to allow users unhindered access to B at the same time.
Is this possible using code: Copy Cell A1 and Paste in first empty Cell down Column D. This would be connected to a command button. Both Cell A1 and Column D are on the same spreadsheet.
View 3 Replies View RelatedI've tried to change the line highlighted in red to 'Sheets("Financial Accounts").Pastespecial After:=Sheets("changes")' but the macro crashes.
Sub ConsolidatedTotals()
Dim BeforeSheetName, NextPageName As String
BeforeSheetName = "changes"
NextPageName = "Financial Accounts - " & Worksheets("assumptions").Range("c3")
Worksheets(ActiveSheet.Name).Select
Sheets("Financial Accounts").Copy After:=Sheets("changes")
ActiveSheet.Name = NextPageName
End Sub
I got this code the other day
Private Sub CommandButton11_Click()
Sheets("Invoice Page").Select
Rm = 3
For c = 1 To 5
Rm = Application.WorksheetFunction.Max( Cells(1000, c).End(xlUp).Row, Rm)
Next c
Range(Cells(3, 1), Cells(Rm, 5)).Select
Selection.Copy
Sheets(" Records Page").Select
c = Cells(3, 256).End(xlToLeft).Column + 2
Cells(3, c).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
And instead of pasting the cells i want it to paste speical so it just pastes values rather than formulas.
[URL]....
I have 4 workbooks, all of them contain data that is managed by other teams at my company. I need to take all of this data, organize, and concatenate it into one sheet for myself, that I will then reference in other workbooks to various OTHER departments in our company that need the data for certain projects. I have the organization laid out in a lot of very complex formulas so that most of this is automated, and not manual.
I need a solution that can pull data from the 4 workbooks without locking them for use, to allow me to keep my document open all the time, and they can update theirs at their leisure. Everything works fine, until I hit the refresh button. Once this is hit, all of the linked documents are locked and cannot be opened, even in "Read Only" mode. Once I close the master document, the files are free to be opened. I know a workaround for now is that i can not "refresh" the document, but rather close and re open it for changes.
Some steps I have already tried :
1. Create an intermediary file that no one uses, and can be locked all day without a problem. This doesn't work for me since the intermediary file needs to be open to refresh, which locks the original source doc, leaving me in the same place as before.
2.Modify the connection string to display "Mode=Read;" instead of "Mode=Share Deny Read"
3.Create a new connection with "Read" only selected in the Advanced Tab
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?
I 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.
I have created a workbook that imports data from another workbook which is used frequently on a network drive. After I import the data to my new workbook, it locks the original workbook for editing. Is there a property that will allow me to disable this 'locked for editing' read only mode or any other way to get around this?
View 6 Replies View RelatedI have a macro that does lots of cutting and pasting, and to make sure it can run without interference from my normal work, I did add the line Application.Interactive = False. But seems while I am cutting and pasting in other windows while the macro runs, sometimes it crashes on the paste part. Is the macro and the Windows Operating system sharing the clipboard?
FYI, Windows XP professional, Excel2000.
There is a lot of data that I need to transfer on to an archive sheet. I have recorded a macro that will allow me to copy and paste data onto the Archive sheet but I need to keep the information on the Archive sheet and have additional data paste on the next available row on the Archive sheet
Below is the VBA code of the recorded Macro, what do I need to add to have it paste on the next availble row on the Archive sheet.
Range("B4:F10").Select
Selection.Copy
Sheets("MELB ARCHIVE").Select
Range("B3").Select
ActiveSheet.Paste
Sheets("MELB RAIL 2").Select
Range("B4:F10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B4").Select
I want this macro to find in this case "406" in column A which is at the very end of the last block of 160 rows of information.
I then want it to move up 159 rows and copy 160 rows of information underneath the last block of information.
i.e.go to A5280 , then go to a5121, copy rows 5121:5280 to 5281.
It falls over on the very last line of code I can see A5281 selected but it won't paste....
I am trying to use a cut and paste within a macro.
I have code working fine if I do a copy and paste which is as follows:
I have two files and need to copy the information from columns B,C,F,H rows 5 true 29, and past it in the other file in Columns B,D,G,J; rows 3 true 35.
The code that I have works fine, but have one problem - it past the info in the rows starting from 37 instead from row 3. Here is where I need your help. The code is triggered when the condition Arr ( arrived) is chosen in the column AH ( file Delivery Status) and then the specific warehouse is chosen in the column AI. To make it easy I have left only one warehouse as a choice.
Attached you can find sample files ( I have delete the info from the heading cells as it was in another lenguage)
I need a little look on a Copy Paste Code, as bellow:
View 3 Replies View RelatedHow to create a vba code that would emulate the following:
=$F$8
I am trying to write a macro that Copies the last row of data in one sheet and Pastes it into the first open row. I'm assuming I can't do it with the macro recorder because I wouldn't be specifying the last row and first row. Does anyone know what the code might be for these actions
View 9 Replies View RelatedI created this spreadsheet a few montsh ago to help with forecasting for my companies products. The tabs of interest are the HIST vs FORECAST, FORECAST TOOLKIT, and the FORECAST TABLE tab – now the FORECAST TABLE tab is always hidden and if you unhide it then it will rehide itself once one of the macro’s is run. I set it that way to prevent people accidently making adjustments to the forecast data.
The way the sheet is supposed to run is that when you are on the hist vs forecast page then you can click one of the grey buttons on the right which will then graph the numbers for the relevant product on the toolkit page – so far so good, this bit all works fine, there are separate macro’s for this each named after the product they control.
Then once you are on the toolkit you can play about with the numbers until you come up with a 6 month forecast you are happy with which will be on the 6 cell line in the bottom right were it says “ IMPORT”. You can then click on the “IMPORT” button which will then copy and paste it back into the forecast table under the relevant setting – the macro for this is called IMPORT2 and it works off a “product” range and a “ date” range – again this pretty much works as intended.
Sub IMPORT2()
Dim nDate, nProd
With Sheets("Forecast Toolkit")
nDate = Application.Match(.Range("O31"), Range("Dates")) + Range("Dates")(1).Row - 1
nProd = Application.Match(.Range("I3"), Range("Products")) + Range("Dates")(1).Column...........................
Normally when a code copies a cell value from Workbook-A, closes Workbook-A and then pastes the value into Workbook-B it works flawlessly. However, i noticed that this doesn't work in all case, for example when a code repeats itself with the "For - Next" function then when the code copies from one workbook to the other it causes an error.
Here is my code and i made the part of the code that is red is where the issue lies.
[Code] .....
Here is the file rCell.xlsm, in order for the code to execute you need to select the green cell. When you hit the macro a copy of the workbook is placed on your desktop. The code then tries to copy a range from the copied workbook and paste it in the original macro workbook. The pasting part is crashing. In the code i marked the issue in red.
View 1 Replies View RelatedI used a posted code to copy web query data from sheet2 to sheet1. Then a friend modified the code in order to Copy it to a new row in Sheet1 instead of a new column. The code works perfectly but I really wish that when the data is copied from Sheet2 to Sheet1 it will be only Values in order to keep my formulas and formats.
I read about .PasteSpecial xlPasteValues but I don't seem to find where exactly I should write it within the code.