View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
R..VENKATARAMAN R..VENKATARAMAN is offline
external usenet poster
 
Posts: 25
Default Set up macro in Excel to choose active row?

try this

Rightclick the sheet 2 tab

Click view code

On the left hand side of the popped up window click the arrow

Click worksheet

A default macro will pop up something like this will pop up

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



End Sub



Ignore this

On the right hand side part of the window click the arrow and click CHANGE

The macro like this will pop up



Private Sub Worksheet_Change(ByVal Target As Range)



End sub



Type or copy these codestatements

==================

Application.EnableEvents = False

Dim x

x = Target.Value

MsgBox x

With Worksheets("sheet1").UsedRange

Set cfind = .Find(what:=x, lookat:=xlWhole)

..Cells.Font.ColorIndex = xlAutomatic

If Not cfind Is Nothing Then

cfind.Cells.Font.ColorIndex = 4

Else

GoTo line1

End If

End With

Worksheets("sheet2").Activate

Application.DisplayAlerts = False

ThisWorkbook.Save

Application.EnableEvents = True

GoTo line2

line1:

MsgBox "the barcode is NOT avilable in sheet1"

line2:

MsgBox "macro is over"

===================================





"Kerri" wrote in message
...
I have an Excel spreadsheet with multiple worksheets. I want to be able to
set up a macro within one of the worksheets that will allow me to do the
following:
Once I type in a barcode number in a cell (say b3 of worksheet 2) and
click
on the macro button it will:

1 open another worksheet in the file (worksheet 1)
2 find the number from the active cell (b3 of worksheet 2)
3 highlight the entire row in worksheet 1 where the barcode number was
found
4 turn the text in that row green
5 save the worksheet
6 go back to worksheet 2

I don't know any visual basic code. I have in the past used macros to do
generic steps, none that required it to find a number and do something
with
it. My problem is that it does the action only to the row the initial
macro
was recorded in.

Any help would be greatly appreciated.