How can I make this code repeat itself on different lines?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sheet1"). Range("A10").Value > "" And Sheets("Sheet1").Range("B10").Value = "" Then
MsgBox "Please Enter Order Number in Line 10"
Cancel = True 'cancels the save event
End If
End Sub
The code works perfectly for that one line but I need it to repeat independantly in the same columns but for rows 11 up to and including 23.
If I need to make the message generic like " Please Enter Order Number" then that's fine.
How I can go about finding missing entries. I have an excel sheet that has column A as employee name and column E with a date. There are 10 employees so there should be 10 entries for each date. I need to be able to determine which employee hasnt entered information for a given date.
I have two spreadsheets, on that gets generated everyday which is a "fuel transaction report" and another with "captured fuel"
I was wondering if its possible to somehow intergrate it so that it will automatically show me if the "fuel transactions" have entries that does not reflect on the "captured fuel"
See, I need to cross check the two reports to see if there is any missing fuel from the statement report from the supplier to what is getting captured by my people.
I just want to know whether is it possible to condional format multiple cells based on multiple cell values.
Eg: In the attached sheet,when a driver is standby and the vehicle no column should be empty,if accidently a data entry is done in vehicle no column it should highlight the whole area (ie,from A3 to E3).
Hi guys/gurls.. is there a way i can get the following check against range for orders which give result as invoiced(if within the range), duplicated(if 2 or more than 2 are on the orders list) & missing (which on not in the orders when checked against the range).
I have created a user form for some data submission. I am looking for a macro to check the text boxes, that I have named appropriately i.e. Name, Address, City, State etc. , to make sure there is something entered.
If nothing is entered it needs to return a msgbox that says what field is blank.
I have a column A with some dates at this format "dd-mm-yyyy hh-mm". In this list, some hours are missing, and I don't know which ones.
In order to find the missing hours, I created an additional column B, displaying all the hours, this way: B1=01-01-2006 00:00:00 o B1=A1
And then : B2=B1+"01:00:00"
Then, in column C, I compare both columns A and B: C1=IF(Value(B1)=Value(B2),ok,missing)
As a result, I first get some "ok", and then more and more "missing" statements, even though the dates look the same.
I checked the numerical values of my dates. At the first "missing" statement, I saw that there is a slight difference in the numerical values, at small decimals...
Can you tell me how to define my date /time in a good way, in order to avoid this kind of problems, please? (I could take the int part of the numbers, but this could lead to further errors, so I prefer to define my dates in the right way, from the beginning).
The other day, I had posted a macro, which copies one of the sheets from a workbook, on to a blank sheet, and then saves it with a name obtained from the value of cell E7. I required certain modifications to it, before I could implement it.
You will find it here and the code looks like this:
I have a macro used to save a worksheet, its placed on the DATA sheet. is there a way so that when the user clicks this button each row 12:200 is checked for empty cells in that row (cells B:P). If a row is found the ref number in column A of each row is placed into next available row in Sheet3
For example : A12 = 12345 A13 = 6789 A14 = 9876 A15 = 54321
the DATA sheet is populated with various data in rows 12:15 it is found that B12, L12, E14,F14,P15 all have no data, so the values of A12,A14 and A15 are placed into next row in Sheet3
Result in sheet3
A2= 12345 (valuse of A12 in DATA Sheet) A3= 9876 (value of A14 in DATA Sheet) A4= 54321 (value of A15 in DATA sheet)
Finally a message box to state there is missing data, for example
"there is missing data from refs 12345 , 9876 , 54321" ie the list pasted into sheet
I have created a userform that contains textboxes, option boxes, and comboboxes. I need to make sure that there are no unanswered fileds when the submit button is hit. Preferably Excel would check for empty fields in the userform when submit is pressed. If Excel finds that some fields are empty it would prompt the user to correct the problem before the userform would post the data to worksheet. My efforts so far have prompted the user to change the data, but still posts the data before the change is made. Basically the submit button keeps running through the code right after it prompts the user for the change.
If textbox1.value = Empty Then msgbox("Please enter information into textbox1") End If
With this the msgbox appears, but doesn't stop the submit button from posting the incompleted data.
I have a userform that I use for data entry with lots of combo boxes, list boxes and text boxes
One thing i haven't cracked yet is to check for duplicates against two matching fields
If a user (for example) enters 'SAB' (which will be stored in column A) and then 'UK' (which will be stored in column B) and there is already an exact match for both, then I need to inform the user that a matching record already exists
The following is OK: (the dots below are meant to illustrate spaces between the columns!!) Col(A).....Col(B) SAB........UK SAB........USA SAB........Italy
I'm entering some time data (in format hh:mm) into Columns. Pretty basic Workbook that I have been given and, to be honest, it's just donkey work putting the data in. The times going down the Columns need to be progressive (ie B8 is arrival time, B9 is admission time etc). This goes through to B27 and then repeats from C8-C27 and ultimately J8-J27.
I'm looking for something as a formula to pop into Column K (or VBA, I don't mind!) which will do a simple verification to ensure that the times I enter is not less than the any of the cells above in the aforementioned ranges. I can do simply the cell above, but due to rusting of brain, can't think how to do this for the range!
I have a user form with 10 textboxes on and when you press the command button, VBA will send the values in each text box to a cell on the sheet. If a user only wants to enter one value, it zeroes all the others in that row!! Does anyone have any ideas please in very very basic lamens code!! It is only relating to the user form called "Figures1". I had an if command running in the "decweek1" modules, but it makes my procedure too long to do the same with the other one!
If you look at my code, you can see how unadvanced I am with this so really simple code would be gratefully received!! If anyone feels nice enough you could always write the code for this problem for me and send me back the workbook, however I don't expect anyone to do this!
I have a problem with a user form that I am using to update information in a cell. If the text box is left blank it overwrites anything that is already in the cell.
So I have two columns, in column a, i have a list of zip codes and in column b i have a larger list of zip codes. is it possible to find what zip codes in column a appear in column b, and then output those zips?
How do you remove entries from a column such that only unique entires are left?
Say the spreadsheet contains only a single column:
david kris tony hayley kristy john david test hello david
I tried an "advanced filter" with "unique records only" checked. It gets rid of one david, but not 2 (there are originally 3 of them, and we want to leave 1)
This is the result. david kris tony hayley kristy john david test hello
If input is entered into column C (range C2:C100), then row cells for columns D, E ,F, H or I must NOT be blank upon save. Could be that one or more of these row cells are left blank by mistake.
An error msg pops up upon attempting to save, stops the save and colors each cell yellow that needs info entered into.
I have two columns which i want to compare, they contain text data such as A123.
what I'd like is if its in column A and not in Column B then add to bottom of column A.
Once its in column A i can do the vlookup's to draw the other data, costs etc, over but don't know how to identify, and add, the missing codes to the list.
I have a spreadsheet that imports data, manipulates it then deletes 2 of the sheets then saves the file under a different name to the network. Is there any way to save this new worksheet without it storing the macros - so when the user open it, only the data is there and they get no prompt to enable macros?
I have created a form in a worksheet which I have added questions too and then locked all cells except the ones where I want the answers in.
I have then added a button to the bottom of the sheet called "Print and Save". This work sheet is called "form"
On a second sheet called "database", I have all the titles of the questions running from a -> k and nother else.
What I want to happen is the user input the information on "form" into the boxes available. Once they have completed the questions, I want them to be able to click on "Print and Save" so that firstly the page "form" prints, and then for all of the answers to be saved in "database" below the titles for each question.
I have had a play, but just don't know where to start. Also, once there is a row of questions below the titles, I don't want it to overwrite information already there, it needs to go onto the next empty row available.
Attached is my excel file.
You will see in the code that I have the code for printing.. I just found this on the net and it seems to work fine for me.
My company uses 4 types of barcodes 8, 12, 13, & 14 number barcodes for our products my problem is that I can't figure out how to force the barcode to format properly no matter how somebody enters it if they don't use spaces or put them in the wrong spots, I can't use custom formats because there is 4 different layouts
8 digit should be "#### ####" 12 digit should be "###### ######" 13 digit should be "# ###### ######" 14 digit should be "# ## ##### ######"
these barcodes are in columns L, M, & N also right now 'm using a formula in another cell to verify the barcodes by calculating the check digit and comparing it to the check digit typed the formula i'm using is
I have data in Row 53 that spans 7 columns, but stays in the same row. I want to design a loop to select every 7th cell in that row and check if it is empty. If not, add onto a "counter" then display the final number of occupied cells (the value of the counter) at the end. This is what I have so far, but I get all sorts of errors.
Code: Sub Tester()
Dim WB As Workbook Dim WS As Worksheets Dim modCounter As Long Dim Cell As Range
Set WB = Workbook("Transverse Series.xlsm") Set WS = WB.Sheets(BM18)
What I need to do is sort certain entries in longer list (column A, it is in .csv format and needs to be in it so coordinates and names and ID, all sorted with commas) and I have another list (column C) which is shorter list of certain IDs. I googled and tried and got some results for the basic structure but the fuction seems to fail. It doesn't matter how I get that third list done, but there is only one criteria: since the list in column A is really long and those entries need to keep the .csv formatting, the function should copy that info what is in the matching cells.
Let me try to put it simple: .csv cells from column A that have matching ID from column C should be copied to column B (or N).
I have a list of data and I want to identify the unique entries for both columns but the second column has to unique to the unique values in the first column.
I want to have 1 check box affect 3 others in the following way: check box 1 if checked, allow check/uncheck of check boxes 2, 3, 4 if unchecked, uncheck boxes 2, 3, 4 and do not allow checking check box 1 is linked to D1 which starts with a value of false. cell E1 is if condition to have value 1 when D1 has value of true.
I am creating a userform with 10 checkboxes. The first 9 checkboxes are user options. I want the 10th check box to be a "Select All" option i.e. if the 10th checkbox is checked all the other 9 options are deemed to have been selected.
The way I want the display to work is that if the 10th checkbox is ticked all other checkboxes are cleared. Also if the 10th checkbox is ticked and any of the other check boxes is selected then the 10th checkbox should be selected.
I have tried coding this up but the checkboxes don't seem to operate as desired. I placed some code on the click event for the last option button to set the vlaue for all other buttons to false. This works but the 10th check box doesn't get ticked itself. When I try to code up the other bit I get similar issues.
I have done the two obvious checks regarding my missing Status Bar, both in View and Options and still the Status Bar refuses to show itself. I have shut down Excel with the options unticked hoping that on restarting and ticking them the bar will re-emerge but still no joy and also done vice-versa. how to get the Status Bar to reappear?
I have attached a screen shot of vlookup formula. Whilst selecting a range a little tooltip comes up showing how many rows and columns have been selected (6R x 2C) ...
... at least that's what used to happen. Now this handy tool tip does not show on my PC - and I have no idea how I turned it off, or more importantly how I can turn it back on again.