Hello everyone!
I want to build a macro or use a formula which allows me to search the value of (let's say)"search" cell K10 in a table spreadsheet. Jump to it, replace the background with color green, and jump to the cell next to it to the right (The value of K10 is in E171, fills the background green, then jumps to F171)
Then I want to build another macro (or associate a key combination) which brings me back to K10 regardless of where I am in the spreadsheet.
So far this is where I am:
Sub find_fill_jump()
'
' find_fill_jump Macro
'
'
ActiveCell.Offset(-14, 5).Range("A1").Select
ActiveCell.FormulaR1C1 = "gohy53-10775-ae"
ActiveCell.Select
Selection.Copy
Cells.Find(What:="gohy53-10775-ae", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Replace What:="gohy53-10775-ae", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(13, -5).Range("A1").Select
End Sub
I want to replace "gohy53-10775-ae" into value=K10 in the code, but I couldn't find the appropriate command or magic word on google or anywhere . online. Could you please help me? I spent almost 8 hours of search and I failed to find it.
Thank you in advance!
Viktor
I want to build a macro or use a formula which allows me to search the value of (let's say)"search" cell K10 in a table spreadsheet. Jump to it, replace the background with color green, and jump to the cell next to it to the right (The value of K10 is in E171, fills the background green, then jumps to F171)
Then I want to build another macro (or associate a key combination) which brings me back to K10 regardless of where I am in the spreadsheet.
So far this is where I am:
Sub find_fill_jump()
'
' find_fill_jump Macro
'
'
ActiveCell.Offset(-14, 5).Range("A1").Select
ActiveCell.FormulaR1C1 = "gohy53-10775-ae"
ActiveCell.Select
Selection.Copy
Cells.Find(What:="gohy53-10775-ae", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Replace What:="gohy53-10775-ae", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(13, -5).Range("A1").Select
End Sub
I want to replace "gohy53-10775-ae" into value=K10 in the code, but I couldn't find the appropriate command or magic word on google or anywhere . online. Could you please help me? I spent almost 8 hours of search and I failed to find it.
Thank you in advance!
Viktor