Copy and Paste in Macro

  • Thread starter Thread starter AccessNewbie
  • Start date Start date
A

AccessNewbie

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
 
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
 
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
 
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?
 
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?






- Show quoted text -
Click to expand...

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
 
Back
Top