I've a file that uses user respone to navigate through a number of charts like a slide show (not my work - downloaded from PHD I think). To move from one 'slide' to the next users are required to select "Ok" on a OK/Cancel Msgbox. By default the MsgBox pops up in the middle of the screen. I'd like to control the position of the MsgBox programmatically.
View 4 RepliesIt seems that you can change position when you editing comment and its remembered, but when its showing its alway's on default position.
Is there way to change position of displayed (when you mouse over cell and coment pops up) comment position?
Is it possible to position a predetermined cell (e.g. A42) in the top left corner of the screen. (Not every screen users use has the same size)
View 3 Replies View RelatedStarting at cell H4 and down, I have data pasted to whatever last row, this is a helper sheet/vba thing that helps to create the Case Statement for SQL queries, we have many of them, broken into Pages. So this works great, grabs the data and puts 'data','data2'
The only thing is that in the last data cell in the loop, it leaves off an extra comma, as in:
'306','307','308','309','310','311','312',
I need help in removing that extra comma if there is nothing left to process in the loop so it would look like this:
'306','307','308','309','310','311','312'
Sub Test_Range_Loop()
Dim x As Variant
Dim rng As Range, cel As Range
Dim lr As Long
lr = ActiveSheet.Range("H" & ActiveSheet.Rows.Count).End(xlUp).Row ' find the last row from the bottom-up using H
With ActiveSheet
Set rng = .Range("H4:H" & lr)
For Each cel In rng
x = x & "'" & cel.Value & "',"
Next
.Range("I1").Value = x
End With
End Sub
i need to be able to alter the tab which is specified in a VLOOKUP command depending upon which value is given in a drop down box.
ie if the drop down box reads 2 the VLOOKUP should search for an item reference given on tab 2 etc.
I have a userform called "DBQuery" and textbox in that called "Query".
What i need is a piece of code that will search the text in the box (after update of course) and Capitalise certain words (SQL ones like "SELECT, FROM, WHERE, AND, IN, LIKE, IS, NOT") and chenge the font colour blue?
I'm currently trying to create a rota timesheet which automatically takes shift patterns and deducts for unpaid breaks.
Basically if a shift is less than 4.5 hours long then no break is deducted
If the shift length is 4.5 - 6.5 hours then 15 mins are deducted
If the shift is longer than 6.5 hours then 30 mins are deducted.
The Macro Sub Match() works great, it is blazing fast.
It matches Col B on Sheet(1) to col B on Sheet(2) and returns the match from sheet(1) to sheet(2) by inserting a col D in sheet(2) and returning the match found to the row at which it was found in col B.
But I need to return not just the matching name from col B but the cells on the same matching row from col C, D, E, F, G, H ,I from sheet(1)
I do not understand to code well enough to do this
I am trying to replace this which is very slow
[Code] .....
I need to changing the time data in my Time of Turn. I would like to subtract one hour from every data entry in the column Time of Turn, ie from 9:35 to 8:35, 9:55 to 8:55, etc. How would this be done with a macro for the entire workbook?
View 7 Replies View RelatedI have a column that has a date in it. If the day of the date = 07 (Ex: 08/07/2009 or 12/07/2009 etc etc) then I want to alter the font color of the ROW to be blue...or even just the text....
View 9 Replies View RelatedI have a workbook with several tabs. One tab is named for the year eg 2014. Annually, I open the workbook, rename to the new year and rename the year tab to the next year eg 2014 to 2015. All the dynamic range names update as expected. Sheet2(2014) becomes Sheet2(2015). However, a line of macro code does not change and errors out because the year does not change.
Is there a way to dynamically modify the '2014' sheet reference to reflect the renaming of the year tab eg to 2015 or to reference a helper cell named YEAR?
The cell referenced above R332C1 is dynamic.
I have tried writing the above line many ways based on internet research but no success. I suspect I can use a LEN function to actually modify the line of code but I'm not sure its even possible to alter a macro dynamically to meet my needs here.
i have loads of oval shapes on a sheet and i am trying to loop through them when i open the workbook and change the interior color to red. however i'm getting an error and i can't figure out why?
View 2 Replies View RelatedIs there a function or macro that can take a list of about 200 numbers and search for these numbers throughout the workbook, If 1 of these numbers exists anywhere in the workbook, it changes the color of the number or does something to the number where I will know this number is part of the exception list? The list of 200 numbers in non changing, however the numbers I want searched will change daily. There will also be worksheets added and taken away that contains these numbers.
View 9 Replies View Relatedis there any way by which you can alter the number of decimals in a custom format using just custom format process (ie no VBA).
For ex:
12 should appear as 12
12.1 should appear as 12.1
12.26 should appear as 12.3
Note 12 should NOT appear as 12.0
So point being adding the "m" is an irrelevance at this time - the key is to vary the decimal points essentially based on MOD(value,1) = 0
If you can (I'm really thinking you can't) let's extend it such that 12.1 should appear as 12.1 but 12.26 as 12.26
I know you can use [value>x] type rules but I'm guessing you can't use formulae in those rules ?
I would like to use a pivot table to manipulate my data. However, I need to be able to select data within my data set by a range of dates (usually a week). Is there a way to use a pivot table but reduce the data set by a user enter range of dates?
The date field is the first column in my data sheet.
I have a sheet used to process sales orders - about 500 orders per month x ~1.5Mb each. I want to save them as smaller files.
The sheets to save are full of vlookups linked to external sheets and tabs, other formulas, and macros - most of which do not need saving when the sales order is filed. There are lots of merged cells too.
I must save:
1. Cell values
2. Cell formats incl merged cells, borders, colour, font etc.
3. The row and column sizes
4. Print set ups - print area, margins, page setup, header footer etc - (Everything needed to reprint to same as original)
I think I need a "File save as" style Macro which opens a dialogue box for the user to nominate the destination folder (& allows the user to browse for it), and a new file name.
The original file name is "Job Sheet - Omlaw.xls"
The tab/sheet to save is "Front Sheet"
(There are two other tabs - neither of which need saving.)
All cells to be changed to "locked".
The sheet must be password protected in Excel. User to enter it - or not.
The saved file should be "write protected" if possible?
in my spread sheet i am trying to use the if function to compare the current time ( vb code used) to a time i enter to alter another cell.
for example
if A1(current updating time) = A2 ( time i choose) then
B1( some value ) = B2( another value)
the point of this equation is to have B2 update its value from B1 every day so today B2= 3 and B1 =4 then tomorrow B2 would = 4 etc , i just dont know how to do it.
I need to alter this code in order to do 2 things
1. to leave a blank line inbwteen Shop A's Apples, Shop A's Pears etc
2. I also wanted to total up the price totals....(see example below).So if the last price was in E4, the total of all those prices above would show in F5 ....
I have attempted to alter this example to simply check if the cells are not blank by replacing the "X" with "<>", but I get errors in the SMALL function--it looks like the IF statement is just returning an array with all of the values set to FALSE, and none of the values in the array call out a location of the next filled cell.
How could you alter your fixed XLSX file to check for non-blank cells instead of "X" specifically?
I need to use the Worksheet Change event in a particular sheet in a specified column which works fine if the data is already there in the sheet and then changed however,the data is in this sheet is actually a Sub-Set of a Main sheet i.e certain filtered records are being copied from Main Sheet and then copied to this IBSL Sheet.
After the data is copied I have to check each record manually and then categorize each record as Fresh , Rebooked , Cancelled , Tranch or On-Hold.....These 4 criterias are added in the Column 38 and the same thing has to be repeated in the column 40 , so when i change the data in the column 38 the same category has to be updated in the same row in the column 40..
But the problem is that the data is first copied from the Main Data Sheet into the IBSL Sheet using a Macro so then this even t gets fired and goes in the DEBUG MODE...
I need this to happen when i change the category manually..I am adding data validation at the same time while copying the data in to the TEMP sheet.
So what can be done to achieve..
I need the macro to look at cells B9:B84 on the Sheet1 tab of the Cost Template. If it finds an x I need it to copy the 3 cells to the right of the x and paste them in a template. For example if it sees an x in cell B9 it would copy cells C9, D9 and E9, open the Purchase Order to the Detail tab, then paste it to cells B3, C3 and D3. It would continue looking for an x down to B84. So if it found 5 cells with x, it would give me 5 instances of the Purchase Order with 3 cells pasted into each.
I've attached my Cost Template and the Purchase Order it needs to copy to. In the Cost Template is a macro called Create_PO. This is what I was trying to alter to make this happen. I can't seem to get it right! FYI in case it matters, I had to change the Cost Template from .xltm to .xlsm in order to upload it on this site.
i have been trying to add msgbox to show that if textbox1 and textbox3 are empty than show "please enter i.d or lockern no but if textbox3 is true than run the code or textbox1 is true than run the code.
View 1 Replies View RelatedI am currently setting up a ID/Password function on my spreadsheet. On the main page is the login boxes and an Ok button. When the Ok button is pressed, I have a formula that checks the user ID and Password and if correct, it types correct. Otherwise it types incorrect. This is using;
View 2 Replies View RelatedIn one of my spreadsheets users can see the active period on multiple worksheets
All have cell references to the 1st worksheet (cell B5). I would like 2 things:
1. If users change one of the reference cells on the other worksheets I would like a msgbox to appear
2. After clicking the msgbox away I would like the "old" cell contents (the referenece) to be restored.
I want to change this so there is a MsgBox vbYesNo button below where it tells you what cells are found & says:
"Is this what your searching for?" If yes Box closes. If No Continues Search.
How would I go about adding it to the code below?
If range K1:K1000 has "Yes" in there, to display a msgbox
But if there is 300 Yes's, how do i get it to do just one msg box and not 300
I would like it on a sheet Worksheet_Deactivate
* note K1:K1000 are drop downs with "Yes" "No" "Potentially" options
Hi, Please could someone help with the following code. I have 2 sheets 'sheet 1' and 'sheet 2'(hidden). Sheet 1 has a control button that takes you straight to sheet 2, however what I wish to achieve is that before sheet 2 is visible a message box appears if a condition is not met. Something like, if sheet 1 R29 is less than 5000 then msg box appears (I would need about 4 lines in the msg box), if ok'd then sheet 2 appears. If the condition is met i.e sheet 1 R29 = or is greater than 5000 then the msg box does not appear and takes the user to sheet 2.
View 8 Replies View RelatedIs it possible to modify and code not to have the OK button. I need to to be information process only. I have a long macro i need to user to be aware where in the macro run we are. I wanted to use this code... but i do not want to click the OK button i need it to just show that that step is completed etc...
MsgBox "October Finished", vbInformation
I am trying to have a msgbox come up if there is a path found it will pop up a msgbox for a few seconds then go away. Im trying to avoid the user from having to select anything just simpley telling them the connection is there then go away on its on. The code below is what Im currently using.
Code:
If Dir("H:") = "" Then
MsgBox "Error: Drive, path or file not found"
Else
MsgBox "OK: Drive, path or file found"
End If
I would like to add a MsgBox letting the user know how many days are left before the Trial Period is up.
Code:
Private Sub Workbook_Open()
Dim StartTime#, CurrentTime#
'*****************************************
'SET YOUR OWN TRIAL PERIOD BELOW
'Integers (1, 2, 3,...etc) = number of days use
'1/24 = 1Hr, 1/48 = 30Mins, 1/144 = 10Mins use
Const TrialPeriod# = 5 '< 5 days trial
'set your own obscure path and file-name
[Code] ..........
I was thinking of:
Code:
MsgBox "You have X number of days until you Trial Period expires."
But, I don't know how to code the part in Red to register a Count Down from the first day opened to the next.
It may be opened more then once per day. I just nedd a message on day 2nd - 4th day.
If opened on the 5th day, the rest of the code executes, closing the Workbook.