I have a very long list of game titles in column A. (alphabetized). I need to find specific titles contained in col. A (e.g. Alien Isolation), then move the cursor over by 3 columns and typed the word "DLC" in column D.
This would be a very simple exercise if there was only 1 title to find. I have about 40. Here are the first 3 titles to start.
Alien Isolation
Antstream_Arcade
BioShock Infinite
I've googled my way around and found some examples that's close... but nothing has worked so far. I'm a complete VBA novice so I'm definitely fumbling here.
This would be a very simple exercise if there was only 1 title to find. I have about 40. Here are the first 3 titles to start.
Alien Isolation
Antstream_Arcade
BioShock Infinite
I've googled my way around and found some examples that's close... but nothing has worked so far. I'm a complete VBA novice so I'm definitely fumbling here.
VBA Code:
Sub EGS_Test()
Dim c As Range
With Worksheet("Titles With Library").Range("A1:A2500")
Set c = .Find("Alien Isolation", LookIn:=xlValues, LookAt:=xlPart, SearchDirection:=xlNext)
ActiveCell.Offset(0, 3).Range("A1").FormulaR1C1 = "DLC"
Set c = .Find("Antstream Arcade", LookIn:=xlValues, LookAt:=xlPart, SearchDirection:=xlNext)
ActiveCell.Offset(0, 3).Range("A1").FormulaR1C1 = "DLC"
Set c = .Find("BioShock Infinite", LookIn:=xlValues, LookAt:=xlPart, SearchDirection:=xlNext)
ActiveCell.Offset(0, 3).Range("A1").FormulaR1C1 = "DLC"
End With
End Sub