The code below deletes all empty cells from column F starting from row 2 till last data cell in column A.
However what to change in it to do exactly the same except for empty cells, look out for "0" values...
Code:
Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("F2:F" & LR).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
I have a list of 400 cells all in column A. Is there a way to have XL divide them up so that 100 are in column A, 100 in column B, etc., while still treating them like a single column (e.g. Sort will sort them all together)?
View 8 Replies View RelatedMy office recently upgraded to Office 2010 and we would like (in the accounting department that I work in) to change the default number formating in a blank sheet to Number, 0 Decimals, using seperators, from the current default of general format number.
I have looked for the Book.xltx file to replace but can't see it any where.
I have created a worksheet with criteria for grouping the students. If the teacher selects 1 high, 1 med, 1 low in each group based on the conflict lesson plan (or test #2 or whatever assessment the teacher chooses), then I want the spreadsheet to create groups with the students names using the table corresponding with the assessment they choose. (I.e. the conflict table or the test #2 table)
So group one will list one high student, 1 med, 1 low etc....
Initially I was going to use lookup_occurrence to do this; however, I ran into a problem.
When a teacher selects 1 high, 1 med, 1 low, then cell B8 says high, cell B9 says med, cell B10 says low. And then I was going to put a lookup_occurrence in the corresponding c columns to find the first occurrence of those values for group one.
However the problem is this if a teacher selects all high, all med, all low in a group then cell B8 will say high still, but cell B9 will say HIGH not med now, which it does, but then the corresponding lookup formula will need to be the SECOND occurrence of the value in B9 instead of the first as before.
So you see this is a problem. I now have NO IDEA how to generate these groups since the lookup_occurrence formula idea will not work.
I also have a problem separating the periods. If the teacher chooses to group the students based on the first lesson plan, I have told it to look up the table 'E_term 1'!Card1. Problem is Card1 is a table with ALL 8 periods with a few lines separating each period. If I go in and rename each card by period as well, it is going to be a nightmare.
Attached is a sample of TWO pages from my workbook: the groupings page, and the e_term 1 page.
How do I create groups based on changing group types, periods, and assessments?
I am trying to create a sheet on docs.google.com that takes the sum of 1 row divided by the sum of another row removing numbers from the denominator if fields are left blank. Hard for me to explain so here is an example:
Counter
Column 2
Column 3
[Code]....
Leaving a blank value in column 2 makes it read 4/6 giving me 66%, Column 3 giving me 50%.
What I would like it to do is if there is a blank value in any column remove column one from the denominator.
Upon completion the total output percentage for column 2 should be 100%, and column 3 should be 75%.
I am trying to import txt files into Excel but instead of inmporting every row, I use the following method to select only the rows I want:
Much ADO About Text Files
However, it mentions a schema needs to be created.
For example:
[File1.txt]
Col1=Name Text
Col2=Age Integer
[File2.txt]
Col1=Name Text
Col2=Age Integer
This is not a problem if I know the names of all the csv files I am importing (I can create one manually) but since I don't know how many files need to be imported, how can I create a schema for it?
Would it be possible to use VBA and create the schema dynamically?
I have VBA code that has the year for embedded within the code for eg "Fixed assets 2007.XLS"
I would to write VBA code that will enable me to change the date from say 2007 to 2008, wherever it appears in a partcular workbook.
Is there a way to change a line of vba code using an input box?
The current macro downloads a file from our intranet. However the filename changes each week. It is only the last portion of the filename that changes since this part is the date it is created. e.g filename010507.xls filename090507.xls
What I want to do is for an input box to pop up, the user then enter the date and this will then replace the existing filename in the code with the new date.
Objective: to create an average variance among exact match RevCode
Example: all RevCodes with "666" should be used to make an average variance statistic
Situation: All RevCode's are not in similar group counts and this creates incorrect averages with a standard formula.
Set of Data
RevCode Observed Expected Variance RevCodeMean
666 200 220 -9.091%
666 205 220 -6.818%
666 207 220 -5.909%
777 500 355 40.845%
767 505 505 0.000%
668 100 105 -4.762%
668 105 105 0.000%
Formula that generates average variance between exact match revenue codes:
=(SUM(B2:B4)-SUM(C2:C4))/SUM(C2:C4)
The solutions can be in VBA or within the spreadsheet either way.
I am trying to automate the status date on worksheet so that if ANY data is changed/ added/ deleted within a range (cells "B6:L34"), the status date will insert today's date in Cell "S6" but if the worksheet is open and no changes occur within that range, the date remains the same. I used this code below and it is not working.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R1 As Range
Dim R2 As Range
Dim InRange As Boolean
Set R1 = Range("S6")
Set R2 = Range("B6:L34")
[Code] ....
Is there some code to change the fill color of all the combo boxes I have on a spreadsheet.
View 2 Replies View RelatedI am trying to create a model that has a mixture of conditional formatting and data validation formulas within it, but have run into a problem in one area. Essentially, cell E10 is a Validation which pulls a drop down list of names. One of the options in this list is "Other".
I want to create a VBA code to make sure that cell E12 will get rid of any input, turn grey (color index = 15), and potentially lock (if possible!) if the "Other" is chosen by the user in cell E10. If any other value is chosen for cell E10, Cell E12 needs to remain unlocked and white (color index=2).
I'm uploading a sample worksheet- on the scenario A tab, there is a pivot table that are pulling from the data range that is between B3:c13. I copied tab A and made tab B. However, on tab B, the pivot table is still pulling from the data range on scenario A even though I need it to be pulling from tab B.
I do not want to use dynamic ranges because the pivot table is being used to make a pivot chart. How do I get it so that on the scenario B tab the pivot table automatically pulls from the right tab?
I have also have a macro/VBA (I don't know what it is considered, I just copied code from somewhere online) that automatically refreshes all pivot tables (there are other pivot tables being used in the spreadsheet). If I did need to use vba/macro to accomplish what I need to do, where would I copy/paste it in the code I currently have (not sure if the button I have in sample will work properly)?
Sub Refresh()
Dim PT As PivotTable
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
PT.RefreshTable
Next PT
Next WS
End Sub
On tab B, I manually created another pivot table to show what I want the end result to look like. The pivot table between rows 22 and 24 and the corresponding pivot chart between columns E and M (lets call this pivot table/chart #1) is what I'm trying to manipulate. The pivot table between rows 26 and 28 and the corresponding pivot chart between columns o and V is what I want the end result to look like. I made pivot table/chart #2 by just manually setting the data source to be "ScenarioB!$B$3:$C$13.
However what I'm trying to do is get it so that pivot table #1 would automatically refer to ScenarioB!$B$3:$C$13 instead of ScenarioA!$B$3:$C$13. I created the tab "scenario B" but just duplicating the scenario a sheet. Thus, when I duplicate, the pivot table still incorrectly refers to data on the scenario A tab. I want it to pull from the scenario B tab.
The data range between $B$3:$C$13 automatically pulls from another sheet in my real spreadsheet.
I have the following code from Ron De Bruin's website (http://www.rondebruin.nl/mail/folder3/message.htm) for emailing a small message from a range.
View 14 Replies View RelatedI was using this code in a sheet that contained combo boxes and it worked great. When I redone the sheet a used data validation instead of CB it wold error out.
Code:
Sub savee()
Range("A4:J22").Select
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = UCase(Cell.Value)
End If
Next Cell
Range("h4").Select
ActiveWorkbook.Save
End Sub
I'd like to create a macro that searches a column within a changing, variable range.
For example, I have a roster with a list of teams. Each team is separated by a blank row. In each team, there are a varying number of team members, and one team leader. Column I has the position code, which designates whether the person is the team leader (SL), or just a team member (RD).
What I'd like to do, is search each team for the team leader, then check another column (Col A) just within that team for another value, and if that value is present return the last name of the team leader as well as the name of the member with the value in Col A.
The problem is, I'm not sure how to search a varying range in Col I. Teams can vary in size from 3-11 members (including leader), and the number of teams varies each day. I don't have the option of changing the format or layout of the roster - it's automatically generated by some other program and given to me in a CSV list.
For example, from this sample data of two teams
Testing Program : DKSFS
Scoring Center : Concord
Rater Schedule Date : 07/29/2013
[Code]....
how to define that range in Col I which changes with each new team. My approach is to find a way to search a range (essentially the values between blank cells ) in Col I for the value "SL", then search that same range in Col A for the value "VM". If there's a value of VM within that range (team), then copy Cols A-E, write them to a list, and insert that person's team leader last name at the right.
how to define a dynamic range in Col I? I already have a working macro written which generates that last time, sans team leader name, just trying to figure out how to search that changing range in Col I for each team to find team leader name.
Note, not all teams will have a member flagged with that VM marker in Col A.
I have a workbook, that when opened the first time needs to prompt the user to save it. I got that working with no issues by using
Private Sub Workbook_Open()
SaveOnOpen
End Sub
where SaveOnOpen is a procedure in another module. What I would like to do now is re-assign the Workbook_Open sub to be set to null, so that it doesn't run any more. Is it possible to somehow assign Workbook_Open to call a null procedure, as opposed to setting up an onTime call to delete the code itself?
I am using Excel 2010.
BTES worksheet:
acct# Oct-13 Nov-13 Dec-13
13245 850
12458 850
45864
12385 1500
MainList - F2= (current month)
Based on the current month (which I planned on typing in) on the MainList worksheet I need to count how many blank cells are in the table above. The information above is on a separate worksheet but I can change that in the formula. Every month gets a new column.
This is what I have but its not working correctly: =SUMPRODUCT(--(BTES!AD1:BQ18=F2),--(BTES!AD1:BQ18" "))
I have made several Shapes and assigned macros to them, all is good.
What i am curious about: is it possible to highlight or change colour of the shape on press and return to normal if another is shape is pressed? Just anything to make that particular shape stand out that it has been selected then return to normal when another shape has been selected...
[Code] ....
That is the code so far that is attached to 1x shape...
Is it possible to write VBA code that will prevent a user from changing a cell's contents, depending on the cell's font color?
More specifically, I have a column of text in range B15:B64. Some of the cells will have a black font, others will be blue. Is it possible to lock the black font cells only, leaving the blue cells unlocked for users to change?
I have this code:
Code:
If .Range("K" & t) = "AUTO" Then
.Range("K" & t) = Format(Application.VLookup(.Range("A" & t), rcore, 54, False), "h:mmA/P")
With .Range("K" & t)[code]....
It is intended to change the font colour to white when the cell = "AUTO". It does, but it also changes the contents of the cell (like NA, and NR) to white when they aren't equal to AUTO.
I have a macro that, at varying places, changes the formatting of adjacent cells. The formatting code is easy to generate via the macro recorder, but it's long - longer than the macro itself - and I'm using it a couple of times (due to if statements). That makes it difficult to read. It's usable, but looks ugly. I'd like to streamline its appearance.
Is there a way to do something like:
Code:
If range("F5").Value > 0 then
Activecell.Offset(1,0) format = blah
ElseIf Range("F5").Value = 0 then
Activecell.Offset(-1,0) format = blah
End If
The formatting I want is dark gray interior with a border box around it. The macro recorder generated this:
Code:
Sub test2()
'
' test2 Macro
'
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
[Code] ............
The following block of code is evaluating the term in the array, if it exists and the value in col. M is a non integer, (which what I am testing for are fractions) then format the cell to a fraction number format.
That is ok, except it is changing the numberformat on text terms. I want it only to change the numberformat on numeric values.
I added the function Isnumeric to this line:
Isnumeric(cells(i, "M").value) Int(cells(i, "M").value)
which I thought would only evaluate numeric cells only, but this was unsuccessful.
Original Code: Unedited.
For i = 4 To LRowf
For Each Item In Array("HAT", "FTWR", "BOOT", "BOOTG", "BOOTY", "HWRISR", "HWBLTS")
On Error Resume Next
If (Cells(i, "F").Value = Item Or Cells(i, "G").Value = Item) And _
Cells(i, "M").Value Int(Cells(i, "M").Value) Then
Cells(i, "M").NumberFormat = "# ?/?"
On Error GoTo 0
Exit For
'End If
End If
Next Item
Next i
I'm trying to figure out how to get sumif to sum for non-blank entries- e.g.
sumif(A1:A5,"not isblank", B1:B5).
I am using the following formula to return an "F" in the cell. If there is no "F" it just returns "#N/A". Is it possible to have the cell blank instead of the #N/A? If so how do I do it?
=INDEX(E1:E99,MATCH(1,(A1:A99=Selections!J5)*(E1:E99="F"),0))
and then ctrl + shift + enter
I created a database query in my Excel file that queries an Access database. The query has a few parameters and these are tied to certain cells that contain drop down lists for the user to select the parameters.
I am having problems though if the user wants a specific criteria to be blank. Instead of showing all the records that meet the other criteria, the entire result is blank. For example, if I query for Total Sales based on the parameters Building, Floor and City and I select the City, but don't enter anything for Building and Floor, my result is nothing. I would like the result to be the Total Sales for that City, irregardless of the Building and Floor.
I am not sure how to create this. I assume I would need to put something in the criteria field in MS Query, but I have no idea what.
I have the following sumproduct formula which looks in one column to search for a series of dates (greater than one date and less than another date). It then looks in column O to see if there are certain criteria if the date criteria is met. The problem is I have a lot of blank cells in column O which need to be captured.
I have this:
=SUMPRODUCT(--('Raw Data'!$B$2:$B$50000>=$H$2+0)*('Raw Data'!$B$2:$B$50000
I have some code for changing the scale of my chart axes so that when new data is inserted into the column which the chart sources from (say column B), the axis scales on my chart will automatically adjust (as the Excel algorithm sometimes leads to charts which are a bit squashed). This code works fine, and I have included it below.
I have then tried to introduce an ActiveX listbox so that when you select an item in the box, the reference number generated (1,2,3...etc) then determines which data series is inserted into column B using a vlookup function. However, when I do this, the original VBA code for automatically adjusting the chart axes no longer works.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.ChartObjects(1).Chart
[Code].....
I need to create a formula that counts up the number of times a specific word is put into a cell lets say 'Carpet' only when another cell is left blank.
Count the number of times between C1:10 the word 'Carpet' is input only when D1:10 is left BLANK?
If looked into DCOUNTA formulas and SUMPRODUCT formulas but seem to be clutching at straws.
My problem seems to be at referring the formula to the BLANK cell?
I have set up a formula to count the occurrences of multiple conditions in a table of data (see below..) the formula reads from 4 cells of criteria but I will not always use the 4 criteria and maybe only need to use say 2 criteria - when I do this my formula doesn't work - my example below shows this... How do I make the formula continue to work when some criteria cells don't have any entries?
This table is a simple example but my main work will have a much larger table (poss. several thousand rows) and probably about 10 criteria cells, so running a big formula with 10 nested IF statements will be too cumbersome... any smart workround for this within the SUMPRODUCT formula?
The top left cell (Fruit) is A1..
FruitColoursTownsNamesApplesRedLondonHarryApplesGreenParisBertPearsBlueLondonFred
PlumsRedVeniceSteveApplesRedLondonBertCriteriaResultFruitPears0ColoursTownsLondonNamesFred
FruitColoursTownsNamesApplesRedLondonHarryApplesGreenParisBertPearsBlueLondonFred
PlumsRedVeniceSteveApplesRedLondonBertCriteriaResultFruitPears0ColoursTownsLondonNamesFred
The formula currently in my Result cell is
=SUMPRODUCT((A2:A6=B10)*(B2:B6=B11)*(C2:C6=B12)*(D2:D6=B13))
which returns 0 and should be 1 in this example...