Edit. Part of my idea did not work, so I will start again in the next thread
Originally Posted by
DocAElstein
From Wednesday 10 September until Sunday 14 September there was an insane number of Unknown Location s
.....
.....
From Wednesday 10 September until Sunday 14 September there was an insane number of
Unknown Locations seen in
UnknownLocations worksheet of file,
https://i.postimg.cc/k47Cj883/Insane...-September.jpg
……
…………
, - - - Time to do a quick macro to get an ordered list of those IPs getting "lost" in
Unknown Location - - -
So, …. way back, at about a third the way into September, the UnknownLocations were at a level probably not seen before , or t least I had not noticed …
So I want a quick way of getting the ordered list of what fucking bots I managed to get fucked into a hole. Then I can decide whether to fuck them, or train them into my Beast of Burden, ( then I can eat them, or fuck them, or both, as it suits me)
OK, here we go, after a kip and thinking about it… I think a Clipboard solution could be neat…
Now,
This is what we start with
(It is worksheet UnknownLocations in th "Dailys" file SummaryRequestsIPsDailys.xlsm )
https://i.postimg.cc/wxfpQXCP/Unknow...ailys-File.jpg
_ There could be a trend in some or all rows, or one or more high viewed Unknown Location , or some combination. In other words I might want to look at a row or a few of rows together/ consolidated…
Now, hold on to your Butts, because here is an idea. It comes about from a not so well known "multi in Line cell selection copy phenomena"
The more general Multi-Cell Selection possibility itself is not so well known, (perhaps as the use of it without VBA is limited).
I can for example select a cell, then hold down the Ctrl key and select randomly a few more. I end up then with them all selected! ( You can prove that by trying it and then taking a look at what you get returned in VBA for a command like
Selection.Cells.Count )
If you were to then try to Copy that, ( to put the cells in the clipboard for example ) , you would usually get an error.
For example, the next screenshot shows what happened after I followed the procedure for multi selecting 3 cells. I tried to copy, but got the error shown
https://i.postimg.cc/yYZhsHzP/Multi-...Copy-Error.jpg
Now try a similar thing again, but make sure all cells selected are "in line"… You should find that it appears to have worked. Here an example as I selected a couple of cells on the typical third column of a set of results. Those two cells contain some IP addresses
https://i.postimg.cc/K8LR1G9t/Multi-...Copy-works.jpg
It appears to have worked, I have something in the clipboard, :-) – I am hoping it is in the windows clipboard in a form I can easily manipulate, - a quick look at the Office Clipboard monitor gives an indication it might be as I am wanting, (and expecting**)
https://i.postimg.cc/Y9sxjMRK/Office...rd-Monitor.jpg
I have something in the clipboard, :-) – I think I know what, I think I know what for two reasons:
_ I am a bit clued up on things clipboard; and
_ **I wrote the God dammed Mother-Fucker code that put the things in the cells in the bloody first place, and I am not so senile yet that I forgot. In particular I included a vbCr & vbLf to separate IP addresses with some coding of this form.
( From coding Sub GetRefreshesIPAddressWatchingThingsAtExcelFox() in worksheet Requests code module of file IPAddressesWatchingExcelFox_Refresh.xls )
Code:
Else
Let rngReqErrIn = Request
Let rngReqErrIn.Offset(0, -1) = rngReqErrIn.Offset(0, -1).Value + 1
Let rngReqErrIn.Offset(0, 1) = rngReqErrIn.Offset(0, 1).Value & vbCr & vbLf & " " & IPAddress
End If
End If ' Finished with problem requests here
I think that vbCr & vbLf could be very useful, ( to a certain extent it was luck I decided to have vbCr & vbLf as part of the separator)
I am sure it is there
Never the less, a quick check won't hurt
A coding like this will get me some results in different forms, from using my function WtchaGot_Unic_NotMuchIfYaChoppedItOff(___
Code:
Sub QuickWotchaGot2()
Rem 1 Get text from clipboard
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' http://web.archive.org/web/20200124185244/http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/ ' https://www.eileenslounge.com/viewtopic.php?f=27&t=39784
Dim StringBack As String ' This is for the entire text held in the windows clipboard after a Ctrl+c
.GetFromClipboard: Let StringBack = .GetText()
End With
Rem 3 WachaGot
Call WtchaGot_Unic_NotMuchIfYaChoppedItOff(StringBack)
End Sub
https://i.postimg.cc/25HN29rV/Quick-Wtcha-Got2.jpg
Stop
Fuck, my idea did not work….
See here
I will keep the thread for some possible reference later but will start again in the next thread
Posting Permissions
Reply With Quote
Bookmarks