Still vague so without the requested good enough description the better is to attach a workbook with the exact expected results
according to all different cases you have met using manually the website.
Once done I will write only a single procedure, the one without a key, working only under...
How many rows to check ?
As since the second row to check there must be one minute delay
so for 10 rows that should need around 10 minutes to complete, thus freezing Excel during the execution !
For 100 rows then more than 1h40min ‼
As any Excel forum is not for mind readers then we won't guess...
Hi ! @rollis13 : for the fun a demonstration deleting worksheets at once, to better paste to ThisWorkbook module :
Sub Demo1()
Const C = "¤"
Dim Ws As Worksheet, S$
For Each Ws In Worksheets
If IsEmpty(Ws.[A2]) Then S = S & String(-(S > ""), C) & Ws.Name
Next...
Hello, I've done the same for around 5 millions rows with few columns under VBA - not this forum section - within a single worksheet,
just leaving two blank columns between the data once filled the last worksheet row.
But once done the guy was lost, how to manage the data, and so on … Just...
So why not just well explaining your need with a well reflecting attachment rather than letting helpers to guess ?!
Printing on a form can use a standard Excel columnar format without any concatenation …
Anyway, according to your initial post attachment my VBA revamped demonstration which first...
Rather than using sheets "1" to "12" why not just generating sheets according to therapists' names ?
And do you really need this weird concatenation instead of the Excel usual columns layout ?
Hi, with such guessing challenge - which has no place in any Excel forum ! - you should create your thread at least
two weeks before the deadline, here maybe a month 'cause of the missing workbook attachment !
When I read your initial post I prefered to directly move to the next unread thread...
Only Part Number should be necessary with a hyperlink and
in case of any formula within column B another VBA demonstration (v2) to better paste to ThisWorkbook module :
Sub Demo2()
Const M = "Missing Location"
Dim R&, Ws As Worksheet, V, S$
R = 1
Application.ScreenUpdating...
As I wrote « according to your initial post attachment » … So weird your attachment does not well reflect the real data !
With a formula the cell can't be empty so in this case stay with p45cal slower way (or post #14 Demo2).
But the destination is still missing ! (text file, screen, worksheet, …)
Anyway following p45cal sample according to your initial post attachment a VBA demonstration to better paste to ThisWorkbook module :
Sub Demo1()
Const B = "Blanks"
Dim R&, Ws As Worksheet, Rc As Range
R = 1...
Hi, you should detail your 'return the value from column A' with a better explanation
so with nothing to guess and to raise your chances with a before / after workbook sample …
Thanks again. This is as simple as following Excel logic :
why not just using the Excel sort feature rather than reinventing the wheel with the risk of a square one …
I have no platform, just a kid who turned nut his mother during a Covid19 lockdown
so I started to give him some pure logic...
Hi, according to your attachment a non CF counting color function :
Function CountColor&(Rg As Range, Rc As Range)
For Each Rg In Rg: CountColor = CountColor - (Rg.Interior.Color = Rc.Interior.Color): Next
End Function
Do you like it ? So thanks to click on bottom right Like !
As I was in a hurry yesterday I forgot a crucial point if …
The kid Excel beginner who solved my training based on this thread assumed the data is always ascending sorted on Level column.
But if it's not always the case, like after running the VBA procedure, if a level #1 is after row #192 his...
You should loose less time just asking first for the Excel version
than thinking / sharing a solution which can't work on an elder version …
Not my cup of tea to be contradictory, the forum works, so not a major concern again,
but yes that should add some comfort if well used …
Thanks. As a reminder my demonstration just reproduces what any Excel user - even a beginner - can operate manually !
TEBV rule aka Think Excel Before VBA …
According to your workbook attachment the 4 steps Excel basics VBA demonstration sorting the active worksheet :
Sub Demo1()
With [A1].CurrentRegion.Columns
.Item(.Count + 1).Formula = "=IF(ISBLANK(B1),CHAR(63+ROW()),VLOOKUP(B1,C$1:" & .Cells(1, .Count + 1).Address(0) & _...