Results 1 to 5 of 5

Remove conditional format once data moves to another sheet

Threaded View

  1. #1
    Registered User
    Join Date
    10-25-2012
    Location
    Germany
    MS-Off Ver
    Excel 2007
    Posts
    6

    Remove conditional format once data moves to another sheet

    I need all conditional format removed for all cells once a row of data is moved to another sheet. If anyone can provide something to include within the code I'm currently using, I would appreciate it. Thank you!

    Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim MyMsg As String
    
    If Target.Column = 1 Then
        MyMsg = MsgBox("Move " & Target.Row & " to Sheet2?", vbOKCancel, "Question")
        If MyMsg = vbOK Then
            Target.EntireRow.Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
            Target.EntireRow.Delete
            Else
            Exit Sub
        End If
    End If
    End Sub
    Moderators edit: code tages added
    Last edited by FDibbins; 10-28-2012 at 04:03 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1