|Well, I was looking to actually use two separate buttons, one for each function. Here is the code that I was using for deleting the information, but I can only get it to work on one worksheet / tab at a time.|
' Set Word As String
Dim word As Variant
' Set static column to search word string from
Col = "B"
word = InputBox("What is the word whose rows you want to delete?")
On Error Resume Next
.Replace word, "#N/A", xlWhole
' .Replace word, "#N/A", xlWhole
' End With
This sub routine works fine, but only on the first tab named "Names". I tried to duplicate the commands to make it move to a second tab called "Dep" and perform the same actions. It will move to the second tab, but not delete anything.
I thought perhaps the word string was being forgotten so I added the word1 = word. Don't know if that worked or not.
The entire idea came from the default dataform in excel, but I can't see the script behind that form, and as far as I can tell, it only works on the tab that you have active...
In the data entry form that I have built, it allows me to enter a great deal of data on one person then places that data in the appropriate tabs in the respective data columns. Can the find next command be used with the entirerow.delete command when it spans most/all tabs in a workbook?