moving row/cell values to another sheet if row is true

[Sweedler]

moving row/cell values to another sheet if row is true

Ok,

So here is tough one .. maybe.

From my first sheet I have a product list with a checkbox next to each one . The checkbox is linked to the cell that it is in and then that cell font is white to make the TRUE/FALSE value invisible. What I want to do is that based on the TRUE/FALSE value of the check box I want the value in column C to be moved into column A in the other sheet. I would prefer for the value to disapear as well if the value is altered to FALSE.

IDEAS?

 

[maras]

@Sweedler, assign a code to the button and run.

Sub Moving_True()
    Dim a(), rws
    Dim rng As Range
    Dim lr As Integer
    
    With Sheets("artikellista")
        lr = .Cells(Rows.Count, "C").End(xlUp).Row
        Set rng = .Range("B6:C" & lr)
        a = rng.Value
    End With
    With rng
        rws = Filter(.Parent.Evaluate("transpose(if((" & .Columns(1).Address & "=" & True & "),row(1:" & .Rows.Count & ")))"), False, 0)
    End With
    If UBound(rws) > -1 Then
        With Sheets("beställningsunderlag")
            .Range("A" & .Cells(Rows.Count, "A").End(3).Row)(2).Resize(UBound(rws) + 1) = Application.Transpose(Application.Index(a, rws, 2))
        End With
    End If
    Set rng = Nothing
End Sub

​