Undo

[ndendrinos]

Hello to All
With this code in sheet1 I select a cell , fill it in yellow, copy the entire row and past it in the first empty row in sheet2

Sub tranferdata()
With Selection.Interior
        .ColorIndex = 6
    With Selection.EntireRow.Copy
    Sheets("Sheet2").Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    End With
    End With
End Sub

What I need is if I choose to undo a "transfer" by doing this:
In sheet1 I click a "yellowed cell"
Cell turns to "no fill"
find matched cell in sheet2
When found does an EntireRow.delete .
Returns to sheet1

Thank you

 

[MorganO]

I beleive this will work for you:

Sub untransferdata()
If Selection.Interior.ColorIndex = 6 Then
 valuetofind = Selection.Value
 Incrementor = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1
 ValueFound = True
 Do
   Incrementor = Incrementor - 1
   If Incrementor = 0 Then
     MsgBox ("Error.  Value not found")
     ValueFound = False
     Exit Do
   End If
 Loop Until Sheets("Sheet2").Cells(Incrementor, 1).Value = valuetofind
 If ValueFound = True Then
   Sheets("Sheet2").Cells(Incrementor, 1).EntireRow.Delete
    Selection.Interior.ColorIndex = xlNone
 End If
End If
End Sub

Take care

Owen

 

[ndendrinos]

Owen great work with many thanks.
Hope you fly as well as you write code.
Best regards
Nick