erase number in column "d" based on user from

  • hi


    I would like to modify the spreadsheet to do the following


    As you can see in the attached sheet, the user form will show everything in column "D".


    There is a text box for each cell in column "D" ,in each text box there is also a check box that would clear that text box.


    The goal is to click save data and any number that has been cleared should also be cleared in column "D"


    I also want to do similar to what this codE is doing



    [VBA]Sub clearcrfromcell()
    Dim Num As String, V As Variant, Rng As Range
    Num = InputBox("What number do you want to clear?")
    For Each V In Split(Num, "-")
    Columns("D").Replace V, "", xlWhole, , , , False, False
    On Error Resume Next
    For Each Rng In Columns("D").SpecialCells(xlBlanks).Areas
    Rng.Offset(, 1).Formula = "=" & Rng.Offset(, -1).Address(0, 0)
    Rng.Value = 0
    Next
    Next

    End Sub[/VBA]


    Besides clearing the numbers this code also goes to the cell to the right and puts a formula in there, i would like for this user form (save data) to do the same. how can i accomplish that ?


    Thanks