Macro To Automate Text Function?
Feb 15, 2014
I am trying to write a small macro involving Len and Left formulas. This will take input from two cells and and give the value on a third cell. I know how to do this on excel. This goes as follows:
Value on A5 = HB_AM_1
Value on B5 = 1
My formula to extract the specific text =LEFT(A5,LEN(A5)-LEN(B5)-1).
My result on D5= HB_AM
Here, my inputs are clearly defined and I can write this formula on cell D5 to get the result. I can copy this down to the end of my data and I can get my result.
My challenges: I need to do this for various reports where the data extends to various rows. I think looping will solve the problem, but not sure how to do it. The value on cell B5 will always show the last number at the cell A5 (1 in the eg above). So, if the number in A5 is 10, value in B5 will also be 10. This is already there in my data, so I do not worry about this part.
View 5 Replies
ADVERTISEMENT
Mar 24, 2007
attempting to accomplish the following in Excel and I believe that I need to use VBA to do it. I am an intermediate Excel user, so you might need to "bring it down to my level" a bit :-)
maintain a master list of tasks (in rows) in a file (File1). In another file (File2), I will keep the task list and related hours charged by our staff (in columns). What I want the macro to do is to compare each row of File2 to File 1 and if they are different (which will happen if I add a new task to the master list in File1), to insert a row. It should do this for each row in the file until it reaches the end (there may be blank rows though).
View 9 Replies
View Related
Jun 23, 2009
i want to do a vlookup in a function to automate my worksheets. im trying to grasp how to do it.
View 4 Replies
View Related
Feb 2, 2007
I have a spreadsheet that I am trying to automate, one of the tasks is to sum some columns namely columns O to T. Column B contains the exact number of entries in the columns O to T, therefore I thought that this would be a good counter. The Spreadsheet varies in number of entries every time. In this instance the rows are in total 200 inclusive a header row. ie r below is = to 200. I have tried to record a macro and from that I have tried to replace the pertinent values.
Sub Sel_Sum ()
Dim r As Integer
Dim s As Integer
Dim t As Integer
Dim U As Integer
Range("B1", Range("B65536").End(xlUp)).Select
r = Selection.Rows.Count
s = (r - 1) * -1
t = r + 1
U = -1
Range("O" & t, "T" & t).Select
Selection.FormulaR1C1 = "=SUM(R" & [s] & "C:R" & [u] & "C)" 'fails here
Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
End Sub
View 2 Replies
View Related
Jan 18, 2007
I'm using the SolverOk function to automate upon the click of a button. The arguement ValueOf takes the value (58.6) that was keyed into the Solver Parameter menu when I was recording the macro. I'd like the the solver to pick up the figure for ValueOf:= from cell $D$32 instead so that I can just key in any value in $D$32 and then click on the button to get solver to solve for this. I've tried modifying ValueOf:= "$D$32" but the solver still could not pick up the figure from that cell.
Private Sub CommandButton1_Click()
Range("C32").Select
SolverOk SetCell:="$C$32", MaxMinVal:=3, ValueOf:=58.6, ByChange:="$C$33"
SolverSolve
End Sub
End Sub
View 2 Replies
View Related
May 5, 2008
I am trying to automate in VBA the process of importing of txt file to Excel range. The columns widths are not static. So I can't use recoded code of Text to Column wizard process as columns alignment arguments, (ie FieldInfo:= Array(Array(0, 1) would need to be changed daily. I have also tried to import the text in one column and then apply a code of TextToColumns to automatically split the text by multiple columns. But some of the text would be moved to the left under wrong column titles. I think this is because the text is not tab or comma delimited. It's just aligned using multiple spaces.
Is it possible to write a code to split the text by columns based on alignment of 2 first rows. For example, import rows 6 and 7 from the text in one column, then apply texttocolumn method like this:
.TextToColumns DataType:=xlDelimited, consecutivedelimiter:=True, Space:=True
Then, based on this alignments take arguments for the Open File method like this:
Workbooks.OpenText Filename:= _
"filename", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(10 _
, 1), Array(20, 1), Array(31, 1), Array(39, 1), Array(48, 1), Array(57, 1), Array(66, 1),Array(75, 1)), TrailingMinusNumbers:=True
View 9 Replies
View Related
Nov 16, 2011
I'm trying to automate a search and match function between two separate workbooks using VBA and am having some problems. I'm using the following line:
search_results = Application.Match(temp, Range("E1:E900"), 0)
which works fine. now the problem is that when i'm searching for lets say "ABCD" in one of the workbooks, if there is an entry "ABCD " (with a space at the end) it says that the entry doesn't exist. is there any way of correcting it such that it would always neglect the space at the end if it exists? i tried using -1 instead of 0 and it messes up, so i'm not sure what to do.
View 2 Replies
View Related
Feb 8, 2010
I m use Excel 2003 to automate the following sequence of events that I currently do manually?
AutoFilter to filter the City in column B
AutoFilter to filter the Rotation in column X
AutoFilter to filter the Positional Status in column Y
Hide columns B:W
Use the computer mouse to select a range of that includes columns A, and X to AR (inclusive).
Copy 'n' paste this selected range to worksheet: Data to Text at cell A1
Insert a new column by selecting column A and right-clicking on the column and selecting Insert
Populating the new column A starting at cell A1 with number 1 and autofilling down to the last record (1, 2, 3, 4, 5, etc...)
Delete the folowing columns: C, D, E, G, J, L, M, N, P, Q R, S, T and V
Copy 'n' paste the all the remaining data to a new documnet in MS Word 2003
Select the entire table in MS Word
From the MS Word file menu - Select Table - Convert Table to Text
In the Convert to Table to Text pop-up window - select Other radio button and type in a forward-slash "/" in the input box adjacent to the radio button (without the quotes).......................................
View 3 Replies
View Related
Jun 21, 2007
I found this question from 2004 but it has expired so I could not quote or reply to it. It can be found at Open file search and import text file This was the question:
I'm looking for some code that i can attach to a command bar which allows the user to browse and search for any text file on their C:Drive and then import it. I think i can work out the import using the data import wizard and macro recorder.
Sub DoIt()
Application.Dialogs(xlDialogImportTextFile).Show
End Sub
The original person said they can work out the import using the wizard, but my users are not tech savvy and therefore I was wondering if I could automate the text file showing up in the excel sheet ( named 'Import') after selecting the text file (instead of going to the wizard). I have attached a sample text file for an example (first row being a header)
View 7 Replies
View Related
Mar 28, 2008
I am trying to automate text for a document. How can I combine Greek symbols and normal typing in one cell?
View 9 Replies
View Related
May 29, 2008
I am new to VBA coding. My boss recently handing me a task where I have to take data which is stored in thousands of fwd files and import it into spread sheets. This can be read with notepad as plain text. This data has about 35 lines of heading info i need to skip. The data i need transfered is stored in columns and each data row is tagged at the beginning with the letter D and comment lines begin with the letter C. The heading info has no such tags.The data is space delimited. Further, some of the columns of data need to be omitted in the spreadsheet. Each data.fwd file gets its own spreadsheet meaning each time i import data i start with a fresh template.xls to import into. The format of the spreadsheet is the same as the format the data is presented in the text file with ten columns, except the text has twelve and two of them need to be omitted.
One more thing, I need to be able to push a button and query the file to import.
View 7 Replies
View Related
Oct 30, 2008
I'm trying to automate the process of exporting a range of cells to a text file. I think the Print# command will work because I don't want the quotes at the end of each line. Each range of cells will be a separate text file, and I want to save and name the file according to the column it's in. This bit of code from dominicb seems to be what I'm looking for, in principle.
View 5 Replies
View Related
Sep 11, 2013
I have worked out how to get my macro behaving the way I want however now I would like to automate the whole process. Basically I would like the macro to work its way down a column (in this example column F) until it has completed and there is no more data in the row before the last.
Here is a code snippet of my macro
Code:
Keyboard Shortcut: Ctrl+a'
If ActiveCell = 2013 Then
ActiveCell.Offset(, 2).Range("A1:E1").Select
Selection.Cut
ActiveWindow.SmallScroll ToRight:=24
ActiveCell.Offset(0, 24).Range("A1").Select
ActiveSheet.Paste
End If
[code]......
View 1 Replies
View Related
Mar 31, 2013
Macro for text to columns function (if this is the best way to go).
Our work report exports customer subscriptions which we call "role name". Our customers subscriptions have a valid and start date, but our customers also can purchase multiple subscriptions and we need to separate this data in order to report by subscription.
Our export has an * after each subscription, the date is in square brackets and each subscription is separated by a semi column.
So for arguments sake, let's say we have the following subscriptions:
subscription a
subscription B
subscription C
subscription D
if one customer has purchased four subscriptions on various dates, their exports may look like this:
Subscription A* [01/02/2012 12:00:00 AM]* [01/02/2013 12:00:00AM]; Subscription B* [01/03/2012 12:00:00 AM]* [01/03/2013 12:00:00AM]; Subscription C* [01/04/2012 12:00:00 AM]* [01/04/2013 12:00:00AM]; Subscription D* [01/05/2012 12:00:00 AM]* [01/05/2013 12:00:00AM]
I then use a text to columns function to separate by the * and the;
I then am left with a column for the role, one for the start date and one for the expiry date.
The roles are in alphabetical order, but sometimes some manual sorting needs to be done to delete the roles I don’t need and keep the ones I do. For example someone could have subscribed to subscription B and not in A that means that the first column may not have all the roles I need, it may be in the second or third column depending on what other subscriptions they have.
So not sure if text to column is even the best way to go?
View 6 Replies
View Related
Jul 10, 2014
I have got the general principles of macros and VBA downpath.
Excel Example.xlsx
The document I'm working with is confidential, so this is an example. Basically, I'd like to string together the content of all cells from the second column associated with each company in the first column (separated by comma + space). In the original document, the companies are located in B2 to B8486, and the key words are located in D2 to D8486. My example uses ampersands, but I seem to understand Concatenate would yield the same results.
View 9 Replies
View Related
May 20, 2008
I have a stock sheet of about 1500 items that is printed every 3 months for stock take.
The changes are then entered manually. I have set up a stock order sheet using VLookup and manually enter the items that need to be ordered. I'm wanting to know if i could use a macro to do this automatically and check only for the stock items that have changed (ie. items have been sold ). Stock levels needed on hand are usually constant but is changed from time to time so will have to be taken into consideration. I have included an example worksheet which would better explain what i have been doing so far. Also if possible could the macro generate a new worksheet for the order sheet and name it the corresponding date and month of generation.
View 11 Replies
View Related
Oct 6, 2008
I have a macro in Module1 of workbook "BAU" called "ExtractToSheets" which exports data depending on the contents of a cell (Thanks royUK et al)
At the moment however, you must run the macro manually to export the data.
Now, i have put some simple validation in column K of worksheet "BAU Data" within the "BAU" workbook. Whenever a cell within a predefined range with column K is changed to "Yes" i want the macro to run AND i want the row the cell is in to be locked so it cannot be edited further by the user. I have had too many users mess up previous sheets i have made to collect my data, and i wish to make this one somewhat more idiot-proof!
Any pearls of wisdom folks?
I would have attached a representation of my sheet, unfortunately because there is now a macro in my spreadsheet, our trigger-happy security software won't let me post it!
View 14 Replies
View Related
Oct 27, 2011
I am running Excel 2003.I have a spreadsheet with two worksheets, each worksheet has a Refresh button that runs a Data Extract Macro.The Data Extract Macro imports Data from another spreadsheet.I want to have the spreadsheet automatically run my Data Extract Macros for both worksheets at a specific time each week. (Scheduled task) Regardless of whether or not the excel file is open.
View 4 Replies
View Related
Oct 4, 2007
I've recorded a macro which selects "1" in a filter drop-down box then prints some pages, then comes back and selects "2" in the filter then prints some pages, etc etc etc.
I've looked at the code for this and it treats the "1", and the "2" etc as text each time - originally I had the filter on names, but the names change each time I need to do this whilst the process doesn't, so I filtered on numbers instead.
However, I would have to enter the repeated blocks of code down to 1000 to get it to select down to "1000" in the filter. About 3/4 lines each time but with me manually typing in 1, 2, 3, 4 .... 999, 1000.
Is there a way to say in VBA 'repeat filter selection until you've run out of numbers then come back to "All" and stop ?
View 9 Replies
View Related
Oct 1, 2008
Here is my scenario:
4 step process or more?
1)I have a text file (with delimiters) that I want to be copied over to an existing workbook (because of the header)
2)So now I have a temporary workbook that includes the header and the data from the text file. I want this temporary data to be transferred or copied to a sheet in another workbook(s), wipe out previous data and store the new one. Save the workbook(s) and close.
3)Close temporary file. Don't save.
4)I want this process to be automated -- run it daily everyday at say, 6:30 in the morning.
View 9 Replies
View Related
May 29, 2007
I need to use the Advanced Filter tool to allow the user to filter (in-place) the Guests worksheet while providing the following summary stats: total revenue, ave. revenue, max/min revenue and total number of tours ie the user should be able to enter any criteria below the database to to show only those records (and summary stats) that satisfy the criteria.
To automate the operation of the advanced filter tool, I need three macros. "SelectRoom" and "SelectGuest" macros should prompt the user to enter a value through an input box to filter the data according to a client's name or language tour. The third macro, called "ShowAllGuests" should clear the criteria row and dispay all clients in the database.
The first two macros should include an error message to prompt the user to rerun a macro if no clients satisfied the criteria while the "ShowAllGuests" macro should include a message box statement at the end to display a short message giving credit to the macro author. These macros also require a button each (three in total) in the Guests worksheet!
View 3 Replies
View Related
May 3, 2014
I've got a problem with copying cells from table A to B.
A short insight of the situation:
Table A shows: ITEM_1 = 3, consequently ITEM_1 from table A is copied to table B for 3 times.
I've got a few huge information blocks to handle (up to 5000 items) obviously it's unreasonable to do this manually.
I've added an xlsx file with more detailed description.
Example_WHS.xlsx‎
View 8 Replies
View Related
Nov 5, 2008
I have a spreadsheet tool that I use to calculate values on a set of variables, based on values on an initial set of other variables, for a large number of cases.
The calculations require a number of sequential steps to be repeated to get the calculated values for each case, and I am hoping there is a straightforward way to use a VB macro to automate this process.
Essentially, these steps are required to calculate values for a single case:
1. A data input sheet holds the values on the initial/input variables for each case. The first step involves copying the string of values for the case on the input variables into a sheet where the calculations are done.
2. As soon as the input string of values are pasted into the calculation sheet, the calculation formulas generate values for the case on the new, output variables.
3. The output variable string is then copied from the calculation sheet into a “results output” sheet. This copy/paste procedure needs to offset from the first row on the output sheet, so that the row number where the values on the output variables are stored correspond to the case ID. For example, case ID 10 is stored 10 rows down from the first row (i.e., on row 11). Case ID 100 is stored 100 rows down from the first row (i.e., on row 101).
As there are a very large number of cases, I need to have a “control panel” in place, where I can indicate the range of case IDs that will be processed. This takes the form of two cells – one indicates “From ID” and the other “To ID” (for example, “From ID” 1 “To ID” 100). The macro then uses this information to loop through the calculation steps outlined above for these case IDs.
View 4 Replies
View Related
May 17, 2007
Is there a way i can dictate to Word from an Excel macro that i want it to open, Start a mail merge, use a pre-made file as a template, use the excel file the macro is in as the source, get it through the whole setup of the Mail merge all the way to the print function?
View 9 Replies
View Related
Sep 16, 2006
I have 5 Excel files. The first one is Main, and the other 4 are subfiles, namely A1, A2, A3 & A4. I have a need to open Main, then click a button to start a Macro (in Main) which will do the following, sequentially:
1. open A1
2. run a Macro in A1
3. close and save A1.
4. open A2
5. run a Macro in A2
...
12 close and save A4.
The files A1..A4 are a file server and being shared. If they're being used by another user, it cannot be saved - so I would have to skip it and continue with the next A. It would be great if start Excel, open Main, and run the Macro in Main fully automatically.
View 3 Replies
View Related
May 8, 2007
I'm looking for information on building a macro that will automate making copies of a spreadsheet into another workbook that contains very particular information. My master sheet has lists of my customers and the rep's that service them. What I need to do is have macro buttons for each rep. that will pull all the shops that they service and all information for these shops into another spreadsheet.
View 9 Replies
View Related
Jan 23, 2013
I have recorded a macro to sort a range of cell based on two values that is dependent on time in another cell. I now want the macro to run automatically when refreshing the workbook with F9, so as the time changes so will the sorting. Everything works fine except the sorting doesn't refresh when F9 is refreshed.
My recorded macro is:
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Long, FillCT As Long
For X = 1 To 4
If Cells(Rows.count, 1).End(xlUp).Offset(0, X - 1) <> "" Then FillCT = FillCT + 1
[Code] .....
View 4 Replies
View Related
Aug 17, 2007
I have a worksheet of 5 columns. What I would like to do is subtotal an amount in column d, where the item code in column b are the same. Lets say there are 5 rows with code 8150 in column b, I want to add all these rows up BUT ALSO add up any rows which are 8150+1 (x+1) i.e. 8151. All transactions where the code in column B, x + (x+1) = 0. All true results should then be cut and pasted into a new worksheet (one worksheet for all transactions that are true).
e.g.
8150 1233
8150 12
8150 644
8151 -2084
8151 -10
8151 -205
Total of above amounts is zero, therefore cut and paste to new spreadsheet.
Now that I think about it, its actually quite complicated.
View 9 Replies
View Related
Dec 25, 2007
Can I adapt this code so that users receive the alert if they try and go to the next field without filling in the required ones, or - better - to combine it with a code that does not run a macro, but instead gives the alert, if the required fields have been missed. (I don't require anything to do with printing, this was the closest code I could find)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheet1. Range("A1").Value = "" Then
MsgBox "Cannot print until required cells have been completed!"
Cancel = True
End If
End Sub
View 4 Replies
View Related
Feb 6, 2014
I am in need of VBA code so that I can fill out an input form generated by someone elses macro input box. (I am the user, not the one developing the input box).
I am working to streamline a whole cluster of macros and this input box is currently my bottleneck. When the input box pops up, instead of me manually typing, I want to autofill the space with "104" and then click 'ok' uisng VBA.
I can not modify the actual VBA that created the input box (ie make 104 the default) because other users need the box to be blank.
find out how a developer would change the original vba code, not how a user can interact with an input box by using vba.
View 3 Replies
View Related
