Values not updating

[Guest]

I have a problem and i hope someone can help.

i have a workbook that records employee attendance. it is set up as folows
1. Input sheet - this has a dropdown list of employee names, a column for
date, a coulumn for attendance ie IN, Out, Annual leave etc. On this sheet i
have a command button ADD with a macro assigned to it which i click whenever
i enter details for that day.

2. Data sheet - this is made up of 4 columns - 1st being 'key' with the
following formula =b2& " " & c2, where b2 is date and c2 is employee name.
the 4th column is the attendance value i.e In, Out, Sick etc

3. the 3rd sheet is the calendar sheet, top row with days of the month,
first column names of employees. the sheet should automatically update from
the data sheet using the following function =IF(ISERROR(VLOOKUP(B$2& " "
&$A3,tblData,4,False))=True,"", VLOOKUP(B$2& " " &$A3,tblData,4,False)).

the problem is it updates some employees and dates but not others and i have
rechecked and cant seem to think where the glitch is. I would appreaciate
any help and thanks in advance.

 

[Frank Kabel]

Hi
what exactly does not update and how have you checked it?. Also have
you checked that automatic calculation is enabled?

 

[vee2503]

thanks for the reply.

for example for todays staff attendance some values i.e
the IN, A/L or Sick values have been updated on my
calendar sheet and others havent.

the information is on the data sheet but for some reason
some values are not recorded on the calendar sheet.

i didnt think my data sheet had to be sorted as i have
the range lookup set to false, as if i try to sort the
table i lose all the values completely.

 

[Frank Kabel]

Hi
you may explain HOW you transfer the data. e.g. post your used formulas

 

[Guest]

thank you for your response, i was on holiday, i could
not respond

i have a command button with a macro, so when i choose i
just click Add and the name, date, and value are added to
the data sheet.

the macro code is

Private Sub cmdAdd_Click()
Dim intRow As Integer

'Search empty entry
Sheets("Data").Select
intRow = 2
Do While ActiveSheet.Cells(intRow, 2).Value <> ""
intRow = intRow + 1
Loop

'Fill in data
ActiveSheet.Cells(intRow, 2).Value = Sheets
("Input").Range("B2").Value
ActiveSheet.Cells(intRow, 3).Value = UCase(Sheets
("Input").Range("A2").Value)
ActiveSheet.Cells(intRow, 4).Value = Sheets
("Input").Range("C2").Value

'Select input-sheet
Sheets("Input").Select
ActiveSheet.Cells(1, 1).Select
End Sub