Basic macro

[jjlang]

Hi, I'm looking for a really basic macro

In sheet 1 I've got a name in B2, date C2, and hours worked in D2.

In sheet 2, I've got names running down Col A, and dates along row 3.

I need a macro that will find the name and date from sheet 1, and input the hours into the relevant cell in sheet 2


Thanks

 

[p45cal]

I don't think you need a macro, in B4:
=SUMIFS(Sheet1!$D$1:$D$16,Sheet1!$B$1:$B$16,$A4,Sheet1!$C$1:$C$16,B$3)
or:
=SUMPRODUCT((Sheet1!$B$1:$B$16=$A4)*(Sheet1!$C$1:$C$16=B$3),Sheet1!$D$1:$D$16)
and copy down and to the right.

 

[jjlang]

Thanks for the reply

I dont understand how a formula like that determines which employee I'm talking about.

All I want to do is select an employee from a drop down in sheet 1 cell B2, a date from a drop down in sheet 1 cell C2, and then type in the hours worked in sheet 1 cell D2.

Once I type in the hours, I want to press the macro button that will put those hours into the relevant cell in sheet 2. ie, it will find the employee in col A, and the date in row 3, and then populate the relevant cell.

 

[p45cal]

A misunderstanding. Basic you want, basic you got:

Private Sub CommandButton1_Click()
Dim colm As Range, rw As Range
With Sheets("Sheet2")
  Set colm = .Range("DateList").Find(Range("C2").Value)
  Set rw = .Range("NameList").Find(Range("B2").Value)
  If rw Is Nothing Or colm Is Nothing Then
    MsgBox "Failed"
  Else
    .Cells(rw.Row, colm.Column).Value = Range("D2").Value
    MsgBox "Success"
    Range("B5:D5").Value = Range("B2:D2").Value
    Range("B2:D2").ClearContents
  End If
End With
End Sub

and see file here where it's working.