I have code to sum by color and for color index. However I want to sum by color if a cell is green for instance and the cell to the left = the word "Month". Is there a way to do this? Using sumifs or nested ifs?
View 3 RepliesI'm trying to add a textbox at the current position (selected cell) with a set size, fill color, and border color. I found this: http://msdn.microsoft.com/en-us/libr...8(VS.80).aspx:
View 2 Replies View RelatedI am using this code to hide or unhide rows of text on another sheet:
VB:
Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String
Dim sValue As String
'Get the address of the cell that changed without '$' signs
sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB:
If Target.Value = "Not Pursuing" Then
ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False
ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
When you are on a spreadsheet and you use the arrow keys on the keyboard to move from one cell to another and you can see the cell you are on because of the lines, is there a way to have the color of those lines a different color than black? I would like to be able to arrow from one cell to another and have the lines be red or green so that I can see easier which cell I am actually on. Sometimes it can be hard to see which cell you are. Even if I could make those lines bolder to show up clearer which cell I am on.
View 9 Replies View RelatedAs an example:
Cells C7:F7 are currently shaded light green. Cells G7:L7 are shaded light blue. M7 is shaded dark blue. N7:Q7 are shaded light yellow and R7:T7 are shaded light gray.
When any cell in that range (C7:T7) is clicked (selected), I want the cell color to change to it's normal color; like light yellow to yellow, light blue to blue, dark blue to blue, light green to green and finally light gray to gray.
These cells represent headings for a database. When a heading is selected, the database will sort by that column and the header will change colors. I can do the sort code.
If another header is chosen, the previous selection will need to revert back to it's lighter color and the new selection will change as above... so only ONE cell will be changed from it's "normal state" color at a time. This will serve as an indicator as to which column is being used for the sort. To the user, it will have the appearance of switching on and off.
If any other cell on the sheet is selected, then this should not trigger an event change.
I would like to do is to sort only selected sheets. Can someone give me this additional code that can be incorporated in the code below. (If I just select the sheets I want sorted and run the code below, it sorts all worksheets irrespective of whether it is active or not).
Sub SortWorksheets()
Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean
SortDescending = False
If ActiveWindow.SelectedSheets.Count = 1 Then
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
Else
With ActiveWindow.SelectedSheets
For N = 2 To .Count ................
I have a spreadsheet containing many rows of data that I need people to review. After reviewing the data in the column, a reviewer must enter comments in the right-most column and then hit the Enter key to move to the next row down.
What I'd like to happen -- As a reviewer selects the cell where they need to enter data, I want the entire row to highlight. I can use conditional formatting to change the color of the row once data is entered, but I want to change the color of the row when a specific cell is selected. I've attached a sample spreadsheet.
I have got a userform with lots of controls,
One of the action's on a large group of the controls is the same but except for one number
here is an example
If TextBox107.ForeColor = 255 Then ActiveCell. Offset(0, 53).Font.ColorIndex = 3
If TextBox108.ForeColor = 255 Then ActiveCell.Offset(0, 54).Font.ColorIndex = 3
If TextBox109.ForeColor = 255 Then ActiveCell.Offset(0, 55).Font.ColorIndex = 3
This makes a cell that correlates to the textbox red if the text in the textbox is red.
Now, I loads of these textboxes that all need to run the same code with just the Offset value one digit higher than the last and I was hoping I could create a loop to avoid a huge block of code but I can't work out how to make a constant that will +1 with each loop.
Also, can I assume that a loop will start with the control with the lowest number i.e. Textbox1 and then work its way through the rest of them in order?
[URL] and how I could modify the conditional formatting/vba to return the same effect but for a selected range, not just a cell?
View 2 Replies View RelatedI occasionally give presentations with Excel and would like to make it easier for the audience to see a particular cell when I move to it. The cursor can be tiny, and some people have a hard time seeing the cursor, so I use the keyboard to navigate to the cells I talk about. Yet, the cell, which then has a border around it, still can be hard to see.
Is there a way in Excel to have a cell that is highlighted, that is I move to a cell with the keyboard, so that it pops out in a different font color or background or format, when I move to it, and it automatically reverts to its usual format and color when I move away from it?
I'm trying to create a macro that will change the color of the cells I've selected to green. My selection will vary depending on what cells I'm trying to color green (not a fixed range). My current code only changes one cell of my selected range:
Sub IN_PCA()
'
' IN_PCA Macro
'
'
ActiveCell.Select
Range("M243").Activate
With Selection.Interior
[Code] .......
I've tried using "ActiveRange" in lieu of "ActiveCell" as well as other commands that would seem to be correct but have failed.
I have various row cells in column (F) filled with the color Green. And corresponding text in Column G. How can I change the text of that particular row to white.
i.e.: if any cell in column F is Green, change the text color of that row in Column G to white?
I have the following code that allow me to select all of the cells with the color same as the active cell within a selected range:
Sub SelectCellColor()
Dim CellColorFormat As Long
Dim RangeString
[Code]....
I'd like to ask how can I fix the error so that there will not be a limit of the number of colored cells in a selected area?
How would I compare two text fields (old and new) and change the font in the 3rd column (Difference)?
For example:
Old: I can not figure 3 things out.
New: I can't figure 2 things out.
Difference: can not can't figure 3 2 things out.
The problem is when I highlight a row with some color the original color of the row is gone, so I tried this code, and again, it's removing the original format and color for the row This is the code from McGimpsey & Associates : Excel : Highlight row with background colors
Code:
PrivateSub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Const cnNUMCOLS AsLong=256
Const cnHIGHLIGHTCOLOR AsLong=36'default lt. yellow
Static rOld As Range
Static nColorIndices(1To cnNUMCOLS)AsLong
Dim i AsLong
IfNot rOld IsNothingThen'Restore color indices
[code].....
How can I retain the range's historical color so that when I deselect the row it reverts properly?
I have about 20 buttons on an excel worksheet. Is there a line of code that will tell me the text which was one was selected? The reason I am asking is because what is being passed into a module depends on what is selected. I know I can do a Case statement or if statements saying if this selected then this, if this selected then this, etc but was hoping for a one liner. This way it will be easy to maitain if other buttons are added as well.
Was thinking it is something like this but not sure how to say which button is selected.
strButtonName = Selection.Text
Is it possible to select specific cells and then have the Replace feature only apply to those cells, particularly if I use the Replace-All button?
View 4 Replies View RelatedAttached is a sample sheet with nine columns. Column D includes a name, but in many cases it is preceeded by: 'TO', 'BY', or 'OF' and a space which I need to remove (if they exist), leaving just the name. Please note that sometimes just the name exists so nothing needs to be done. I believe that in a jet sql querie I can use something like:
View 7 Replies View RelatedA cell is having some content eg. "This is MrExcel Forum". Now the user selects (By dragging the cursor or Shift + Arrow keys) - "is MrE".
Is there a way i can access only this selected data thru vba?
Something like when u select some text in a cell & right click > Look-up , the selected text shows up on the look-up box.
I'm trying to use the below vba code that was provided by another member. The code show work to bold any text that is found matching the text string provided.
Problem I'm having is that I get a 'Type mismatch' error when the code tries to run, as below:
Public Function Colorandbold()
'USE-COLOR AND BOLD TEXT STRINGS WITHIN TEXT EXCEL VBA
'BROUGHT TO YOU BY WWW.PROGRAMMINGLIBRARY.COM
'CREATED BY MARK SLOBODA
[Code].....
I’ve got a little problem with the text to column function.
I’ve got in column A critarias and if it is for example L it should run a surtain text to column code.
With Range("A1:A65536")
. AutoFilter Field:=1, Criteria1:="L"
Range("B1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).TextToColumnS Destination:=Range("B2"), DataType:=xlFixedWidth, FieldInfo:= Array(Array(0, 1), Array(21, 1), Array(60, 1))
End With
With the Auto Filter some rows between 2 until 7624 are shown. But unfortunately the text to column code is used for every row between 2 and 7624. Does anyone know how to avoid it?
Every week I have a worksheet compiled with large range of data, being input after many meetings done. The action-owner Names in open/close brackets are among the long text input in one Column (there are not more than 50 rows of data).
My problem is that in the Column every time I have to manually Bold-face the owner names in the cells that have their names, pressing F2 and Bold. Examples: ...(Wilfred)... or ...(Jacky/Joseph)... Can someone please help me with a code, say I can list out a fixed list of selected text and such code will be able to have these selected text (which is names in this case) in the cells bold-faced.
I have a userform in which I wish to use custom buttons for several commands. My userform users aren't going to be very computer skilled and may not know the CTRL+C or CTRL+V command so I am hoping to put in small image buttons representing each command to be able to copy (and paste if necessary) their selection in a TextBox on a MultiPage'd UserForm.
Is there any way of doing this? I've had a look through the forums and seen several examples of how it can be possible to copy and paste but not in the method I'd prefer to have it on this UserForm.
I have a drop down list of locations, which when one is selected I would like to show an abbreviated version in a different cell (say B5). I have tried the following so far:
=IF(A5 = "London", "LON")
But I would need to do this for around 30 locations and would need the abbreviated version in the same cell.
I'm building a userform (for the first time), and I'm working with a textbox control. I'd like to make it so that when the user clicks in that textbox, the contents is selected, so that if they begin typing, it will type over what is already there.
My question, specifically, is whether or not there is a property I can set to make this the default behavior, and if not - what event do I tie to this action? Is it the "Enter" event?
What I have now, which will probably be unacceptable to my users, is code that looks like this:
Private Sub tbName_Enter()
ActiveControl.Value = ""
End Sub
This makes the contents disappear, but I'd rather they stay there and just become "selected".
Anyways, the issue is that when I have some cells selected then use the text-to-columns, it works fine.. but when I select an entire column, it "acts a fool"...
I made this video to show the effect on my computer.
I am trying to select and move text from one column to another. I have roughly 1,000 cells in column A and I would like to tell Excel to select characters at certain positions and move them into the adjacent column.
I want it to look like this...
column A column B
ABCDEFGHI BCI
Each cell in column A has a 9-letter sequence. I would like to move characters 2,3 and 9 into the adjacent column
Heres the code:
I'm having trouble with the With statement near the bottom for the active sheet, effectively the row search. (Would be great if the font can be changed to red as well as text "Withdrawn").
Option Explicit
Private Sub CommandButton1_Click()
Dim search As String 'stringy
Dim ws As Worksheet 'worksheety
Dim Answer As String 'answery
Dim r As Range 'rangey
search = Range("b7").Text 'texty
Dim cell As Range
cell = Range("4:10")
Application.EnableEvents = True
[Code] .......
Need aid in copying certain cells with text/labels to clipboard to format a body of email to be sent via Yahoo webmail, so I can paste it where needed.
I did a couple of Excel VBA's back in 2000 or so at last job but haven't seen/used VBA since.
Have a spreadsheet with customer data, (one cust per row) and wish to create something like the following in clipboard (in this example, assuming row 2 is the selected row)...I'll only be sending out one or two of these per day so nothing fancy is needed, just a way to avoid retyping critical data that could get mistyped.
--------------------
A8
Rental details for 2008
Customer Name : A2
Unit nbr : A3
Nbr of weeks : A4
Balance due : A5
--------------------
I'm using Office 2000 still...I've done some searching but results found seem to complicated for my situation or not quite close enough for me to see how to apply it.
I also use VBA in a terminal emulation program that I use the following command to 'screen scrape' the current display memory and quickly Save it to a .txt file:
.SaveDisplayMemory "C:File1.txt", rcOverwrite
What I want to do in Excel is, Copy the current selected Range() and Save it to a .txt file.
I know how Save the current Sheet to a .txt file, but can't figure out how to Save just a Range() of cells.