Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Worksheets("DATA").Select
Range("D4").Select
Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Select
Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Range("D4").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveCell.Value =[b] "=if(b4="","",(today()))"[/b]



Application.ScreenUpdating = True

End Sub

Code: Select all

'Other code
ActiveCell.Value = "=if(b" & ActiveCell.Row & "="""","""",(today()))"
'Other code

Code: Select all

ActiveCell.Formula = "=if(D" & ActiveCell.Row & "="""","""",index(List!$B$2:$B$366,match(D" & ActiveCell.Row, List!$A$2:$A:$366,0)))

Code: Select all

=IF(D4="","",INDEX(List!$B$2:$B$366,MATCH(D4,List!$A$2:$A$366,0)))

Code: Select all

ActiveCell.Formula = "=if(D" & ActiveCell.Row & "="""","""",index(List!$B$2:$B$366,match(D" & ActiveCell.Row & ",List!$A$2:$A$366,0)))"