You might want to try "case" see the code below.
Sub find_instence()
Range("D1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Name = "myRange"
For i = 2 To Range("myRange").Rows.Count + 1
mycase = ActiveCell.Value
Select Case mycase
Case "Forced Door"
Case...
I have been trying to find a way to move files automatically. The files have a unique key and would need to move to a folder on another drive with the same unique key and if the folder does not exist then creat an folder and loop back tomove the file. I can get the file names into Excel and...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.