How To Avoid Repeating A Similar Loop Several Times (pivot)
Mar 2, 2007
I am coding a macro that would take all information needed from an existing pivot to put in in a new report file.
Now the problem is that I couldn t get to paste the data (for some weird reason), so I did a loop that terminates with IsEmpty...
My problem is I have to write on loop per column, because I don t know how to tell excel to go to next column (that I know!) AND to the first row, which means doing an offset of (x,1), but how do you set the x for it to be adaptable if I change the length of the pivot table?
I really hope someone can help me with this, I tried to replace range("first cell") by cell(x,... and set x as a variable but i am not good enough obviously....
Here is what I have so far:
Dim k
Dim w As Integer
Workbooks.Add
ActiveWorkbook.SaveAs "C:Dokumente und EinstellungenCustomerServiceDesktopMonthlyReportAutomated.xls"
'iniatiation before loop
Workbooks("ChannelProductionlastestupdateJAN2007").Sheets("pivot").Activate
Workbooks("ChannelProductionlastestupdateJAN2007").Sheets("pivot").Range("a20").Select
k = Selection
View 9 Replies
ADVERTISEMENT
May 4, 2007
I have three cells in a column. A1, A2 and A3. There are only 4 possible numbers that these can have in them, 0,1,2,and 3. Here is the catch. None of them can repeat, although they can be in any order. And the column may only have data in the first cell or the first two or all three. Is there a simple macro that will alert me to when a number is repeated? It needs to be a macro rather than a apreadsheet function.
View 9 Replies
View Related
Oct 24, 2009
I've worked on a solution for this thread (http://www.excelforum.com/excel-prog...-automate.html) but have been mentally challenged with how to avoid changing the loop counter in one of the loops I have used to resort an array of file names from the getopenfile dialog.
The aim of the shown code (see post 12 of the above link for attached file) is to check if the file containing the macro is included in the array returned by getopenfile while sorting the array of file names, and if so, moving it to the end of the array for "deletion" by redimming the array to exclude the last item. This problem of the open file being selected in the dialog may never arise, but... as the OP's request in the other thread was to allow two-way comparisons between numerous files, I've considered it likely enough to test for.
Here's the code I have settled for esp between the commented lines of hash symbols, which does change the counter (see the commented exclamation marks), but prevents an infinite loop (on my second try!) by using a second boolean flag of "HasCounterBeenChanged". Is there a better way of doing this? Or, alternatively (not in my thread title), is it possible to prevent the active file being selected through one of the arguments in the getopenfilename method?
View 3 Replies
View Related
May 1, 2007
ok is there a way to have excel fill a certain number of cells with specific data specified X times? For example, the end result would look something like the pic below. The column on the right would change according to the numbers specified in the yellow column.
View 9 Replies
View Related
Mar 27, 2014
I want to select the dates(from column H) in which the value(in column I) is greater than zero and paste them in column K(Attachment). At the same time, I want to expand each day for 24 hours. That means, I want to repeat the date 24 times while pasting in column K.
View 5 Replies
View Related
Jan 22, 2008
I am trying to create a formula that would provide a result a specific number of times based on a table in a seperate worksheet. Here is an example:
Person: # of times
John 2
Joe 2
Frank 2
Jack 1
Based on an IF statement, the cell should bring back John, the next cell down should bring back John, the third cell should bring back Joe as John has reached his limit of 2, and have this repeat until all criteria that meet the IF statement have been met.
View 10 Replies
View Related
Feb 23, 2010
In my workbook I have about 20 sheets (less in the attached sample), and on most sheets I’d like to query data for each day and find an average value based on the time and then copy that result into another sheet. I’m not sure if I’ll need 2 macro’s for this or if one can be used.
Here’s a quick description:
Assuming that I am currently in the sheet I want to run the macro, then I will either input “1:45” or “0:45” into a popup box, or I could always simply input the 1:45 or 0:45 in the code itself. I’m flexible
1:45:
If I input 1:45, then I’d like the macro to find the first 1:45 in Column B and the value in the same row in Column F will be used in the calculation. Once 1:45 is located, then the macro moves up to find 22:45 in Column B and the value in the same row in Column F will be used in the calculation.....
View 11 Replies
View Related
Jun 1, 2009
I have a form that users will fill in, and I need to print a set number of labels (all identical) based on the info that is entered.
I have the form set up with data validation and indirect references(Lists on a separate sheet)
Example...
User enters in:
Customer name
Product name
Lot #
PO#
Date made
Number of items
From there I have a separate set of cells that reference the above info formated to how I want the label to appear when printed.
Now, I need to repeat that label the set number of times (# entered in as "number if items") in a label sort of format (not sure if a mail merge will work for this??)
Then, print off and stick identical labels onto each part that is manufactured per PO/Date etc.
View 9 Replies
View Related
Feb 24, 2008
I have a data attached and the pivot. While doing the pivot the first coloum are grouped and merged but How to avoid this
View 2 Replies
View Related
Jan 31, 2014
I have a list box contains of customer name and I used that to set up formula based on your selection in the list box. However, I wonder if there is a way that can select multiple customers in the list box and it will add up all that customers from your multiple selection like in the pivot slicer. I don't know if we have any formula that can do that complicated thing.
View 2 Replies
View Related
Dec 29, 2012
I've built a table that is meant to track the quality scores of multiple teams of agents. The agents are assigned to leads who are doing the quality monitoring. The goal is to track and trend the date the monitor is completed, the score of the monitor (scale of 1 - 12), who completed the monitor (initials in Lead column), and the running average score. The Score and Lead column are drop down validations.
This is being one of my first exploits into excel, so I am not sure if I built this correctly structurally, or what. When I go to create a pivot table off the data I have created, it's not calculating the values correctly. As an example if I want to count the number of 'score' for CCR1 it's always 1. From what I have been able to research is that this is because I have essentially repeated the headers multiple times. Below is what the table looks like so far.
CCR
Date
Score
Lead
[Code]....
View 1 Replies
View Related
Jan 7, 2014
I'm not grasping the Pivot Table correctly. I've written code to create a sum of values based on a worksheet. Specifically:LocationIDDeptSum of Hours Worked. Location, ID and Dept are rows. This effectively provides the aggregate values that I need based on the row groupings.Here's where this is falling apart. I need to create a new worksheet based on these values. I assumed the three row values - Location, ID and dept - would be in a hierarchy. It's possible they are, I just can't figure out the object model.
When I loop through the PivotItems collection of the PivotFields("Location"), I get what I need. However, I'm unable to determine how to loop through the child values (just for that location). PivotFields("ID") returns all IDs. I can't figure out how to return only the child entries for each pivot item. GetPivotData hasn't been very useful for this. As far as I can tell, GetPivotData, while its return type is listed as Range, throws an error when more than one cell is returned. Worst case, I suppose I can just parse the data in the DataBodyRange of the pivot table - maybe not, I haven't tried that. I'm hoping there's a way to iterate through these collections, but based on what I've seen from Google searches, there may not be. Does my pivot table need to be rearranged? I suppose I could also just dump this data into a data table
View 1 Replies
View Related
Apr 20, 2006
sorting data I use in a workbook for athletics. I've really chopped down my workbook for upload, In the worksheet "Leaderboard" I can call up stats for different lifts, and it finds (in this case) the top 5 lifts and the names for the kids that have those corresponding lifts.
My problem is that when two or more kids have the same lift, it will only call up the name of the first instance of that lift. You can see this in the "Leaderboard" worksheet, and the name "Adams, Andrew" appears for both lifts of 75. I would appreciate any help on how to correct this, as I've searched the Internet for weeks now looking for a solution. I've tried experimenting with different things as well, all to no avail.
View 9 Replies
View Related
May 22, 2009
I want to copy range B2:B5 value only and paste it 19 times from B12:B15, B17:B20, B22:B25, and on. The distance between any two pasted range is tow rows.
View 9 Replies
View Related
Nov 18, 2009
I've attached below a small part of my code. I am wondering if there is a way to do this, without copying and pasting something 30 times, but using a loop instead. As you can see there are a series of productsNumbers (30 in total, but this example is for 3). Each productNumber is a string that is actually a 5 digit number, so it can be an integer as well, if it has to.
I would like to code below to loop for as many products as there may be. The way that I have it right now does not work - I feel that I am missing something small or that there is no way to do this.
View 3 Replies
View Related
Apr 13, 2008
I have a routine that loops through a block of records containing two time fields. One is the same for every record (let's call it the start time) the other, which varies, is the last time at which an event happened before or after the Start time (let's call it the Event time). so a pseudo block of data may look like this;
A B
15:00:00 15:01:27
15:00:00 15:00:05
15:00:00 14:59:27
15:00:00 14:59:01
15:00:00 14:48:45
I need to identify the record that has the closest time in column B to that in column A (in the example above that would be B2 (15:00:05). I then save that record off and eliminate the rest for that time block. The whole subroutine then repeats for the next block of data and so on down the list, top to bottom ( times are in descending order). Note also that times will never span the 24-hour point - they all occur betrween 12:00 and 22:00 on any given day.......
View 2 Replies
View Related
Feb 8, 2010
I was playing aroung some VBA code, but the code executes 98 times and I don't know why. For example, range A1 contains 5. When I type, say 3, in A1, I want A1 to show me 8 (5+3). Then I may type 10, in this case A1 must show 18 (8+10). And so on. I decided to place entered values in different column, then sum them in A1 with below stated code
View 3 Replies
View Related
Aug 9, 2006
I have a sheet with data in rows across several columns.
I want to copy the data from each row into a new sheet and save it with another name (which I already have ascript for), but as I have 10 rows , basically all I've done is copy the script 10 times and chaged the row numbers and nae to save as.
What I want is one script that does all I have now, but then loops back to do the next row down and changes the name to save it as as well (which is the person's name listed in the row)
View 9 Replies
View Related
Sep 30, 2013
I have a rand () which provides me a different number upon calculate. I would like to run a loop for 1000 times and take the value and copy and paste in a range.
The below sorta works, but at times it stops or doesn't work at all. I have a loop for the counter and the for each to place the value into the cell and have it run over and over and placing the value in the next cell underneath. I have the counter at 10 so I dont get stuck in some endless loop before I know it works.
Code:
Sub montecarlos()
Dim MCs As Long
Dim c As Range
Dim lCount As Long
Dim lNum As Long
lCount = 0
lNum = 1
Worksheets("MonteCarlo").Activate
[code].....
View 6 Replies
View Related
Jul 2, 2014
How do I run this loop 10 times ....Then using a timer or system clock to restart it.
Code:
Public Sub Workbook_Open()
Dim ws As Worksheet
Do
For Each ws In ThisWorkbook.Worksheets
[Code]....
View 1 Replies
View Related
Jan 1, 2007
I am recording events on a day to day basis in excel using the first column as the date, second column as start time, and third column as end time. So an entry might look like 1-Jan _ 13:00 _ 13:40, in the three columns across. There will be multiple entries for each date, but the number of entries for each date will vary. Entries may also overlap in times. For example, the next row may read 1-Jan _ 13:10 _ 13:45. Some times there will be gaps such as a third row readng 1-Jan _ 14:15 _ 15:00. What I would like to do is compute the total elapsed time spent on projects for each day, not counting any overlaps. SO even though the total time spent on those three projects for January 1st is 120 minutes, I would like to know how much time during the day is spent doing work, regardless of how many projects are being done at the same time. So I would like excel to be able to tell me that on January 1st , 90 minutes of the day was spent on work. Hopefully this makes sense. I also need it to distinguish between dates so that it can tell me how much time was spent on January 1st. then January 2nd, 3rd and so on. It would be great if this ould be computed as the data is entered. Maybe It could record it on a new sheet with a column for each date and then it lists the time spent on that day in the row below it.
View 9 Replies
View Related
Dec 11, 2013
I have a big list of names of people that have completed a bunch of training they have completed. I want to be able to run a pivot table/chart and only count a user once vice each time they have completed a training. So in otherwords I want to get a count of how many people are on the list vice how many certifications they have.
View 1 Replies
View Related
Jul 18, 2012
I have this code in an active worksheet that works with the exception that when I try refresh other Pivot Tables with the file that it goes into a constant loop.
Private Sub Worksheet_Change(ByVal Target As Range)
'
' Update the pivot table on this worksheet if data in columns A or B is changed
'
If (Target.Column = 1) Or (Target.Column = 2) Then
ActiveSheet.PivotTables(1).RefreshTable
End If
End Sub
View 2 Replies
View Related
Sep 27, 2012
I have a pivot table with two columns: Code and Quantity. I want to loop through the Quantity column and hide all values = 0. I can do this easily by incorporating this into my code:
Code:
pt.PivotFields("Code").PivotFilters.Add _
Type:=xlValueDoesNotEqual, DataField:=pt.PivotFields("Sum of Quantity"), Value1:=0
However, I have a "(blank)" code in all pivot tables. I do this because occasionally there is no data to organize in a pivot table. Having a "(blank)" option will allow my code to work even when there's no data. Therefore, I want to keep blank visible at all times. The above code hides "(blank)", however.
The below code is what I've tried with no success.
Code:
Set pf = pt.PivotFields("code")
For Each pi In pf.PivotItems
If pi.PivotFields("Sum of Quantity").Value = 0 Then
[Code] ........
View 4 Replies
View Related
Jul 24, 2014
I'm hoping to automate some pivot table refreshes. I've got a dozen pivot tables on a sheet all with different numbers. I'm hoping I can write a code that loops through the pivot table names and runs the refresh. Here is the code as it is right now. I've essentially copied, pasted, and changed the name of the pivot table for the refresh.
I would like to create an array in vba (22,21,20,19,18...) that renames the PivotTable and runs the code.
sub Refresh ()
Dim pt4 As PivotTable
Dim Field4 As PivotField
Dim NewCat4 As String
Set pt4 = ActiveSheet.PivotTables("PivotTable22")
[Code] ..........
View 3 Replies
View Related
Apr 8, 2014
I'm looking for a formula that will calculate the difference in times between specific times while working with a 24 hr clock. Please see details below:
E3 provides the start time of 4:00
H3 provides an end time of 15:30
If an employee works betwen the hours of 0:00 (midnight) to 5:59, this is considered DIFF hours and is therefore the number I am seaking. So for the data noted above, the total DIFF hours worked is 2 hours.
View 7 Replies
View Related
Mar 7, 2009
I need a formula in excel to convert start times and end times and minus out lunch time taken and then give total hours worked. For instance,
Column D Column E Column F Column G
Start End Lunch Total Hours Worked
10:01AM 7:08PM 1:01 (formula to convert hours worked)
View 9 Replies
View Related
Nov 5, 2008
I'm havin' a chart for interest, instalments and so on;
Interest [X%] Loan [Z crowns/dollars]
Loantime [Y years] Instalment [formula, which is "=Z/Y/12"]for each month.
Year, Month, Loan(left), Instalment, Total payment
1, Januari, =Z, =Instalment (constant), =Interest+Instalment
Month, Loan(left), Interest
Februari, =above-Instalment, =X%*Loan(left)/12 (rent is divided per year),
Instalment, Total payment
Constant, =rent+Instalment
and so on... as long as you want ^^ (it's quite messy, but try :D)
The question is as follows "What would a loan of 900'000kr with 9% interest rate totally cost over 30 years?"
[use "IF" to avoid getting anything written after the loan expires]
The question itself can be easily solved by just dragging the formulas down to 30 years and fill in the % and loan etc. But what I do not understand is the "IF" question. I'm supposed to use the IF function to instantly show the cost of the loan (total rent payment) after the 30 years? That's how I understood it. In that case... how do I do that? ^^
View 14 Replies
View Related
Feb 22, 2008
I know how to avoid getting the #N/A in a vlookup, but I have found situations where I have data matches and still get #N/A. For instance, I am looking up an item number (which contains numbers and letters) on one tab to find corresponding info on another tab. I've verified that the item number is indeed in the lookup range but I still get the #N/A. If I copy and paste the item number over the same item number in the lookup range then it works. However, I don't want to do this for each item number.
View 9 Replies
View Related
Jun 12, 2009
=AVERAGE(IF(A:A=B6,IF(C:C>0,C:C)))
"A" is a duplicated rep field and "B" is unique rep IDs and "C" is a sum of product types purchased. I'm averaging the number of product types sold by each rep.
I need to modify it to remove the #DIV/0! error it generates. It calculates just fine by row (with the error on some rows), but when I use that calculated field as an element in another formula, the #DIV/0! blows up the second formula. I tried a second IF function tied to the sales field "D" but I don't think I nested it right.
View 9 Replies
View Related
