I know there is a way to make a range adjust as you add or remove row. I just can seam to remember how to do it .I am using a countif function and later I will be adding more rows I want the countif to look at everything
View 2 Replies
I have a piece of vba code that uses the date in column D to group by month and subtotal the amounts in column E.
The problem is the subtotal in column E doesnt adjust. So if a user of the spreadsheet adds or deletes rows the subtotals (and grand total) do not up date.
Dim LastRow As Long
Dim NextMonth As String
Dim R As Long
Dim Rng As Range
Dim SubAmount As Currency
Dim ThisMonth As String
Dim TotalAmount As Currency
Dim Wks As Worksheet
I have a worksheet with 30,000 rows. But sometimes even if I have fewer records in this worksheet(lets say 1000) worksheet shows the same 30,000 rows.And its annoying when you try to navigate using vertical scroll bar. Is there any option to re-adjust the worksheet to make it more user friendly based on number of rows in current sheet.
View 2 Replies View RelatedI have this VBA (from a recorded macro) how can I amend it so that these two formulas change depending on the number of values....right now the range is to 129 only because we only have 129 cells of info but some sheets will have more some will have less. I want excel to base it based on the column I which used to be H.
VB:
Sub SLCREPORTDATA()
Cells.Select
Range("F1").Activate
Cells.EntireColumn.AutoFit
Columns("H:H").Select
[Code]....
i want a code to adjust the column A:Y from width
View 9 Replies View RelatedI've managed to piece together a VBA code that works perfectly for my needs. The problem is that the sheet it is on gets adjusted a lot, and I only need the code to run when certain cells are changed (rather than each time any cell is changed).
Here is the code I have now:
[Code] .....
Put simply, I need this code to run only when a cell in Range "TValueDeal" is changed. Is making this adjustment as simple as adding a couple lines of code, or is there a better way to write the entire thing?
the dynamic name ranges I had created did not "adjust" in their position references when I added new name ranges later.
My workbook (see attachment) Master sheet has several name ranges that are based on their position to a key name range I set up..."Unit". Example below:
"Unit"
I have a system that generates 4 databases with different types of statistical data. Observed defects, Calculated Defect, Capability and Number of points. I have set up a system for telling me what ranges each section is and I am manually changing the ranges to get my expected results.
Is there a formula that I can use that could adjust my ranges, within my formulas?
The below formula is in Col F6, how do i get this formula to adjust to data range without manually filling down, my data changes everyday therefore i need the formula to auto fill according to data range.
=IF(ISBLANK(E6),"",Summary!$I$2-E6)
I am trying to get some help by adjusting my datarange dynamically based on what days I select. I would hope the chart could adjust to display for example 10/3/2008 to 10/10/2008 values and only those values.
I have been trying to figure out how the datarange varies in this post Dynamic Chart dataranges, I do not understand how to apply them to the charts source data. Ultimately Krish's chart would be ideal to understand and I belive is the keystone to where I am trying to go.
I have attached a sample of my workbook and the source data and chart I am trying to manipulate.
I have various charts others view and require the data range to change in 12 month intervals, ie Jan07 -Jan08, Feb07-Feb08. I currently move the ranges manually every month but find the it would be more interactive for others if a drop down combo box on the chart were used enabling the user to choose which intervals to view.
View 5 Replies View RelatedHow or if it is even possible to have a table automatically adjust its range or the number or rows it has based on another table
I have two tables:
Table1 is raw data that is added two daily
Table2 has formulas with column header references to Table1 that processes the information and converts it to a readable format. (basically barcodes to words)
Is there a way to get Table2 to automatically resize to the same number of rows that Table1 has whenever data is added??
Attached is a spreadsheet I am working on that has a series of graphs with defined dynamic ranges. I am having 2 separate issues on 2 different tabs.
1) Ranges named AirRecBra4 (and Bra10); AirComBra4 (and Bra10); AirRemBra4 (and Bra10) are not pulling in data from the correct data points. Instead of using the last 26 data point, they are currently beginning at the top of the column (currently cells 11 to 36 is their respective columns). The formulas are copy and pasted from working offset ranges in the same tab but are reading differently.
2) On the last 6 tabs beginning with Stn Backlog, I want to have defined formulas beginning in cell B119 and continuing downward to at least F200. However, when I add the formulas, the offset reads the formulas as being data and adjusts for that. I do not know how to adjust the dynamic range to ignore formulas in blank cells.
Global Demand-Capacity Management_working (version 3).xlsm
I'm using a template that has formulas using a $ sign to attempt to stop the ranges they refer to changing. The problem is, when I use the template (which involes Access importing some data and adding columns to the sheet the formula refers to in the process) the rows referred to in the formula change in line with the number of rows of data that have been imported. Only the row numbers change not the column headings. So for example:
=( SUMPRODUCT(((Workings!$H$3:$H$1000=Explanation!B9)+(Workings!$E$3:$E$1000="Buy")*(Workings!$J$3:$J$1000))))-998
becomes
=(SUMPRODUCT(((Workings!$H$511:$H$1508=Explanation!B10)+(Workings!$E$511:$E$1508="Buy")*(Workings!$J$511:$J$1508))))-998
I want to concatenate two Cells into a single cell BUT have the first field left justified and the second cell right adjusted.
A1 = "John Williams", A2= "Single"
A3 = "John Williams Single"
Range("B25").Name = "EndMull"
Its fine but if i insert a new row or column then it mucks the whole thing up. Is there away of naming them but if any cells, row or columns are inserted the range will automatically adjust to suit1
I have the code below that is two separate activities and I want to change the second activity from a cell trigger (Set KeyCells = Range("K42:AD42")) to a button trigger. I need to first to remain unchanged.
I'd be ok if this was just one macro that I could assign to a button but because its two and I need to write the second's to clicking a button I'm over my head.
Its occured to me while writing this that because it'll be a range of buttons I'll probably need to make each one an individual code? Is this the case? If so I may have to just keep this as it is.
I am trying to make a spreadsheet that will have a weekly schedule and will recognize and make some sort of message box or something when a person's name is used twice in the same range. For example, if Smith is in B2 and in B4 then message box. I'm not sure how to do this.
My thought was to make a variable range to check if anything in B2:B7 is equal to say, B3. But the range B2:B7 would have to exclude the cell that is compared, B3. Otherwise it is always true.
I'm trying to edit the predefined range in my macro that changes formulas to values.
My current macro looks like this:
Dim vCol As Variant
vCol = Application.InputBox("Select Column", Type:=2)
If vCol = False Or vCol = "" Then Exit Sub
Set UserRange = Range(vCol & "9:" & vCol & "35")
UserRange.Value = UserRange.Value
End Sub
I tried extending the range to include 48:53, but it doesn't work. I tried with this: Set UserRange = Range(vCol & "9:" & vCol & "35" & vCol & "48:" & vCol & "53")
How do I remove a Range Name in order to respecify a Range using the same Name?
View 4 Replies View RelatedI have this code which looks information in a table. The problem is that the table is getting every time bigger.
Here the code:
VB:
With Worksheets("Sheet10").Cells(9, 3).Resize(, LastColumnf - 2)
.Formula = "=IFERROR(CONCATENATE(VLOOKUP(Sheet10!C2,Sheet12!$A$10:$C$550,3,FALSE),""."",
VLOOKUP(Sheet10!C2,Sheet12!$A$10:$C$550,2,FALSE)),"""")"
.Value = .Value
End With
How can I write $A$10:LastNewRow... Another problem rises here, LastNewRow might end up being the oldLastNewRow, i think. But maybe since it is getting bigger, there is no problem, I don't know.
Instead of having a static reference like $C$550 I would like to have a dynamic one.
I have never used charts in excel unfortunately. I just finished watching a few tutorials but still a little confused. I have a WS with a list of items I want to make various charts of how do you make a chart that adjusts when new items are added? (thus dynamic data) Do you need a macro to do this or is it just standard by defining a range within that sheet?
View 7 Replies View Relatedi need to create a udf that will take a cell parameter and then emulates( i guess thats the best word) the index/match functions. the reason im doing this - and not the index/match - is because excel has ran out of memory on me (external links stuff).
Set XLBookInventaire = Application.Workbooks.Open(strFilePathInventaire & "" & strFileNameInventaire, False, True)
line, the XLBookInventaire is still nothing
i believe its a limitation of the excel udfs, but i dunno how to avoid it or how to make this function work.
Function RechercherProduit1(cell As range)
Dim XLBookInventaire As Workbook
Dim MyCurrentSheet As Worksheet
Dim bNotOpenInventaire As Boolean
Dim XLSheetInventaire As Worksheet
Dim rngInventaire As range
Dim strFileNameInventaire As String
Dim strFilePathInventaire As String
Dim FaceArrInventaire() As Variant
Dim FaceRowInventaire As Long
Dim LastRowBColumn As Long, LastRowInventaire As Long
Dim LastWindowState As XlWindowState
LastWindowState = ActiveWindow.WindowState
Set MyCurrentSheet = Application.ActiveSheet
Application.ScreenUpdating = False.......................................
I have generated macro, all I want is when this macro runs on different work sheets it should automatically select the active range based upon column A and copy the formula in the inserted new column B, please see the macro which will make it clear. Basically whenever it is copying a value or a formula it should be for the active range.
View 11 Replies View Relateda macro script that will make cell in a certain range to zero?
In my worksheet, I have the user input numbers between B2 and B15, C2 and C15,... down to F2 and F15. I want it so that if the user clicks a "button," the macro resets all the cells in the above mentioned range to zero.
I have an excel table with several columns two of which I am interested in. What I am trying to do is filter the first column with a specific criterion and then copy the visible values from the other column into a range object. After that I need to remove duplicates. The problem is I get an error. Here's the code. There are a lot of duplicates.
[Code] ....
I have a function that adds a cell to a range whenever an "a" is placed in that cell using Set myRange= Application.Union(myRange, Target) under Private Sub Worksheet_Change(ByVal Target As Range). If a value other than "a" is then placed in the same cell I want to remove that cell from myRange. It is fairly random which cells someone will put an "a" in. Does anyone know of a function, or any way to do this. Basically if there are 4 cells in myRange (A1, B4, C6, D8) I just want to remove the last cell and have myRange have 3 cells now (A1, B4, C6).
View 9 Replies View RelatedI would like to run a calculation based on selected active range in sheet. I tried several methods and cannot make it work.
View 2 Replies View RelatedI am trying to use the codes below to find text "xmxy" and "xmx" within a column, then try to move the cells between the texts to the right by one column. I believe that the problem for the code below is that
Cells(j, "B").Insert (xlShiftToRight)
or If Cells(i, "B").Value = "xmxy" Then has limitations. I read that when you dim a variale as integer, it only can contain value between -32,768 to 32,767 . But I have more than 32,767 rows of data. I have already set dim i,j, etc. as long, but how do you set the cells range to recognize number larger than 32,767?
Sub ShiftRightbbb()
Dim i As Long, j As Long, lastrow As Long, rowscount As Long, count As Long
lastrow = Range("b" & 65000).End(xlUp).Row
For i = 1 To lastrow
If Cells(i, "B").Value = "xmxy" Then
For j = i To lastrow
Cells(j, "B").Insert (xlShiftToRight)
If Cells(j, "C").Value = "xmx" Then GoTo Nextgroup
Next j
Nextgroup:
End If
Next i
End Sub
I have some code that sets named ranges based on sheet names defined by the user.
Issue is, sheet names allow characters that range names do no (i.e. #, - etc).
Is there a relatively simple way to clean a sheet name to allow it to be used as a range name.
Code example below. I am using Replace, but unsure how many characters are invalid. Unfortunately I am referencing a third party workbook, so no control over sheet names.
Sub test()
Dim sh As Worksheet, shnm As String, wb As Workbook
Set wb = ThisWorkbook
For Each nm In wb.Names
nm.Delete
Next
For Each sh In wb.Sheets
If sh.Visible = xlSheetHidden Then GoTo continue:
