another approach:
Sub DeleteRows()
Dim lastrow As Long, i As Long
Application.ScreenUpdating = False
With Sheets("Sheet2")
lastrow = .Range("C" & Rows.Count).End(xlUp).Row
For i = lastrow To 2 Step -1
If IsError(Application.Match(.Range("C" & i).Value, Sheets("Sheet1").Range("A2:A5")...
Maybe the problem is triggered by the version of your Excel (do you have 2003 or earlier?). Some function in the formula is not exist under Excel 2007. Can you work with .xlsx files? If yes then find in attached.
Ok, could you test this conditional formatting:
Sub Test()
Columns("U:U").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(ISERROR(IF(U1=VLOOKUP(-1*U1,$U:$U,1,FALSE),,)),FALSE,TRUE)"...
Could you please check out this proposal? The date format is separated by slash (/) on my computer, if you have another character then change it in the DATEVALUE function.
try this:
Sub ModifyFindMatch()
Dim myVar
Dim x As Integer
Dim y As Integer
Dim mycell
ActiveSheet.Range("u1").Select
y = ActiveSheet.Range("u1").End(xlDown).Row - ActiveCell.Row
Do Until IsEmpty(ActiveCell)
myVar = ActiveCell
For i = 1 To y
If ActiveCell.Offset(i).Value = -1 * myVar...
Hi,
Try this:
Step1: open your workbook by windows task scheduler
Step2: write a function in your macro which is able to launch your code when the workbook can be considered as opened
Hi,
If you have names under Row28 then go to cell I2 --> extend the ranges of names in the formula --> press CSE --> copy down.
To get the scores: go to J2 --> extend the ranges of names and scores --> press Enter --> copy down.
I insereted a spin button from the Developer tab after right click on the button --> Format control and set the Current, Minimum and Maximum value and the incremental change then just adjusted the Cell link.