Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default VBA code Help needed


Hello all I am trying to change the below macros so that the contents of
cell A3 is used and not the text which happens to be “1090-0450*BE”
(but could be any of a number of sequences).
I recorded the first using the find function in excel and the second
using the custom option in Autofilter

Somebody please show me the way as its doin my head in .

'
' Macro4 Macro
' Macro recorded 11/5/2003 by ?

'
Range("A3").Select
Selection.Copy
Cells.Find(What:="1090-0450*BE", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
End Sub


Sub Macro5()
'
' Macro5 Macro
' Macro recorded 11/5/2003 by ?
'

'
Range("A3").Select
Selection.Copy
Selection.AutoFilter Field:=1, Criteria1:="=1520-0444*BE",
Operator:= _
xlAnd
End Sub


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 62
Default VBA code Help needed


Try replacing it with: Range("A3").Value

"liamothelegend" wrote in
message ...

Hello all I am trying to change the below macros so that the contents of
cell A3 is used and not the text which happens to be "1090-0450*BE"
(but could be any of a number of sequences).
I recorded the first using the find function in excel and the second
using the custom option in Autofilter

Somebody please show me the way as its doin my head in .

'
' Macro4 Macro
' Macro recorded 11/5/2003 by ?

'
Range("A3").Select
Selection.Copy
Cells.Find(What:="1090-0450*BE", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
End Sub


Sub Macro5()
'
' Macro5 Macro
' Macro recorded 11/5/2003 by ?
'

'
Range("A3").Select
Selection.Copy
Selection.AutoFilter Field:=1, Criteria1:="=1520-0444*BE",
Operator:= _
xlAnd
End Sub


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
VBA code needed ernie New Users to Excel 1 March 19th 10 12:45 PM
Code Needed John Calder New Users to Excel 10 July 15th 09 11:42 PM
VBA code help needed Martin Excel Discussion (Misc queries) 3 April 28th 06 09:28 AM
Fw:code needed ibo Excel Programming 2 August 5th 03 09:30 PM
code needed ibo Excel Programming 0 July 29th 03 05:32 PM


All times are GMT +1. The time now is 05:00 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"