AutoFit | simple utility that generates Refit interfaces | REST library

I have this code and i find myself creating 12 times and modules since I have 12 different colleges, each with a unique names.

I would like to make a bit more dynamic, so when I press a specific textbox (I use textbox's and bind to macros instead of buttons) the code captures that and as in Criteria, have tired to use Shapes.Range(Array("DS")).Select but cant figure out how to include that within the Criterial.

Atm I have made 12 modules and within each below code, changed Criteria:= and each macro is bound to each button, but I think it should be possible to have one code, 12 boxes and depending on which box with what name (I have named them all) the code should do the sorting and the filtering.

I do appreciate your guys help and sorry for being so beginner at this..

If anyone wonders what this workbook dose (I have a lot of modules and macros running ofc for different functions) is, importing data, format it, deleting and cleaning a lot of stuff, then making a dynamic table since the source data can vary for day to day, and then based on filtering on colleges, export as a none vba/macro file (I generate a new sheet with the info I want, export that, save that) then mail it out, delete the sheet, clean everything (my woorkbook).

The code takes my current workbook's data, creates a new workbook for each unique item from Column AF, and pulls all row data for that unique value.

I also need to rename the new workbook sheet based on Column AG. I can rename the worksheet based on the unique value located in AF because I have this list stored as an Object variant but have been unable to rename the sheet correctly.

The rename was originally set to xNSht.Name = ky.

I tried:

I would like to produce a table in flextable that groups together certain rows

For example using the data:

I'm quite new to VBA, and I'm trying to calculate the values before/equal to the end date requested to the user, but can't seem to figure it out.

my goal is to process each existing row and return the sum on that specific row in column N:N.

so if the user says end date is 21/03 the total value for 2nd row should be 18 and 3rd row 60.

The code should summarize the values corresponding to each A:A column existing cells row. I mean, for the third row, the data will be summarized from the third row bellow the one keeping the reference dates.

Here is my code so far:

I have a data field that is on the worksheet as a custom number format

geo: [![![data column example][1]][1]

sum:[![![data column example][2]][2]

I am taking that field and comparing it to wo other fields on another worksheet to determine if this one is in between those. So I've got the below code that uses variants for the arrays and splits along spaces. I think the best way is to use the datevalue and timevalue functions with inequalities, both of which take strings. any ideas why I'm getting a type mismatch error at the split?

UPDATE: Based on the #### comment, and the column reference mistake, I autosized the dateTime co and changed my column references. Now my sumfull string gets the text of the column. I am still getting a type match error on the next line. I've updated the code below. The code breaks at sumsplit = Split(sumfull, " ") with a Type mismatch error. The contents of .Cells(i.row, 4).text is "01/23/2022 18:53". This is also the value of sumfill when it breaks.

I posted a question similar to this in the past however a different issue has presented itself.

Original Post found here.

How existing code works: It creates a new workbook for each unique value, and its duplicates, in column A with all of the associated row data.

The code works perfectly for what I need it to do except when I try to use it on a table range. After some research I realize all of my references are incorrect to be able to do this on a table. I am studying how to do this to resolve my issue long term.

As an short term alternative, I have been looking at how to convert each new workbook range into a table but cannot figure out how to plug this into my existing code. The below sample is where I imagine it should go however I cannot get my head around how to add the command when looking at other examples I have come across in my research.

I have an Excel worksheet called "Main" which includes a set amount of columns, one of which contains a listing of different codes (CVE's) regarding patches that need to be installed on worksheets based on criteria from the internet.

The codes to search for are not in a set format, other than being in strings containing the code.

I manually created a number of worksheets based on keywords in these strings, that will eventually, contain all the lines from the master sheet, but only those defined by the name of the keyword I want.

For example, I have a worksheet named "Microsoft" that should contain all the rows from the master sheet that refer to Microsoft CVE's, based on a search of the string and finding the word "Microsoft". Same for Adobe and so on.

I created a script to copy the rows, as well as create a new Index sheet that lists the amount of rows found for each keyword that have been copied from the master sheet to the relevant sheet.

And this is where I get lost.

I have 18 worksheets which are also keywords. I can define a single keyword and then copy everything over from the main worksheet for one keyword.

I need a loop (probably a loop within a loop) that reads the worksheet names as defined in the Index, searches for all the relevant rows that contain a CVE regarding that keyword, and then copy the row over to the relevant worksheet that I created into the relevant row on that worksheet.
For example, if I have copied two rows, the next one should be written to the next row and so on, until I have looped through all the worksheet (keyword) names and have reached the empty row after the last name in the Index sheet.

My code, set for only one keyword for a limited run to test works.
I need to loop through all the keywords and copy all the data.
In the end, I want to copy the relevant row from the master worksheet (Main) to the relevant worksheet (based on keyword worksheet name in the Index worksheet), and delete the row after it was copied from the master worksheet.
I should end up with all the data split into the relevant worksheets and an empty (except for headers) master worksheet.

This is what I have so far (from various examples and my own stuff).

I am trying to use flextable to produce a table with ggplots inside cells using gg_chunk() however I keep getting an error: Error in dots[[1L]][[1L]] : object of type 'closure' is not subsettable even if I try to run the code from rmarkdown using an officeodown template.

This is the code I am using:

On the below code, I need to Autofit range then set RowHeight for that range to be not less than 40.
The line code of Autofit r.EntireRow.AutoFit has no effect at all even after I commented RowHeight code.
On contrary, RowHeight code works.
In advance, grateful for all useful comment and answer.