A Macro That Uses A Variable Serial Number
Sep 23, 2008
I have searched high and low for a macro that can move cell values to other worksheet based on a variable serial number. I have had limited luck with my search but nothing quite reflects my needs. Any help or suggestions would be great. The way that I envision it to work is simple to say but to hard for me to figure out. I must add that I am fair to good with macros; I am using Windows XP and Excel 2003.
Here is the concept:
-I am trying to track several vehicles, their status and there general locations using a variable serial number and an excel macro. The macro would execute the calculated data on sheet “My Taxi Cars” and the results would appear on a separate worksheet called “Location” that is in the same workbook. Please see attached.
-The serial number is comprised of a cell range starting at A2 thru L2 and then concatenates in M2 it would look something like this 123N1110011011. This serial number would allow me to do simple long-range analysis for each of the vehicles. Also in theory at the end of 30-day period I could “replay” my data.
The Breakdown for the alpha numeric serial reads like this:
1) The 123 is the number of the cab.
2) The “N” is for North, etc. and it would equate to a range of cells on a separate worksheet (“Location”).
3) The Ones and Zeros are just simple yes or no answers to the common questions in the Garage at work.
Once the macro is executed the result would be the taxis number (taxi number only, the rest of the number is stripped off) being placed the correct location based off the serial number. I have no idea if this is possible and I would like to thank you in advance for your help. Thanks.
I understand that there are about 1024 different combination's for a binary number that has ten place values. Maybe the answer is to use VLOOKUP or HLOOKUP, but then that changes my analysis scheme. But if you can just help point my nose in the right direction or show me with one example I can take it the rest of the way.
View 14 Replies
ADVERTISEMENT
Dec 11, 2006
I need a macro to insert a new row with incremented serial number in column A, when done the first time - to insert the row at a specified cell starting with serieal no: 1 and later to insert the new row after the last row. Also I need the macro to insert certain pre-defined text values in specified cells in the new row..
View 11 Replies
View Related
Dec 8, 2011
Excel 2010 O/S XP Macro for serial number input all serial numbers have JTC0. Any VBA code to place in macro to have a cursor appear after the four characters in the macro below?
Example: JTC0| < cursor ready for input
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+s
'
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "JTC0"
End Sub
View 4 Replies
View Related
May 31, 2007
I have a worksheet(sheet1) that contains, among other things, a column of serial numbers . I also have a separate worksheet(sheet2) with one column of the serial numbers I want to find in sheet1. I need a macro that will take the serial numbers from sheet2 and find them on sheet1(there are duplicates too) so I can copy them to yet another sheet(sheet3). I already know how to do the copying, but am lost on the search.
View 3 Replies
View Related
Jul 15, 2012
I want S. No. in Piovt Table like
If I collapse Date then S. No. Main should work. Althought, I'm doing this manually by unchecking blank cell in "S.
Sr.No.Pivot.xlsxMain" and If I expand then Sub S. No. should automatically expand. Is it possible in Excel Pivot Table ?
Manual S. No.
S. MainSub S.# DATE CORES_NO.
1126-Mar-12
227-Mar-12
328-Mar-12
429-Mar-12
251-Apr-12
65-Apr-12
7
8
9
310
11
12
413
14
15
516
View 10 Replies
View Related
Dec 16, 2008
I maintain a class register in Excel to monitor student attendance. The first row shows the date of the class in the form dd-mm.
I need to identify all dates which fall on a Monday and thought that if I custom formatted a new row as "dddd" and enter the formula =DAY(cell ref) into the cells of this new row it would achieve this- I could easily spot the Mondays for the period under review.
What I'm finding, however, is that the formula seems to incorrectly state that 16th September 2008 is a Monday whereas it's actually a Tuesday- utterly bizarre!
I can get a fix simply by modifying the =DAY() formula by adding 1 to my formula [ie =DAY(A1)+1] but am wondering is this a "so called known issue" with Excel or has anyone else come across it? I have never previously come across this and consider myself to be an above average competency level user of the application.
View 6 Replies
View Related
Apr 8, 2014
I want excel formula to calculate the sum the value of partused depends upon serialno repeats where repeats of end of serial no i want result at end of every multiple serial no end cell.
View 2 Replies
View Related
Apr 23, 2014
I am trying to do with this spreadsheet project,
On the "Master" tab, I would paste in the newest information received from our system weeklywhich is around 2600 rows. I want to then compare the Master sheet to the other tabs and if there is a new Serial Number present in column I, then add that row of data to the next available row at the bottom to the correct tab.
The Orange tabs Fleet Volume PC, Fleet Volume BW, Fleet Volume Duplex will house all countries and all serial numbers but Fleet Volume Color tab will only have Color Serial Numbers for all countries, column J on the Master tab.
So, the same will goes for the USA Volume and CAN Volumes tab, only those serial numbers for that country will falls in these tabs and color only will go in the color tabs. There are 14 other tabs missing from this workbook with other countries, just removed to keep size of file within limits.
From my workbook, rows 29 to 33 on the Master tab are new serial numbers.
Also, I want to highlight the data on the Master, after comparing this Master tab to the other tabs and within the Master highlight in yellow the cells that have new updated information!
View 14 Replies
View Related
Feb 1, 2014
I have a excel file to print label on a label printer.I've added additional file in this message.I'm printing different numbers of labels with this file.for example, if I print 10 pieces of labels, I want to write 1/10 , 2/10 , 3/10 etc. on each label.I finded a vb code to print this work but not exactly the way I want.I would ask one of excel guru's to look at my file.
View 8 Replies
View Related
Jul 28, 2012
I need to lookup the last date coupled to a serial number but with vlookup it takes the first serial number from the top of the database. Is this at all possible?
View 3 Replies
View Related
Feb 7, 2013
I need to convert a date into a serial number. The serial number must return the format DDDYYNN where DDD is the day of the year, YY is the year, and NN is the sequential build number. As an example, if 10 units are built on 2/6/2013, the serial numbers would be 0371301, 0371302 ...0371310. Cell A1 would contain the current date (2/6/13) in this example. Column B1 - B10 would be the sequential serial numbers generated by the formula.
View 3 Replies
View Related
Jan 5, 2009
I have been trying to type a date in a column in MS excel. But excel always reads it as a serial number.
How Can I get it to display the date as it is in date format. I have the next column formatted/ formulated to display the day of the date in the previous column.
View 9 Replies
View Related
Sep 5, 2009
I have a list of serial numbers for coins I collect. As I collect the coins I wouldlike a spreadsheet where I can enter on a sheet and it will then highlight that serial number from a data sheet I have already created.
View 9 Replies
View Related
Aug 28, 2006
I'm having some trouble with copying dates from certain worksheets into new worksheets. When the data is pasted into the new worksheet, the date changes by four years. Somehow, the process of copying and pasting is reducing the serial number by 1462 units (days).
I'm not sure whether this is a bug or a security restriction to prevent copyright breaches. There's a way of getting around it, but I'm curious as to why this is happening. The dates copy and paste correctly into the existing worksheet, but not a new one. An example is attached and the dates are in columns C & D.
View 2 Replies
View Related
Nov 27, 2007
Quick question:
If I have a serial date, e.g., 37883, in Excel, how can I convert to 092007, using that exact format?
<snip by admin. Read the rules!>
View 4 Replies
View Related
Feb 13, 2014
I have made a Excel base "Application form".....it is a master copy.
I want to send a copy to a client....which has a unique serial / code number e.g. IF/001/2014.....
Presently, I am doing it manually, as application send to many clients...it become a hectic job to remember / note down the serial number....
I am trying to use a "Active X control" button to generate the desired serial number.....
There may be five categories.... IF, IA, OGG, WC, TU respectively.
I want five button to perform this job....
View 2 Replies
View Related
Feb 4, 2014
I have a Challenge want to delete the row values in which serial no enter the textbox1.
Conditions:- find the Serial no. and delete the values except serial No.
Attaching file for reference : Example.xls‎
View 3 Replies
View Related
Aug 13, 2007
I have the following code to search for serial numbers.
Private Sub CommandButton1_Click()
Dim Message, Title, Default, SearchString
Message = "Enter Serial Number" ' Set prompt.
Title = "Find Serial Number" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
SearchString = InputBox(Message, Title, Default)
'SearchString = "Rob"
Set S = Sheets.Application
For Each S In Application.Sheets
With S.Range("A1:IV65536")
Set f = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
If Not f Is Nothing Then
f.Offset(, 3) = Date
Exit For
End If
End With
Next S
End Sub
I would like to amend this so that (a) if the serial number is not found I get a message box saying "Serial number not found" and (b) if the serial number is found, I would like it to highlight the relevant row (after inserting the date).
View 9 Replies
View Related
Aug 2, 2006
I need to compare a S/n from a huge amount of datarows in sheet 1 with the s/n in a second worksheet.
If the s/n matches i need to copy the datarow from sheet 1 to sheet 2 next to the data allready existing in sheet 2. This removing the row from sheet 1.
If there is no match found in sheet 2, the row ha's to be copied to sheet 3, this also removing the datarow.
like:
sheet 1:
S/n -- name -- price
sheet 2:
S/n -- place -- stock
if match is found need to become:
S/n -- place -- stock -- S/n -- name -- price
if there is no match found data go to sheet 3.
View 5 Replies
View Related
Jul 16, 2009
I have a cell with the following text in it that is being imported from a website "5/1 Smith T win". What i want to do is extract the "5/1" part without it being in the format of a date. I want it to be extracted in the format "?/???". I have entered the following formula to extract the "5/1"
View 2 Replies
View Related
Jan 2, 2007
This works: row(x).select But this doesn't: row(x:"100").select. I also need to do substitute both beginning and end range with a variable: row(x:n).select And multiple ranges: row(x:n, a:b)
I've tried tried numerous combinations of quote marks and parentheses and nothing works. What is the proper syntax?
View 5 Replies
View Related
Nov 2, 2011
I'm trying to write a macro with a variable number or rows depending on the total number of rows the workbook has.
I tried like this:
Code:
Sub provaanova()
Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range(("$J$2:$J$") & Range("J" & Rows.Count).End(xlUp).Row) _
, ActiveSheet.Range(("$J$2:$J$") & Range("J" & Rows.Count).End(xlUp).Row), False, False, 99, "ANOVA", False, _
False, False, False, , False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
and:
Code:
Sub Provaregress()
r = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$J$2:$J$r") _
, ActiveSheet.Range("$K$2:$M$r"), False, False, 99, "ANOVA", False, _
False, False, False, , False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
But it gives me an error. The only way i was able to do it without error was:
Code:
Sub Provaregress()
Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$J$2:$J$53968") _
, ActiveSheet.Range("$K$2:$M$53968"), False, False, 99, "ANOVA", False, _
False, False, False, , False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
But as u can see it has a fixed number of rows. ( I need variable number of rows detected on column J, and then run regression with K,L,M as depending variables).
View 5 Replies
View Related
Jun 24, 2009
I'm trying to create a formula in cell f13 of my attached spreadsheet "Sample 1" that will search the 2nd attached spreadsheet "Sample 2" and return the correct serial number based on both the matching PO # (located in cell E10 on Sample Sheet 1 and in Column 5 on Sample Sheet 2) and Product # (cell A13 on my Sample Sheet 1). My current formula is not returning the correct result and I'm not sure why.
View 4 Replies
View Related
Apr 8, 2009
I have an excel spreadsheet that I am trying to format. Each time the spreadsheet is of the same format but with differing amount of numbers. I.e. sometimes it will be a set of 3, the next time might be 6.
I want to write a macro that will find a set piece of text, move it offset(-1,2) and then find the next one.
For example....
View 14 Replies
View Related
Aug 25, 2010
I am trying to build a macro to work with a template file.
The template file has set sheet numbers and names (with one exception, see 4) below).
There are close to 40 sheets in all.
Some sheets are never printed.
Some sheets are always printed.
Many sheets are printed only if they are used.
Most of the sheets are 'break out' sheets and a variable number of them will be used.
So... Here is what I'm trying to accomplish.
1) Always print Sheet4(Overview1)
2) Always print Sheet6(Overview2)
3) Print Sheets 11 thru 40 IF value in cell G50 on these sheets is > 0. Note that this cell has a name (Total) and I would like to reference the name if possible. (It could happen that further evolution of the Workbook moves the cell up or down a row.)
4) Print Sheet38(Data Sort) IF it exists. Otherwise, print Sheet1(Data).
If the information on the Data sheet is limited (eg only 1 or 2 pages), we print it off directly. If the information is more extensive, we copy it to a new sheet and sort it (Data Sort).
I can achieve 1) and 2). I'm not quite sure how to go about 3) as I'm still not very good with macro loops. 4) I haven't tackled yet.
View 3 Replies
View Related
Jan 13, 2009
I am working on a macro where I am creating a formula to string together some text columns and then copy the formula down the entire column. The data source I will be performing this on will change in number of rows period to period. The data would be in columns A,B & C and the formula is in D. The formula in D is stringing together the data in AB & C and then I want to copy and paste that formula down to the bottom of all of the data. What would the code be for the copy and paste with variable rows?
View 9 Replies
View Related
Apr 22, 2008
I need a macro that can run a serial# 1 t0 10 (or more or less) with A1 being starting point. Here is my illustration data.
Coloumn:A Coloumn:B
1 IrfanAneeza
2 Scooby Dooby Do
3 Dooby Dooby Do
4 Yaba Daba Doo
However, there is a little kicker in it. The range of coloum:B varies all the time i.e. B:B could be 1 to 10, it could be 1 to 3 etc. Thus, macro should list serial#'s based on the coloumn B:B range of data.
View 9 Replies
View Related
Oct 3, 2012
i Am trying to get this project underway and can attempt this manually in excel but will take ages. I was wondering if there is a code I can use. I am trying to get a 7 character alphanumeric serial number for units as a 4(alpha) and 3 numeric number. like say AAAA001 , i want to list on a row all the numbers on a sheet right upto ZZZZ999
View 5 Replies
View Related
Aug 8, 2009
On the attached Excel file, I have code that will insert a variable number of rows and copy and paste from and to variable positions. That all works fine when run from a command button, but when I try to run it from the Worksheet_Calculate by entering 1 in J1 or K1 (inrange cell is J1+K1 for testing purposes) the CommandButton1_Click sub runs continously until an error occurs.
View 4 Replies
View Related
Dec 21, 2013
I was just wondering what is the formula to convert a date serial number back to an actual date?
View 1 Replies
View Related