one last macro question

G

Guest

ok, so this macro is working great..

Sub CopyToSheetz()

Dim rng As Range
Dim oCell As Range

Set rng = Range("B4:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For Each oCell In rng
oCell.EntireRow.Copy _
Destination:=Sheets(oCell.Value).Range("A65536").End(xlUp).Offset(1,
0)
Next oCell


End Sub
-----

except, i have this formula in my B column

=IF(A4="","",IF(ISERROR(VLOOKUP(A4,'Names
List'!$A$5:$E$5000,2,FALSE)),"NA",VLOOKUP(A4,'Names
List'!$A$5:$E$5000,2,FALSE)))

so when the macro gets to the lines that have the "" in it, i get a syntax
error. Can someone help me get around this? I dont need these lines copied, I
just wanetd to get rid of the #N/A if A is blank.
Any help would be great..

Thanks!
 
G

Guest

For Each oCell In rng
If oCell.Offset(0-1)<>"" Then
oCell.EntireRow.Copy _
Destination:=Sheets(oCell.Value).Range("A65536").End(xlUp).Offset(1,
0)
end if
Next oCell
 
G

GaryDK

If you're just concerned with blank cells, try wrapping your copy
statement in -

If Len(ActiveCell.Value) > 0 Then
End If

Gary
 
T

Tom Ogilvy

Sub Macro1()
Dim rng as Range
Dim rng1 as Range
With Activesheet
set rng = .Range(.Range("B4"), _
.Range("B65536").End(xlup))
End With
for each cell in rng
set rng1 = Nothing
On error resume next
set rng1 = worksheets(cell.value). _
cells(rows.count,1).end(xlup)(2)
On error goto o
if rng1 is nothing then
cell.EntireRow.copy Destination:= _
rng1
Next
Application.CutCopyMode = False
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top