search for a name from list and then go to relevant records

[Guest]

Hi! There,

I need an urgent help. I have a sheet with the skillset summary (with vast
details)saved against the name of the person. In another sheet I have a
format where the details are to be summarised. I tried to create macros
using find utility but alas irrespective of what name I choose, I get summary
of only one person. The macro does not move as per the selected name.It
seems it works only on row/column numbers. Can you kindly help me get out of
the loop and get onto the correct name as required?

Regards

 

[Guest]

Post your code, then I'm sure someone here will be able to assist you!

 

[Guest]

Hi!

I am repeating the same question, this time may in a little better way with
part of the code :

Hi!



For last 05 days I am knocking my head but no solution is coming out.
However, I am not a good VBA user but know the basics. My problem is as
below :



I have skillset data for our staff stored in sheet1, with names of staff in
column B7 to B107 and their skillsets from column ‘C’ to ‘GO’ in the
respective rows. I have a summary sheet in sheet2, where I have created the
combo box linked to the list of staff. I want the summary information of the
staff, whose name is selected in the combo box. The other cells in the
summary sheet can be linked to the intended celss in ‘sheet1’. Can you
kindly help me to make some macro to do this??



I tried to make the macro but it is returning he summary of only one staff,
irrespective of the name selected in the combo box. An early respoense will
be highly appreciated.



For your ready reference, find below the part of the macro code :



Range("A4").Select

Selection.Copy

Sheets("Sheet1").Select

Cells.Find(What:="P. H. Jadhav", After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

Sheets("Sheet2").Select

Range("D9").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "=AVERAGE(Sheet1!R[-3]C[-2])"

Range("E9").Select

Sheets("Sheet1").Select

Cells.FindNext(After:=ActiveCell).Activate

Cells.FindNext(After:=ActiveCell).Activate

Range("EQ6:ES6").Select

Sheets("Sheet2").Select

Range("D9").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(Sheet1!R[-3]C[143]:R[-3]C[145])"

Range("D10").Select



Regards



Sudip Roy