about doing the opposite of consolidating multiple sheets into one: I have a large database and want each row of columns in their own new sheet. Rather than copying and pasting each row that I have, is there a code or formula to quickly command this to happen?
View 9 RepliesI have data that is automatically entered in sequential rows down a sheet.
I have set up another sheet to format the data in a fixed print range to print Results labels with a Custom Menu PrintButton2_ClicK() Procedure. After a label is printed I want to change the color of the first cell in the row that just printed and then increment the counter so the next row of data is displayed in the print area.
I spent(wasted) a lot of time trying to get VB to accept an indirect address so I could change the cell color.
The code below works but I think there must be a better way.
Private Sub PrintButton2_Click()
'Use for Menu Item to Print Results Labels as they come in.
'Create sRow as String for Row Number to allow cell Color Change
Dim sRow As String
Dim nPCount As Integer
'Print Current Record (Label Print area on sheet "AutoPrint")
Worksheets("AutoPrint").PrintOut Copies:=1, Collate:=True
I have created a form in excel. I now want to print the information from the form in 3 different ways from a custom buttom. The form is an invoice and
1. I want to print the entire sheet with all information including custom header and footer just as if the print icon from the toolbar was selected.
2. I want to print the second sheet the same as the first with the information of cell C21 replaced with upper case Xes except for 4 digits (this is the credit card Number) including header and footer (format in cell is 1111 2222 3333 4444 / 555 want to see XXXX XXXX XXXX 4444 / XXX)
3. the last printout I only want to print the following cells in their correct locations
A6:C6
A7:C7
A9:G9
A10:G10
A26:E26
A27:E27
A28:E28
A28:E29
A30:E30
A31:E31
Also on this last sheet I want to change some items : Cell F26 to read PULLED BY and cells F27, F28, F29, F30, and F31 to be blank and no header or footer.
Any way to sort each row individually to move all data starting with letters "BML-" to first three columns? I have a document with data all over spreadsheet multiple rows and columns. But would like to move all cells that start with these characters "BML-" into first second and third column. I have been trying to accomplish it for over two weeks now without any success.
View 7 Replies View RelatedI have 134 parts and each part is available in 5 price groups - these are static items that need no calculation as they are completed on another worksheet. I have 400+ "items" each item is made up of various parts. I need to calculate the cost of each item. Hard to explain without example so I have attached an example.
View 2 Replies View RelatedI am trying to come up with a way to print out data that is variable in the amount of rows to print.
1. Cells C1 thru M6 is heading of report
2. Cells C7 thru M400 all have formulas and display information only when criteria in Column C in each row is met, if condition is not met it displays no informtion. (There lies my problem).
I need a way to print out only the area that information is displayed in and skip the areas that are not displayed. (Currently I have hard coded the print range using the largest report)
I have one workbook. Two user forms I'm looking to have a click event that asks if the user wants to hold a job. If yes userform1 appears if no then userform2 appears. I'm thinking some kind of if statement. but I'm not sure how to code the userforms so they open up.
View 9 Replies View RelatedI have a list with dates in A and dollars in F:K
I may have 5 entries for the 1st and 50 entries for the 3rd the list continues for the year
I need a way to total each day individually in N
I have a single simple question, so let's get straight to the point: I have an A column with these values:
I:::I::::::A::::::I::::::B:::::....
I==================== ....
I 1 I____40____I_________ ....
I 2 I____50____I_________.....
I 3 I____30____I_________.....
And I need each of these values increased/decreased by a constant number.
So far, I only found formulas where all cells are, say, added into a single result, as you can see here:.....
My table has one column C with 3 possible values. Column D has either TRUE or FALSE. I am trying to count individually all the times when B = True (F4), T=TRUE (F5) and B/T =TRUE (F6) excluding the blank cells.
But the final goal is to display the total figure required to be answered, but as each question is answered yes or no subtract 1 from the displayed figure. My sumproduct adds up the "B" but does not match with a "TRUE"
I have data on sheet "master", which with the macro (Ctrl+Q), splits in unique values in tabs and another macro sub Send_files() (Ctrl+e) triggers a selection in each split-sheet in email body to recipient.
Problem arises when I want to run a macro which collectively send files after running in each sheet. A simple code would be:
Sheet2.Activate
Application.Run "Test2.xlsm!Send_Files"
Sheet3.activate
Application.Run "Test2.xlsm!Send_Files"
etc.
But I don't know how much list of sheets can go on. So I want Sub Send_Files to run on all sheets in workbook after splitting data from master.
Refer attached wb Test2.
i have a program that exports multiple invoices to an excel template for ease of formatting and printing. it can export multiple invoices at once, each invoice being on a separate worksheet. i need for the user to be able to print all worksheets at once and have the pages NOT be numbered 1-30, rather 1-2, 1-4, 1-3, etc.
i understand i can use the header to insert page numbers, but they only function the way i would like when you print each worksheet one at a time. however, there could be any number of invoices to print at once. the only drawback is i am unable to use macros due to security risks/settings.
i would imagine there is some concoction of formulas i could possibly use to accomplish what i need, as i know how many rows of data will fit before excel inserts a page break(56 rows of invoice items, and there are 18 rows besides that repeat on every page). so if i could come up with a way to tell excel when to increment the page number in a cell using a formula of some kind, that would be perfect. or, another way of setting up my template so that it will print page numbers as expected.
I have a list of items and quantities I need of each, such as
cat 3
dog 2
mouse 1
horse 4
snake 2
leopard 4
I'm thinking that it would be a macro that would be way to go for this project.
I want to run a macro that will make the list above the following
cat 1
cat 1
cat 1
dog 1
dog 1
mouse 1
horse 1
horse 1
horse 1
horse 1
snake 1
snake 1
leopard 1
leopard 1
leopard 1
leopard 1
So what happened was that 6 lines of information was transformed into 16 lines of information. My purpose is that I will then will exploring various combination of these items, and thus I think that splitting them up like this will make them more manageable to work with. Since the original list values will change I will not always know how many lines to set aside for the individual breakdown.
I am attempting unhide the same exact rows in multiple worksheets in Excel, Print the entire workbook, and then re-hide the same cells. As I am still learning VB i have been unsuccesfull. I have attached the code that I am using,
Sub Printdoc()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
Rows("105:116").Select
Range("A105").Activate
Selection.EntireRow.Hidden = False
.PrintOut
Rows("105:116").Select
Range("A105").Activate
Selection.EntireRow.Hidden = True
End With
Next sh
End Sub
I have an excel spread sheet with columns of dates I am trying to get an average formula that counts dates less than a year old as 1 and blank cells and dates greater than a year old as 0 and then gives me a percentage. For example I have a column with 10 dates all less than 1 year old I would get 100% but if I had a column with 8 dates less than a year old and 1 dates older than a year, and 1 blank cell, I would get 80%
Is this possible at all, or do I have to calculate the percentage for each column individually.
i am trying to lookup up when ppart matches spart and subtract total shipped from total produced. Here is where I am getting stuck .... because spart has multiple returns LOOKUP(2,1/((I2=C:C)),J2)
View 3 Replies View RelatedIn Row 3, starting at cell C3, I have a list of Stores in the format Store A (Town 1), Store A (Town 2), Store B (Town 1) etc
In Rows C4 to CA7 I have 1 or -1
I want to count the number of instances of 1 for Store A
I have tried the following formula, which is returning 0
{=SUM((C3:CA3="Store A *")*(C4:CA7=1))}
Which is the best way import many (thousands of) files in text format into a single excel spreadsheet. Importing files with e.g. 50 lines to create 50 columns for rows for every file
View 2 Replies View RelatedI'm trying to create a workbook that will calculate times. Currently I have a worksheet that has, for example Incident #1, Date/Time In, and Date/Time Out. At the end of the row it will calculate total time in hours.
I need to create a second worksheet that will have Incident # to correspond to the incident # on Sheet1, with Date/Time In and Out. However, on this sheet there could be more than one occurance of Incident#1, and multiple times in an out. That total will be deducted from the total of incident#1 on Sheet1.
The easiest way to explain this would be...say for the sake of argument Sheet1 calculates the duration of a vacation in hours (lets say 168 hours). Sheet2 will calculate how much of that time was spent doing business (lets say 2 hours on day1, 3 hours on day 4). In the end I want to subtract 5 hours from 168 hours giving me 163 actual vacation hours.
My problem is, I don't know how to go about using the values in multiple rows in Sheet2 that correspond to the row in Sheet1.
I need to apply filters based on 2 criteria
Filter1Dropdown SelectionFilter2Dropdown SelectionHeader1Header2Header3Header4Header5Header6
Depending on what is selected in Filter 1, lets say it applies to column F and i get a data set
Now with the filtered dataset of Filter 1, I should be able to apply Filter 2 or vice versa.
Also at the end, I need to release all filters so that i can see the entire data set.
I am having a hard time with this one. I have 3 cells.
A1 Dallas, TX.
A2 Chicago, IL. (Sometimes Blank)
A3 New York, NY
I would like this info to transfer to another cell like this
Dallas, TX / Chicago, IL. / New York, NY (All in one cell with the "/" to divide.
When the "Chicago, IL." is missing it would look like
Dallas, TX / New York, NY
i have created that will sort a db into dozens of sheets, now i need to be able to reset the process. There are 3 sheets i need, "balances", "trans", and "template". im unsure as to how define the sheet names so that the dSheet variable will recognize them. the way i have it now just deletes everything.
Sub reset()
Dim dSheet As Variant
Sheets(1).Select
On Error Resume Next
Do Until Sheets(1)
dSheet = ActiveSheet.Name
If Not dSheet Is "balances" Or "trans" Or "template" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Else
ActiveSheet.Next.Select
End If
Loop
End Sub
I have made a spreadsheet but would love to be able to incorporate multiple 'Clear Data Buttons', (Macros)
that clear cell data.
I have attached several screen shots of my spreadsheet, with the URLs listed below.
(Images 1-6)
http://tinyurl.com/qba57l
http://tinyurl.com/od9upb
http://tinyurl.com/ovaeej
http://tinyurl.com/pctsvj
http://tinyurl.com/oc2qqm
http://tinyurl.com/qdhzge
Spreadsheet (xls & xlsm) in zip format
http://tinyurl.com/qczlap
It is a trading order sheet that I want to use, but also upload to a blog that I have just
started, relating to trading as a free download, hopefully it may benefit some users/visitors etc.
OK, regarding the macros.
I'm not quite sure how it is best to do it.
In total there are 13 'Clear Buttons.'
11 are 'CLEAR DATA' Buttons
12 is a 'Clear ONLY ORDER SHEET DATA' Button.
Finally 13 is a 'Clear All DATA!' Button
I think it's best if I give the cell location of where I would like the macro buttons located and what data they clear.
Clear DATA - Button 1 - (Is in Cell F3) - To Clear Data, Columns D,E,F & Rows 4 to 13)
Clear DATA - Button 2 - (Is in Cell N3) - To Clear Data, Columns G to O & Rows 4 to 13)
Clear DATA - Button 3 - (Is in Cell U3) - To Clear Data, Columns S,T & U & Rows 4 to 13)
Clear DATA - Button 4 - (Is in Cell F15) - To Clear Data, Columns D,E,F & Rows 16 to 25)
Clear DATA - Button 5 - (Is in Cell N15) - To Clear Data, Columns G To O & Rows 16 to 25)
Clear DATA - Button 6 - (Is in Cell U15) - To Clear Data, Columns S,T & U & Rows 16 to 25)................................
I have a workbook that query's our case tracking database and pulls data into a csv. I am trying to write something that would do the following:
1) Prompt the user to enter in a case number
2) Open up the following file:
-"C:Documents and SettingsDetails.csv"
3) Look through A:A for a match of the user entered number
4) If a match is found then pull the data from cell B in that Row
5) Output the data (from row b)into a text box on the user form along with the original entry made by the user.
i have this data.
WeekFRM CURRCY Account val val2 val3 val4
42100¢BBHBANK403522
43100¢BK200 001310
44100ABBHBANK3013
45100ABK200 9043
46100CBBHBANK10106
47100EBBHBANK903420
48100EBK200 503527
How do i get this into a chart, with week along the bottom, Amount on the left. This is starting to be a pain now as i need to seperate by currency, but a pivot chart looks really realy messy with all the drop down boxes and stuff. I dont mind using drop don boxes, in fact, its going to be essential. but the pivot one look horrible.
I have attached a report I do monthly, a duplicate ticket report.
I am able to work out the duplicate tickets and parent tickets but
I need a formula to do 1 more task.
I need to check all the duplicates in A:A and also the assignment group in K:K.
If the ticket is a duplicate and the assignment group is nz - dms* i need it to count these.
Probably simple but Im still pretty new to all this. I came up with the following but its obviously wrong or I wouldn't be here.
COUNTIF(AND('Duplicate Calls for'!A:A,"Duplicate"),('Duplicate Calls for'!K:K,"dms - nz*))
At Line 40, the program stops running. It asks for an object, but Im not sure why.
Also, I realized that there is an issue with sub twodeux copying the range selection from sheet1 of oldbook to the newly created sheet1(transfer template) of newbook.
How can I cause the form to hold that selection of values until its ready to put them into the newbook? ....
I would like to set up VBA codes to generate a variable number of transition matrices. I would like to know how I can define dynamic ranges instead of coding each and every range. In the codes below, I have to define each range one by one instead of using a loop.
Sub TransitionMatrix()
Dim P1 As Range
Set P1 = Cells(2, 2).Resize(3, 3)
Dim P2 As Range
Set P2 = P1.Offset(5, 0).Resize(3, 3)
P2.Cells(0, 1) = "P2"
For i = 1 To 3
For j = 1 To 3
P2.FormulaArray = "=MMULT(" & P1.Address & "," & P1.Address & ")"
P2.BorderAround Weight:=xlMedium
Next j
Next i
Dim P3 As Range
Set P3 = P2.Offset(5, 0).Resize(3, 3)........................
I've created a very large spreadsheet (4096 calculations) and I'm using array formulas for a large number of cells, which leads me to my current predicament. All the formulas are written in, but I haven't done the necessary ctrl+shift+enter after finishing all of them (there is only slight variation in each calculation so I produced them in an iterative manner) and I was wondering if there was a way besides selecting each cell individually - pressing F2 - Then pressing CTRL + SHIFT + ENTER to make all my formulas array formulas.
View 5 Replies View RelatedI have a very large worksheet with many dates entered. I want to be able to run a macro that prints all the rows that has a date less that 35 days ahead in the future. all the dates are mixed up and not in any order.
Is there a way i can do this?