Found Cell Color And Worksheet Viewing
Solved/Closed
azmiismail
TrowaD
- Posts
- 17
- Registration date
- Thursday March 3, 2011
- Status
- Member
- Last seen
- July 20, 2011
TrowaD
- Posts
- 2886
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- June 27, 2022
Related:
- Found Cell Color And Worksheet Viewing
- Excel if cell color is red then - Guide
- Excel vba - change cell color based on value ✓ - Forum - Programming
- How to copy cells from one worksheet to another automatically - Guide
- Excel if cell color is red then sum ✓ - Forum - Excel
- Change cell color based on dropdown selection ✓ - Forum - Excel
2 replies
rizvisa1
Mar 14, 2011 at 10:20 AM
- Posts
- 4479
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- May 5, 2022
Mar 14, 2011 at 10:20 AM
I dont see where this does any coloring. I think you are refering to the answer that Venkat provided earlier. If you compare this macro with the updated one, you will find where the color is happening. if you use macro recorder, and then manually removed the color from the cell, you will get the code for removal of the color.
TrowaD
Mar 14, 2011 at 10:26 AM
- Posts
- 2886
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- June 27, 2022
Mar 14, 2011 at 10:26 AM
Hi azmiismail,
When you want the screen to stay at top left position and remove cell color once inputted value has been found try this:
Does this yield the desired result?
Best regards,
Trowa
When you want the screen to stay at top left position and remove cell color once inputted value has been found try this:
Sub Find_Data() Dim FindString As String Dim Rng As Range FindString = InputBox("Enter Staff Number") If Trim(FindString) <> "" Then With Sheets("B2JT").Range("A:Z") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then Application.Goto Rng, True ActiveCell.Interior.ColorIndex = xlNone Else MsgBox "Nil" End If End With End If ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 End Sub
Does this yield the desired result?
Best regards,
Trowa