Hello,
I would like to be able to change a cell's color to blue by clicking on it with the cursor using visual basic. For instance, I have 30 cells numbered 1 to 30. I want to be able to choose #4 and have it change its color automatically, but not lose the number "4" that's in the cell. How can I accomplish this please?
Configuration: Windows XP Google
Suppose the data are in column A
Sub test()
Dim j As Range, k As Integer, m As Integer
Dim x, cfind As Range, add As String
On Error Resume Next
Columns("A:A").Interior.ColorIndex = xlNone
x = InputBox("type the number you want e.g 4")
Range("a1").Select
Set j = Columns("a:a").Cells.Find(what:=x, lookat:=xlWhole)
If j Is Nothing Then
MsgBox "the value " & x & " not available "
GoTo line1
End If
add = j.Address
j.Interior.ColorIndex = 3
Do
Set j = Cells.FindNext(j)
If j Is Nothing Then GoTo line1
If j.Address = add Then GoTo line1
j.Interior.ColorIndex = 3
Loop
line1:
End Sub
|
Change cell fill if greater than date Change excel cell background color Change right click menu color Excel vba event cell change for a particular change Facebook changed to spanish How can you start a macro when a cell has data entered using vb How to change both color and content of a cell in xl sheet based on condition How to change double click on drive in my computer How to change right click on mouse How to change the bettary in nokia 5130 cell phone How to use conditional formatting to change cell colors If any cell change content then excel It is possible to change the format of one cell individually on access? Macro to change cell fill color Search blank cell excel vb Start process in click vb Vb excel find cell and save at different sheet Windows live messenger password change