I have an requirement that retrieving the data from two different data bases. I want to compare those two and prepare a report using VBA. I am able to get the data to excel separately, but now I need to join these two sets based on the key columns
View 2 RepliesBelow is a series of sets. Column A is the set number. I need a macro that will insert a row between sets and then put a border around each set. In my spreadsheet the sets are from A1:C500. Sometimes the sets are only 1 row, sometimes multiple rows. It looks like I will be doing one of these sheets every week. So far I have been doing it manually, but a macro sure would save some time.
View 13 Replies View RelatedI seek advice on using the value of NOW() as a record ID in an address book program. Question #1: Do Excel developers often use a record ID? Question #2: What record ID schemes are fequently employed besides date/time? I have decided to create an Excel address book as an exercise to increase my knowledge of VBA, and also as a useful application for work.
I realize that a record ID is not essential in Excel in the way that it is essential in Access, but I feel the need to have some unique ID associated with each address, so that I may have different worksheets, with data related to a given Contact, sort and manipulate it, if necessary, but have the record ID as a way to restore the relationship of rows to a given Contact, and also, as a handy way to examine the data in the date/time sequence in which it was entered. I have experimented with the following code, to assure myself that I can access the number returned by the NOW() function, manipulate it as a string, and format in various ways if necessary.
Dim n As Double
n = Now()
sn = Str(n)
p = InStr(sn, ".")
first = Left(sn, (p - 1))
l = Len(sn)
d = l - p
S = Mid(sn, (p + 1), d)....................
I am creating an asset management sheet. For the formula I am trying to work out there uses 3 fields : ID, start date, and end date.
What I want to do is be able to show if the ID is duplicated within another record with an overlapping date. So an item is flagged if it is in the list within the same dates as another record. I tried a few countif formulas but with no success.. I may just be approaching the problem incorrectly though.
I am looking to create a macro that will create a new sheet when data is added on a summary sheet. Example.
1. Summary sheet called "Variations" contains columns that will contain the information needed for new sheet (Columns A to D)
2. When data is entered on "Variations" sheet: Column B, then macro automatically creates new sheet renamed to e.g. VO1 (Number used on "Variations" tab) and is a copy of "Master" tab.
3. Data entered in Column A to D on "Variations" tab is automatically entered onto new sheet created (e.g VO1). Shown is blue on attached file. Additional data is updated on "VO1" sheet and this then links back to "Variations" tab
I'm trying to find a macro that will run allowing the user to select a 'starting record number' and a 'finishing record number' when printing.
I have a spreadsheet that feeds from a master list in excel, from over 5000 records.
I need to print the s'sheet with any given indivdual record's information at any given time.
Individual prints are fine. However if I wanted to print from record number 1500 to record number 3000 it would take me all day.
Is there a way I can set up a macro so an option form pops up? allowing selection of "From record" and "to Record" ?
Im trying to record a macro that will enter a formula in a cell each time I run the macro
Drop the Lowest2:
=IF(ISERROR(AVERAGE((SUM(C5:L5)-MIN(C5:L5)-SMALL(C5:L5,2))/(COUNT(C5:L5)-2))*Scale!$B$2*10),(IF(ISERROR(AVERAGE(C5:L5)*Scale!$B$2*10),"",AVERAGE(C5:L5)*Scale!$B$2*10)),AVERA GE((SUM(C5:L5)-MIN(C5:L5)-SMALL(C5:L5,2))/(COUNT(C5:L5)-2))*Scale!$B$2*10)
Drop Lowest1:
=IF(ISERROR(AVERAGE((SUM(C5:L5)-SMALL(C5:L5,1))/(COUNT(C5:L5)-1))*Scale!$B$2*10),(IF(ISERROR(AVERAGE(C5:L5)*Scale!$B$2*10),"",AVERAGE(C5:L5)*Scale!$B$2*10)),AVERA GE((SUM(C5:L5)-SMALL(C5:L5,1))/(COUNT(C5:L5)-1))*Scale!$B$2*10)
I know I can write the formula in a simpler way, but I was asked to make it like this.
The problem is that when I enter the formula in the cell while recording. I got a message: "Unable to record" so this part can't be recorded
This problem seemed to revolve around "digital signing" with further macro changes done from a different machine (without the proper certificate). Excel warns of the problem and then "unsigns" the project.
I've got a problem with spreadsheets that I've been working on. Now, when I tell it to record a macro, I get the macro name, shortcut assignment dialog box and then an error "Unable to record." After "Ok"ing that dialog box, the normal recording macro dialog comes up. Also, lo and behold, there will not be a macro recorded.
I've got no protected cells or sheets and it doesn't matter what security level is set. It is a "signed" macro but I can take off the signature and still have the problem. I checked for "Help - About" for deactivated modules and there was none.
how to join two tables which their relationship is one column in A table inclue another column in B table.
for example:
Table A:
ColumnA1
ColumnA2
Table B:
ColumnB1
ColumnB2
I want to join Table A and Table B, and the where clause should be A.ColumnA1 include B.ColumnB1.
Like the value of A.ColumnA1 is "Abc1234 test", and the value of B.ColumnB1 is "1234", and then we can join the TableA and Table B
I'm writing an Excel Macro and want to sum a number cell with the value "45667" and a text cell with the value "Prague" and return it to a new cell with the value " 45667 Prague"
I've done it successfully with the two text cells "John" and "Hopkins" to "John Hopkins".
This is my
Sub SumCells()
Dim FirstName, SecondName, Zipcode, City, fullname, fulladdres, space
FirstName = range("cell1").value
SecondName = range("cell2").value
Zipcode = range("cell3").value
City = range("cell4").value
space = " "
fullname = firstname + space + secondname
fulladdress = zipcode + space + city
The problem is that city is recognized as "Prague", and the zipcode as 45667 (without the "")
We have approximately 100 rows x 200 columns of data and would like to combine the contents into one row. Is this possible without copying and pasting many times.
eg
1 abc dek jui kol
2 ppo adf asd dfa
into one row
1 abc dek jui kol ppo adf asd dfa
I have a list containing hundreds of rows and I need to join the cells in different columns.
Eg. Col A, Row 1 is "Red Maple"
Col B, Row 1 is "Acer Rubrum"
Col C, Row 1 is "60mm"
I need to join the row into one cell reading "Red Maple Acer Rubrum 60mm"
Column A2:A100 contains part description various len lengths max is 50 min is 22.
Column B2:B100 contains scrap qtys.
In column C2:C100 in need to join the text in A and B.
i want the scrap qty's all to be alligned i.e level, as column C is shown in a userformlist box.
meaning joining text/values would look like this (ignore full stops)
dispenser calsberg .........70
tap beer......................... 80
cowl................................100
instead of
dispenser calsberg 70
tap beer 80
cowl 100
I want to take a cell with a persons first name and a cell with their last name and combine into one.
EX.
What I have.
A1 B1
John Smith
Walt Smith
What I want.
A1
John Smith
Walt Smith
I have a long OR function that I'm working on. The logicals for this change the search value from 1 to 9. Here is one of the logicals:
sumproduct(--isnumber(search(1,???)))=0
I need the "???" to be the arrays. The most complex of these will be: A1:C1&a2&c2&a3:c3 or is it
A1:c1,a2,c2,a3:c3 or perhaps another join method like
concatinate(a1:a3,a2,c2,a3:c3)
How do you join arrays to get the right result?
Cells E39:E53 are conditionally formatted to fill red if cell $AB$13=the cell 3 to its left .. eg: cell E39 would fill red if cell B39 (the cell 3 to the left of E39) is equal to cell $AB$13
Only one cell in the range will meet the condition at any time.
I also have the same range conditionally formatted to fill black if cell $AF$13=the cell 3 to its left .. eg: cell E39 would fill black if cell B39 (the cell 3 to the left of E39) is equal to cell $AF$13
Ranges F39:F53, and G39:G53, H39:H53 etc etc etc (all the way up to X39:X53) are all conditionally formatted the same way.
What I would like is for the cell that fills red in the first range to have a line connecting it to the cell that fills red in the second range, etc etc etc.
And the same for the cells that fill black.
Creating a chart from my data is not an option for other reasons, so I'd like to explore this possibility.
I'm dealing with 4 columns. Column A is a list of names. Column C is also a list of names, each with a number beside it in Column D (i.e "John Smith" in cell C1 with "10" beside it in cell D1). I need a formula that can search the list of names in Column A for the matching "John Smith", then put the corresponding number ("10") beside his name in Column B. Meaning...if the search finds the matching "John Smith" in cell A6, I need the formula to copy "10" to cell B6.
View 2 Replies View RelatedI am trying to change the value in a cell by referenceing it to another sheet. My cell is: Today it is 33F, have a nice day. Now, 33F should be called from another cell and should be inserted in this new cell. If I change the 33F in the other cell this change should be reflected in my text file.
View 3 Replies View RelatedI have a multipage control on a userform. On Page 8 of that multipage, I have label1, part of that label is modified by other parts of the program. This is done by the program writing to a sheet of Data and then the program pulls that info into this label. My question is,what is the correct format to populate the label?
see below: This is what I have in my Userform_Activate and Userform_Initialize subs:
CurrentVersion = Sheets("Data"). Range("N2").Value
Label1.Caption = "This will allow you to change the Caption of the UserForms through out the operational program. Some UserForms cannot be changed. The ending of" + Chr(32) + Chr(34) + "Automatic 2005 V" + Chr(32) + CurrentVersion + Chr(34) + Chr(32) + " will be added to what you enter below as default."
CurrentVersion is pulled off of the datasheet which is a number like 5.9.8.2. however it errors "Run time error 13 - type mismatch" I can only suspect the label1.Caption needs something like: Multipage8.label1.caption =
I have a column with numbers in each cell. I need to add the same three letters before each of the numbers. Example:
number in cell: 25067 I need it: ABC25067
I did a macro for it but had to do each one individually. I imagine there is a simple formula to do this automatically but I don't know enough to figure it out (despite reading up on it for the last hour!)
I have a sentence in field A1 and a number in field A2. The formula I am using is =A1 & A2. This is working but there is no space in between A1 and A2. How can I add a space?
View 2 Replies View RelatedThis request is for Excel 2003 rather than 2007 (company does not have Vista or 2007 as I do personally). When two columns are used for an employee's 1st Name and 2nd Name, what is the random formula for combining BOTH columns in a random name pull? Since two people may have the same LAST name, only by accessing both column one (typically LAST name) and column 2 (first name) can they be identified if both last names appear in a random pull. I have used the random generator available from Excel Help online but do not know how to modify the parameters to accomplish keeping the first and second names from Column A and Column B together in the pull.
Explaining this will be widely useful for any company (such as trucking) using Excel for employee first and second names in two columns (assume A1 header 'Last Name', A2 header 'First Name'). Such companies need to be able to do a random pull to comply with DOT (Dept of Transportation) CDL re-certification, substance abuse screens, etc. I am just above a NOVICE user (I have a dozen books I try to learn from before asking).
I need to take the number from column 1 and add the last letter from a string in column 2 for input into a third column:
ex:
col1
9780870704079
col2
AMOPBKBB
col3
9780870704079B
I'm trying to write code to join two columns of data, and then join all of those into one cell.CA
California
DE
Delaware
CT
Connecticut
I want to be able to run the macro and have it put {"CA":"California","DE":"Delaware","CT":"Connecticut"} into cell C1.
I was thinking that this would have to be a two part macro. First, it would take each specific row and join CA and California and add the colon, quotation marks, and the comma, and put it Column C. Then, after it's gone through every row, it would join every cell in column C together.
This is what I've written so far:
VB:
Sub test1()
Dim r As Range
Dim lr As Integer
[Code]....
Now I need to figure out the second part. How do I then take all of the join cells in column C and join them together, adding the curly braces at the beginning and the end, and removing the comma from the very last row?
Can you use two vlookup formulas as the text field in a concactenate formula? See below for example the formula I am using that is returning an #NA formula.
=CONCATENATE(VLOOKUP(A2,qacontact,6,FALSE),VLOOKUP(A2,qacontact,7,FALSE))
Join an array with Text elements to create a string that can be Evaluated
So for instance if I have Array("A", "B", "C") and I want to evaluate("=({" & Join(array, ",") & "})="A)"). Is there any way to do this without having to loop or push to a Named array first? I'll even take this evaluate thing if I can do it with text and numbers
I wish to join few columns from two data sheets using Macro function.
Sample
Sheet 1:
A B C D E
1 Headline Msg1 Msg2 Msg3 Msg4
2 Car Post Join Help AAA
Sheet 2:
A B C D E
1 SumNo Msg1 Msg2 Msg3 Msg4
2 CM001 Join Help AAA BBB
Output;
A B C D E F
1 Headline SumNo Msg1 Msg2 Msg3 Msg4
2 Car Post Join Help AAA
3 CM001 Join Help AAA BBB
i have a large spreadsheet of more than 400.000 address entries. The data is sorted by tables "A=name" "B=city" "C=country"
I need to join cells of Table A whenever B(city) & C(country) match.
Is there a formula which:
Looks up tables for cells with same "country" + same "city" = join all the names of Cell A (names)
Example: ....
How to do this with a macro but I want to join 6 workbooks together too make 1. Master sheet (7th copy). Below are the points of interest and a couple of questions.
1- My six books are all identical in cols.
2- The six books all have in col A my own ID number, no ID number is the same in any worksheet.
3- If I can get all 6 books together then the ID will start at #1 and finish approx at 225,000, in accending order.
4- All books have only 2 worksheets inside, Sheet1 and Sheet2 .
5- I don't want to delete or loose any data in the 6 books already made. Just make a 7th copy of the 6 .
6- The 6 w/books are called
6A- Each w/book contains approx 40,000 rows except last , approx 22,000
UPTODATE STAKESWTD SECT 1
UPTODATE STAKESWTD SECT 2
UPTODATE STAKESWTD SECT 3
UPTODATE STAKESWTD SECT 4
UPTODATE STAKESWTD SECT 5
UPTODATE STAKESWTD SECT 6
7- There are no functions in any of the w/books, just other macros which I want in the master copy.
8- Can the 7th copy be called UPTODATE STAKESWTD MASTER
Im currently working on making a workbook as a summary/join of several workbooks. All cells are formatted in the same way, and only Row 1 is the same in all workbooks.
How to combine several excel files into one file?
My issue is that when i run this macro, the rows are overwritten for every workbook runned through.
I end up with only the contents of the last copied workbook.
I guess my EndRow is wrong, or the copy function, since the offset is not set properly.
Code:
Sub ExtractData()Dim basebook As Workbook
Dim mybook As Workbook
Dim FNames As String
Dim MyPath As String
Dim SaveDriveDir As String
Dim Cnum As Integer
[code].....