I received this code from Joe a while back and it works soooo wonderfully, I thought I might be able to apply it to another fun activity. I'm having trouble understanding most important part of the code - in red (go figure)....can someone translate? the original thread was here: http://www.mrexcel.com/forum/showthread.php?t=325705
Sub MyNewFormatMacro()
' Copies data from Sheet1 to Sheet2 in new format
Application.ScreenUpdating = False
Dim myNumColumns As Long
Dim myNumRows As Long
Dim c1 As Long
Dim r1 As Long
Dim r2 As Long
' Determine number of columns from number of titles in header row
Sheets("Sheet1").Activate.......
Looking to take an array of cells and paste them from left to right as right to left. for example if I have 3,2,4 and want them to be 4,2,3. The paste special option will make them vertical and then horizontally but not how I am expecting them to be.
A web query I am trying to use to bring an online data table into my worksheet is broken. Now, instead of returning the data table nicely into my worksheet, it imports the code of the webpage, instead, and turns my worksheet into a mess.
The query used to work but there was recently an "upgrade" to the program that populates the web table and the query no longer works and just returns the code for the page, instead. I can see the html code for the table in all of the code it returns but I really need the table to import cleanly into excel.
I can't talk to the people who changed the web program.
I have a workbook (excel07) that I use to import data onto our purpose built database. I have some macros to sort the data and send it to the correct columns however the one stage I still have to do manually is assign each row its own unique sorting Code (in a bespoke column "B2:B999").
These are objectives and the code should contain three seperate parts (part 1a and b do not need to be seperated);
1a. The characters "PO" should be the first in the code (for sorting purposes)
1b. The persons initials (first letter of the first name and last name) found in column J2:J999. [They are sorted by name so It would also be good to add a number after the initials seperated by a space incase of multiple objectives however I could defintly live with typing these in manually]
e.g. "Joe Blogs" second objective = JB02
2. The numerical part of the stategic objective they have selected found in column H2:H999. [incase you need this these range from 1.1-1.4, 2.1-2.5,3.1-3.6 and 4.1-4.5 all with a short text strings after which shouldnt be included in the code]
e.g. "1.1 We are Committed to being nice" = 1.1
3. The year they are applicable for which will all be "12/13" however I will need to change this next March.
Therefore the final code should appear as "POJB02 3.1 12/13"
There is a 16 Character limit on these codes but all of that information is needed for sorting, filtering and report generation, the spaces could be replaced by "_" if that makes things easier.
I have a workbook that has ben imported into excel and I need to extract the Cabinet sizes (red text) from ColumnC On Sheet2 leaving out the rest of the info. I have a button on the home sheet that has the code that I am running to generate this report it will do most of what I want but I am stuck at extracting the cabinet sizes.
The data is coming from the SheetComponetListing worksheet and going to Sheet2. I have manually created the end result that I am looking for on the CabinetSize worksheet. [URL]....
I use excel 2002 but some of my office are on 97, i want to add a small workbook open event code which works for me but debugs for the others?? The code is basically, go to a tab, on that tab and that range sort..
I've developed a little software using Excel Macros & VB. To prevent people from accesing the code I protected the code blocking it from visualization. It seems not enough as an acquaintance of a friend cracked it in 25 minutes. Or so he says. So I'd like to know if there is a better way to protect the font code.
I am "pushing" information from MS Word Fill-In Fields to Excel. Currently, the code (which is intended to run in Word) is overwriting the "pushed" data in the same cells in Excel (row 1). I would like it to add new data to the next available rows [kind of like the End(xlUp).Row + 1 code, but for Word].
Dim Fld As Field Dim ExcelSheet As Object Dim iColumn As Integer iColumn = 1 Set ExcelSheet = CreateObject("Excel.Sheet") ExcelSheet.Application.Visible = True For Each Fld In ActiveDocument.Fields ExcelSheet.Worksheets(1).Cells(1, iColumn) = Fld.Result iColumn = iColumn + 1 Next Fld ExcelSheet.SaveAs "C:TEST.XLS" ' Close Excel with the Quit method on the Application object. ExcelSheet.Application.Quit ' Release the object variable. Set ExcelSheet = Nothing End Sub
trying to get macro to loop until there's no data to process.I have data in two columns A&B which it creates a chart from I then need it to skip C (which is blank) and do the same chart for columns D&E and so on indefinitely until there is no data to process..
I have attached a very simplified version of the data, the data is made up so the charts don't make sense but if you run the macro you'll see what I'm trying to achieve.
Its been 3 days im trying to use vba for excel. However after lot of struggle i was able to make user form in which i enter data in textbox1 it searches from the sheets and puts the data in the rest of text boxes On the other hand i made a code which makes a word document basically a notice. Which uses data such as names and ids from cells but now i want to mix both. As now i want is that if i search using the user-form i want to add one more button to that same user-box which executes data from that user form to put values on notice
I have employee Clock IN - Clock Out as shown in Column A thru C. An employee can have more then 1 Clock In Clock Out as shown for Employee Name Karmen and Haley.
As shown, each employee is separated by "----------------------" and it ends with "REPORT END"
I would like a VB Code to transpose the data as shown in Column G thru H ...
I have a workbook with 5 Tabs. One of these tabs is "Completed" (for completed work) The other tabs are names of Managers and the tabs contain information about who is doing what work for the Manager and information about it.
What i would like to do is in column F on every sheet is the "status". I would like when the "status" is changed to completed, to have VB code move that entire record to the Completed tab.
I think its possible i just don't know how to do it.
I need to lookup a data which have 2 or more same data from the output sheet and the source sheet. i have used concatenate function but i need the invoice number also in the output sheets.
example i have a list of Order NUmber, Qty and Invoice Number. There can be a chance where the Order Number are equal but different Invoice number. I need in my output data the correct Invoice number and Qty.
i need your help by a code to transfer the data mentioned in ( main ) sheet ( in attached file ) to the ( 8 agents ) sheets which addressed (A,B,C,D,E,F,G,H) ( in same cells for easy using the code ).
We have a worksheet entitled 'Data Output' that has the raw data in column B. The data represents temporary input from another worksheet that serves as an intake form. Each person's intake data will temporarily populate column B of the Data Output worksheet. When each intake is complete, I want Excel to take the data in Column B and find the next available empty column in a worksheet called 'database page 1' and populate it with the data starting at row 3 downward. When the last column in database page 1 worksheet is reached, I need for Excel to go to 'database page 2' worksheet and begin populating the next empty column and so on.
Is there anyone within your forum or group that can help me write the VBA code for this and briefly tell me where in Excel to insert the code. I know formulas basically well, but have never used VBA.
I have a set of Data and I would like to order the data based on a column which is G and contains Dates. I would like to order the data Desc order but this must be done in VBA as its a monthly report and needs to be scheduled.
I use my workbook to track sales data from one store to the next. I use my workbooks to compare data from year to year. Each year's data is displayed on a separate worksheet. '2013' has 2013's data, '2014' has 2014's. On the 2014 sheet, I have a Prior Year's Sales that pulls data from the previous year's spreadsheet using a formula which I just drag down each day I enter sales. I would like to automate this process and have the VBA code check for today's date and automatically pull the previous year's sales data from the '2013' sheet and put it in the appropriate cell on the '2014' worksheet. I hope I have explained this well enough to understand. I've included a link to my workbook for reference.
I had to use dropbox since I can't post a file over 1 MB. The file size is around 1.25 MB.
I am working with monsterous excel sheets (named Data) and need to a column that is governed by the ZIP. I have a sheet named Source in my excel folder with all the matching information next to the excel sheet. The column my zip codes in Data starts on J6 to J290 and the zip codes in Source are from A2 to A2671. The information I am trying to pull from Source to Data are names and branches located in Source from B2:E2671.
What function will auto fill the columns with the correct information. If it can only be done by putting a function into each column, that is not a problem
I've not had much experience with VBA code, other than recording macros and editing them a little. What i would like to do is code a macro to copy the data (text only) of a whole worksheet into a blank worksheet in a different workbook, effectively allowing the user to "upload" the data to a master workbook.
The user will complete data entry into a daily template worksheet containing all formulae to obtain necessary daily data. I would like them to then be able to click a button that runs a macro copying the text data from the daily template to a monthly workbook. I have no problem recording this in a macro and the code for that (no doubt there is a more efficient way) is:
[Code] .....
The monthly workbook will contain 31 sheets (named 1,2,3...31) for the days, and each month will have it's own workbook (named Jan, Feb, Mar...Dec).
The key thing I need is using cells within the daily workbook to determine the month and day used by VBA for the filename and worksheet respectively.
Cell B5 contains the day (eg. 1) and C5 the month (e.g. Jan)
My vba code to copy row A110 of "Mod" worksheet to A9 in Table A of "Email Data" worksheet using some logic like - in Mod worksheet it searches for data i.e. "COUNT(DISTINCTM.TRANS_ID)" if found then it searches for "row selected" and it searches for data between the two . And then it pastes 34864 to A9 of Email Data worksheet . I have written code for this but it doesn't works.
Also i need vba code similarly for searching "CAP_ACTV_LN_SEQ" and then the values inside it to be pasted i.e. row 128 and row 129 in Mod worksheet to be pasted in table e in Email Data worksheet . Remember there are 2 rows but there can be any number of row anytime.
Also the vba code for "NULLPOINTEREXCEPTION'" is there in the sheet which is working fine. It can be used for your reference.
Button for Vba code to work is present in "Email Data" worksheet.
code for "COUNT(DISTINCTM.TRANS_ID)" given below also excel sheet attached : Worksheet .xlsm
I have a table with row headers (in column A) and column headers (in Row 1). Throughout the table there are 1's and blanks depending if the column is applicable to a particular row or not.
I want to write a VBA macro to do the following:
1. Do a Vlookup of column A for a particular user input text string. 2. Only show the row that matches the text string. 3. Only show the columns where there is a 1 associated with the selected row.
Then once that is done I need a separate macro to return the sheet to show all the rows and columns.
What I am wanting to do is to transfer Names(Row B7:B160) to a different work sheet IF the Row next to it(C7:C160) is filled out with a time. I will be setting up a command button that once say 10 names have times next to it, this data then will transfer to another work sheet.
I have done below coding, however it will only transfer data in B7 and C7, if I try to add B7:B160 it comes back as Missmatch. Below is what I have done for the Command button.
Private Sub CommandButton1_Click() Dim AdviserName As String, Time As Integer Worksheets("Sheet1").Select
