All of that was pasted as Transposed from cell range B10:G153.
From J6 to ET6 are the Article#s from 141 down to 1 (most recent at far left, oldest at far right). From J4 to EW4 are the Article views and their Total. From J1 to ET1 are the Article Titles and in EU1 is Other - a reconciling account rarely used. In cell H1 is xxxxxxxxxxxxxxxxxx and I1 is blank.Set aCell = rng.Find(What:=StrFinder, LookIn:=xlValues, _.Set rng = Worksheets("Relateds").Range("Searcher").' Uses the Named Variable Range, "Searcher", on the worksheet "Relateds" as a Range Object.' and how many Articles the Columnar Article is a Related for.' There are both row totals and columnar totals to keep track of Total Relateds/Article.' indicating that that Columnar Article is a Related for the Row Article.' where User then Arrow keys down and inputs a 1,.' Finds a Related wikiHow String and goes to Article cell,.' and Views pasted AS TRANSPOSED from rows TO COLUMNS in row 1.' Searcher is a Defined Name Variable comprised of the Article Names.Windows("OVERALL STATUS.xlsm").Activate.
Here are two more macros that work together to update Related wikiHows:
You should have a list of articles something like this redacted image, probably without the colored background.MsgBox "Value Found in Cell " & aCell.Address.LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _.Set aCell = lastRow.Find(What:=StrFinder, LookIn:=xlValues, _.(Prompt:="Article Name or string to search for: ", _.Set lastRow = ActiveWorkbook.Sheets("Article Views and Other").Range("C17:C217").Set oSht = Sheets("Article Views and Other").' Finds an Article String, returns cell address and goes to Article cell.on your toolbar, choose Macros, Macros, and Run the following pasted-in REPLACE(d) ALL macro to test it. SearchFormat (Optional Variant): The search format.False to have double-byte characters match their single-byte equivalents. True to have double-byte characters match only double-byte characters. MatchByte (Optional Variant): Used only if you've selected or installed double-byte language support.MatchCase (Optional Variant): True to make the search case sensitive.SearchDirection: Can be one of these XlSearchDirection constants.SearchOrder (Optional Variant): Can be one of the following #** XlSearchOrder constants: xlByRows or xlBåolumns.LookAt (Optional Variant): Can be one of the following XlLookAt constants: xlWhole or xlPart.LookIn (Optional Variant): The type of information.After (Optional Variant): The cell after which you want the search to begin.What (Optional Variant): is the "Search value".So if we take an example then the range would be Range("A1:A" & lastRow) where lastRow has been DIMensioned as type long and there is a statement: lastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row (or something similar) preceding its use in the. Expression (Required): is any valid range Object.expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat).Learn the following key concepts of the FIND command: