Run-Time error '13' - macro

[myguess21]

Hello -

I am trying to run a macro on a drop down list which i created using Data Validation. I copy the code that I need from one of the post here. It is working in the their worksheet (which I found on this forum) then I copy into my spreadsheet I gets an error "Run-Time error '13' - Type Missmatch. at this line" If Target.Value = "Value1" Then"

here code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row

If Flag = True Then Exit Sub

If Target.Column = 1 Then

If Target.Value = "Value1" Then
If Not Intersect(Target, Range("A1:A" & LR)) Is Nothing Then

LR = Sheets("Tab1").Range("A" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy
Sheets("Tab1").Range("A" & LR).PasteSpecial
Flag = True
Target.EntireRow.Delete
End If
End If
End If
Application.CutCopyMode = False
Flag = False
End Sub


Thanks,
vasu

[judgeh59]

Is Target.Value (IE: the cell you are in when the macro launches) a Text or a number?

[stnkynts]

Almost all macro's are project specific and will not work when copied and pasted without alteration. With that being said, this code is all wrong for a drop down box. What is it that you are actually trying to do?

[myguess21]

Text.

Values are: Network, Process, Searching, Installation

[myguess21]

If a user select a value from a drop down, that row should move to a tab.

for example: on a row #15, I selected a "Network" as my value on column A --> then the row#15 should move to Network tab on the workbook and Delete the row#15 from sheet1 tab.

Almost all macro's are project specific and will not work when copied and pasted without alteration. With that being said, this code is all wrong for a drop down box. What is it that you are actually trying to do?

[myguess21]

The code is working fine its just throwing error message user select the value in drop down list.

[stnkynts]

The code is working fine its just throwing error message user select the value in drop down list.

So the code is working just fine, but it's throwing an error and not working.

Try this:

Please Login or Register  to view this content.