I have a userform that has a control button that opens another userform that contains a listbox with a range of data. I want to click on an item and press a control button to add it to a textbox on my first userform. I do this via:
View 2 RepliesI have a column where i have to put document numbers, Column A, i want to avoid accidently capturing something twice, so the only thing thats unique is the document number. Can i get an error if i try to enter the same number twice?
View 9 Replies View RelatedI have a list of buses numbered something like this 320-360, 700-750, 800-899, 900-990. (but not always consecutive ie... 325 may be deleted). each day I want to enter them into a worksheet call "Shed" ( cells B3:E46) which is how they are parked ie.. bus 320 in B3, 321, in B4, .... bus 700 in E3, 701 in E5 etc....
I only want to be able to enter the bus number once so it won't be allocated in the shed more than once. (the code below provides this, but it also allows entries between the lowest and highest numbers which is not suitable.) The numbers are listed in column M to R
=And(Or(And(B3>=$M$2,B3<=$M$250),And(B3>=$N$2,B3< =$N$250),And(B3>=$O$2,B3<=$O$250),And(B3>=$P$2,B3< =$P$23),And(B3>=$Q$2,B3<=$Q$23),And(B3>=$R$2,B3<=$ R$23)), COUNTIF($B$3:$E$46,B3)<2)
The numbers will also change after time, numbers will be added to and numbers will be removed. I hope I haven't waffled on too much. but that is basicly what I was wanting to do.
this code to minimize it and avoid copy to clipboard.
VB:
Sub SapOutputRun()
Application.EnableEvents = False
Application.ScreenUpdating = False
[Code].....
I have written a vba code which does some calculation on the data on sheet 1 and then puts this data on sheet3 and after the calculation is done it puts the result on a few comboboxes on sheet2. Now the issue is while this whole calculation is performed by excel, I can see the movement in between the sheets. I want to avoid seeing this movement ?
Is it because of multiple Sheet.Select statements inside the vba code ?
i have 15 textboxes in my userform (all with tags).
instead of having 15 seperate sub routines that call on one macro is there a way i can write some code that, on entering any texbox within a form, a specific routine would be called
i tried using the Userform_click sub like so, but with no joy:
Can someone help me to get the code to copy an existing workbook, with all the forms and code that exist with it, to a new workbook with the data from the cells, and name the file with a new name?
View 6 Replies View RelatedSo I haven't seen this error before. It says "Automation error: the object invoked has disconnected from its clients."
I think I know what's causing it but am not sure how to go about solving the problem.
Barring any inefficiences that the code below contains, can someone please tell me what code I should used to fix this error?
I am looking for some code that dynamically (during processing) changes the height of a userform. What I am trying to do is this: I have ten worksheets but only five are being used. I am looking to have a userform with a checkbox for each of the active sheets labeled. I don't want to have to display a form that is basically ten checkboxes with five enabled and five disabled. I want to show only the five active sheets checkboxes with a userform only large enough for the five. If six are active then a userform displaying six checkboxes and a userform large enough for only the six to be displayed.
View 9 Replies View RelatedI found this code in a search of this forum. I am trying to understand how it works. The red section is what I'm having trouble with.
View 2 Replies View RelatedThere are many Software and Add-in and Macro or Code to Delete or Eliminate the Duplicate Data. But, I want to Delete The Duplicate BLANKS Row.I means to Say that
Delete Every Repeated Blank row Note : I Want to Use Formula or Function
Example
Hardeep
Blank
Renu
Blank
Blank
ABc
Blank.........
I would like to:
1 - Highlight the row for the first duplicate/single "Ana M."
2 - Then skip the next duplicate/single row "Jane S."
3 - Then Highlight the row for next duplicate/single "Sam"
4 - .... and so on.
Sample Data:
NameStreetPhone
Ana M.12 A St333-3333
Ana M.23 Z St333-3333
Jane S.12 A St555-5555
Jane S.15 Z St555-5555
Sam A.55 A St222-2222
Tony J.45 A St444-4444
Tony J.11 B St444-4444
Tony J.66 Z St444-4444
i need to identify the first and last duplicat entrys and delete all rows in between.
eg keep row 275 and 277 and delete row 276 all duplicates only in column C ..
I have trouble in deleting the duplicate rows. I have a code to find the duplicate values
Public Sub Unique_Proj() 'This is the first step which takes out the unique projects from the base data
'Call Work_Assignment
'this selects the unique projects in the sheet
Application. ScreenUpdating = False
Dim A, E, B(), n As Long
Sheets("Projects").Select
With ActiveSheet
A = . Range("g2", .Range("g" & Rows.Count).End(xlUp)).Value
Redim B(1 To UBound(A, 1), 1 To 1)
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each E In A
If Not IsEmpty(E) And Not .exists(E) Then
n = n + 1: B(n, 1) = E: .Add E, Nothing
End If
Next
End With
Sheets("Unique Projects").Select
Range("G3:G" & Rows.Count).ClearContents
Range("G3").Resize(n).Value = B
End With
Application.ScreenUpdating = True
End Sub
However, this gives me a list of values in that perticular column only.
What I want is either delete the complete row which is duplicate OR select the entire range of values which are unique (based on the column searched) and paste it in a new sheet. The second option is more better for me.
I need to identify repeated code with different text value. The codes in B column appears repeatedly in the list. However some codes have different text value (one time appears with public and another time appears with priv). I would like to identify those codes as 1 if they appear with different text value within the list. I highlighted one code 131775 for reference.
Repeated code with different text.xlsx
I have a piece of code that consolidates data onto one sheet.
Once the code has copied everything over, I would like it to also duplicate the Category field.
There is no option to add the duplicated column in the source information.
Here is the consolidation code:
[Code] ......
In a big data sometimes I have identical rows (maybe the 'Quantity' column has different value). I would like to merge them into one and add the quantities together. I have to use B and C (I need both) to find out if these rows are identical.
For example:
A1=date B1=111222 C1=ABCD ... and G1=quantity (1)
A2=date B2=111222 C2=ABC ... and G2=quantity (1)
A3=date B3=111222 C3=ABCD ... and G3=quantity (2)[code]......
I have a worksheet populated with data. I have sorted the data and have dupulicate values in column B,C,D up to H.
I have put in a formula to give me a 1 value in column A where there are duplicates. Is there a way to write a VBA code that will Delete all the rows that have a 1 in column A.
I am using the following code to copy a unique list, but it gives a duplicate in the first 2 rows(col Q). There is no headings in the columns.
Code:
Sub CopyUnique()
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, "P").End(xlUp).row
ActiveSheet.Range("P11:P" & lastrow).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=ActiveSheet.Range("Q11"), Unique:=True
End Sub
I have a VBA Macro that loops through about 100,000 rows in an Excel file and removes rows that have a duplicate cell value. The macro takes about an hour and a half to run. Are there any ways to make the Macro run faster? Any ways in general to make VBA macros run faster?
View 9 Replies View RelatedMy Excel program (Excel 2010) currently has several columns and each column looks for and pulls data from a specific file on my computer. Then I need to delete any duplicate data entries, count the number of unique entries and track the changes through a chart. I have everything done except I cannot figure out (or find on the internet) a way to search in multiple columns (more than 2) and delete just the duplicate cells. I want to delete the cells in a way where there is one left. For example if the code 12gf is duplicated three time, I want to be left with one 12gf (it doesnt matter what column the original one is left in). Additionally, column length changes and they are not sorted. I have attempted to attach an image of an example file below.
View 14 Replies View RelatedI'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? ^^
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.
=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.
I have a set of data containing "N/A" in some cells, and when I try to plot the chart using stacked lines chart type, the chart is completely off. if the "N/A" are causing this problem and how to fix this.
View 5 Replies View RelatedTransferring Multiple Data from separate worksheet without duplicating"
As you can see i am looking for information in column d (Letter) and getting the result to show from column B (number) using the formula in Column G (result 1).
The problem i am having is that if i try to copy or drag the formula down into Result 2 i just get the same answer.
Is there any way for the next cell down to ignore the previous result?
I've attached an example of what I am trying to achieve and an explanation as well. I'm trying to avoid the use of a macro as I don't understand them and I will need to modify the sheet later on which could cause problems. However, if a macro is the only solution, then I will have to make due with one.
View 5 Replies View RelatedI would like to avoid user to SAVE or SAVE AS file. In my macro I used code to disable SAVE and SAVE AS from FILE menu. But how to avoid to save file if user use CTRL+S command to save file?
View 7 Replies View RelatedI have a formulas in Sheet1 linked to other sheets, but I have only formula and there are no sheets ( eg: in sheet 1 A1 =Data!A1) where as there is no sheet called Data. I have a macro to import this sheets from a different file.
The problem I am facing is, after importing the sheets, the formula still shows #REF but if I do double click the cell or press F2 and then "Enter" the value appears. I have about 1200 formulas in this sheets.
the data is as follows:
Data ABC1Timestampname 21/31/2012 11:07:13abc931/31/2012 11:07:50def 41/31/2012 11:10:03a 51/31/2012 11:17:12b 61/31/2012 11:17:14a 71/31/2012 11:17:15a 81/31/2012 11:17:16a 91/31/2012 12:39:41cv 101/31/2012 13:04:00k 112/1/2012 7:26:53k 122/1/2012 7:26:56dg 132/1/2012 7:41:05Gw 142/1/2012 8:01:19cg 152/1/2012 9:32:14CB 162/1/2012 9:32:15CB 172/1/2012 9:32:15CB 182/1/2012 9:32:17CB 192/1/2012 9:32:26kw 202/1/2012 10:24:54jw Spreadsheet FormulasCellFormulaC2=SUMPRODUCT(--(MONTH(A2:A20)=1)*(YEAR(A2:A20)=2012))
if you see the cell a6 to a8 happened in millisecond same person has punched i want to count it as one only