Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to copy and paste values (columns)I have a macro file built | Excel Programming | |||
copy multiple worksheets of a workbook, and paste onto a Word document ( either create new doc file or paste onto an existing file.) I need this done by VBA, Excel Macro | Excel Programming | |||
Copy and Paste macro needs to paste to a changing cell reference | Excel Programming | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
Macro to Copy/Paste then Paste to Next Line | Excel Programming |