I have created a form and the form contains one textbox that will support only one character, I'd like that character to be Green in colour, after 2 minutes I'd like that character to turn amber and if another two minutes go by then turn red and remain as such until a new character is typed in and start all over again.
View 2 RepliesTextbox background / text conditional colour change.
I have a textbox in an Excel form and wish the background and/or text font colour to be conditional i.e. if cell T45 > T41 then colour is yellow otherwise red.
I need to change the backcolour of some textboxes on a userform that is populated with percentage figures from a sheet, ie:
10% (a positive percentage) textbox backcolour = red
-10% (a negative percentage) textbox backcolour = green
Below is some code showing my attempts up to now, but obviously I can't make it work.
VB:
Private Sub Textbox1_Change()
If Me.Textbox1.Value < 0 Then
Me.Textbox1.BackColor = vbGreen
Else
Me.Textbox1.BackColor = vbRed
End If
End Sub
I ahve a user form that loads , I would like the textboxes to be red when blank and change white as they are populated.
View 2 Replies View RelatedI am working in Office 2000, and have 3 Textboxes, I need to copy text from Textbox1 and Textbox2 to Textbox3, and the code below works but only when the character length is limited. I need to be able to show much more text. Suggestions. I am trying some of the code
Option Explicit
Sub Text_Copy()
Dim ch1 As Characters
Dim ch2 As Characters
Dim ch3 As Characters
With Sheets("Aim Up Description")
Set ch1 = .Shapes("TextBox1").TextFrame.Characters
Set ch2 = .Shapes("TextBox2").TextFrame.Characters
End With
With Sheets("Description Summary")
Set ch3 = .Shapes("TextBox3").TextFrame.Characters
End With
ch3.Text = ch1.Text & " " & ch2.Text
End Sub
I have found code on other posts that I have tried (like, Range("A16").Value = Val("TextBox1"),
When I enter some text into a TextBox, the first character is fine, but after the second character has been entered, the font seems to develop an underline. I've created a Word document with screenprints but have been unable to make it small enough to upload here, despite trying for the past couple of hours! You can therefore see the document here ... http://www.keepandshare.com/doc/view.php?id=508384&da=y
View 8 Replies View RelatedIn Userform1 I have several textbox and one commandbutton1. If I mouseclick on a textbox and click commandbutton1 the letters YES is entered in the texbox. To prevent double click entry into the same textbox I set the maximum length property at 3. However, setting the maximum length to 3 does not work. Subsequent commandbutton1 clicks will result in an infinite YES entries.
Is the maximum length property disabled when commandbutton entries are applied?
I am using a User Form to input data to a spreadsheet and have an issue. I've set the TextBox WordWrap & MultiLine Property to True and the textbox values don't show the reverse P character, but how do I get the "square" from populating into the cells on my worksheet? I was using this old thread as a point of reference, but didn't understand how to use or where to put it in my form. I'm referring to the code that Dave Hawley supplied. Strange Characters Pasting to Textbox
View 5 Replies View RelatedI am looking for a simple formula to change decimal minutes into seconds for example 0.12 = 7 seconds
View 3 Replies View RelatedThe attached file contains data. In Worksheet 1 (and also 2 and 3) column B2 shows day, month, year, hours, minutes and seconds. I was hoping to convert this to just Hours and Minutes, but all the usual methods using Custom Format does not work. This leads me to think that its in TEXT format. How can I change Column B2 to Hours and Minutes?
View 14 Replies View Relatedcondition: the cell in row K and row L can only have value 0 or 1
if cell in the column K & columb L = 1
then both cell is green colour
if cell in the column k column L
then both cell is red colour?
taking example if k1=L1 =1 then is both green colour
if k1 =1 and L1 = 0 then both are red colour
In column A if have strings like this: X-100-X10 or C-100-1X00 etc.
I need to change the X at the end of the string to "." e.g. X-100-.10 or C-100-1.00
Can't figure it out since there can be 1 "X" or more than 1 "X" and the second "X" that needs to get changed can be in a different location i.e. not alway 3 from the right or 7 from the left.
Is there some macro code I can use to make this change? Otherwise I have to change hundreds of these manually.
I have developed a profit loss sheet for the office I work for. What i need is to have either cells change colour or the numbers in the cell change colour depening on the value in the cell.
What I was thinking is if the number is over 15% of the sale price the cell or number should be green, if the number is under 15% it should be black, and if its below 0% it will be red.
I am using Excel 2007. One of my worksheets has a dark border around some cells. Instead of being blue the lines are black. I used the right click and format cells option but it does not work.
View 10 Replies View RelatedI have this code but is not working, i need to make an ajustment to this as well as at present it will only change colour to 1 cell but i need it to format the whole line, this is what i have so far
View 5 Replies View RelatedI dont have that great knowledge in Excel but i wanted to try and run a
macro in an IF formula but realised that was not possible. I have now got a
formula that gives a value in a cell when i want the whole row to turn to
red, but im not sure how i can get a macro that will change the whole row to
red when that cell shows a value. Can anyone help on this matter?
I am tyring to do conditional formatting whereby if anything is entered in a cell i want the colour to change to say yellow and if nothing is entered just to leave blank.
View 9 Replies View RelatedI'm looking for some code to change a cell's fill colour
eg. by selecting an individual cell in a range, say A1, the colour of a cell, say K1, in a corresponding range changes to yellow
or if I select multiple cells, say A1:A9, the colour of cells K1:K9 change to yellow
the VBA to change to colour of a shape based upon the value in a cell?
e.g. if cell "a1" = 10 then colour circle red
I want to change the font colour in row J7:J299 if there is perticular word say "Double" in row J.
How can you change the colour of a cell (A1) using that number
eg
1=red2=orange3=white4=light blue5=Blue12345
OR
Make the cell with numbers above 0 go red and all cells with numbers below 0 go blue
I have been trying to make it so that an autoshape changes colour according to the value of a particular cell but every time I run the macro the shape is black and I cannot work out why. The code is -
Private Sub CommandButton1_Click()
Dim X As Integer
X = Range("H5").Value
With Sheets("Sheet 1").Shapes("Rectangle 1").Select
Select Case X
Case Is > 0:
Selection.ShapeRange.Fill.ForeColor.RGB = 2
Case Is < 0:
Selection.ShapeRange.Fill.ForeColor.RGB = 3
Case Else:
Selection.ShapeRange.Fill.ForeColor.RGB = 1
End Select
End With
UserForm2.Hide
End Sub
The company I work for has its own set of standard colours to be used in all documents. I've set the colours up in the colour palette using the below sub (x's are actually numbers):
Sub SetCompanyColours()
ActiveWorkbook.Colors(9) = RGB(x, x, x)
ActiveWorkbook.Colors(46) = RGB(x, x, x)
ActiveWorkbook.Colors(12) = RGB(x, x, x)
ActiveWorkbook.Colors(10) = RGB(x, x, x)
ActiveWorkbook.Colors(14) = RGB(x, x, x)
ActiveWorkbook.Colors(5) = RGB(x, x, x)
ActiveWorkbook.Colors(47) = RGB(x, x, x)
ActiveWorkbook.Colors(16) = RGB(x, x, x)
End Sub
I want to distribute this round to my workmates. Problem is that, if they set the colours in the workbook using the above sub, the workbook colours will be all wrong when clients open them on their computer. How do I get around this. I have thought about programmatically copying the sub into the open event of the activeworkbook. I've looked through this website, http://www.cpearson.com/excel/vbe.htm, but it doesn't explain how to copy code to the workbook events part of a vba project, only to a new module
I need to change the all Upper Case character to Lower case character for all cells. See below my code, i am getting error message, Tye Mismatch. "cell.Value = LCase(cell.Value)"
[Code] .....
I want to change the back ground colour of each row until G column when there is a text in the first cell. I have attached the excel that I want the background colour to be. Like suppose, F1 is the details of family 1, F2 is for family 2. I want each family to be coloured. The rows are not fixed for each family. If F1 details are coloured green, Fr is orange, F3 is green and F4 is orange again. And the number F1, F2, F3, F4 and so on are not ordered in ascending. They can be random. But I want the colour coding to be the same as what I have shown in the excel. I have so many rows like that. How do I do that using excel. I have tried conditional formatting. But it doesn't work.
View 2 Replies View RelatedI need to see easily if my cell is giving a value by using a SUM. This is so I can see if the SUM has been taken off or overridden by typing in a number.
View 4 Replies View RelatedIf A1 contains 'good' then row A = red
I need an entire row to change colour if a particular cell in that row contains one particular word.
I'm creating a simple spreadsheet totalling units of alcohol up. Is it possible to change the colour of the fornt when different values are reached? For example if a total of under 8 units is reached this is displayed in green, if over 8 the figure is shown in red.
View 4 Replies View RelatedIn cell A1 I have revenue projected & B1 I have actual revenue if the date in B1 is less than the date in A1, I would like B1 to change colour.
View 5 Replies View RelatedI am making a little Formula 1 Grand Prix spreadsheet, and would like to know how do i enter a number into a cell and the cell changes colour.
[Code] .....
So if i type when of these in a cell i want to to change to the colour corresponding to the chart.