Macro Which Run After Every Half Second
May 16, 2014Macro which run after every Half (1/2) Seconds..
View 2 RepliesMacro which run after every Half (1/2) Seconds..
View 2 RepliesI have a list of records that will eventually be used to create a pivot table. Sometimes an account number will be listed twice but instead of adding to the previous info, it needs to start a new record. I decided in these instances to mark the account number with a character (+). Even though the + will designate a separate record, I'd like it to be invisible.
Is there a way to automatically turn the font color white for only the +? Since I've automated the rest of the process using a macro, a VBA solution is fine.
When I enter 1/2 I want it to stay as a half but when I press enter it automatically changes to the date. How can I stop this?
View 2 Replies View RelatedI need to pause for 0.5 seconds (half a second). How can I do that. applicatiom.Wait can only be used for whole seconds and a FOR ... NEXT loop is CPU dependant.
View 3 Replies View RelatedI would like to round down to interger or half. I would give you some examples:
3.76 to become 3.5
2.48 to become 2
-1.12 to become -1.5
0.05 to become 0
I tried to use round down fucntion but I am not able to have the desired outcome. I thnink the issue is with the second argument of the aforementioned function. How many digits should be indicated? I put 1 but it does not work.
Is there any way I can split a cell in half, so I can put numbers in the left part of the cell, and the right part?
If so, I would I refer to those numbers in my macro?
I have two sheets. One containing in cell B2 "1211 - Extra Core Hours" (t_Cost_Centre_data) and then another sheet that displays the data. On the display sheet, there need to be two fields. Event ID and Event Name. The event ID is the "1211" and the name "Extra Core Hours".
My question is, how do I split the reference so that only the ID and name appear in the relevant cell?
Ie Event ID Event Name
1211 Extra Core Hours
Note, the ID's and names will change and they will be multiple.
Formula Help!.xlsx
I have a spreadsheet with members details in and I've added a few columns showing:
Col Q: Paid 2008 (blank if No, 1 if Yes)
Col R: Show Paid Yes or No (shows a Yes or a No)
Col S: Date Joined (only entered if new and joined during 2008)
Col Z: Subs owing from 2008 (if existing members and owe last yr's subs)
Col AA: Subs to Pay in 2009 (a standard £35 or pro rata if joined during 2008)
Col AB: Pro Rata (if they joined other than at the beginning of 2008)
Col AC: EA Sub? (based on a yes/no column, to add £5 if yes)
Col AD: Total to Pay for 2009
So the formulae (or data entered) for the above columns are as follows:
Col Q: Paid 2008 - blank if no, 1 if Yes
Col R: Show Paid Yes or No - =IF(Q2=1,"Yes","No")
Col S: Date Joined - a date entered in format d/m/yy
Col Z: Subs owing from 2008 - =IF(R2="no", 35,0)....I want a default 35 in here
Col AA: Subs to Pay in 2009 - =IF(S2="",35,"Pro Rata")....says that if there is no date which indicates they are an existing member, they will pay the standard 35, otherwise they'll be paying a pro rata fee...................
Problem:
It all works fine until a certain row (27 actually) - then I get a VALUE! error which points to the Date Joined field. Now I've tested that value against the vlookup table and it returns the correct data, so why doesn't it do it in my spreadsheet????? I've tried changing the formats on the cells; clearing all data; entering a different date, but from that row in the spreadsheet down to the last row, it simply won't work! I've looked at each formula in each cell on the rows where it is working and the rows where it isn't and I can't see anything different.
What else can I look for? It is SO frustrating as it does what I need it to to do but only for a third of the spreadsheet!!!!
Trying to take for example, 9/25/2012 and write a formula to make the resulting cell read 2H2012. Or 4/15/2012 and have the resulting cell read 1H2012.
View 5 Replies View RelatedWhen I go to print my 1 page document, I've selected to have the page shrink to fit onto 1 page. For some reason, when I choose this option to shrink, it doesn't print the entire document, only about 3/4 of the page or so. Something I did recently that was a little different that may have caused this but am honestly not sure is i added my company logo to the header so it'd print on the document too. If I added it as an image, for some reason it wouldn't print.
View 7 Replies View RelatedI have created a combination chart comprising a column and a line. The columns to the extreme right and left are half visible (I can only see half of the column).
Look at my two attachments to see what i mean.
Attachments:
Excel File: http://www.MegaShare.com/235337
Screenshot:
OR
http://img530.imageshack.us/my.php?i...icture1qi7.png
Note: I have cross-posted this thread in excelforum.com: http://www.excelforum.com/showthread.php?t=608124
I have large data sets with half hour values that I need to average into hourly values. Here is an example of the data:
28.12.2012
01:30:00
0,1
2,4
2,5
127,6
28.12.2012
02:00:00
0
0,9
0,9
118,5
[code]....
Is there a way in excel 2010 to cut out half of the data in a cell .. to make the top four in example to look like the bottom four?
1986 Jun- 9 to Jun-13
1986 Jun- 2 to Jun- 6
1986 May-26 to May-30
1986 May-19 to May-23
1986 May-12
1986 May- 5
1986 Apr-28
1986 Apr-21
calculate the full-width half-max of a peak in data? My chart (gray value vs. pixels) essentially looks like a letter M. What I've tried is finding the max of each peak, dividing that by two, and then using vlookup to find the corresponding pixel values on each side of the peak. But, since vlookup does not work for descending values, I cannot find the half-max value on the right side of each peak.
View 2 Replies View RelatedI have a worksheet containing one timestamp column and a single column of data, the interval being one minute. How can I aggregate it to get half-hourly totals?
View 4 Replies View RelatedI have huge columns of data that can only be 30 characters long. I want to use a formula to split the column into two. The original column will have a character limit of 30, and should not cut words in half. If the Length will be more than 30 while including the entire last word of the cell, that word should be the first displayed in adjacent cell in the 2nd column.
The 2nd column can be any length.
I usually use a Text to Columns method, but dont know how to make it not cut off the words.
I am running 2 audits on aspects of patient care. The first audit records a unique number that identifies the patient, and then a series of answers on demographics, and other stuff.
The second audit also records the unique number, and collects some other data on the particular patient at a later point in time (medication usage, levels of pain etc).
So in theory both audits will collect different information on the same patients. In practice, some patients will be missed and there won't be matching data sets. The order of collection won't be the same either, ie Audit 1 might be in the order of Patient 1,2,3,4 etc but Audit 2 might be patient 2,4,1,3
For various reasons these two data collection tools are not linked, and I end up with a spreadsheet for audit 1 and a spreadsheet for audit 2.
I need to merge these so that I can see all of the data for a particular patient at a glance, and where the gaps are, and apply some statistics to it etc. I could sort both lists by the unique audit number so that they are in order, and then copy blocks of data over from one sheet to the next, but there will be records missing, i might make a mistake with the alignment, and I'm sure there must be a better way.
I am using Excel 2010. Each audit case has about 50 columns of data for Audit 1 and 30 columns for Audit 2 . There will be ~20 new records (Rows) created each week that I want to progressively merge.
i have created a xlColumnStacked chart using VBA in excel 2000. i would like to place a line in the center of one of the Points(). How can i locate a specific point, for example Points(1), so what i can then "draw" a line in the center
View 7 Replies View RelatedI want to create a macro or formula for changing the colour of the cell after half an hour of inputting.
View 3 Replies View RelatedI'm battling to come up with the formula to calculate time and a half and double time. My boss wants me to show the overtime worked AFTER 40 hours has been worked. I have attached a copy of my spreadsheet.
View 4 Replies View RelatedI am trying to make a save&close workbook macro.
I found several examples on google, but unfortunatly it conflicts with another macro I use for forceing users to enable macros (hide all sheets except one if macros are disabled).
The attached file is an example contaning the save&close code and the show/hide sheets depending on macros enabled.
If the file is opened with macros disabled then only one sheet will be visible.
If the file is opened with macros enabled other sheets are visible.
The problem if that this code uses a custom save, witch makes the save&close not save... (in module1 and in ThisWorkbook)
The pourpose of the save&close is to make sure some users don't forget the excel open and thus block access to it. So if a certain idele time passes excel has to save and close without any confirmation messages.
I'm using a CALL Macro to split up a HUGE macro into different pieces:
Code:
Sub RSLDASHBOARDV2()
'Macro recorded 12/14/2010 by Ryan R. Koleno, Pharm.D.
'Last Updated 7/10/12 by Ryan R. Koleno, Pharm.D.
'Do Not Modify Code Unless Given Proper Privileges to do so.
Dim APPSPD As Worksheet
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
[code]...
The first few macros dealing with page setup and what not work fine but when it hits the Pivot table code for the STATSPIVOT macro it errors out stating: "Run-time error '1004': Unable to get the PivotItems property of PivotField class' at this point in the code:
Code:
objField2.PivotItems( _
"TRC").Position = 1
objField.PivotItems( _
"MEDCO MAIL OR AOB").Position = 2
When this macro is not split up it worked fine as written. Am I overlooking something in the Call Macro's code or is there a variable I'm not aware of. I have included the Pivot Table code that errors out as well.
Code:
Sub STATSPIVOT()
'STATS PAGE BASED ON STATS DATA TAB
Sheets("STATS DATA").Select
Dim objTable As PivotTable, objField As PivotField
ActiveWorkbook.Sheets("STATS DATA").Select
Range("A1").Select
[code]...
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 have a macro where I manually select a cell then the macro kicks in to copy and paste the contents into the Find function. From there it goes to another work sheet, clicks on a cell in column one and searches for matching cell contents. Then If false it manually goes back to the original worksheet/cell and then I input a N in the left adjacent cell. If true I enter a Y. Right now I can only run this for the specific cell the macro was recorded for. I would like to expand this.
What I would like to do create a loop in the macro that waits for my cell choice input then continues with the with the Find function. If false the macro should just loop back to the original worksheet/cell and wait for input, ie the next cell selected. However, if true a worksheet/cell is selected, a Y is input and it loops back to the original cell and waits for input.
This is the code I use to call a macro when the macro Im calling is in the same workbook.
[Code].....
However, I would like to call this same macro when using another workbook. I copied the macro "Clearformating" and pasted into a personal macro workbook module. However when I add this code to the sheet tab it will not run the macro.
I also tried this code.
[Code] .....
I have a macro that I found somewhere on the net to look within a folder and list all the files of a certain file extension.
The macro to do this is in the attached example and is called 'Get_File_Names_Within_Dir_ext'.
I have created a basic userform outline, 'UF1' for the user to define:
Select File Extension
Select Folder to Search
Destination Sheet
I just don't have any idea how to sync the two.
If you type 'exe' into 'TB1_File_Extension' of 'UF1' the macro should search for '*.exe' files within the specified folder.
The search folder 'RefEdit1' box should open a windows explorer box (or some such) so that the user can select the directory in which to search for the previously specified file extension.
'TB2_Destination_Sheet' is a text box for the user to type the sheet within the workbook in which to list the files found within the specified directory.
'CB1_Find_Files' should activate the macro to find any files for the specified criteria.
There is also a Button 'Find File Types' in Sheet1 of the file which should activate the userform 'UF1'.
I have a worksheet in which I have a worksheet_change macro. This worksheet_change macro makes sure that a few cells will keep their colors, even if the user copies and pastes a new value to that cell. This worksheet_change macro runs each time there is a change on the worksheet. Now my problem is that on the same sheet I have an update list macro which updates around 20.000 rows and two columns (which is alltogether around 40.000 values) and it takes a while to run. So.. it takes a loooooooooot of time (too much) when these two macros both run.
My question is that can I somehow disable the worksheet_change macro while the update list macro runs. I mean something like when I start the update list macro to disable worksheet_change macro and when the update list macro finishes, then reenable worksheet_change macro?
I need a macro to get the values from cells D29 and H24 in the Resource Calculator sheet and populate it into cells N8 and O8 in the Input form.
Users will then be able to change the information in the calculator and click the macro again to populate N9 and O9 and so on.
Is there a way to do this?
I've attached the file for you to see.
I have a macro which refreshes a query when the spreadsheet is opened. This works fine when online.
However, if the user is not online, the query is unable to refresh and the macro just hangs.
Is there a code which will enable me to say " if unable to refresh then move on to the next line"?
here's the code below.
Private Sub Workbook_Open()
Sheets("Houselist").Activate
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Front").Select
Range("A1").Select
End Sub
I am looking for a macro that i can store in my personal.xlsb. what i need is pretty much is something like this
private sub workbook_open
if workbook.name "inventorysummary.csv"
then application.run "personal.xlsb!capacity"
end sub
I only need it to run just for this file and i cannot place it in the file due to it gets replaced every day. Which if it didn't get replaced. I know how to do auto opens when the file stays the same I am just unsure for this.