Hello
I have a private sub which calls macro2 if any cell within row A2:to the end right changes its status to delivered. the problem is that even if I run macro2 separately it dose not work with no error. Appreciate any help
Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim v As Range
Range("A2").Select
Set v = Sheets("process").Range("A2", Selection.End(xlToLeft))
If v.Value = "7. Delivered" Then
Call Macro2
End If
End Sub
Code
Sub Macro2()
'
' Macro2 Macro
'
Dim cell As Range
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim J As Integer
Dim v As Range
Set ws = Sheets("process")
Set ws1 = Sheets("Record")
ws.Activate
Set v = ws.Range("A2", Range("A2").End(xlToRight))
J = 1
For Each cell In v
If cell.Value = "7. Delivered" Then
ws.Columns(cell.Column).EntireColumn.Copy
ws1.Columns(J).PasteSpecial xlPasteValues
J = J + 1
End If
Next
End Sub
Display More