Error type mismatch and how to copy entire record to next sheet

Hi All,

I am getting run time error 13 (type mismatch) while running below code. can you help me how to solve it

Also, how can I move entire record to Archive sheet when date in column O is entered.

HTML Code: 

Thanks gmr for your help.
I have assigned it in the code. But why is it not working.
sht1 = "Master sheet"

Originally Posted by sarat47

how can I move entire record to Archive sheet when date in column O is entered.

PHP Code: 

Sub Demo1()
    With Sheet2.Cells(1).CurrentRegion
        If Application.CountA(.Columns(15)) > 1 Then
                  Application.ScreenUpdating = False
                 .Columns(15).AutoFilter 1, ">0"
            With .Offset(1).Resize(.Rows.Count - 1)
                 .Copy Sheet1.Cells(Sheet1.UsedRange.Rows.Count + 1, 1)
                 .Delete xlShiftUp
            End With
                 .AutoFilter
                  Application.ScreenUpdating = True
        End If
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Or via a worksheet event, paste this code to the Sheet2 (Master sheet) module :

PHP Code: 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 15 And Target.Row > 1 And Target.Value > 0 Then
            Application.EnableEvents = False
        With Me.UsedRange.Rows(Target.Row)
            .Copy Sheet1.Cells(Sheet1.UsedRange.Rows.Count + 1, 1)
            .Delete xlShiftUp
        End With
            Application.EnableEvents = True
    End If
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Thanks Marc.
Could you please check why I am getting run time error 13 (type mismatch) for first program.

Originally Posted by sarat47

Thanks gmr for your help.
I have assigned it in the code. But why is it not working.
sht1 = "Master sheet"

Not necessary as worksheets codenames are yet assigned, like in my previous posts …

Based on your suggestion, I change to sheet1 but still the program is not working. can you please help me.

Please Login or Register  to view this content.

Hello Expert!!

Can anybody help me whether the code can be modified in any alternative way.

HTML Code: