Thread: Code Adjustment
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
albertmb albertmb is offline
external usenet poster
 
Posts: 81
Default Code Adjustment

Hi everyone, I need your help and here is my problem:
In Sheet named "Punch Clock", I have cell A1=Today() and cell E1=Time and
cell A3 = John

In Sheet1 I have from B6:B370 a range of dates and from E4:S4 a range of Names

In cells B6:B370 I have this formula
IF($B$6TODAY(),"",SUMPRODUCT(--('Punch Clock'!$A$3=$E$4)*--('Punch
Clock'!$A$1=B6),'Punch Clock'!$B$1))

and I have this code

Sub ConvertToValue1AftIn()
Dim cell As Range
For Each cell In Range("E6:E370")
If cell < Sheets("Punch Clock").Range("E1") Then
cell.Value = cell
End If
Next cell
End Sub

This code works only on the range of dates, is it possible to extend it to
concider also the range of names?.

Thank you in advance for your kind help