I am looking for a macro to convert a 6 digital serial number into an 8 digit serial number by adding "00" to the front. ie. The cell may say 123456, but I need to change it to display 00123456.
Is there a simple way to do this?
I write a daily status report that adds my daily comment to a cell with previous text in it. I then paste it in three other cells. This process is slow and tedious since the text in the cell is now becoming extremely long due to organizational and managerial restraints of the existing format. I use cut and paste and manual enter, a alt + enter, to space new comment. I would like to be able to enter the text in a cell and have it update the comment cell with the text in it and to update the text box. I have reviewed the forum and have yet to find the answer and use of how else to pose the questions.
View 5 Replies View RelatedI have a filename written in cell A1- eg dog.jpg - and I want to insert a set character string just before the .jpg part. ie so it becomes dog_test.jpg in B1. How would you guys do it? I've been thinking of really long-winded methods that'd use several cells, but I reckon there might be a cleverer way!
View 5 Replies View RelatedI've got a sheet in which I want a drop down box, to ADD the value* to a cell, not overwriting its current value!
*The name of the selected option in the drop down box, the names are located in Map3!A1-n, I set the drop down box to display the related number in a cell next to it.
The cell would contain some text, and by selecting something in the drop down box, it would add the name of that option to the already existing value in the cell.
So if at first the cell's value is
Hi! I 'm Mark,
and you select the following option from the dropdown box
I 'm from Holland!
the cell would end with the value
Hi! I 'm Mark, I'm from Holland!
This would probably work with a macro, already made a start with it but I couldn't get it to ADD the value instead of overwriting it.
I have data that covers multiple rows that I need to merge into one row.
Header:| InvoiceNumber | Type | Name
Row1: | 1000 | Payor | Doe, John
Row2: | 1000 | Payor | Smith, Mary
Row3:| 1000 | Payee| Jones, Henry
Row4:| 1000 | Payee | Jones, Bob
I need to get those four example rows down to one row such as:
Header | InvoiceNumber | Payor | Payee
Row1: | 1000 | Doe, John & Smith, Mary | Jones, Henry & Jones, Bob
The number of payor/payee can vary between 1 and several. I need some way to loop through and keep appending the names in one cell separated by a "&". And then deleting all the duplicate rows (based on InvoiceNumber).
ie:
Cell A1 = Ref#01
Cell B1 = A1&(whatever I choose to type)
Result in cell B1: Ref#01whatever I choose to type
Looks like I would need a macro because a function will be overwritten as soon as I start typing in cell B1.
This is probably really easy but I don't know what I'm doing wrong.
View 2 Replies View RelatedI'd like my macro (in an Excel 2010 workbook) to copy values from three worksheet cells and append them to an existing Access or SQL database file -- without having to leave my Excel spreadsheet or open any other programs. The database file simply needs to be appended. Keeping a running list. That file isn't being used for anything else, we can set it up however is necessary to do this.
For example, Excel cells A1, A2, and A3. Representing Job Name, Job Number and Job Total.
how make VBA do this(in SIMPLE terms)? Or give me a link of where to look or what to search for? I understand VBA but not Access or SQL.
I am having problems adding data to exisiting text in each row of column E. The following macro is replacing the current text in each row with "V-1954". I need it to add "V-1954" to the begining of the text in each row of column E not over write it.
Range("D2").Select
Do Until IsEmpty(ActiveCell.Value)
'Fill in Column E
ActiveCell.Offset(0, 1).Value = "V-1954"
'Move down one cell
ActiveCell.Offset(1, 0).Select
Loop
I would like to append data from Columns A-F to a text file. The key thing is that the data needs to be tab separated just as it would be if I simply highlighted it and copied it and the pasted it into the text file.
View 5 Replies View RelatedI have a database with Column "A" that looks like this:
"A"
PKJHB
PLKFSDA
KJGFSA
LJKDAS
GKKA
I want a code that would add ".pv" to every cell in "A" Column so it'll look like:
"A"
PKJHB.pv
PLKFSDA.pv
KJGFSA.pv
LJKDAS.pv
GKKA.pv
I have a list of number in a column that there is over 22,000 is there a away I can add ".jpg" ad the end of each number?
View 10 Replies View RelatedI have a simple code that should insert the text at the beginning of the text file (the text file already has some text in it). When i use the following code, it just appends the line to the end of the text. I need it to append it to the start of the text file.
Code:
Private Sub CommandButton1_Click()
Dim file As String
lastrow = Range("D65536").End(xlUp).Row - 4
file = "C:Users11126923Desktop est.txt"
Open file For Append As #1
f = "hi test3"
Print #1, f
Close
End Sub
I want to open multiple .csv files from a single directory and append them to one workbook. The following code partly works, but appends only the first line from each file.
Sub GetFiles()
Dim w As Worksheet, fn As String, k As Long
Application. ScreenUpdating = False
Set w = ActiveSheet
k = Cells(65536, 1).End(xlUp).Row
If Not IsEmpty(Cells(k, 1)) Then k = k + 1
fn = Dir("*.csv")
While fn <> ""
Workbooks.OpenText Filename:=fn, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False
Rows(1).Copy w.Rows(k)
k = k + 1
ActiveWorkbook.Close False
fn = Dir
Wend
Application.CutCopyMode = False
End Sub
I need help looking at text in a cell that has [] around it such as [big red trucks] and copy that text to the end of the cell and replace the "space' between the words and add '+' signs so the result looks like [big red trucks] [big+red+trucks].
example:
This is what the cell looks like before
[big red trucks] cost 5000 in store
This is what the cell needs to look like after
[big red trucks] cost 5000 in store[big+reg+trucks]
there may be additional text after the ']', I need the phrase with the + signs copied to the end of the cell
I want to copy a bunch of data from a text file and paste in into an excel worksheet I have open. I want to paste it at the end but I don't know how large the data range will be each time so I can't select that size range. I have this code so far:
FileToOpen = Application. GetOpenFilename("Text Files (*.txt), *.txt")
If FileToOpen <> False
Then
Workbooks.Open FileToOpen
Else
Exit Sub
End If
Cells.Select
Selection.Cut
Windows("myfile.xls").Activate
Range("A1").Select 'THIS IS THE OLD CODE FOR THE FIRST IMPORT
ActiveSheet.Paste 'I NEED TO REPLACE THIS WITH THE CODE FOR APPENDING
'OR PASTING AT THE END OF MY RANGE
Hoping for some help in designing a macro to bring in additional data to my master sheet, which is the last step in this project.
I have attached a sample file which includes two sheets. Sheet1 is a sample of the master sheet and includes all the data. The 'real' file has over 100,000 rows. Column A are parcel numbers which idenfity specific properties. These numbers can be repeated if there is more than one improvement on the property.
Sheet 2 are simply the number of fireplaces located within the specific improvement. This 'real' file has about 75,000 rows as commercial and other property types are not included.
What I hope to do is re-write all the data from Sheet 1 onto Sheet 3 with the data on Sheet 2 integrated in, located in column 'AX' or column 50.
Where a parcel number (Sheet 1 Col A) may be repeated, it may or may not be the case in Sheet 2 Col A, I am not sure. However an example of repeated parcel numbers and their respective fireplace counts is as follows:
Sheet 1 rows 111 and 112 list parcel number 3701023511950000. Their cooresponding fireplace data, with the same parcel number (s), on Sheet 2 is located at rows 39 and 40. In this case both show a count of 1.
Sheet 2 rows 127 and 128 list parcel number 3701023541140000. Their corresponding fireplace data, with the same parcel number (s) on Sheet 2 is located at rows 54 and 55. In this case the first parcel shows a count of 2 and the second shows a count of 0 which I would like to reflect as a blank.
I would like to move the results to Sheet 3 in order to preserve the data on Sheet 1, if needed later.
I receive 24,000 text files once a month that need to be combined into one csv/txt file and/or spreadsheet(tab).
About a year ago I posted a thread on the same topic which received a fantastic response from jindon that worked great
Unfortunately, the format in which the text files are ouput has changed, as has the filename layout. The files are now output with filenames such as:
(lic#, company name, displaying # records found, date, type.txt)
40298827_Windham Professionals Inc _Displaying records 1 through 10 of 100_041813_AGENTS.txt
40298827_Windham Professionals Inc _Displaying records 11 through 20 of 100_041813_AGENTS.txt
40303726_HEARTLAND CREDIT RESTORATION INC _EANF_041913_AGENTS.txt
(files with EANF in the filename have no records inside them and can be skipped)
While the contents of each file look like this: (see attached text file reference)
I would like to combine the contents of the text files while appending the lic#, company name and date from the filenames to each record so the resulting file looks like this:
40305196 Audette , Anthony Sales Provider 40298827 Windham Professionals Inc 041813
40313800 Burritt , Kimberly Sales Provider 40298827 Windham Professionals Inc 041813
As far as I can tell jindon's code is fine except the regex expression needs to be modified to handle the new layout, however that is far beyond me.
Is there a formula that will add a number, in sequence, to the end of a text string to avoid duplicates?
I need to generate an ID number for transactions. This ID number is the Account Code-Last Two #s of the Year-Unique 3-Digit Number. So for instance, 5022-14-001 means it is the first transaction from account 5022 in the year 2014.
Column A has the Account Codes. Column B has the date of the transaction in MM/DD/YYYY format. So far the formula I have is:
=CONCATENATE(A1,"-",RIGHT(YEAR(B2),2),"-",TEXT(????,"000"))
With ???? being some function or set of nesting functions I need to create the sequential number. It needs to be able to say "Okay, this is the third instance of there being a 5022-14, so we need to stick -003 at the end of this."
Additionally, this "003" needs to be frozen, so if we change how the sheet is sorted and the line item moves around, it will still always be "003".
I have a column with a general format that looks like this: "057828001 - WACS - Irving".
I need to remove the latter part of the value " - WACS - Irving"
I am doing that by using the replace all and typing in "-*"; that gives me a result of 57828001.
I need a result of 057828001.
How do I retain the leading zero?
I am absolutely new to VBA and trying to create a macro for work. We get daily files with almost the same headers that needs to be consolidated at the end of every month. The headers on the files are usually the same, except at times an extra column may be added at the beginning.
I need a macro to do the following-
Prompt to select the desired files.
Read the headers and append only the desired header columns from these files to a master file(these are Account, User, Modified By, Version). The headers are present in row A. Also, the master file should select the header from the first file only and hence take only the data (row B) from the second file onwards so that the headers are not repeated in the middle in the master file.
In the master table, add a new column at the end which will be the name of the file.
In the master file generated, filter on the column "Version" and delete all the rows except Version="1.0"
Lastly, there are certain values in the excel files that need to be changed. So I need a replace function to change those values.
i am making a spreadsheet for recording employee telesales activity each day.
administrators will update a shared workbook each day with the information
employee names are across the top and the activities are down the side (calls, CVs sent, interviews, meetings) each day has it's own block of data. on a friday I would like to run a macro to select these blocks and paste them into the first free row on a separate worksheet.
i have something similar working elsewhere which copies one column and pastes that into the last free column of a new sheet but i have no idea how to do it for rows going down a page. I have attached a file example to clarify.
I would like to click on my chart, which then gets resized automatically depending on its current size.
Situation:
My main macro creates various charts, all of them I connect to the macro "chartMakro". After the main macro has finished successfully, I can click on such a chart and the macro "chartMakro" is launched, supposedly resizing the chart. unfortunately i do NOT know how to tell the macro which is the active sheet, therefore my macro fails to work.
Question:
When a click on a chart launches a macro, how can I tell the macro which chart called it?
'appending a macro to a chart
' MAIN MACRO
'[...]
activeChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.OnAction = "chartMakro"............
I need a macro to do the following
1.Get list of .xls files from specified folder.
2.Append the files in new workbook in same folder.
Ex:
D:/users/excel/Sample_sheet1.xls
D:/users/excel/Sample_sheet2.xls
D:/users/excel/Sample_sheet3.xls
I want to get the list of Sample_*.xls and
create Sample.xls master file which adds the above three .xls as sheets in it.
Actually my macro as below
just wanted to know if there is a way i can append to a cell
for example:
cell f3 contains "what a beautiful"
i would like to know how to add more to it
so the final f3 would look like "what a beautiful day"
My workbook has sevaral sheets reresenting the payment methods used by our customers. Each sheet has a range of cells F9 to Q33 which should hold the value of payments for each working day. e.g. F9 represents April 1st, F10 represents April 2nd.
A daily list of values is supplied which then transfers that day's value into cell E1 on each sheet.
On each sheet I manually have to take the value in E1 and copy and paste special: value into that day's cell e.g. today I will paste into cell K21. The cell value then looks like this '12134.12'. I then edit the cell to put a calculation on the end to divide the value by the value in another cell on the sheet. The cell value ends up like this '=12134.12/$G$5'. This is so I can see the values in thousands of pounds or by changing the value of G5 to 1,000,000 in millions.
Tomorrow I will do the same but in cell K22.
I have to do this on 15 worksheets and I have been struggling to get a macro together to do this. I can get as far as copying and pasting but I don't know how to add the calculation onto the end. I also would like to be able to input the cell destination daily probably with an input box so I can be flexible and potentially run it sevaral times if I need to catch up on previous days.
I need to create a rule that will append data to the end of a url to pull images for a ecommerce store.
I have a column that needs filled in with a image url.
For example:
Each image url starts with http://www.domain.com/images/150/
Then, it needs the style number, which is in column A, and then a _ and color, which is column B, and then .JPG added to the very end.
The final example url will look like this:
http://www.domain.com/images/150/4035_PINK.JPG
Each row has it own color, so each row will need a unique url to the image location. The data for each url is all in the same row.
So, how can i add a formula to each row so that it will pull the data and add the file extension for each row?
if cell in column E contains 'YTD', append value of cell in column D at the end with a space before it (example: " VALUE") to cell in column C. not sure how to go about this. i attached a one row example
View 8 Replies View RelatedI would like to do a SaveAs that includes information from a cell, range("A1") on Sheet("#28 - All Eligible"). The contents of the cell will always be like "Dates of Service 07/01/07 to 09/05/07 - Measure #28 All Eligible". I want my SaveAs file name to concatenate part of that cell. My final result should be "PQRI Totals - DOS 07/01/07 to 09/05/07". The date range would come from my A1 cell. This is what I've written, but it's not working.
Sub PQRIHeaderTest()
Dim sHeader, sHeader2, sPath
sHeader = Left(Sheets("#28 - All Eligible").Range("A1"), 37)
sHeader2 = Right(sHeader, 20)
sPath = "R:BusinessObjectsReportsPQRI"
ActiveWorkbook.SaveAs Filename:=sPath & "PQRI Totals - DOS " & sHeader2, _
FileFormat:=xlExcel8
I want to append / replace data in cells depending on the initial data.
A cell has the value 3AB00456 XYZ
I want to append the value with My
I want to check to see if the 4th & 5th characters = 00
If YES, I want to append the value with My and replace the rest with just the the 1st 3 characters So the final value would be My3AB
If NO, (the cell has the value 3AB02456 XYZ) I want to replace with a hyphen after the 3rd character and then the rest of the cell value. So the final value would be My3AB-02456 XYZ
I have several worksheets each with a column of about 2000 cells. I want to replace the data in the cells and not create another row with the result.
