Ok, I have been at this for awhile, with no knowledge of VB at all, what I am
trying to do is copy all the rows on a sheet to the appropriate named sheet
using the B column as the reference to the sheet name. I have the code
working to where i dont get errors now, but its not working as intended. i
dont get any errors.. but its not moving all the data, only some of it, the
names are correct, it just dosn't move them. For example, it skips everything
that goes to the "BOB" sheet, even though there is plenty of things that
match that criteria, but the "RES" sheet has everythign moved over to it just
fine.. its being selective..any help would be great here is the code i have
that produces no errors
Sub CopyToSheets()
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
Bookmarks