I am writing a formatting macro. The step I'm on needs to locate a cell with "Result" in it, and select the adjacent cells to the right until the end of the exported report (which could be a variable number of columns). Here is the code I have so far:
View 2 RepliesDim myDynRange As Range
Dim myLastRow As Integer
Range("H:H").Select
myLastRow = Range("H:H"). CurrentRegion.Rows.Count
myFirstCell = Cells(Counter, 8).Address
myLastCell = Cells(myLastRow, 8).Address
myDynRange = myFirstCell & myLastCell
im having a problem with the last line
myDynRange = myFirstCell & myLastCell
my eventual aim is to do an average on this column with a line like
ActiveCell.Offset(Counter, 1).Value = Application.WorksheetFunction.average(myDynRange)
the reason why my range declaration is so strage is because i was trying to change the dimensions of the range with an offset function because i had many ranges to average but the offset function didnt want to work. this way goes like this....................
When I drag my VLOOKUP formula down a column in Excel 2010, the return value copies the formula result from the original VLOOKUP formula result. For example, if the first VLOOKUP returns a value of 0.5, I expect to see 0.5 or 1 in the cell below that one. However, I get 0.5 which is not the expected result for the cell below.
When, I click the fx on the cells below, the expected return values appear in the formula result. After I click OK, the expected formula results updates and now appears in the cell.
I'm not sure what is causing this issue. My computer was updated recently from an old machine to a new one. I have never experienced this issue before.
I am trying to append about 15 files of CSVs. I have code that works on importing the data, placing it at the end of the previous data, but then it clears the previous data. Here is the code
Sub import_BCDV()
Dim lastrow As String
Selection.End(xlDown).Select
Selection.End(xlUp).Select
' Range("A515").Select
lr = FindLastrow1()
lastrow = "A" & lr
MsgBox lastrow
Range(lastrow).Select
' "TEXT;J:QA ReportsQA ReportsWorkbenchBCVD 1-11-09 1-17-09.csv", _..........................
I have a Workbook (only 1 sheet) that is filled out each month and consists of sales and revenue data. I need to copy the total sales and total revenue and paste them to another sheet. The only problem is that it is never consistent as to which cell the totals will be located in. They will always be in the same column, but almost never in the same row.
For example, one month there will be 8 individual sales and the total will be in Cell F13, but the next month will be F20. THe same needs to be done with Total Revenue (which is always one cell right of the Sales Total) I need to copy and paste the cell with Total in it (in this case F13) and do the same for each month after. This is not difficult to do in Excel, but i need some code to include this process in a macro.
Is there a formula I can use to locate the last active cell in a column. I did use the count function, however this isn't always reliable if there are blank cells within the column
View 5 Replies View RelatedI want to look at a whole colum and to tell me if the 6 digit number is located within it.
is "787897" located in column D? if so tell me by either Y / N or 1 / 0.
I have a spreadsheet formed from a text file.
I want to search for each instance of "DOG" in column A, and copy the row below it and then paste that entire row to a new sheet called DOG. I can then autofilter and use a pivot table on the DOG sheet.
I cant just use an autofilter, because the row below can and sometimes does appear elsewhere in the spreadsheet, but refers to something else. It is all because this is an imported text file.
I have attached the spreadsheet to show you what I mean.....
here is the code I have so far, modified from another thread I posted.
Sub dogs()
Dim rd As Worksheet, dg As Worksheet, i As Long
Dim fRng As Range, Crit
Application. ScreenUpdating = False
Set rd = Sheets("Pets")
Set dg = Sheets("Dog")
The attached is a very cut down version of my spreadsheet...
Here is the sheet where I entry new data. From left to right: Productnumber/article/supplier/price per item/starting nr of articles/order threshold/ date 1st order/date of delivery. When I press the button "verwerk" the data will be transported to the sheet "Voorraad verloop" shown underneath. As you can see the first problem consists of the placement of the first table. I can't get it to the first column. The second problem is that when I enter a new product like in the first image, it overwrites the current data in the sheet "voorraadverloop". See the image below. I used the following macro:
Private Sub CommandButtonVerwerknieuw_Click()
Dim iLC As Integer
Dim FindString As String
Dim rng As Range
Dim Lr As Long
If Application.WorksheetFunction. CountA(Range("A4:F4")) < 6 Then
MsgBox ("Niet volledig ingevuld"): Exit Sub
End If
FindString = Range("A4")
If Trim(FindString) <> "" Then
With Sheets("Voorraadscherm").Range("A29:A65536")
Set rng = . Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
lookat:=xlWhole, _ .................
I used the method described here:
[url]
The problem is that it seems only to work on the computer on which I made the sheet. This should mean that it is somehow dependent on some local settings. Does anybody know what settings, or whether it is something else that may be the cause?
I need hyperlink to pdf (as this is given in one block how to give hyper link to pdf file).
I want to give give pdf hyperlink in in excel to locate the pdf file with specific page or topic number in pdf file (like pdf file name is 'ABC' and page number '10')
Can i give this type of specific link in excel?
I have excel result sheet which contains students information. i.e. name, subjects and their corresponding marks, grade, percentage etc. So from that sheet I want to print result cards for each students separately from the data (result sheet).
View 4 Replies View RelatedI'm trying to do a formula that references a cell and returns a different result dependant on the number in the cell being referenced.
For example I've said if A1 has a 3 in it then put the word TEST as the result, plus if it has a 4 put the word RESULT.
What I wrote as my formula is as follows-
=IF(A1=3,"TEST")+IF(A1=4,"RESULT")
It works fine when I only use one result but goes wrong when I add two. If I change the words I want to show to numbers it comes up fine but with words it just returns a Value error.
Macro Based on an input cell’s (e.g. B12) setting of “yes” or “no”, format several other cells (e.g. B20:G20, B23:F23, C26:J26) as follows: keep the existing yellow shading if input cell is “yes”, change to grey shading if input cell is “no”. I would like this macro to run automatically whenever the input cell value is changed.
View 2 Replies View RelatedI have 4 categories A, B, C & D. These are in desending importance, means A is most important and D is least important. Now there could be many A, B, C & Ds listed in a column. The challange is if coulmn contains A anywhere then the result should be A. If A is absent, then search for B, if present anywhere then display the result as B. It doesn't matter how many times A or any character is listed in column. I am attaching a sheet for better explanation.
View 4 Replies View RelatedI created a simple auto numbering function whereby Cell A7 contained =Row()-6, and Cell A8 contained =(A7+1). I then shift, and pasted the contents of cell A8 until cell A600. My aim is to simply copy the increments of 1 - 600 into another column. However when i copy and paste i'm also copying the initial underlying formula ie: =( A?+1), Is there a way to copy the results, not the formula?
View 2 Replies View RelatedI have a formula that looks at a cell on a front sheet, and then returns the contents of that cell as the result if it meets the criteria. So for example this formula would be in Cell A1 on Sheet2 IF(SHEET1!A1,"New",Sheet1!A1,"-")
This formula is always in the same cell (different sheet) as the cell that it is looking at, down 1500 rows. Instead of having the formula named for each cell is there anyway to ask excel to 'look at this cell but on this other sheet'.
e.g IF(Sheet1!"This Cell" etc). That way no matter what cell you put the formula in it is always referencing the correct cell for the formula?
Need to find the first cell above the active cell containing any sort of variable (integer, string value, cell fill colour, named range, etc...).
For example, a column contains multiple integer values between 1 and 10. I would like the macro to "locate" a specified value, say 3. Ideally the macro will select the first cell matching this criteria, located above the active cell. Once located, the resulting cell will be added to a range to be copy-pasted to a new worksheet.
I am planning to use this code for various applications in a workbook I am creating. At present the code will be used to locate string values, and cell fill colours. It is also likely this will extend to other types of variables in the future.
I've found information relating to the find function, but nothing specifically to find the first result above the active cell.
I'm trying to work out the way of having a cell give a result based on what has been input into two other cells.
Basically I'm doing up a risk management spreadsheet. I need to have in one cell the LIKELIHOOD of an incident, in the second cell, the CONSEQUENCES of it happening and ending up with a RISK MANAGEMENT ASSESSMENT in the third cell.
I am trying to make the colour of cell change depending on the result in an adjacent cell and have found and adapted the following:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("x4:x202")) Is Nothing Then
Select Case Target
Case 11
icolor = 43
Case 21
icolor = 43
Case 31
icolor = 27
Case 41
icolor = 27................
I will like to ask, if there is a way to get in a cell the result of a simple equation without having to copy the contents of that cell with a = in front for example if i have in one cell
15*2+35*4+30/2
in the next cell to display the result
185
I have a value in Cell A1. Now, I need to be able to enter a number into Cell A3 and upon hitting Enter (or clicking elsewhere), the number I just entered into Cell A3 needs to be replaced with the number I just entered multiplied by the number in Cell A1. For Example: Cell A1 contains the number 1.05. I type 2.50 into Cell A3 and upon hitting Enter Cell A3 reads 2.625.
View 4 Replies View RelatedI have two dropdowns, both use a different source lists and both use the same reference cell to deliver the result, My problem is I need the contents of the cell to be deleted and the new result inserted. At the moment if the cell is already filled the new result is put in the next column.
What I would like to happen is to have two dropdowns one above the other (B2 and B4) and the result in a cell below them in B6, which ever dropdown is used the result will fill the cell B6 this cell is then used for vlookup.
I want to sum cell A1 and result will be displayed in B1
AB1ValueResult29292.50*10+8952*15+8550*10
If the result of cell B1 is true then YES if not NO?
I know I can use the formula: =IF(B1="Yes","YES","NO") but I'm looking for the TRUE or FALSE result.
Sheet1
AB110Yes2 3 NO
Spreadsheet FormulasCellFormulaB1=IF(A1>5,"Yes","No")B3=IF(B1=TRUE,"YES","NO")
Excel tables to the web >> Excel Jeanie HTML 4
Is there a way with a formula to have a result of one cell pasted in a different cell? ie. C1's formula =if(and(isnumber(a1),isnumber(b1)),b1-a1,if(and(isnumber(a1),isblank(b1)), b1 = d1,"")
A B C D
12/18/06 formula above =today()
if b1 isbalnk it will copy the value of d1 to b1. I dont know if this can be done i have looked at offset and a few others but it doesnt look like this can be done but want to see if i have over looked domething
I have a macro that imputs data from an external database and puts it into a temporary worksheet. This data has 3 columns (ID, Date, Amount). I am then making another sheet which has X number of tables (one for each ID), with the years being the column headings, and months being the row headings. ie.
| ID X
| +------+------+------+--->
| | 1999 | 2000 | 2001 |
+------+------+------+------+--->
| Jan | $100 | $250 | $300 |
+------+------+------+------+--->
| Feb | $200 | $300 | $200 |
+------+------+------+------+--->
| Mar | $300 | $250 | $100 |
+------+------+------+------+--->
| Sum | $600 | $800 | $600 |
| +------+------+------+--->
| ID Y
| +------+------+------+--->
| | 1999 | 2000 | 2001 |
+------+------+------+------+--->
| Jan | $100 | $250 | $300 |
+------+------+------+------+--->
| Feb | $200 | $300 | $200 |
+------+------+------+------+--->
| Mar | $300 | $250 | $100 |
+------+------+------+------+--->
| Sum | $600 | $800 | $600 |
| +------+------+------+--->
Currently I have a few hidden fields for the DSUM Criteria. I start making the tables. And then filling in table based off of the month and year. Doing so I need 3 criteria:
>= First Day of the Month
<= Last Day of the Month
= ID #
The problem is it takes Excel too long to fill in the 3 criteria fields, calculate the result, copy the result, and place it into the correct place on the table. Is there another way to get this data into the correct tables faster? Instead of using DSUM?
I have two cells (c1 and c2).
c1 contains (2+3*4)*3 without "=" at start.
c2 must contain the result of c1 it means 42.
In the attached file I have a few variants I tried to solve it but they both don't fit.
Formula.xls
if you can copy the result of a drop down box to another cell in another tab. Want to use front tab as master sheet and drop selected info down to other tabs .I used Form Controls to create drop down box -
View 8 Replies View RelatedI have the formula in O62 cell :
[Code]....
In formula bar when I sellect complete formula and press F9 key, I can see:
[Code] .........
results.
How can I write this visible result to "O62" cell or, " another cell example"P62" as a text value.(without to copy & paste).
I want to make this with a formula ( if impossible by macro).