Copy and Paste in Macro
 

I have created a macro to Find (Edit, Find) 34000 and when it finds 34000
excel is to copy 34000 and paste this two columns from where it is and bold
the original cell. My problem is when 34000 moves my macro won't work
because the macro is tied to the cell 34000 was in when I created the macro.
How can I rewrite the code to not get tied to 34000. Here is a sample of the
code:

Range("A1").Select
Cells.Find(What:="34000", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Range("A12").Select
Selection.Font.Bold = True

Copy and Paste in Macro
 

hello, try this

Sub test()
Range("A1").Select
Cells.Find(What:="34000", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Copy ActiveCell.Offset(0, 2)
ActiveCell.Font.Bold = True
End Sub

Copy and Paste in Macro
 

Sub test()
Dim c As Range
Set c = Cells.Find("34000", After:=Cells(65536, 1), _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If Not c Is Nothing Then
c.Offset(0, 2) = CStr(c.Value)
c.Offset(0, 2).Font.Bold = True
End If
End Sub

"AccessNewbie" wrote:

I have created a macro to Find (Edit, Find) 34000 and when it finds 34000
excel is to copy 34000 and paste this two columns from where it is and bold
the original cell. My problem is when 34000 moves my macro won't work
because the macro is tied to the cell 34000 was in when I created the macro.
How can I rewrite the code to not get tied to 34000. Here is a sample of the
code:

Range("A1").Select
Cells.Find(What:="34000", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Range("A12").Select
Selection.Font.Bold = True

Copy and Paste in Macro
 

this is perfect. Thank You.

Can you tell me if I was searching for 34000 and wanted to delete the entire
row with that how would I change this?

"GTVT06" wrote:

hello, try this

Sub test()
Range("A1").Select
Cells.Find(What:="34000", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Copy ActiveCell.Offset(0, 2)
ActiveCell.Font.Bold = True
End Sub

Copy and Paste in Macro
 

On Aug 11, 12:20*pm, AccessNewbie
wrote:
this is perfect. *Thank You. *

Can you tell me if I was searching for 34000 and wanted to delete the entire
row with that how would I change this?



"GTVT06" wrote:
hello, try this

Sub test()
Range("A1").Select
* * Cells.Find(What:="34000", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
* * * * :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
* * * * False, SearchFormat:=False).Activate
* * ActiveCell.Copy ActiveCell.Offset(0, 2)
* * ActiveCell.Font.Bold = True
End Sub- Hide quoted text -

- Show quoted text -

Hello this will delete the row.

Range("A1").Select
Cells.Find(What:="34000", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Delete