F
Frank Situmorang
Hello,
This is my VBA to filter data from one sheet and copy to another sheet. The
intention is to filter Job No in Sheet "Data", and will be copy the filterred
one into Sheet "JobNo.". But if the Job number M type in the filter criteria
it will show all the Job code starting with M. My question how can I make
only Job M shows up, because Job M is the job which has not been distributed
yet to actual Job. No. And we need them to be reminded to the project Mnager.
Should we Dim something as bolean or something like that?
These are my VBA's
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 4 Then
'calculate criteria cell in case calculation mode is manual
Sheets("data").Range("Criteria2").Calculate
Worksheets("data").Range("database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("data").Range("criteria2"), _
CopyToRange:=Range("B10:v10"), Unique:=False
End If
End Sub
I appreciate any idea provided.
Frank
This is my VBA to filter data from one sheet and copy to another sheet. The
intention is to filter Job No in Sheet "Data", and will be copy the filterred
one into Sheet "JobNo.". But if the Job number M type in the filter criteria
it will show all the Job code starting with M. My question how can I make
only Job M shows up, because Job M is the job which has not been distributed
yet to actual Job. No. And we need them to be reminded to the project Mnager.
Should we Dim something as bolean or something like that?
These are my VBA's
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 4 Then
'calculate criteria cell in case calculation mode is manual
Sheets("data").Range("Criteria2").Calculate
Worksheets("data").Range("database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("data").Range("criteria2"), _
CopyToRange:=Range("B10:v10"), Unique:=False
End If
End Sub
I appreciate any idea provided.
Frank