VBA slet celler der giver fejl i formler
Jeg har et ark med mange linier og 20 kolonner med forskellige data i fire kolonner J, K, T og AN, kan der være alene være tal, men de kan være tomme.Men når jeg kører min userform, får jeg fejl i formler fordi disse tomme celler ikke indeholder nogen værdi, hvis jeg sætter indhold til enten 0 eller trykker delete på en celle, så virker min formel.
JEg vil gerne have en macro som jeg efterfølgende kan indsætte i VBA, som enten giver nul værdi eller sletter indholdet.
Har også forsøgt med: If IsEmpty ......= 0 eller ""
Men kan ikke få noget at det til at virke, håber en kan hjælpe.
Sub slettommeceller()
ActiveCell.Range("F2:f:20000").Select
Do
If IsEmpty(ActiveCell) Then
If IsEmpty(ActiveCell.Offset(0, -1)) And IsEmpty(ActiveCell.Offset(0, -2)) Then
ActiveCell.Value = ""
Else
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"
End If
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub