I seem to be having issues with this bit of code.
I have used vba to split a paragraph and populate a column with the substrings.
I have five comboboxes on a userform which reference this range.
What I am trying to do is filter out each of the choices from the successive comboboxes by copying the range to the next coluimn,removing the selected word from "Data" "AA1" then removing the blank cell to then copy the list to the next column to continue the same.
I receive object and range defined errors as well as another issue if the first word in the list is selected it will not xlUp.
I even tried moving it to another module.
Can anyone help?
I have used vba to split a paragraph and populate a column with the substrings.
I have five comboboxes on a userform which reference this range.
What I am trying to do is filter out each of the choices from the successive comboboxes by copying the range to the next coluimn,removing the selected word from "Data" "AA1" then removing the blank cell to then copy the list to the next column to continue the same.
I receive object and range defined errors as well as another issue if the first word in the list is selected it will not xlUp.
I even tried moving it to another module.
Can anyone help?
Code:
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Master").Activate
Worksheets("Master").Range("A1").Select
Worksheets("Master").Range(Selection, Selection.End(xlUp)).Copy
Worksheets("Master").Range("B1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Selection.Find(What:=Worksheets("Data").Range("AA1").Text, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Delete Shift:=xlShiftUp
Application.ScreenUpdating = True