Need Special Sort Method Completed
Jul 9, 2013
I have the following setup on a worksheet :
5427 Data
5427 Data
5427 Data
6565 Data
6565 Data
7765 Data
all I want to do is have the above table look like this :
5427 Data
6565 Data
7765 Data
The concept being that I can double click that row to see the additional information(i.e. expand to show extra information)
Real life use would be of such, the first column contains the invoice number, the 2nd 3rd etc contain item associated with such invoice.In grouping the column invoice number, you only have to look at one invoice, instead of it duplicating for each item contained within the invoice.
This will need to be done in an efficient manner(over 4000 rows need grouped)
I realize I could just create a list that has one copy of the duplicates, but I want to extract the original information as well. For example, it would look like the following :
Original :
1212 Data
1212 Data 2
1212 Data 3
2323 Data 1
2323 Data 2
Edited :
1212
2323
double click 1212 for :
1212
+Data 1
+Data 2
+Data 3
2323
Note : This grouping will also have to span across the whole row, sample rows :
Invoice# Price Color Weight Item
1212 Column1Data Column2Data Column3Data Column4Data etc.
1212 Column1Data Column2Data Column3Data Item2Column4Data etc.
View 4 Replies
ADVERTISEMENT
Aug 9, 2013
I am trying to execute the following code, but I get a runtime error 1004 (paste special method of range class failed).
Code:
Sub ReviewedStatusReport()
'Define variables
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim ws4 As Worksheet
[Code] ........
View 9 Replies
View Related
Jan 29, 2014
This script is resulting in:
Run-time error '1004'
PasteSpecial method of Range class failed.
[Code] .....
It highlights
[Select Code] .....
when I hit debug.
View 2 Replies
View Related
Oct 29, 2008
I have a Name in Column A
I have a Number total(using a formula) in Column B
Each week I am copying from another source Names and Numbers, let's say in Column C and D.
I want to match the names in A with the Names in C so they are in the same row. The number in Column D needs to go with name from Column C.
Right now I am having to highlight the name and number in Column C & D and then drag it down to the row with the exact name in Column A. If there is a new name it adds it at the bottom of Column A and C.
View 9 Replies
View Related
Feb 22, 2007
1. Alphabetize the worksheets that have a red tab color. The number of worksheets with a red tab color will vary from time to time.
2. All worksheets with a red tab color are formatted the same. I would like to copy the same range of cells (AP5:BP9) on all n number of worksheets with a red tab color to a worksheet labeled "Posting". Also, since AP5:BP9 are cells with formulas and formatting, the ranges need to be copied with formats and value and number formats. The first copied range needs to be on line 8 on the Posting worksheet, the second range to start on line 15, etc.
3. Last, but not really last, I would like to start the code with deleting whatever is currently on the Posting worksheet starting at line 8.
I have attached a small sample. The sample does not reference the same range as above on the worksheets with a red tab color, nor does it contain the formulas and formatting.
View 3 Replies
View Related
Aug 7, 2012
Is the a more efficient way of sorting a huge sheet (One Column only)? Currently, I use the below code and sometimes it throws an error (due to insufficient memory/ cannot undo this step)
VB:
Sub sort1()
Rows("1:1").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.sort.SortFields.Clear
[Code] .....
View 3 Replies
View Related
Jul 6, 2009
I am writing a class to be used in Excel 2007 that will mimic the action of the FileSearch in 2003, but I am stuck with the sort.
View 2 Replies
View Related
Jun 9, 2007
I encounter a runtime error '1004' if the "Invoices" sheet is not selected when I run this procedure. The last line of the code is one which is highlighted when I debug.
Sub ProcessData()
Dim aiOldRows() As Integer, aiNewRows() As Integer ' Arrays of new/old rows
Dim rngRaw As Range 'Data entry area
Dim rngInvoices As Range 'Invoices range
Dim rngOpenPoint As Range 'Top-left corner of data entry area
Set rngOpenPoint = ThisWorkbook.Worksheets("Data Entry").Range("a3")
Set rngRaw = Range(rngOpenPoint, rngOpenPoint.End(xlDown).End(xlToRight))
FindNew aiOldRows, aiNewRows, rngRaw
InvoiceSequence aiOldRows, rngRaw
Set rngInvoices = Range(ThisWorkbook.Worksheets("Invoices").Range("A2"), _
ThisWorkbook.Worksheets("Invoices").Range("A3").End(xlDown).End(xlToRight))
rngInvoices.Sort Key1:=Range("M2"), Order1:=xlAscending
End Sub
You'll notice that there are two other procedures (FindNew & InvoiceSequence) being called by this procedure. I don't think those have anything to do with the error, but I can provide the code for those if needed. Oh, and one other secondary question. To declare the ranges rngRaw & rngInvoices I pick the top-left cell of the data and then do:.....................
View 3 Replies
View Related
Apr 6, 2012
My code is :
Public Const GRAPH_PutData_COL1 = "A"
Public Const GRAPH_PutData_COL2 = "B"
Range(GRAPH_PutData_COL1 & "1").Sort Key1:=Range(GRAPH_PutData_COL2 & "1"), _
Order1:=xlAscending, _
DataOption1:=xlSortTextAsNumbers
it is showing error, "sort method of range class failed error 1004"
Above error only showing when first record is empty...
View 2 Replies
View Related
May 9, 2007
i added a "Microsoft office spreadsheet 11.0 " object using additional control and used it in my form of Excel Macro. then i added some data from the combo box to the embedded excel object dispalyed. the form displays correctly and am even able to add data to cells.
but am not able to sort a column. gives me the error message "Sort method of range class failed"
have tried to make sure the sheet is active using the ".Activate" with the object name. this is the only solution available on the existing forums.
View 9 Replies
View Related
Dec 10, 2008
I'm trying to get the Find and FindNext methods to work. Column C contains serial numbers and there's a chance that a serial number might appear more than once in the column. What I'm trying to do is get Excel to find the first occurance of the serial number, find what row it's on and then see if this matches the variable 'CurRowNo' (defined earlier in the code). If it doesn't I want it to look at the other occurances of the serial number, find what row they're on and see again if it matches CurRowNo.
The variable 'EngCount is the number of occurances of the serial number (also worked out earlier in the code). I've got the code below, but I get the error 'Method Range of Object Global Failed' on the FindNext line. I have no idea what this error means or why it's happening.
View 3 Replies
View Related
Oct 6, 2006
I have a large workbook with hundreds of rows of data.
I have sorted the data and ended up with product codes in column A and my data between columns C and V.
I want to do a sumif with a difference if that is possible.
I want to sum all of the data in column C based on the product code in Column A. But I don't want to include any rows of data where Column V is blank.
i.e. If my sumif for a product code covered 3 rows C3:V5
I want to sumif Column C dependent on the product code in column A but I only want to include rows where there is a value in Column V.
So if all of the cells between C3:V3 contain data include count C3.
Moving down to row 4 if this row only has data between C4:M4 don't include C4.
Moving down to row 5 if this row has data C5:V5 include C5 in the sumif.
i.e if there was 100 in C3, 200 in C4 and 300 in C5 the sumif would be 400 because although C4 has a value V4 does not.
I want to roll this out across all of the columns C:V using the same method if possible.
View 7 Replies
View Related
Jul 12, 2006
We have a spreadsheet in use at the moment which has various lines of information, each line has a customer name, id, request and various other bits of information which needs looking into.
The infomation is arranged onto weekly sheets and is managed manually. Once the customer request is complete, we grey out the background colour. Some outstanding issues background colours are either left blank, yellow or red, depending on whos doing them.
I was wondering if there is a search criteria that we could use that would search through all the sheets in the workbook and find any customer queries that are not greyed out and display them on the results page.
View 8 Replies
View Related
Aug 11, 2012
I am trying to come up with a composite score that if a child takes a particular course and has a grade then make a composite score. Here is an example below.
ABCDEFGHIJK1Math CourseScience CourseReading CourseWriting Course
MathScienceReadingWriting Composite Score Looking for2APGEAPAP A+BC-B- 11003
In the example below I am looking for a composite score of 1100. Here is how I derived at it!
=4*100 + 3.2 * 50 + 2.4 * 100 + 3.0 * 100 = 1100
Code:
Function composite(r As Range, course As Range) As String
Dim d As Double
Dim score As Double
[Code]....
View 7 Replies
View Related
Jan 23, 2014
What I am trying to do is record the time when a task is completed on the spreadsheet. For explanation sake, lets say I have list of 10 tasks in column C 1-10. In column B 1-10 I have a button for each task. When you press the button for the task, the time it was pressed is recorded in D 1-10. To put the time in I used =now(). The problem that I am having is, when you press button 2-10, it changes the time in the cell above to the same time. So instead of have 10 different times in 1-10, I have 10 identical times,being the last button I pressed. I tried timestamp, time value, etc
View 1 Replies
View Related
Aug 27, 2007
I need to be able to have users complete a range of mandatory cells before they are able to close a workbook.
Foe example cells c5,c10,i11, i18,i22 i24,i26 etc etc need to have data in them before uses is allowed to save or close the workbook. I would like to have a message box prompt to alert them to the issue.
View 9 Replies
View Related
Aug 23, 2006
I have a little problem and could use some help please.I created a worksheet for logging orders but now find it too large to cut and paste but have little knowledge of macros
I would like to have any completed rows moved to another sheet in the same workbook ...
View 9 Replies
View Related
Jun 25, 2008
This seems easy in theory but it's above my head. I have written code to add text and numbers from a userform to certain cells on a worksheet. Now, is it possible to display a message box after the code executes to acknowledge the code has executed successfully? I have tried simply adding the Msgbox function at the end of the code but that does not work.
View 2 Replies
View Related
Mar 3, 2013
I am maintaining a spreadsheet to enter all my sales orders. I need a code which automatically moves the entire row to a new sheet "Completed" when the order status is selected as "Completed".
View 6 Replies
View Related
Jan 27, 2014
I've got a password protected spreadsheet with only certain cells unlocked to allow users to complete them. I need the following to work on Excel versions 2003, 2007 & 2010.
Cell E3 has a drop down list with types of car to choose from. One of the car types is "Pool_Car".
Cell D12 should only be used if "Pool_Car" is selected from the drop down list. If any other car type is selected, and the user tries to enter a figure in D12, I need an error message to appear.
E3 & D12 are unlocked cells.
I'm happy for D12 to become locked & only allow it to be unlocked if "pool_car" is selected, but I've looked elsewhere, but can't find VBA or data validation to work.
View 3 Replies
View Related
Dec 15, 2008
I'm trying to run a macro that only shows completed projects, which means all elements of a project have been labeled "Completed". See example below; 1868 is the only project I want to see when I run the macro, 1869 and 1870 are fully complete, so I don't want to see them.
Project #Status1868Complete1868Complete1868Complete1869In Process1869Complete1870In Process
View 11 Replies
View Related
May 6, 2009
I am trying to figure an easy way to create a formula or possibly even a simple macro to determine % completed of a particular activity (milestone) within a process. Within each activity there are 5-10 items that need to be accomplished. Each Activity could have a different number of items. In order to provide status at an activity level, each item within the activity will be designated with an N/A (0%), Not Started (0%), Just Begun (25%), Half Complete (50%), Wrap up (75%), or Completed (100%) from a drop down box that the user will select. Each one of these criteria can have a weight assigned to it that is in parenthesis. How do I come up with a formula based on the choices above to reach an overall percentage for the activity at any given time and then tell me status level in descriptive terms of the overall activity....
View 9 Replies
View Related
Apr 2, 2014
I have attached the the excel sheet where in i want to calculate the total number of completed data points for one person.
Let's say "Wasim" would have completed 7 tasks and would updated the relevant cell as Completed.
Now in a huge data list How will i find "Wasim" and how do i calculate how many he has completed.
I believe Pivot table would be the answer here but is there any formula which would replace the pivot table?
(Please see the attachment) Example.xlsx
View 2 Replies
View Related
Nov 9, 2011
I need to run this on all cells in column a not just A2...:
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
Dim srchtrm As String
srchtrm = Range("A2").Value
ie.Visible = True
ie.Navigate "http://myurl.com=" & srchtrm
I also need to add to this code an option for finding text on the particular URL before the cycle is completed and looped to the next cell.
View 5 Replies
View Related
May 17, 2013
I keep getting a "type mismatch error" for this:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Len(Range("E18:E34")) = 0 Then
MsgBox "You must complete cell E18 thru E34 before you can save this file!"
Cencel = True
End If
I am trying to set a range of cells to ensure they are completed before the file can be saved. I can get it to work with individual cells, but not when I use multiple cells like in the example above.
This Works fine:
If Len(Range("D5")) = 0 Then
MsgBox "You must enter the Impress Amount before you can save this file!"
Cancel = True
End If
View 4 Replies
View Related
Aug 16, 2008
Her situation is that she would like to be able to tally all the work orders that are created and either completed or pending. According to what she tells me she usually spends hours tallying the monthly worked on orders manually....
View 15 Replies
View Related
Oct 28, 2008
My workbook holds a month template and sheets for each month. I work on modifications in the template ,but would then like to update all the monthly worksheets. I recorded a macro to show me how to start programming the vb sub, but get a runtime failure 'error 1004 Select method of range class failed' when trying to select the column to copy,
View 4 Replies
View Related
Jan 18, 2014
I have a macro which works well. All it does is save a file to a specified location on my network. However, after a file is saved there is no prompt telling the user that the file was saved successfully leaving them wondering whether the macro actually worked.
VB:
Public Sub SaveAs() ThisFile = Range("X2").Value
ActiveWorkbook.SaveAs Filename:="legdcAudits" & ThisFile & ".xlsm", FileFormat:=52
End Sub
View 1 Replies
View Related
Aug 12, 2014
I'm trying to create a simplified Gantt chart of sorts, and cannot figure out one piece of it. I'm not sure how to write out exactly what I need, but here goes.
I would like to have a formula that looks at the percent completed (which the user inputs) and multiplies it by the total duration for the task to give a total number of days completed. Then, under the corresponding dates, the color of the cell would change. I've attached a simplified version of what I'm talking about.
On the attached spreadsheet, the total duration (D2) is 5 days and the percent completed (C2) is 40%. This calculates to 2 days. With that said, I would like the cells under the first 2 days under the listed dates (E2 and F2) to change color. When the percentage complete reaches 60%, then G2 would change color, when it reaches 80%, then H2 would change, and when it reaches 100%, then I2 would change.
My guess is that the formula will need to result in a particular value, and then I'll use Conditional Formatting to do the actual changing of the cell color. Assuming this is correct, I still don't know what formula to use to accomplish this.
View 7 Replies
View Related
Jun 14, 2014
I need to make a dropdown list (I know how to do that) and based on that selection, I need some cells below to automatically complete. How can I do that? Is it possible with or without VBA?
View 5 Replies
View Related