I have this code below that deletes any single occurrence of a customer number but the "Customer Numbers" must be in column A.
I would like to change the code below to instead look for the "Customer Number" column by name, rather than by column A. My "Customer Number" column will always be in row 1, but yet, it will be in a different column letter every time I run the report.
I have this macro below and would like the code changed to find the "Customer Number" column by name rather than by column B. Note that the "Customer Number" column will always be somewhere in row 1.
View 12 Replies View RelatedI have e.g. 3 colums, A, B and C.
In column A there is A number on every row.
In column B there is a number on ever row.
In column C I want to compile a new list such that if a number in column B is X (eg 1) the number from column A at the corresponding cell should be copied to column C. I want there to be no empyt cells in column C. So for the list below, the number in column A should be copied to C if its corresponding B cell is 0.
64
0
64
64
0
64
57
0
57
[Code] .......
Let's say I have a formula in cell A1 that is =COLUMN(L5). So cell A1 returns the result 12 (for column L).
I now want to create an index formula in another cell:
=INDEX(C1:C12, ........), but I want the 12 in C12 to be picked up from the result of cell A1
So, I tried various things like =INDEX(C1:C&INDIRECT(A1)....etc but I can't work out the correct way of doing this.
I have a macro that runs through a list and stores elements to an array. If the element is not found in my list, it adds to the next available row and adds the value from the array to that cell. Right now, I am searching in column d but am storing the value of column a at that location. When I switch the reference to column D, the value is not inserted into my new list.
Here is my current code:
Code:
Sub Arraytest()
Dim arr As Variant, lastrow As Long, i As Long, f As Long, l As Long, lastrow2 As Long, insertrow As Long
[Code].....
Why does the code not work properly when I switch to D? The value is storing correctly in the array. I test this by the last line of the code and it executes properly.
I changed the code below to add an extra column(E) this worked. However it does not keep the formatting from the top row in column E, How can i change the code to column E to keep the top row formatting ??
Also i added a list to cell A2, but this moves down, I would like to have the selected data move down but the list stays in cell A2, Was this possible ?
A simple question:
I have a column of numbers, for example:
2
5
5
8
8
8
20
50
I would like to know the value that corresponds to (for ex.) 5th position from, of course, the beginning of the column, ie 8.
How to find position of lust number in column (non macro preferably).
2
3
1
3
2
1
3
2
1
For number 1 match will return 3 but I need 9 (and I can't sort column opposite)
In the following code, you will find a sorting function with a range is hard coded. Instead of hard coded value which is marked with red colour, i need to find that range value dynamically. How to write a code to find that ?
View 2 Replies View RelatedI have 6 column charts that are supposed to be identical. There are 12 pair of columns per chart. Some chart's pair are centered over the tick and some pair are to the right of the tick and I can't figure out how to make them all the same.
View 1 Replies View RelatedI am trying to hide a column titled "Test". This column is usually column E, but it is possible it can be moved to column D or F. If I use:
[Code] .........
Then column E is hidden, regardless of whether Test is moved left or right. The reason Test moves is due to the user inserting or deleting a column.
I am trying to create a schedule using colors. The colors will indicate the start time, break time, lunch time, break time (second break) and end time. see attached document.
Thank you for attempting to solve this puzzle using formulas and or VBA code. I am trying to automate the schedule so the numerical times automatically appear when I "paint" the schedule.
I will be working with an array of data approx 500 rows by 50 columns (eg Sheet1!$A$1:$CV$500) in which I will need to check if approx 1000 unique values exist and in which column they appear in. Each unique value should not appear in more than 1 column. Once identified, I need to return the header value at the top of the relevant column.
My thoughts on approach would be perform a lookup of some sort to identify the column number and then use that within an index formula to return the header value based on the column number.
However, I'm not sure how to perform a lookup to get the column number. A match formula can, as far as I am aware, only lookup against a single column or single row.
I want to take what is in column A and replace the number after the "=" with new number.
I need a formula that identifies the 6 numbers or letters after the = and replaces with column A
111111 showstocknumnber//details.php?vid=111111
222222 showstocknumnber//details.php?vid=111111
345673 showstocknumnber//details.php?vid=111111
The 111111 after the = could be any string of 6 letters and numbers. The contents of column b are a URL.
trying to find the value of column A (date field) if it exists on the row that the cursor is presently on. I'm trying to check for the value before performing the next function to make sure the user is on a valid row. Cursor could be on any column A to F. Columns are always 6 but the rows can vary.
View 7 Replies View RelatedI am trying to find a way to populate a column based on the changes in the data of another column...
For example, I want to fill in the code column....so when the customers cost changes, I want a numeric code to populate & change. So for the first 5 lines, the code could be 21, and then when the cost changes to $37.51, want the code to change to 22.
CodeCustomer's Cost
$34.10
$34.10
$34.10
$34.10
$34.10
$37.51
$37.51
$32.50
$32.50
$33.48
$33.48
$34.10
$37.51
$37.51
I am a new member, with not a lot of VBA experience. Sorry for the vague title .. couldn't come up with something ^^". The idea is, I made an list with several anime titles I am watching (in column A) In column G it shows the status; "Watching", "Completed", "Planning to Watch", "On-Hold" or "Dropped". I managed to let the colors of those words change with this
View 4 Replies View RelatedI have a data set, in which Sheet 1 have a matrix of high level showing Engineer, Program and commodity relationship.
I have to create separate sheet for each program on sheet 1, each program sheet should have Engineer name and commodity name from sheet 1.
Multiple commodities and multiple engineers should be separated by definite structure.
find worksheet with input and output (manual) as expected.
I'm trying to write a simple VBA code to loop through values in the range A14:A138 and based on the value (of a possible four values) in any row of that range, populate the adjacent column in the same row with a conditional result. For example if A14 = "Cat", then B14 = "I"; if instead A14 = "Dog", B14 = "II", etc. If there is no value in column A, the result should be blank (i.e. "").
I believe are in coding the destination range since I can get it to work for just one cell in B! Below is my code that is not working...
[Code].....
my existing macro, as the run takes to much time to complete. (at least 20min) I've already tried several loops, but no one worked for me. Following situation: There are two excel files, entries in column 73 - 85 will be copied from WorkbookRust to the other workbook if the numer in column 5 is the same. Not every cell within this columns contains data, so the macro should automatically jump to the last entry in each of the above mentioned columns, instead of predefine the range as you see in the code below. After the data is copied to the other workbook, it will be filtered acc. to Sub FilterMain and then copied back to WorkbookRust. As already said, the whole thing works, just to lame.
Sub Allmacros()
Dim WorkbookRust As String
WorkbookRust = ActiveWorkbook.Name
ChDir "C:Documents and Settings vogtMy DocumentsRüstplausch"
Workbooks.Open Filename:= _
"C:Documents and Settings vogtMy DocumentsRüstplauschCH_Revenue_2008.xls"
Sheets("Main_Overview").Select
Windows(WorkbookRust).Activate
Application.run ActiveWorkbook.Name & "!UpdateEntries"
Application.run ActiveWorkbook.Name & "!FilterMain"
'not ask to overwrite existing file
Application.DisplayAlerts = False
Workbooks("CH_Revenue_2008.xls").Save
Workbooks("CH_Revenue_2008.xls").Close
End Sub
Sub UpdateEntries()......................
I need code to change a letter such as A into a column number i.e 1. Everything i can find is to do with changing column numbers into letters, surely you can do it the other weay round aswell? So when the macro is given the letter AA it returns the column number as 27 etc, but i need it as a defined variable such as "i = column number" so i can use this information further on in my code.
View 2 Replies View RelatedI need to write a VBA code to remove the value of the cells in column B if the value in column A is empty. In my excel sheet, the user will paste hyperlinks in column B. If any link does not meet certain conditions, the cell in the same row in column A will be empty.
I want to have a change event so that after pasting links, it automatically deletes the links from the cells in column B if the cell in column A is empty
I am using the Column() Function for referencing purposes... what I want this function to do is return the "letter form" of the column position rather than the "number Form"... is there anyway to change this without switching to R1C1 form?
i.e. Column(B4) yields "2"
I want it to give me "B"
The data exists in a spreadsheet that has Data from Column B2:CQ18, but it needs to be dynamic and update anytime someone clicks the button (the button is fine and works with all the other Macros)
Here is the code I have so far.
Code:
Dim LastCol As Range
Dim NextColPaste As Range
With Worksheets("Run Hours")
Set LastCol = Range("M3:M18").End(xlToRight)
Set NextColPaste = LastCol.Offset(, 1)
LastCol.Select
End With
That Code will Select the data in row 3 only and not the whole range of 3:18
I have tried Range (LastColData & "3:18").Select and that selects everything on the whole page from row 18 down.
I have done a lot of searching and for some reason this dynamic selection and pasting of data is escaping me this morning
I have some code here that isn't working for some reason and I'm not sure why... Here is the code:
[Code] ......
I would like the code to take any row that has "JAN" anywhere in column D, and change the value in column J to "January".
I have a situation that I cannot get my hands on. I have a set of Project Numbers in my Column A. (Will Try to post an example).
I need that everytime I change a number in my Column B that it will change all the numbers, in my column B, based on the matching Text in my Column A.
Demo1.xlsm
Is there an easy to use macro or VBA function to delete the rows with "position" column value of a zero? I have both positive and negative values in the column. I tried to put on filter but am not sure how to make it a rule based function: i.e. show only < 0 <.
Date Type NamePosition
2006/09/20CRGJacob11167
2006/09/20CRGTom 0
2006/09/20CRGMark 58371
2006/09/20CRGSue0
2006/09/20CRGDawn0
I have used the below code to insert a new row when the value in coulmn A change. I now need to evolve it so that the new row will contain a specific value depending on the changing value:
Before:
Column A Column B
one test
one test
two test
two test
three test
three test
After:
Column A Column B
one test
one test
Coz two............................
How would I add this formula as a worksheet function with VBA. I can't see INT, MOD or Year in VBA. Also want to change C2 to change to activecell column + row 2.
=INT(((C2-1461)- SUM(MOD( DATE(YEAR(C2-MOD(C2,7)+3),1,2)-1461,{1E+99,7})*{1,-1})+5)/7)
I have the following codes in which I am to refer a file and folder to do some further processes.
myfilename = "C:Documents and settingsacsMy DocumentsEntrymyfile1.xls"
folderPath = "C:Documents and settingsacsMy DocumentsEntry"
I want to enter these two paths in a sheet in my excel report file (For example, I am running the report from Report1.xls, in which there is a sheet name "Filepaths". In this,
in B5, I would like to enter the Filepath (B5 named as "FILEPATH")
in B6, I would like to enter the Folderpath (B6 named as "FOLDERPATH")
So that, if I am copying the folder to another area, I no need to change the code every time in the VBA editor. I can do changes in these cells and it will be taken as the path to run the code further.