fitaliano
asked on
transform getformula in its value
I have the following code
I would like to execute it for each blank row I find and not only for row 8
Dim Ecell As Range
For Each Ecell In Range("B4:B100")
If IsEmpty(Ecell) Then
Range("U8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("V8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("W8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("X8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("Y8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("Z8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("AA8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("AB8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("AC8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-4]C:R[-1]C)+RC[-1]"
Range("AC8").Select
Next Ecell
I would like to execute it for each blank row I find and not only for row 8
ASKER
Blank Cell.
F
F
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Dave