I am trying to write a macro do the folowing
1. Vlookup Regions in Sheet2 (eg. AP-Asia/Pasific)
2. Check which row they are in
3. then take the average of next 6 cells (AVERAGE 1,310, 6,744 etc..)
I've a workbook in which I run an excel macro to filter out data for five regions W1, W2, W3, W4, W5, the macro creates five sheets (w1, w2, w3, w4, w5) and places them in the same workbook along with the original master sheet called "west".
The data in all the sheets is layed out in an identical fashion except that the the number of rows in each sheet will differ depending on the number of records for each region in the master sheet "west".
I was looking for some vba coding to automatically add sum totals in two columns (I & J) for all the five region worksheets.
The first record always begins from row 4, in all the sheets.
so as an example W1 sheet could have a sum formula in I20 = Sum (I4:I8)
and in COl J as Sum(J4:J18). Row 19 is a blank row, and the intention is to leave a blank row just before placing the sum total in all the sheets.
W2 will have the same starting range but might differ in how many rows to sum .
And so on for the 4 remaining region worksheets in the workbook.
I need to find the average of a list of text cells. My list is in column A, and in column B I've assigned each of the text cells with a numeric value. I'm then doing the average on Column B which will return a numeric value which will represent one of the text values in column A.
My average formula then looks like this:
=VLOOKUP(ROUND(AVERAGE(B2:B48),1),$G$2:$H$25,2,FALSE)
Can do this without using the helper column B and do an average formula using a VLOOKUP?
Can anyone tell me if is possible to copy data from sheet1 to sheet2 using VLOOKUP?
I had an interview where they asked me to copy data from sheet1 to sheet2.
I used the function (=Sheet1!A1:...) and for me it was right, but they told me that it was wrong since I did not use the (VLOOKUP) function.
Please confirm if VLOOKUP can be used in this regard.
i have two columns...a and b (a w/ names, and b w/grades). then i have the table lookup with names and grades all mixed up for many rows. i want to be able to average the grades with appropriate names.
=average(vlookup(name, table, column, false))?? i don't get it to work and how can i specify the grade to average?
I have a database where columns may be added and deleted quite frequently and I want to automatically name each column by it's heading, and make sure those cells keep their name if a new column is added.
View 9 Replies View RelatedI have this one query though in regards to loops.
I am trying to create a macro that can take the average of the the first 24 cells within a sheet, place the answer onto a cell in the next sheet (e.g. sheet2 in cell A1), then go back to the previous sheet, take the average of the next 24 cells within the sheet and paste the average of this new set in A2. I want to create a loop that will do this 365 times.
I have only managed to create the following code, however its only obtainning the average for the first set of 24 cells starting from B6 in sheet 1. I dont know how to use offsets that well....
VB:
Sub Oval1_Click()
For i = 1 To 365
Sheets("H1 - Riser Turret pressure").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Sheet1!R[2]C:R[25]C)"
Range("B4").Offset(1, 0).Select
Next i
End Sub
I have a list of post codes two letter starts by region. e.g.
inner london:
EC
WC
SW
W
NW
E
SE
In addition I have several very long lists of postcodes which I can obviously pull out the first two letters from using the Left function.
However I am wondering what is the best way to filter the column of postcodes into the postcode defined regions such as inner london nicely.
I have a large file + 400 000 rows that has zip code but not city name in sheet2, in sheet1 I have a list of zip code and city name. I need to get the correct city name for the zip code in sheet2 by using the info from sheet1. I attached a file as an example how it looks. I do have lots of other data in the original files that I have removed. This is not doable manually by using filter, to many rows so I need a script to run it.
View 2 Replies View RelatedI need to find average of the values , the count of the cells will be dynamic (may be 5 or even 200).
View 2 Replies View RelatedI have a worksheet with 35,136 rows of data. I want to calculate the average of every 4th cell in the same column. Is there a way to create a macro to select every 4th cell in the average formula? If so, can I then substitute min and max for average?
View 1 Replies View RelatedI am trying to have the formula =( SUMIF(S2:S125,">0",S2:S125))/(COUNTIF(S2:S125,">0")) Put into cells through vba. What I did to get the formula is typed it into an excel cell to find the average of a group of cells that do contain blank cells. The formula brought out the proper results. So all I did is put the formula into vba and changed the appropriate parts. The range will not be the same of course, but there is what I have.
ActiveCell.Formula = "=(SUMIF(" & ActiveCell.Offset(orow + 2, 0).Address & ":" & ActiveCell.Offset(-1, 0).Address & ","">0""" & "," & ActiveCell.Offset(orow + 2, 0).Address & ":" & ActiveCell.Offset(-1, 0).Address & "))/(COUNTIF(" & ActiveCell.Offset(orow + 2, 0).Address & ":" & ActiveCell.Offset(-1, 0).Address & ","">0""" & "))"
When I show a msgbox for ActiveCell.Formula (Msgbox activecell.formula), it shows me the formula as above - =(SUMIF(S2:S125,">0",S2:S125))/(COUNTIF(S2:S125,">0")) Except instead of the s:ranges, it shows $L2:$L125 (which is correct). The quotes do show up around the criteria in both the sumif and countif. I keep receiving an error. I put a msgbox err.description & ", " err.number dialog in. The error comes up as ", 0" (no quotes).
I have 2 Worksheets in an Excel 2010 Workbook -
Sheet1
Column1: contains the word "dog"
Column2: contains the word "bark"
Sheet2
Column1: contains the sentence "I like dogs a lot."
Column2: is blank
What I need to do is search Sheet2/Column1 for the presence of "dog" and if it's present, populate the word "bark" in Sheet2/Column2 from Sheet1/Column2.
How can I do this?
E11 through E24 contains numbers and a few errors (#N/A) that need to persist (the errors need to show).
E10 needs to show the average of the numbers that are in E11 through E24, and just ignore the errors.
I have many columns like that - where the errors need to show and I need to show an average of the number/values that do appear, ignoring the errors.
I am trying to do some kind of sorting?
if the first character of the cell is number or * then copy that cell(row i ) and the cell above(row i -1) to sheet2. I am not sure how to check the first character is *.
The idea is this:
[Code]] .....
With a UserForm ComboBox I can select one of the names on Sheet1 ColumnA
I need the values of the selected row
(Columns B:S) to populate the cells of Sheet2 (D6:D14) and
(Columns T:AK) to the cells of Sheet2 (D16:24)
(I'll use a CommandButton to run the procedure.)
on the sheet I wanted to transpose to,Starting w/ the first cell, click, in the formula box, type ,= then goto the other sheet w/data and click. Excel will autofill the formula. Then, using that newly transposed cell , copy and paste to all the other cells. This will auto transpose the rest of the cells in direct relationship to Cell column and row of the other sheet. Next, I went back to and did copy and pasted the formats of the cells. After completion, I've got a mirror copy of my sheet. There's still probably a simpler way of doing this. But this
worked for me.
Need a Simple VBA code or excel formula to display values and cell coloring generated from the formulas or vba code from sheet2 onto sheet1.
copy specific cells from Sheet2 to Sheet1. How would I change this macro if I wanted to copy all of Column B from Sheet2 to Sheet1
View 2 Replies View RelatedI have this code (command button1) which works just fine. What it does is if cell 02 in sheet1 is "14" then it copies the entire row to sheet2. The same goes for all O column
I would like to change it a little bit.
Instead of copy i would like to cut the row, paste it in sheet2 and shift cells up in sheet1
Code:
Private Sub CommandButton1_Click()
Dim FirstAddress As String
Dim myArr As Variant
Dim Rng As Range
Dim Rcount As Long
Dim I As Long
Dim LastCol As String
[Code] ........
As per attachment, see data : 2604 Stock.xlsx
On sheet 1 column A and B. On sheets 2 I would like to make a seach tab - so if the people type part of the word or code it must return all the data from sheet 1 to sheet 2 that meets that criteria in full or part thereof. I have tried but can't get it to work, might it be that it is on 2(two) sheets ?
I do not understand code so I really do not know what to do where. Basically it should work as a Ctrl-F (find-all) function.
This following is just an example:
In sheet1 I have 4 columns; Name, Age, *** and Job.
Sheet2 has three columns; Name, Age and Job.
What I need is VB that will check the *** column from Sheet1 and when it is Male, the Name, Age and Job fields from that row are copied into the cells in Sheet2.
i need a macro that will copy pfolio and Totals 0 to sheet2 range A12, (i dont require the headers to be copied), the totals column is not always in Column B it varies, so the macro needs to factor this in. When copying the totals over i need the code to round the totals to 2dp, if there is a 0.00 in sheet 2 then clear cell and move one cell up.
Sheet1 AB9pfolioTotal10KFGEEE3411SDFSFF012ERWER1513REGERG0 Excel tables to the web >> Excel Jeanie HTML 4
Sheet2 AB11pfolioTotal12KFGEEE3413ERWER15 Excel tables to the web >> Excel Jeanie HTML 4
I have created a macro to open a workbook from another workbook and do a vlookup against the data in the source workbook. I then wanted to highlight the cells in the in the workbook that I'm doing the vlookup from, and to unhighlight any empty cells. I did this all without code using the macro recorder so that I could then study the code and learn something.
View 2 Replies View RelatedI would like to drop down the cells in B4 and D4 so that if throws up a result in D6 which looks at Sheet 2 and throws back that score? So it will look for Neil in Column A and October in Row 1 and throw back that figure.
View 3 Replies View RelatedColouring calendar entries based on a date match... VBA to colour a cell on each line based on date match
The code works fine if you change the date in the cell and press enter however my date changes are triggered via a Vlookup which the code doesn't recognise has changed so doesn't trigger the macro.
Is there any way to amend the VBA code shown below so that it triggers the macro when dates are changed in column I via Vlookup?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Target.EntireRow.Interior.ColorIndex = xlNone
[Code] ......
figuring out a code for a command button.
I have 2 sheets open with the following set up:
Sheet1
A2 = Name (chosen off sheet2)
A3 = Job Title (chosen off sheet2)
A4 = Department (chosen off sheet2)
Sheet2
Column A = List of names
Column B = Corresponding Job Title
Column C = Corresponding Department
I need to be able to choose a name off sheet2, click the command button and it send selected name, job title, and department to sheet1 to the respective cells.
I have this macro code in Sheet1 assigned to a button named Combination. I copied the whole sheet twice and moved to end. So they have the same data content and hopefully the macro in sheet1 will work as well in sheets2 and 3. But it's not. I just copied the code from VB codes Excel objects Sheet1 to Sheet2 and Sheet3. The cursor changed to a reading glass but it doesn't display any result. I am sure it's the worksheets(1).range part that needs to be edited but i am not sure if that is simply changing it to worksheets(2) or worksheets(3). I tried that also but no effect also.
Option Explicit
Public Sub ModelPricing_Template()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim e As Integer, f As Integer, g As Integer
Worksheets(1).Range("a15:IV65536").ClearContents
[Code] ........
In Sheet1, i have a table like this:
Select Month
Actual Cost
Budget
Difference
[Code].....
I dont know how to do it here, but in Excel i have January (2columns) Febaruy (2columns) March tables. filled each table with its determinated data, and going down i have 3 more months, and so etc till i complete 12 tables one per month.
So now what i need is: That in Sheet1, where is Select Month be some kinda of drop down list, which allow me to pick the month i wanna see, and then when i pick. for example: April, then go to Sheet2, find the April table, and bringthe values to fill the table in Sheet1 , whatever option be, flirting, or copying just values, or filling the table. I really dont know what be easier.And then if i pick another month like October, do the same, etc.
have two worksheets, "Entry form" and "Database" in my workbook. I am trying to put together a macro button to find the cell value D5(Entry form) in the column A:A (database), if found, copy selected cells (B5:D5,B7,B9) from entry form and paste in the adjacent cells of the row with the value in the database sheet.
VB:
'Match value D3 and replace data
Dim sht As Worksheet, outsht As Worksheet, r As Long
Dim rfoundCell As Range
[Code].....
I am looking some macro code to extract data based on background color (yellow color) from sheet1 to sheet2
for detail like this below :
table.tableizer-table {
border: 1px solid #CCC; font-family: Arial, Helvetica, sans-serif
font-size: 12px;
}
.tableizer-table td {
padding: 4px;
margin: 3px;
border: 1px solid #ccc;
}
[Code] ........