I cleaned up your code somewhat. Without seeing the file, hard to say but
maybe the on error will do. Hope this helps
Sub Macro3()
Dim lr As Long
‘added
On Error Resume Next
‘========
'suggest adding
lr = Cells(Rows.Count, 1).End(xlUp).Row
'then use Range("$A$1:$X$" & lr)for all
‘=======
With Range("$A$1:$X$15000")
.AutoFilter
.AutoFilter Field:=2, Criteria1:="<>"
Columns("B").ClearContents
.AutoFilter
Range("B2:B15000").formula = "=VLOOKUP(A2,Processed!A:C,3,FALSE)"
‘strongly suggest
‘Range("B2:B"& lr).formula = "=VLOOKUP(A2,Processed!A:C,3,FALSE)" ’do NOT use
entire column a1:c????
.AutoFilter Field:=2, Criteria1:="#N/A"
Range(Range("b2"), Range("b2").End(xlDown)).ClearContents
.AutoFilter
'If Range("B2").Value Is Not Null Then
.AutoFilter Field:=2, Criteria1:="<>", Operator:=xlFilterValues
.AutoFilter Field:=18, Operator:=xlFilterValues, Criteria2:=Array(2,
"12/30/2011")
Range("B2:B15000").ClearContents
.AutoFilter
.AutoFilter Field:=2, Criteria1:="<>", Operator:=xlFilterValues
Cells.Copy Sheets("Validation Not Done").Range("a1")
.AutoFilter
End With
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
From: nitin arora
Sent: Wednesday, January 04, 2012 7:19 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Fwd: V lookup using macros
Hi Noorain,
I am extremely sorry for the mistake. However all the files that I have are of
more than 4 mb in size and gmail is not allowing me to send more than 4 mb of
data. I am pasting the codes for macro 3 used in the sheet . Please let me know
if there is any other way by which i can upload the file in the group. Many
Thanks.
This macro compares Transaction ID's in Sheet 1 with transaction ID's in
Processed sheet and inserts researcher NAmes wherever the Transaction ID's
match. Nest it deletes all the "N/A" in Researcher name column and then selects
a filter for the date (mostly yesterday's date- added manually in Macro 3). if
it finds that date which is manually added then it works fine but if it does
not finds a date then it stops. I want a solution for this problem only that it
should still continue even if it does not find a date and should move to next
macro.
Codes:
Sub Macro3()
'
' Macro3 Macro
'
ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$X$15000").AutoFilter Field:=2, Criteria1:="<>"
Columns("B:B").Select
Selection.ClearContents
Range("C5").Select
ActiveSheet.ShowAllData
' Range("B2").Select
'ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Processed!C[-1]:C,2,FALSE)"
'Selection.AutoFill Destination:=Range("B2:B15000")
Range("B2:B15000").Select
Range("B2").Value = "=VLOOKUP(A2,Processed!A:C,3,FALSE)"
Selection.FillDown
ActiveSheet.Range("$A$1:$V$15000").AutoFilter Field:=2, Criteria1:="#N/A"
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveSheet.ShowAllData
'If Range("B2").Value Is Not Null Then
ActiveSheet.Range("$A$1:$X$15000").AutoFilter Field:=2, Criteria1:="<>",
Operator:=xlFilterValues
'ActiveWindow.ScrollColumn = 2
'ActiveWindow.ScrollColumn = 3
'ActiveWindow.ScrollColumn = 4
' ActiveWindow.ScrollColumn = 5
' ActiveWindow.ScrollColumn = 6
'ActiveWindow.ScrollColumn = 7
ActiveSheet.Range("$A$1:$X$15000").AutoFilter Field:=18, Operator:= _
xlFilterValues, Criteria2:=Array(2, "12/30/2011")
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B2:B15000").Select
Selection.ClearContents
'Range("C269").Select
ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$X$15000").AutoFilter Field:=2, Criteria1:="<>",
Operator:=xlFilterValues
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Cells.Select
Selection.Copy
Sheets("Validation Not Done").Select
'Sheets("Sheet1").Name = "Validation Not Done"
Cells.Select
ActiveSheet.Paste
End Sub
On Wed, Jan 4, 2012 at 4:48 PM, NOORAIN ANSARI <noorain.ans...@gmail.com> wrote:
Dear Nitin,
Attached File is in protected mod, we are unable to view Macro 3
On Wed, Jan 4, 2012 at 11:00 AM, nitin arora <nitinaror...@gmail.com> wrote:
Hi,
I am facing a problem with Macro 3 in the sheets attached. At times the
macro woks fine and at times it does not. The reason for the same is that when
it does not find the date mentioned in Macro 3 it does not works fine. I was
wondering if there is any way that the macro asks for a date to compare and if
it does not finds that date then it should skip the step and proceed to next
macro in call all macro.
If you look at the sheet attached macro was unable to find date "1/3/2012"
against researcher name.
relevant extract:
Jan 4 file:
ActiveSheet.Range("$A$1:$X$15000").AutoFilter Field:=18, Operator:= _
xlFilterValues, Criteria2:=Array(2, "1/3/2012")
Please let me know if you want any further details. It would be great help
if I can get the solution for the same.
Regards,
Nitin Arora
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
Thanks & regards,
Noorain Ansari
http://excelmacroworld.blogspot.com/
http://noorain-ansari.blogspot.com/
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
