need help with seeting an activecell in VBA

G

GregJG

this is the code i have so far......

Dim rng As Range
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb = Workbooks.Open("f:\Bidditjobs.xls")
Set rng = wb.Worksheets("jobs").Columns(1).find(cobOpenPro.Value)
ActiveCell.Select
Biddit.txtJobNumber.Value = ActiveCell.Value
Biddit.cobRep.Value = ActiveCell.Offset(0, 1).Value
Biddit.txtMainPrice.Value = ActiveCell.Offset(0, 2).Value
Biddit.txtMainPercent.Value = ActiveCell.Offset(0, 3).Value
.....

How could I have the ActiveCell.Select begin in the row it finds the
cobOpenPro.value? right not is is only pulling in from row 1
 
F

Frank Kabel

Hi
try:

Dim rng As Range
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb = Workbooks.Open("f:\Bidditjobs.xls")
Set rng = wb.Worksheets("jobs").Columns(1).find
(cobOpenPro.Value)

Biddit.txtJobNumber.Value = rng .Value
Biddit.cobRep.Value = rng .Offset(0, 1).Value
Biddit.txtMainPrice.Value = rng .Offset(0, 2).Value
Biddit.txtMainPercent.Value = rng .Offset(0, 3).Value
 
Top