Appendix Thread. App Index Rws() Clms() Majic code line Codings for other Threads, Tables etc) TEST COPY

Some further notes and information for this Thread:
http://www.excelfox.com/forum/showth...1476#post11476
http://www.excelfox.com/forum/showth...ulation-by-vba
https://www.mrexcel.com/forum/excel-...ation-vba.html
http://www.vbaexpress.com/forum/show...Formula-by-vba
https://www.excelforum.com/excel-pro...on-by-vba.html


There are many different was to achieve the same…
Some further notes on changes that can be made to Sub Vixer9a() from here: http://www.excelfox.com/forum/showth...ll=1#post11475

---

b) Rng.Value = Rng.Value

Excel VBA has been written such that applying .Value to a cell or cells has a similar effect to writing manually into a cell.

So if you do this:
Range("A1").Value = "X"
, it will write
X
in the first cell.
You will then see in the first cell this
X

If you do this:
Range("A1").Value = " = 1"
, it will write
= 1
in the first cell.
But, you will see in the first cell just the Value:
1

To explain:
The .Value Property of a range object , for example a single cell, is what we "see" in the cell. But if you apply .Value to a cell it will write into the cell as if you did it manually.

So, in your code you can replace this: …_

Code:

---

'3(iii) I need only result in the cell no formulas
 Ws1.Range("D2:D" & Lr1 & "").Copy
 Ws1.Range("D2:D" & Lr1 & "").PasteSpecial Paste:=xlPasteValues
 Let Application.CutCopyMode = False

---

_.. with this:

Code:

---

'3(iii) I need only result in the cell no formulas
 Let Ws1.Range("D2:D" & Lr1 & "").Value = Ws1.Range("D2:D" & Lr1 & "").Value

---

Code:

---

Sub Vixer9b() ' demo for  rng.Value = rng.Value
Rem 1 Workbook and worksheets info
'1a) Workbook info
' Dim Wbm As Workbook: Set Wbm = ThisWorkbook ' The workbook containing macro
Dim Wb1 As Workbook ' This will be set later when the workbook is opened
Dim MyPath As String: Let MyPath = "C:\Users\sk\Desktop" '  ".....The file will be located in C:\Users\sk\Desktop ....
Dim strWb1 As String: Let strWb1 = "sample.xlsx" '                                                          " ....and file name is sample.xlsx
'1b) Worksheets info
Dim Ws1 As Worksheet ' This will be set later when the workbook is opened)
Dim Lr1 As Long '      Let Lr1 = 10 for sample file  , but we will determine it dynamically after opening the file
Rem 2 Open file  "..... file is not opened so we have to open the file by vba
' Workbooks.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\vixer\sample.xlsx"
 Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strWb1  '  ...both files are located in same place
' Workbooks.Open Filename:=MyPath & "\" & strWb1              '  ...file will be located in C:\Users\sk\Desktop
 Set Wb1 = ActiveWorkbook ' The workbook just opened will now be the current active workbook
 Set Ws1 = Wb1.Worksheets.Item(1)

' make Lr1 dynamic .... http://www.excelfox.com/forum/showthread.php/2345-Appendix-Thread-(-Codes-for-other-Threads-HTML-Tables-etc-)?p=11474&viewfull=1#post11474
 Let Lr1 = Ws1.Range("C" & Ws1.Rows.Count).End(xlUp).Row
Rem 3 The Process ..."....
'3(i) ....Multiply the value of B2 by 1.5%, then multiply that result by 56 and then paste the result in D2.. formula will be added by me in the code, put that formula in
 Ws1.Range("D2").Value = "=B2*(1.5/100)*56"
'3(ii) ....drag it
 Ws1.Range("D2").AutoFill Destination:=Ws1.Range("D2:D" & Lr1 & ""), Type:=xlFillDefault
'3(iii) I need only result in the cell no formulas
 Let Ws1.Range("D2:D" & Lr1 & "").Value = Ws1.Range("D2:D" & Lr1 & "").Value
Rem 4 save it and close it
 Wb1.Save
 Wb1.Close
End Sub

---

---

_c) Apply "fixed vector"** form across a range

I can apply the formula in its "fixed vector"** form across a range. In other words I can apply the same formula in its fixed vector form across a range. Applying the same fixed vector formula across a range will make any referred to cells change the shown formula appropriately to apply to the different cells

** In simplified terms, "fixed vector", means notation without the $. So..
A1 is "fixed vector"
$A$1 is absolute referencing

So we can replace this:

Code:

---

'3(i) ....Multiply the value of B2 by 1.5%, then multiply that result by 56 and then paste the result in D2.. formula will be added by me in the code, put that formula in
 Ws1.Range("D2").Value = "=B2*(1.5/100)*56"
'3(ii) ....drag it
 Ws1.Range("D2").AutoFill Destination:=Ws1.Range("D2:D" & Lr1 & ""), Type:=xlFillDefault

---

With this:

Code:

---

'3(i)(ii) ....Multiply the value of B2 by 1.5%, then multiply that result by 56 and then paste the result in D2..  ....drag it formula will be added by me in the code, put that formula in
 Ws1.Range("D2:D" & Lr1 & "").Value = "=B2*(1.5/100)*56"

---

Code:

---

Sub Vixer9c() ' demo for  fixed vector applied across a range
Rem 1 Workbook and worksheets info
'1a) Workbook info
' Dim Wbm As Workbook: Set Wbm = ThisWorkbook ' The workbook containing macro
Dim Wb1 As Workbook ' This will be set later when the workbook is opened
Dim MyPath As String: Let MyPath = "C:\Users\sk\Desktop" '  ".....The file will be located in C:\Users\sk\Desktop ....
Dim strWb1 As String: Let strWb1 = "sample.xlsx" '                                                          " ....and file name is sample.xlsx
'1b) Worksheets info
Dim Ws1 As Worksheet ' This will be set later when the workbook is opened)
Dim Lr1 As Long '      Let Lr1 = 10 for sample file  , but we will determine it dynamically after opening the file
Rem 2 Open file  "..... file is not opened so we have to open the file by vba
' Workbooks.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\vixer\sample.xlsx"
 Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strWb1  '  ...both files are located in same place
' Workbooks.Open Filename:=MyPath & "\" & strWb1              '  ...file will be located in C:\Users\sk\Desktop
 Set Wb1 = ActiveWorkbook ' The workbook just opened will now be the current active workbook
 Set Ws1 = Wb1.Worksheets.Item(1)

' make Lr1 dynamic .... http://www.excelfox.com/forum/showthread.php/2345-Appendix-Thread-(-Codes-for-other-Threads-HTML-Tables-etc-)?p=11474&viewfull=1#post11474
 Let Lr1 = Ws1.Range("C" & Ws1.Rows.Count).End(xlUp).Row
Rem 3 The Process ..."....
'3(i)(ii) ....Multiply the value of B2 by 1.5%, then multiply that result by 56 and then paste the result in D2..  ....drag it formula will be added by me in the code, put that formula in
 Ws1.Range("D2:D" & Lr1 & "").Value = "=B2*(1.5/100)*56"
'3(iii) I need only result in the cell no formulas
 Let Ws1.Range("D2:D" & Lr1 & "").Value = Ws1.Range("D2:D" & Lr1 & "").Value
Rem 4 save it and close it
 Wb1.Save
 Wb1.Close
End Sub

---

---

_d) Internal calculation with VBA arrays
We do not need to put formulas into any cells.
We can do the calculations internally, within coding, and then paste all the values out in one go.
Using VBA arrays is a convenient way to do this.

_a) First we bring all the data into an array.
_b) Then we do the calculations
_c) Finally we paste out all the calculated values in one go

We can replace all of Rem3 with new coding
Rem 3 The Process .. using VBA arrays
'3_a) First we bring all the data into an array.
'3_b) Now we do the calculations
'3_c) Finally we paste out all the calculated values in one go

Code:

---

Rem 3 The Process ...using VBA arrays
'3_a) First we bring all the data into an array. (We also take in the column D values, even if the column D is empty)
Dim arrDta() As Variant
 Let arrDta() = Ws1.Range("A1:D" & Lr1 & "").Value
'3_b) Now we do the calculations looping through the row data held internally in the data array, arrDta()
Dim Cnt As Long
    For Cnt = 2 To Lr1
    Let arrDta(Cnt, 4) = arrDta(Cnt, 2) * (1.5 / 100) * 56 ' .. like.. column "D" = column "B" * (1.5/100) * 56
    Next Cnt
'3_c) Finally we paste out all the calculated values ( and also the original data )  in one go
 Ws1.Range("A1:D" & Lr1 & "").Value = arrDta()

---

Code:

---

Sub Vixer9d() ' demo using VBA arrays
Rem 1 Workbook and worksheets info
'1a) Workbook info
' Dim Wbm As Workbook: Set Wbm = ThisWorkbook ' The workbook containing macro
Dim Wb1 As Workbook ' This will be set later when the workbook is opened
Dim MyPath As String: Let MyPath = "C:\Users\sk\Desktop" '  ".....The file will be located in C:\Users\sk\Desktop ....
Dim strWb1 As String: Let strWb1 = "sample.xlsx" '                                                          " ....and file name is sample.xlsx
'1b) Worksheets info
Dim Ws1 As Worksheet ' This will be set later when the workbook is opened)
Dim Lr1 As Long '      Let Lr1 = 10 for sample file  , but we will determine it dynamically after opening the file
Rem 2 Open file  "..... file is not opened so we have to open the file by vba
' Workbooks.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\vixer\sample.xlsx"
 Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strWb1  '  ...both files are located in same place
' Workbooks.Open Filename:=MyPath & "\" & strWb1              '  ...file will be located in C:\Users\sk\Desktop
 Set Wb1 = ActiveWorkbook ' The workbook just opened will now be the current active workbook
 Set Ws1 = Wb1.Worksheets.Item(1)

' make Lr1 dynamic .... http://www.excelfox.com/forum/showthread.php/2345-Appendix-Thread-(-Codes-for-other-Threads-HTML-Tables-etc-)?p=11474&viewfull=1#post11474
 Let Lr1 = Ws1.Range("C" & Ws1.Rows.Count).End(xlUp).Row
Rem 3 The Process ...using VBA arrays
'3_a) First we bring all the data into an array. (We also take in the column D values, even if the column D is empty)
Dim arrDta() As Variant
 Let arrDta() = Ws1.Range("A1:D" & Lr1 & "").Value
'3_b) Now we do the calculations looping through the row data held internally in the data array, arrDta()
Dim Cnt As Long
    For Cnt = 2 To Lr1
    Let arrDta(Cnt, 4) = arrDta(Cnt, 2) * (1.5 / 100) * 56 ' .. like.. column "D" = column "B" * (1.5/100) * 56
    Next Cnt
'3_c) Finally we paste out all the calculated values ( and also the original data )  in one go
 Ws1.Range("A1:D" & Lr1 & "").Value = arrDta()
Rem 4 save it and close it
 Wb1.Save
 Wb1.Close
End Sub

---

---

_e) Evaluate Range
see next post:

_e) Evaluate Range

It is possible to get array type calculations in Excel. Nobody fully understands this topic, and a lot of things are found by chance to work in a way such as to do array type calculations, or rather , array type results can be obtained.

Evaluate Range techniques often allow a looping process to be replaced ba a single line of code. Broadly this arises due to two things:
_1) Excel frequently updates all cells in a spreadsheet by going across the columns in a row , then down a row, then across the columns in the next row … etc.
Usually a user "using" a single cell is like when it selected, and/ or the carriage Return key is used, and so it appears to us as if the cell is Updated and displayed at one time. There are various ways to display more than one cell in a single spreadsheet update.
_2) In VBA there is an Evaluate Method ( https://docs.microsoft.com/en-us/off...ation.evaluate ). In simplified terms, this allows calculation within VBA as if the calculations were written and done in a spreadsheet.

It is possible sometimes to get the Evaluate function to return an array representing the calculations across a range
There is no clear documentation on any of the array type things discussed in this post, and it is often suggested that getting array results in any form in Excel has occurred by chance and no one understands fully what is going on.


As an example, considering the last macro which looped to produce an array based on doing these calculations of this form, from down rows of 2 to Lr1
B2*(1.5/100)*56
B3*(1.5/100)*56
B4*(1.5/100)*56
_…. etc.

We find that Rem 3 from the last macro, Sub Vixer9d() , can be replaced by

Code:

---

Rem 3 The Process ...  using Evaluate Range
 Ws1.Range("D2:D" & Lr1 & "").Value = Ws1.Evaluate("=" & Range("B2:B" & Lr1 & "").Address & "*(1.5/100)*56")

---

The purpose of ("=" & Range("B2:B" & Lr1 & "") is to give us the formula form of like
=B2:B10
Hence the Range used does not need to be Qualified, such as by a worksheet, like in Ws1.Range
( There is an alternative form of Evaluate(" __ ") , which is often referred to as the "shorthand form" of Evaluate(" __ ") . It looks like this _ [ ___ ] _ . So you may now see what Mark L was suggesting here: https://www.excelforum.com/excel-pro...ml#post5190685 )

It is , however , important to qualify Evaluate. this is because we want to do an evaluation as if the formula within Evaluate(" ___ ") , was in the cell in worksheet, Ws1. If we omit the qualifying _ Ws1. _ , before the Evaluate , then we may do an evaluation of the formula in a different worksheet.

Code:

---

Sub Vixer9e() ' demo  for  Evaluate Range
Rem 1 Workbook and worksheets info
'1a) Workbook info
' Dim Wbm As Workbook: Set Wbm = ThisWorkbook ' The workbook containing macro
Dim Wb1 As Workbook ' This will be set later when the workbook is opened
Dim MyPath As String: Let MyPath = "C:\Users\sk\Desktop" '  ".....The file will be located in C:\Users\sk\Desktop ....
Dim strWb1 As String: Let strWb1 = "sample.xlsx" '                                                          " ....and file name is sample.xlsx
'1b) Worksheets info
Dim Ws1 As Worksheet ' This will be set later when the workbook is opened)
Dim Lr1 As Long '      Let Lr1 = 10 for sample file  , but we will determine it dynamically after opening the file
Rem 2 Open file  "..... file is not opened so we have to open the file by vba
' Workbooks.Open Filename:="F:\Excel0202015Jan2016\ExcelFox\vixer\sample.xlsx"
 Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strWb1  '  ...both files are located in same place
' Workbooks.Open Filename:=MyPath & "\" & strWb1              '  ...file will be located in C:\Users\sk\Desktop
 Set Wb1 = ActiveWorkbook ' The workbook just opened will now be the current active workbook
 Set Ws1 = Wb1.Worksheets.Item(1)

' make Lr1 dynamic .... http://www.excelfox.com/forum/showthread.php/2345-Appendix-Thread-(-Codes-for-other-Threads-HTML-Tables-etc-)?p=11474&viewfull=1#post11474
 Let Lr1 = Ws1.Range("C" & Ws1.Rows.Count).End(xlUp).Row
Rem 3 The Process ...  using Evaluate Range
 Ws1.Range("D2:D" & Lr1 & "").Value = Ws1.Evaluate("=" & Range("B2:B" & Lr1 & "").Address & "*(1.5/100)*56")
Rem 4 save it and close it
 Wb1.Save
 Wb1.Close
End Sub

---

---

Using Evaluate often results in a much shorter coding.

For example, taking Sub Vixer9e() , and making a few other simplifications we can come up with a much shorter coding.

Code:

---

Sub Vixer9f() ' simplified coding ( using Range Evaluate )
 Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "sample.xlsx"  '  ...both files are located in same place
Rem 3 The Process ...  using Evaluate Range
 ActiveSheet.Range("D2:D" & ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row & "").Value = ActiveSheet.Evaluate("=" & Range("B2:B" & ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row & "").Address & "*(1.5/100)*56")
Rem 4 save it and close it
 ActiveWorkbook.Close savechanges:=True
End Sub

---

I personally do not like such coding because
_(i) They are more difficult to understand, especially at a later date,
_(ii) They are less flexible for adjustment.
_(iii) There may be some missing detail which might cause the coding to fail sometimes in certain circumstances

in support of this post:
https://excel.tips.net/T001940_Hidin...ell_Value.html
https://excel.tips.net/T001940_Hiding_Rows_Based_on_a_Cell_Value.html


Hello Ryanne
Rather than modifying the coding, it would probably be easier to use a simple "events" type coding which automatically kicks in when a range value is changed in a worksheet. Something of this form:.

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
 Target.EntireRow.Hidden = True
End Sub


































'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
'End Sub

---

This coding will need to be in a worksheet code module.
Follow , for example these 6 steps to create such a coding:

_1) Right click on the tab of the worksheet of interest
_2) Select View Code
Worksheet code module via View Code after right click on tab.JPG : : https://imgur.com/ZiOuRVT
Attachment 2426

_3) Select the left side drop down list
_4) Select Worksheet
Worksheet.JPG : https://imgur.com/tCwHKBo
Attachment 2427

_5) Select the right drop down list
_6) Select Change
Change.JPG : https://imgur.com/NkbNPsL
Attachment 2428

( Delete or ' comment out any other coding, such as the Private Sub Worksheet_SelectionChange which may have appeared automatically at step 4 )



You can now add your coding within the Private Sub Worksheet_Change


( Hit Alt+F11 to return to spreadsheet view )

The coding will kick off automatically when you change any cell value. It will hide the entire row which contains the cell whose value you changed


In the uploaded file , I have added the coding to the third worksheet code module

Alan

Some supporting notes for some other stuff...



_3) Regarding the remaining leftover hide.me app on Windows 7 machine after I de- installed it
….( hide.me that was still showing in my program list after I had de installed, and note also that on restarting the windows 7 machine with the remaining left over hideme app, a hideme typically window came up , did something for a while, then another hide me window came up and offered me the chance to buy premium!! )
Strange remaining hide me thing after de install.JPG : https://imgur.com/4HsLmDN
Attachment 2439

I tried the Revo Unistaller as suggested, http://revo-uninstaller.en.softonic.com/ .
This was also not able to de install the hide.me that was still showing in my program list after I had de installed it: Revo also cannot de install the remaining hide.me.jpghttps://imgur.com/HY7pSIy
After this failed attempt, I performed the scan that Revo offered.
This scan took several hours. The scan first showed these left over registry things, Revo scan found left over hideme.jpg : https://imgur.com/r99WKN6
Attachment 2440
, which I chose to delete: Choose to delete found left over hideme.jpg , Deleting scan found left over hideme.jpg : https://imgur.com/aoToZJ2 , https://imgur.com/5jsACjQ .
Then the following left over files and folders were also shown, Revo scan found left over hideme Files and Folders.jpg : https://imgur.com/78YKmd4
Attachment 2441
, which I also chose to delete: Choose to delete Revo scan found left over hideme Files and Folders.jpg , Deletingf Revo scan found left over hideme Files and Folders.jpg : https://imgur.com/VAlBzED , https://imgur.com/2YoSSML .
Finally it appears that all left over hide.me files are gone: hideme no longer listed in programs.jpg : https://imgur.com/9aentWL
A restart is said to remove some files, .. Revo says remainig files will be deleted by restart.jpg : https://imgur.com/QTjDtf1 , so I restarted.
It seemed at this stage, ( after a restart) that the hideme app was completely removed.

In support of answers to these Threads:
http://www.excelfox.com/forum/showth...ified-email-id
https://stackoverflow.com/questions/...75857_58525487
https://stackoverflow.com/questions/...-be-sent-to-sm
https://stackoverflow.com/questions/...-less-and-less

Register an account with Freemail German Telekom, for use with CDO.Message Send program

Login / Register
https://www.t-online.de/
Login.JPG : https://imgur.com/n5aLakd
https://accounts.login.idm.telekom.c...nse_type=code#
ht[color==#417394]tps://accounts.login.idm.telekom.com/oauth2/auth?client_id=10LIVESAM30000004901PORTAL000000000 00000&state=d725154dc1fc296807eda1341546636892fc97 39ccb75d714dc2c89b4159148e&claims=%7B%22id_token%2 2%3A%7B%22urn%3Atelekom.com%3Aall%22%3Anull%7D%7D& nonce=d725154dc1fc296807eda1341546636892fc9739ccb7 5d714dc2c89b4159148e&redirect_uri=https%3A%2F%2Flo gin.t-online.de%2Fcallback&display=popup&scope=openid&re sponse_type=code#[/color]
Registrieren.JPG : https://imgur.com/J6nnDm2
https://meinkonto.telekom-dienste.de...nt/index.xhtml
https://meinkonto.telekom-dienste.de...erstatus.xhtml
UserStatus.jpg : https://imgur.com/IqjhWop

New Email Address
New Email Address.jpg : https://imgur.com/zH2G73c

Register
Register.JPG : https://imgur.com/570UkbH
https://imgur.com/D6vRwex
You will probably be sent a number code via SMS to your Telephine number. , https://imgur.com/eBpabq5 ,



https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg. 9h740K6COOA9iHOYYpaAbC
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgxuL6YCUckeUIh9hoh4AaABAg
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwGTEyefOX7msIh1wZ4AaABAg. 9h4sd6Vs4qE9h7G-bVm8_-
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=Ugw3nF0C04AGt73H1BB4AaABAg. 9h6VhNCM-DZ9h7EqbG23kg
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwGTEyefOX7msIh1wZ4AaABAg. 9h4sd6Vs4qE9h7KvJXmK8o
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=Ugw3nF0C04AGt73H1BB4AaABAg. 9h6VhNCM-DZ9h7E1gwg4Aq
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgywFtBEpkHDuK55r214AaABAg
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h79hNGvJbu
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h79YAfa24T
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h79M1SYH1E
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h78SxhXTnR
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

In support to answer of this Thread:
http://www.excelfox.com/forum/showth...ll=1#post11557

_____ Workbook: VBA.xls ( Using Excel 2007 32 bit )

Row\Col	A
1	1234
2	5678
3	91011
4	12131415
5	1617181920

Worksheet: abc
'match column A of abc sheet with column A of def sheet
' if it matches then delete that data in column A of def
' "match column A of abc sheet with column A of def sheet if it matches then delete that data in column A of def"

_____ Workbook: VBA.xls ( Using Excel 2007 32 bit )

Row\Col	A	B	C
1	1234
2	15678
3	191011
4	112131415
5	16171811920		after the process completed delete all the data in this sheet

Worksheet: def
_____ Workbook: VBA Exampled.xls ( Using Excel 2007 32 bit )

15678

191011

112131415

16171811920

Worksheet: def
_____ Workbook: VBA Exampled.xls ( Using Excel 2007 32 bit )



'and the data which are not matched compare that data ( here 'that data' means unmatched data in abc. Right? ) with Fake Data and
' if matched then delete and again if there will be unmatched data ( here also 'unmatched data' means unmatched data in abc. Right? ) then
_____ Workbook: VBA.xls ( Using Excel 2007 32 bit )

Row\Col	A
1	115678
2	191011
3	1112131415
4	1.16172E+11

Worksheet: Fake Data
_____ Workbook: VBA Exampled.xls ( Using Excel 2007 32 bit )

15678

112131415

16171811920

Worksheet: def

115678

1112131415

1.16172E+11

Worksheet: Fake Data



'................................................. ...................if there will be unmatched data then
' compare that data with complete data
_____ Workbook: VBA.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	115678
2

Worksheet: Completed
' if found then delete and again if there will be unmatched data

1112131415

1.16172E+11

Worksheet: Fake Data
then
' copy that data and paste it to missing data sheet in column A ( and finally delete all the data in def : after the process completed delete all the data in this sheet )

Quote:

---

Originally Posted by fixer

the final result is in missing data sheet plz see
missing data sheet already has data and we have pasted the result below that data(the data starts with A2 is the result)
A1 in missing data sheet already has data so we putted the result below that plz see sir
....in simple words with def sheet the data which are present in column A doesnt match with any sheet column A data then put that data in missing data sheet sir (sheet can be many)

---

_____ Workbook: VBA.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	11111158
2	1112131415
3	1.16172E+11
4

Worksheet: Missing data
_____ Workbook: VBA Exampled.xls ( Using Excel 2007 32 bit )

11111158

1112131415

1.16172E+11

Worksheet: Missing data

follow on from last post:

Before

Quote:

---

Originally Posted by fixer

the final result is in missing data sheet plz see
missing data sheet already has data and we have pasted the result below that data(the data starts with A2 is the result)
A1 in missing data sheet already has data so we putted the result below that plz see sir

---

_____ Workbook: VBA Before.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	11111158
2
3
4

Worksheet: Missing data
_____ Workbook: VBA Before.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	1234
2	5678
3	91011
4	12131415
5	1617181920
6

Worksheet: abc
_____ Workbook: VBA Before.xls ( Using Excel 2007 32 bit )

Row\Col	A	B	C
1	1234
2	15678
3	191011
4	112131415
5	16171811920		after the process completed delete all the data in this sheet

Worksheet: def
_____ Workbook: VBA Before.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	115678
2	191011
3	1112131415
4	1.16172E+11
5

Worksheet: Fake Data
_____ Workbook: VBA Before.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	115678
2

Worksheet: Completed
_____ Workbook: VBA Before.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	11111158
2
3
4

Worksheet: Missing data

Follow on from last 2 posts





Explanation attempt
Column A of worksheet abc is compared with column A of worksheet def, looking for matches in data. If data in Column A of worksheet def is also found in column A of worksheet abc, then that matched data in column A of worksheet def is deleted
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	1234
2	5678
3	91011
4	12131415
5	1617181920
6

Worksheet: abc
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

Row\Col	A
1	1234
2	15678
3	191011
4	112131415
5	16171811920

Worksheet: def
Column A of worksheet abc is compared with column A of worksheet def, looking for matches in data. If data in Column A of worksheet def is also found in column A of worksheet abc, then that matched data in column A of worksheet def is deleted
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

1234

15678

191011

112131415

16171811920

Worksheet: def (modified)


The remain data in worksheet def is now compared with column A of worksheet Fake Data.
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	115678
2	191011
3	1112131415
4	1.16172E+11
5

Worksheet: Fake Data
If data in Column A of worksheet Fake Data is also found in column A of the modified worksheet def, then that matched data in column A of worksheet Fake Data is deleted
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

115678

191011

1112131415

1.16172E+11

Worksheet: Fake Data (modified)

The remaining data in column A of modified worksheet Fake Data is now compared with column A of worksheet Completed
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	115678
2

Worksheet: Completed
If there is a match in data in columns A of worksheet Completed, and column A of worksheet Fake Data, then delete that matched data from worksheet Fake Data
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

115678

191011

1112131415

1.16172E+11

Worksheet: Fake Data (modified)

If there is now any remaining data in column A of modified Fake Data, then that data is added to column A of missing data , ( in the given example, VBA Before.xls , A1 in missing data sheet already had data
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

Row\Col	A
1	11111158
2

Worksheet: Missing data
so we put the result below that:
_____ Workbook: VBA worked excample.xls ( Using Excel 2007 32 bit )

Row\Col	A	B
1	11111158
2	1112131415
3	1.16172E+11
4

Worksheet: Missing data (final)

Coding for this Thread
http://www.excelfox.com/forum/showth...ll=1#post11794

Code:

---

Sub MakeFormulas3() '  http://www.excelfox.com/forum/showthread.php/2390-Apply-Vlookup-formula-in-all-the-available-sheets-in-a-workbook?p=11794&viewfull=1#post11794
Rem 1 '  Workbooks info
' 1a This months book, this workbook. It is the outout book for the current month
Dim ThisMonthsLatestBook As Workbook, LisWbName As String
 Set ThisMonthsLatestBook = ThisWorkbook ' ActiveWorkbook
 Let LisWbName = ThisMonthsLatestBook.Name
    If InStr(7, LisWbName, Format(Now(), "MMM"), vbTextCompare) = 0 Then MsgBox Prompt:="This workbook is not for " & Format(Now(), "MMMM"): Exit Sub
Dim BookN As Long
 Let BookN = Mid(LisWbName, 5, InStr(5, LisWbName, "_", vbBinaryCompare) - 5)
' 1b Last months book
Dim sourceBookName As String
 Let sourceBookName = "Book" & BookN - 1 & "_" & Format(DateAdd("m", -1, Now()), "MMM YYYY") & ".xlsm"
Dim sourceBook As Workbook
 Set sourceBook = Workbooks.Open(ThisWorkbook.Path & "\" & sourceBookName)
Rem 2  Make records worksheet                                                                  Sub MakeWorkSheetIfNotThere()
'Dim Wb As Workbook '                                  ' ' Dim:  ' Preparing a "Pointer" to an Initial "Blue Print" in Memory of the Object ( Pigeon Hole with a bit of paper or code lines on that can be filled in to refer to a specific Objec of this type ) . This also us to get easily at the Methods and Properties throught the applying of a period ( .Dot) ( intellisense )                    '
' Set Wb = ActiveWorkbook '  '                            Set now (to Active Workbook - one being "looked at"), so that we carefull allways referrence this so as not to go astray through Excel Guessing inplicitly not the one we want...        Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191                                '
    If Not Evaluate("=ISREF(" & "'" & "Records" & "'!Z78)") Then '  ( the '  are not important here, but iin general allow for a space in the worksheet name like  "My Records"
    ThisMonthsLatestBook.Worksheets.Add After:=ThisMonthsLatestBook.Worksheets.Item(Worksheets.Count) 'A sheeet is added and will be Active
    Dim wsRcds As Worksheet '
    Set wsRcds = ThisMonthsLatestBook.Worksheets.Item(ThisMonthsLatestBook.Worksheets.Count)        'Rather than rely on always going to the active sheet, we referr to it Explicitly so that we carefull allways referrence this so as not to go astray through Excel Guessing implicitly not the one we want...    Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191            ' Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191
    wsRcds.Activate: wsRcds.Cells(1, 1).Activate ' ws.Activate and activating a cell sometimes seemed to overcome a strange error
    Let wsRcds.Name = "Records"
    Else ' The worksheet is already there , so I just need to set my variable to point to it
    Set wsRcds = ThisWorkbook.Worksheets("Records")
    End If
'                                                                                              End Sub
Rem 3 looping through worksheets
Dim C As Long, I As Long
'C = ActiveWorkbook.Worksheets.Count
 'Let C = ThisWorkbook.Worksheets.Count
 Let C = ThisMonthsLatestBook.Worksheets.Count - 1  '  -1 since last worksheet is records worksheet
    'For I = 1 To C
'Application.ScreenUpdating = True
    For I = 1 To C  '  Sheet1  , Sheet2  , Sheet3 .......
    'what are  our worksheets?                        I  =  1        ,      2 ,      3    ..........
    Dim sourceSheet As Worksheet
    Set sourceSheet = sourceBook.Worksheets.Item(I) '    ("Sheet1")  , Sheet2  , Sheet3 ........
    Dim outputSheet As Worksheet
    Set outputSheet = ThisWorkbook.Worksheets.Item(I) ' ("Sheet1")    , Sheet2  , Sheet3 ........
     
        'Determine last row of source
        With sourceSheet
        Dim SourceLastRow As Long
        SourceLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        End With
        With outputSheet
        'Determine last row in col P
        Dim OutputLastRow As Long
        OutputLastRow = .Cells(.Rows.Count, "P").End(xlUp).Row
        End With
        'Apply our formula in records worksheet
        With Worksheets("Records")
        Let .Cells.Item(1, I).Value = sourceSheet.Name  '  Header in column as worksheet name
        '.Range("Q2:Q" & OutputLastRow).Formula = "=VLOOKUP($A2,'[" & sourceBook.Name & "]" & sourceSheet.Name & "'!$A$2:$P$" & SourceLastRow & ",3,0)"
        .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value = "=VLOOKUP(" & outputSheet.Name & "!$A2,'" & sourceBook.Path & "\" & "[" & sourceBook.Name & "]" & sourceSheet.Name & "'!$A$2:$P$" & SourceLastRow & ",3,0)"
'        .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value = .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value
        End With
    'MsgBox ActiveWorkbook.Worksheets(I).Name
    MsgBox ActiveWorkbook.Worksheets.Item(I).Name
    Next I
'Next P
Rem 4
Dim cel As Range
    With Worksheets("Records").UsedRange
        For Each cel In .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
            If IsError(cel.Value) Then
            '
            Else
                If cel.Value < 3 Then
                cel.Font.Color = vbRed
                Else
                cel.Font.Color = vbGreen
                End If
            End If
        Next cel
    End With
   
'Close the source workbook, don't save any changes
 sourceBook.Close False
' Application.ScreenUpdating = True
End Sub
'  https://www.excelforum.com/development-testing-forum/1101544-thread-post-appendix-no-reply-needed-please-do-not-delete-thanks-4.html#post4213980
Function CL(ByVal lclm As Long) As String 'Using chr function and Do while loop      For example http://www.excelforum.com/excel-programming-vba-macros/796472-how-to-go-from-column-number-to-column-letter.html
Dim rest As Long 'Variable for what is "left over" after subtracting as many full 26's as possible
    Do
    '    Let rest = ((lclm - 1) Mod 26) 'Gives 0 to 25 for Column Number "Left over" 1 to 26. Better than ( lclm Mod 26 ) which gives 1 to 25 for clm 1 to 25 then 0 for 26
    '    Let FukOutChrWithDoWhile = Chr(65 + rest) & FukOutChrWithDoWhile 'Convert rest to Chr Number, initially with full number so the "units" (0-25), then number of 26's left over (if the number was so big to give any amount of 26's in it, then number of 26's in the 26's left over (if the number was so big to give any amount of 26 x 26's in it, Enit ?
    '    'OR
    Let CL = Chr(65 + (((lclm - 1) Mod 26))) & CL
    Let lclm = (lclm - (1)) \ 26 'This gives the number of 26's ( if any ), but just the excact part, in the next number down , - so applying the rest formula to this new number will again leave a difference "left over" rest.
    'lclm = (lclm - (rest + 1)) \ 26 ' As the number is effectively truncated here, any number from 1 to (rest +1)  will do in the formula
    Loop While lclm > 0 'Only loop further if number was big enough to still have 0-25's in it
End Function

---

Notes in support of this Forum Question:
https://www.eileenslounge.com/viewto...p?f=18&t=33834

Trying to figure out how Excel Clipboard ( or maybe Office clipboard ) is interacting with the Windows clipboard when trying to paste into Excel a text string,….

I have a text string. I add to it, manipulate it a bit, then put it in "the clipboard", ( probably the windows clipboard ) , then do an Excel Worksheets Paste …

Simplified example…
I have this already in a string,
"A" & vbCr & vbLf & "C"
Seen in another way:
A_vbCr_vbLf_B
The first representation is in a typical code line convention, the second an attempt at a more "real" view
There are 4 characters there. The middle two are examples of types that are often referred to as "invisible" characters. (These two typically instruct systems to go to a new line)
Most software that visibly gives you some sort of text to see , would usually interpret that as two lines of text. For example, Excel would usually interpret that such as to display you something like this, if you somehow "put it in" the start ( top left ) of a spreadsheet:

Row\Col	A
1	A
2	C

I want to put an extra cell with split line text in it, simplified like this:

Row\Col	A
1	A
2	X Y
3	C

Sometime or other I have learnt that Excel recognises a single vbLf to split up lines of text within a cell. But it turns out to be bit more complicated than that if you want the text string in the Windows Clipboard to come out as you want it in Excel.

The second part of this macro seems to usually achieve the second screenshot above

Code:

---

Sub TestvbLf_1()
Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Dim StringBack As String
' Fill two rows , in 1 column
 ActiveSheet.Cells.Clear ' This is important to remove any formatting that might distort results
 objDataObject.SetText "A" & vbCr & vbLf & "C": objDataObject.PutInClipboard
 ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack) '        "A" & vbCr & vbLf & "C"
' Put an extra cell with split line text in it
 ActiveSheet.Cells.Clear '
 objDataObject.SetText "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C": objDataObject.PutInClipboard
 ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack) '          "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C"
 
End Sub

---

( The function, WtchaGot( ) can be found here: http://www.excelfox.com/forum/showth...ll=1#post10946 )

---

Here are some further sample code snippets and discussions

This code snippet suggest to me that the Windows clipboard is being used, as .Clear does not empty "the clipboard" , as one more typically annoyingly experiences in Excel work when copying things manually or with VBA in Excel

Code:

---

Sub TestvbLf_2()
Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Dim StringBack As String

' Put an extra cell with split line text in it
 ActiveSheet.Cells.Clear '
 objDataObject.SetText "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C": objDataObject.PutInClipboard
 ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack) '  ---    "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C"
 
 ActiveSheet.Cells.Clear ' This does not clear the clipboard, so next line gives the same results, which...
 ActiveSheet.Paste Destination:=ActiveSheet.Range("A1") '  suggests that the Windows  clipboard is being used
 Call WtchaGot(StringBack) '  ---    "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C"
'
End Sub

---

Finally we see this, the orange of the clipboard icon indicating something is in "the clipboard", presumably the windows clipboard, since , as said, .Clear does not clear that icon, and also we see that the office clipboard is empty…
TestvbLf_2.JPG : https://imgur.com/dEbsaPE
Attachment 2565

( Using Excel 2007 32 bit )

A	19 Dez 2019 Lenf is 11	A "X Y" C
X Y	1 A	65
C	2	13
	3	10
	4 "	34
	5 X	88
	6	10
	7 Y	89
	8 "	34
	9	13
	10	10
	11 C	67

Worksheet: WotchaGotInString
The second two columns are produced by function WtchaGot( ) , and give a breakdown of the 11 characters in the string:
"A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C"
A vbCr vbLf " X vbLf Y " vbCr vbLf C

Further investigation in next post

In support of these posts

https://stackoverflow.com/questions/...60767#54960767
https://www.eileenslounge.com/viewto...p?f=18&t=33834



Thoughts on adding split lines in Excel cells via the ( probably windows ) Clipboard

The following code snippet is typical of those which got me to the solution of how to manipulate a text string so that it pastes into Excel a cell with multiple lines.
The first section shows me what the text in "the clipboard" looks like after using Excel ways to copy my final desired test form , after using Excel ways to produce it. It gives this sort of output
"A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C" & vbCr & vbLf
A vbCr vbLf " X vbLf Y " vbCr vbLf C vbCr vbLf
TestvbLf_3.jpg : https://imgur.com/oPXJIkG
Attachment 2566

Either code sections 2 and 3 would error, presumably because the windows clipboard has been emptied. That is not totally understandable. We know that we had something in the windows clipboard. Doing things that empty "clipboards" , possibly other than the window clipboard, seem also somehow to remove things from the windows clipboard.
Possibly we could explain this by saying that as Excel filled the windows clipboard as a sort of extra thing to do after primarily filling its clipboard, then some linking wiring in place to do that also resulted into it clearing the windows clipboard when it cleared its clipboard
Code section 4 erroring is less understandable, as we did not use normal Excel ways to fill the window clipboard, but never the less .Clear seems to empty it.
Code section 5 erroring is similarly less understandable, since it is generally considered that Application.CutCopyMode = False clears the Excel clipboard

Before going on to sections 7 and 8, copy something to the "clipboard" from anywhere.
We find that section 7 and 8 would still error. This once again seems to be caused by either .Clear or .CutCopyMode = False. It suggests that there is some link to the windows clipboard that causes it to be cleared. It suggests perhaps that something has been set to link things in the windows clipboard from Excel or office, possibly to get some formatting parameters. If you put anything into the windows clipboard, it will still be cleared when doing .Clear or .CutCopyMode = False , by virtue of this linking "wiring"

Section 9 probably removes this linking wiring.
When a manual copy is then made in the following sections , possibly a new wiring is set up which has a different sort of dependency.

Before going on to section 10 and then again before going on to section 11, copy something to the "clipboard" from anywhere.
The code lines of .Clear or .CutCopyMode = False at the start of these sections do not remove the orange from the icon top left, and code sections 10 and 11 do not error. This supports the idea that a link was made to the windows clipboard that works slightly differently.

Code:

---

Sub TestvbLf_3()
ActiveSheet.Cells.Clear


Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Dim StringBack As String
' Section 1
 ActiveSheet.Range("A1").Value = "A"
 ActiveSheet.Range("A2").Value = "X" & vbLf & "Y"
 ActiveSheet.Range("A3").Value = "C"
 ActiveSheet.Range("A1:A3").Copy
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack)
 'ActiveSheet.Cells.Clear ' --- This clears "the clipboard",
 ActiveSheet.Paste Destination:=ActiveSheet.Range("D1")
 
' Section 2
' ActiveSheet.Cells.Clear ' --- This clears "the clipboard"
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 3
' Application.CutCopyMode = False
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 4
' objDataObject.SetText "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C": objDataObject.PutInClipboard
' ActiveSheet.Cells.Clear
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 5
' objDataObject.SetText "A" & vbCr & vbLf & """" & "X" & vbLf & "Y" & """" & vbCr & vbLf & "C": objDataObject.PutInClipboard
' Application.CutCopyMode = False
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
' Call WtchaGot(StringBack)
 
Stop  ' BEFORE DOING THE NEXT CODE SECTIONs, copy something manually via Ctrl+c ...
' Section 7
' ActiveSheet.Cells.Clear
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)
'
'' Section 8
' Application.CutCopyMode = False
' objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText() ' This errors
' Call WtchaGot(StringBack)

' Section 9
 ActiveSheet.Cells.Clear  ' This I think breaks the link from other clipboards to the windows clipboard.
' Application.CutCopyMode = False ' this line as alternative to the last has the same effect

Stop  ' BEFORE DOING THE NEXT CODE SECTIONs, copy something manually via Ctrl+c ...

' Section 10
 ActiveSheet.Cells.Clear
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack)
 ActiveSheet.Paste Destination:=ActiveSheet.Range("E1")

Stop  ' BEFORE DOING THE NEXT CODE SECTIONs, copy something manually via Ctrl+c ...

' Section 11
 Application.CutCopyMode = False
 objDataObject.GetFromClipboard: Let StringBack = objDataObject.GetText()
 Call WtchaGot(StringBack)
 ActiveSheet.Paste Destination:=ActiveSheet.Range("H1")

End  Sub

---

Some notes in support of these Threads
http://www.eileenslounge.com/viewtopic.php?f=18&t=33775
http://www.eileenslounge.com/viewtop...d7141c#p262009
http://www.excelfox.com/forum/showth...ll=1#post11570
http://www.excelfox.com/forum/showth...ll=1#post11608



VPN and IP Addresses
Some of the initial investigations into testing VPN and in looking at problems showed that it was useful to be able to monitor various IP addresses.
The main (Public) address, as already discussed, ( http://www.excelfox.com/forum/showth...ll=1#post11597 ) , is of course important to know . There is also a "local host", which more typically is set to the same number for everyone, (127.0.0.1 ). This is a number which conventionally is used to allow direct access to network aspects of your computer which might otherwise be accessed externally in some way or another. A characteristic of VPN software is that it manipulate your computer in a way such that, amongst other things , this number will change to the internal address used at your VPN provider to identify you within their system. It is part of the trickery in the Client software, that you "looking at yourself" gets manipulated into looking somewhere else. The provider in some ways is then in control of your computer allowing them to give the impression that your computer is physically somewhere else: Part of your computer "Soul" is with them.

Public address
Manually this is achieved typically by visiting various sites that provide you with this information. The automated way still needs to use such sites. The reason for this is that you need to be able to get the information by accessing yourself in the way that another computer connected to the internet "gets at you". Part of this process involves obtaining your public address as you communicate initially with them. We could scrap any site offering the service and pick out the IP address information.
We can simplify the coding to do this by accessing a site available which only gives the IP information, and which shows as the website that you "see" just that IP address number.
So for example if you type in your browser URL bar, http://myip.dnsomatic.com/ , then all you will see is the IP address. You will even see only that if you are in Google Chrome Browser and right click and view the Page Source
Page Source myip dnsomatic .JPG : https://imgur.com/uceUKE4

This information will be the entire .responseText received back. In normal scrapping coding you might feed this supplied text string into an object model software which allows you to then pick out using OOP type techniques what you want. If we use the site http://myip.dnsomatic.com/ , we don't need to take that extra step, and can simply view the entire .responseText , as this is the exact info we want.

( I found that sometimes the first one or few attemps did not work in the next coding, but almost always after a few attemopts it worked. So the recursion technique is used to call the Function a few times , if necerssary )

Code:

---

Option Explicit
Sub TestPubicIP()
Dim strIP As String
 Call PubicIP(strIP)
 MsgBox prompt:=strIP
 'Call WtchaGot(strIP)
End Sub
' Because we have ByRef PublicIP  , the is effectively taking the variable  strIP  into the function, and similarly in the  recursion Call line  that variable is taken.  Hopefull in one of the 5 attepts at running the Function  it will be filled.. We don't actually fill the pseudo variable  PubicIP  so no value is returned directly by the Function. (So we could have used a Sub()routine instead)  To get a returned value we look at the value in  strIP  after runing the routine , because , as said, hopefully that particular variable will have been added to
Function PubicIP(ByRef PublicIP As String, Optional ByVal Tries As Long) As String
    If Tries = 5 Then Exit Function
 On Error GoTo Bed
    With CreateObject("msxml2.xmlhttp")
    .Open "GET", "http://myip.dnsomatic.com", True ' 'just preparing the request type, how and what type... "The True/False argument of the HTTP Request is the Asynchronous mode flag. If set False then control is immediately returns to VBA after Send is executed. If set True then control is returned to VBA after the server has sent back a response.
    'No extra info here for type GET
    '.setRequestHeader bstrheader:="Ploppy", bstrvalue:="Poo"
    .setRequestHeader bstrheader:="If-Modified-Since", bstrvalue:="Sat, 1 Jan 2000 00:00:00 GMT" '  https://www.autohotkey.com/boards/viewtopic.php?t=9554  ---  It will caching the contents of the URL page. Which means if you request the same URL more than once, you always get the same responseText even the website changes text every time. This line is a workaround : Set cache related headers.
    .send ' varBody:= ' No extra info for type GET. .send actually makes the request
        While .readyState <> 4: DoEvents: Wend ' Allow other processes to run while the web page loads. Think this is part of the True option
    Dim PageSrc As String: Let PageSrc = .responseText ' Save the HTML code in the (Global) variable. ': Range("P1").Value = PageSrc 'For me for a print out copy to text file etc.    The responseText property returns the information requested by the Open method as a text string
    End With
 Let PublicIP = PageSrc: ' Debug.Print PubicIP
 'Call WtchaGot(PubicIP)
    If PublicIP = "" Then Call PubicIP(PublicIP, Tries + 1) ' Recursion Call line. I do this because sometines it seems to need more than one try before it works
Exit Function
Bed:
 Let PubicIP = Err.Number & ":  " & Err.Description: Debug.Print PubicIP
End Function

---

As an alternative , I have below a similar coding. It gets the page source from another site which shows your IP address. I found when looking at the page source in Google Chrome, that I could see the IP address conveniently showing between two simple text lines :
Page Source whatismyipaddress_com .JPG : https://imgur.com/LSvORAe
Attachment 2567

To VBA ( or most computer things), that text looks like a long string, and at that point we can imagine that it looks to the computer like any one of these 3 representations
……. ipt -->" & vbLf & "87" & "." & "101" & "." & "95" & "." & "204" & vbLf & "<!—do not scr……..
…….ipt --> vbLf 87.101.95.204 vbLf <!—do not scr ………….

…….ipt --> vbLf
87.101.95.204 vbLf
<!—do not scr ………….

We apply some simple VBA strings manipulation techniques to extract just the IP address number

Code:

---

'
Sub TestPubicIPwhatismyipaddress_com()
Dim strIP As String
 Let strIP = PubicIPwhatismyipaddress_com
 MsgBox prompt:=strIP
End Sub
Function PubicIPwhatismyipaddress_com() As String
 On Error GoTo Bed
    With CreateObject("msxml2.xmlhttp")
    .Open "GET", "https://whatismyipaddress.com/de/meine-ip", False ' 'just preparing the request type, how and what type... "The True/False argument of the HTTP Request is the Asynchronous mode flag. If set False then control is immediately returns to VBA after Send is executed. If set True then control is returned to VBA after the server has sent back a response.
    'No extra info here for type GET
    '.setRequestHeader bstrheader:="Ploppy", bstrvalue:="Poo"
    .setRequestHeader bstrheader:="If-Modified-Since", bstrvalue:="Sat, 1 Jan 2000 00:00:00 GMT" '  https://www.autohotkey.com/boards/viewtopic.php?t=9554  ---  It will caching the contents of the URL page. Which means if you request the same URL more than once, you always get the same responseText even the website changes text every time. This line is a workaround : Set cache related headers.
    .send ' varBody:= ' No extra info for type GET. .send actually makes the request
        While .READYSTATE <> 4: DoEvents: Wend ' Allow other processes to run while the web page loads. Think this is part of the True option
    Dim PageSrc As String: Let PageSrc = .responsetext ' Save the HTML code in the (Global) variable. ': Range("P1").Value = PageSrc 'For me for a print out copy to text file etc.    The responseText property returns the information requested by the Open method as a text string
    End With
 Let PubicIPwhatismyipaddress_com = PageSrc: ' Debug.Print PubicIPwhatismyipaddress_com
Dim IPadres As String, posIPadres1 As Long, posIPadres2 As Long
 Let posIPadres1 = InStr(1, PageSrc, "<!-- do not script -->", vbBinaryCompare)  '      Screenshot --->  Page Source whatismyipaddress_com .JPG : https://imgur.com/LSvORAe
 Let posIPadres2 = InStr(posIPadres1 + 1, PageSrc, "<!-- do not script -->", vbBinaryCompare)
 Let PubicIPwhatismyipaddress_com = Mid(PageSrc, posIPadres1 + 23, ((posIPadres2 - 1) - (posIPadres1 + 23)))
 Call WtchaGot(PubicIPwhatismyipaddress_com)
Exit Function
Bed:
 Let PubicIPwhatismyipaddress_com = Err.Number & ":  " & Err.Description: Debug.Print PubicIPwhatismyipaddress_com
End Function

---

---

Local Host address and computer name in the next post

Local Host address, Computer name
There are a couple of Win32 APIs which will get this information.
We just need to write a small amount of coding to get the function to do what we want and also a bit of manipulaation to give the information as we need it.
For the computer name this is simply a function to give us a string.

Code:

---

Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
'  "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
Function ComputerName() As String                                                                                                                                                                        ' GHB and sex..
Dim NmeLen As Long, lngX As Long, strCompName As String
 Let NmeLen = 999: Let strCompName = "                                    "    ' variables must be initialised or API things often dont work                                                            ' String$(50, 0)
 Let lngX = GetComputerName(strCompName, NmeLen) '
    If lngX <> 0 Then ' returns 1 if it works
    Let ComputerName = strCompName '  Left$(strCompName, NmeLen)  ' The first argument variable gets like a LSet done on it
    Else
    Let ComputerName = "Couldn't get Computer name"
    End If
 Let ComputerName = Left$(ComputerName, NmeLen) ' We must do this as there is a  Chr(0)  after the name ....  Let ComputerName = Trim(ComputerName) ' this is no good, - it leaves Chr(0) on the end which means that ComputerName is the last thing that will get printed
 'Call WtchaGot(ComputerName)
End Function


---

The Win32 API for the local IP address is slightly more complicated. It will give us a table/ array of all the IP addresses held. The first is generally that we are interested in. it seems to be added when a VPN connection is made

Code:

---

Option Explicit
Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (ByRef pIPAddrTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long    '  http://www.source-code.biz/snippets/vbasic/8.htm
'  "GetIpAddrTable" (ByRef pIPAddrTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Public Function GetIpAddrTable() As String  '      Christian d'Heureuse, www.source-code.biz  http://www.source-code.biz/snippets/vbasic/8.htm
Rem 1 We give the API function some info , and that seems to make it fill up an array with table values
Dim Buf(0 To 1234) As Byte ' Buf(0 To 511) As Byte ' must be Byte or overflow at NrOfEntries
Dim BufSize As Long: Let BufSize = 12345
Dim rc As Long: Let rc = GetIpAddrTable_API(Buf(0), BufSize, 1)
  'If rc <> 0 Then Err.Raise vbObjectError, , "GetIpAddrTable failed with return value " & rc
Dim NrOfEntries As Integer: NrOfEntries = Buf(1) * 256 + Buf(0)
  'If NrOfEntries = 0 Then GetIpAddrTable = Array(): Exit Function

Dim i As Long
  For i = 0 To NrOfEntries - 1
    Dim j As Long, s As String
      For j = 0 To 3
      Dim Indcy As Long: Let Indcy = 4 + i * 24 + j
      s = s & IIf(j > 0, ".", "") & Buf(Indcy): Debug.Print Indcy & "  " & Buf(Indcy) ' This code line just builds the final string for each IP address, with a "." before all but the first of the 4 number parts  ---  for example like  192 . 168 . 2 . 110
      Next j
    Dim strIPs As String: Let strIPs = strIPs & "  " & s: Let s = ""
    Next
  GetIpAddrTable = strIPs: Debug.Print strIPs
End Function

'    4  127
'    5  0
'    6  0
'    7  1
'    28  192
'    29  168
'    30  2
'    31  110
'      127.0.0.1  192.168.2.110                                                                                          ' _

'    4  10
'    5  132
'    6  13
'    7  113
'    28  127
'    29  0
'    30  0
'    31  1
'    52  192
'    53  168
'    54  2
'    55  110
'      10.132.13.113  127.0.0.1  192.168.2.110
'    1  2  3    4  5  6  7      8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
'    25 26 27  28  29  30  31    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
'    49 50 51  52  53  54  55
'              10  132  13  127
'              127  0  0  1
'              192 168  2  110

---

If we examine that coding above, and experiment with what it does, we see a couple of things:
Rem 1
_ It is doing a strange thing, as API's often do. That is to say the API works similarly to a normal VBA function, except the way each argument is a mystery.. following some set of rules/coding which probably the author wrote when he was drunk and no one can remember anymore.
You must make an array of Byte types. The array should be fairly big.
You must give the first array element and the size of the array to the API Function.
Then magically the array gets filled. Presumably some internally held table is put into the array
Rem 2
A bit of maths is done to pick out the elements we want from the returned filled array

The final analysis here of a typical output can be helpful to try and understand another way to get this information

Code:

---

'    1  2  3    4  5  6  7      8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
'    25 26 27  28  29  30  31    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
'    49 50 51  52  53  54  55
'              10  132  13  127
'              127  0  0  1
'              192 168  2  110

---

Or maybe not. I am not sure. I doubt many people are…

Coding in support of this post
http://www.excelfox.com/forum/showth...ll=1#post11808

Code:

---

Option Explicit '
Sub txtfilesinworksheetwithFILENAMEColumnB() '  http://www.excelfox.com/forum/showthread.php/2392-VBA-Copy-files-in-excel-edit-and-save?p=11808&viewfull=1#post11808
Rem 1 Worksheets info
Dim WsFlNme As Worksheet
 Set WsFlNme = ThisWorkbook.Worksheets("FILENAME")
Rem 2 Copy .txt files in worksheets
'2a) Copy .txt files in worksheet with FILENAME (Column B)
'2a)(i) Get the entire text file as a string
Dim FileNum As Long: Let FileNum = FreeFile(1) ' The "highway/ street/ link" to be built to transport the text will be given a number. It must be unique. So we use for convenience, the Freefile function: it returns an integer that represents the next file number that the Open statement can use.  The optional argument for the range number is a variant that is used to specify a range from which the next free file number is returned. Enter a value of data type 0 (default) to return a file number in the range 1 - 255 inclusive. Enter 1 to return a file number in the range 256 - 511.  https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/freefile-function  . Note also : Use file numbers in the range 1-255, inclusive, for files not accessible to other applications. Use file numbers in the range 256-511 for files accessible from other applications
Dim PathAndFileName As String, strtxtFile As String
 Let PathAndFileName = ThisWorkbook.Path & "\vbadumb.txt"
  Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundemental type data input...
    strtxtFile = VBA.Strings.Space$(LOF(FileNum)) '....and wot recives it hs to be a string of exactly the right length
    Get #FileNum, , strtxtFile                  'The  Get  statement reads back from an open route to data into the  given variable
  Close #FileNum
' Call WtchaGot(strtxtFile) '  ---  If we were to examine that string in strtxtFile, then we would see something like    "1" & vbCr & vbLf & "2" & vbCr & vbLf & "3"
Rem 3 Put the text data inti the (Windows clipboard)
Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dataobject-object  A holding area for formatted text data used in transfer operations. Also holds a list of formats corresponding to the pieces of text stored in the DataObject.  .....
'  .....A DataObject can contain one piece of text for the Clipboard text format, and one piece of text for each additional text format, such as custom and user-defined formats.  A DataObject is distinct from the Clipboard. A DataObject supports commands that involve the Clipboard and drag-and-drop actions for text. When you start an operation involving the Clipboard (such as GetText) or a drag-and-drop operation, the data involved in that operation is moved to a DataObject.  The DataObject works like the Clipboard. If you copy a text string to a DataObject, the DataObject stores the text string. If you copy a second string of the same format to the DataObject, the DataObject discards the first text string and stores a copy of the second string. It stores one piece of text of a specified format and keeps the text from the most recent operation.
objDataObject.SetText strtxtFile: objDataObject.PutInClipboard ' This often seems to result in putting infomation into the Windows Clipboard
Rem 4 Paste out to the worksheet
 WsFlNme.Paste Destination:=WsFlNme.Range("B1") ' If we paste the entire string in / at B1 , then the  vbCr & vbLf  in the string will be interpreted by Excel as the row seperator, so the entire string will be split over 3 lines
End Sub


---

In support of theses Threads:
http://www.eileenslounge.com/viewtop...249846#p249846
http://www.excelfox.com/forum/showth...quot-KERNEL32)
http://www.excelfox.com/forum/showth...ll=1#post10923





The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"


I thought I had been sensible and chosen a safe option in XP of download but manually determine Install time
Updates Option Download but manually determine Install time.jpg : https://imgur.com/ocsOVbl , https://imgur.com/X0eB8AG
But somehow I got a full load of updates at some point recently on one of my XP machines, possibly at the point of turning the Laptop off.

I noted manually all the office updates and did various comparisons with my list of "Good" and "Bad" updates, but that only revealed as possible bads , the Active X control Killer , KB3054873. Sure enough my control buttons were dead, but after removing KB3054873. They immediately started working again.

None of the XP killing known bads were found, but some I have not previously seen were found.
Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition Letzte Änderung: 08.10.2019
Sicherheitsupdate für Microsoft Excel 2010 (KB4484130) 32-Bit-Edition Letzte Änderung: 03.10.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4475569) 32-Bit-Edition Letzte Änderung: 03.10.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4475599) 32-Bit-Edition Letzte Änderung: 05.09.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition Letzte Änderung: 05.09.2019
Sicherheitsupdate für Microsoft Word 2010 (KB4475533) 32-Bit-Edition Letzte Änderung: 08.08.2019
Update für Microsoft Filter Pack 2.0 (KB3114879) 32-Bit-Edition Letzte Änderung: 09.07.2019

Code:

---

https://www.catalog.update.microsoft...px?q=KB4475604
Updatedetails
Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition
Letzte Änderung: 08.10.2019
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4475604
Weitere Informationen:
https://support.microsoft.com/kb/4475604
Support-URL:
https://support.microsoft.com/?LN=de-de

https://www.catalog.update.microsoft...px?q=KB3114879
Updatedetails
Update für Microsoft Filter Pack 2.0 (KB3114879) 32-Bit-Edition
Letzte Änderung: 09.07.2019
Größe: 4,4 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Filter Pack 2.0 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Filter Pack 2.0 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 3114879
Weitere Informationen:
https://support.microsoft.com/kb/3114879
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft...px?q=KB4475604
Updatedetails
Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition
Letzte Änderung: 08.10.2019
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4475604
Weitere Informationen:
https://support.microsoft.com/kb/4475604
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft...px?q=KB4464566
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition
Letzte Änderung: 05.09.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4464566
Weitere Informationen:
https://support.microsoft.com/kb/4464566
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft...px?q=KB4475533
Updatedetails
Sicherheitsupdate für Microsoft Word 2010 (KB4475533) 32-Bit-Edition
Letzte Änderung: 08.08.2019
Größe: 13,3 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Word 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Critical
KB-Artikelnummern: 4475533
Weitere Informationen:
https://support.microsoft.com/kb/4475533
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft...px?q=KB4484130
Updatedetails
Sicherheitsupdate für Microsoft Excel 2010 (KB4484130) 32-Bit-Edition
Letzte Änderung: 03.10.2019
Größe: 19,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Excel 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4484130
Weitere Informationen:
https://support.microsoft.com/kb/4484130
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft...px?q=KB4475599
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4475599) 32-Bit-Edition
Letzte Änderung: 05.09.2019
Größe: 2,9 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4475599
Weitere Informationen:
https://support.microsoft.com/kb/4475599
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft...px?q=KB4475569
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4475569) 32-Bit-Edition
Letzte Änderung: 03.10.2019
Größe: 1,7 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4475569
Weitere Informationen:
https://support.microsoft.com/kb/4475569
Support-URL:
https://support.microsoft.com/?LN=de-de

---

Unfortunately removing all those did not cure the XP problem, even after a computer restart.

I tried a simple coding to compare a previous updates list from January 2019 to that for now, at December, 2019

Code:

---

Option Explicit
Sub compareJan2019ToDec2019() '  Laptop Froggy december 2019 .... The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"    The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"
'  Updates from last January
 Dim rngSrch As Range: Set rngSrch = Worksheets("Frogy29thjan2019").Range("A1:A" & Worksheets("Frogy29thjan2019").UsedRange.Rows.Count & "")
'  Update list for December after killing downloads came probably after turning off computer
 Dim rngDecUpdts As Range: Set rngDecUpdts = Worksheets("Froggy30thDec2019").Range("A1:A" & Worksheets("Froggy30thDec2019").Range("A" & Rows.Count & "").End(xlUp).Row & "")
'
Dim rng As Range
    For Each rng In rngDecUpdts
    Dim varMtch As Variant
    Let varMtch = Application.Match(rng, rngSrch, 0)
        If IsError(varMtch) Then
        MsgBox prompt:=rng.Value
        Dim strMsg As String
        Let strMsg = strMsg & rng.Value & vbCr & vbLf
        Else
        End If
    Next rng
 MsgBox prompt:=strMsg: Debug.Print strMsg ' Fron VB Editor , Hit  Ctrl+g  , then you can copy the list from the Immediate window which should come up after hitting  Ctrl+g
End Sub

---

This was the result for new updates:
KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626



……………….Continued in next post………………………..



Ref
https://www.catalog.update.microsoft.com/Home.aspx

………………….from last post……………..


So looking further at these "new" updates:
KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626

Code:

---

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462172
Update für Microsoft Office 2010 (KB4462172) 32-Bit-Edition
Letzte Änderung: 13.02.2019
Größe: 7,1 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4462172
Weitere Informationen:
https://support.microsoft.com/kb/4462172
Support-URL:
https://support.microsoft.com/?LN=de-de
 


https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461626
Update für Microsoft Office 2010 (KB4461626) 32-Bit-Edition
Letzte Änderung: 12.03.2019
Größe: 2,6 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4461626
Weitere Informationen:
https://support.microsoft.com/kb/4461626
Support-URL:
https://support.microsoft.com/?LN=de-de
 

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4018363
Update für Microsoft Access 2010 (KB4018363) 32-Bit-Edition
Letzte Änderung: 12.03.2019
Größe: 7,3 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Access 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Access 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4018363
Weitere Informationen:
https://support.microsoft.com/kb/4018363
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft.com/Search.aspx?q=KB2589318
Update für Microsoft Office 2010 (KB2589318) 32-Bit-Edition
Letzte Änderung: 10.08.2015
Größe: 747 KB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 2589318
Weitere Informationen:
http://support.microsoft.com/kb/2589318
Support-URL:
http://support.microsoft.com/?LN=de-de
 



https://www.catalog.update.microsoft.com/Search.aspx?q=KB3115314
Update für Microsoft Visio 2010 (KB3115314) 32-Bit-Edition
Letzte Änderung: 13.02.2019
Größe: 19,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Visio 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Visio 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 3115314
Weitere Informationen:
https://support.microsoft.com/kb/3115314
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft.com/Search.aspx?q=KB3114559
Update für Microsoft Outlook 2010 (KB3114559) 32-Bit-Edition
Letzte Änderung: 09.04.2019
Größe: 355 KB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 3114559
Weitere Informationen:
https://support.microsoft.com/kb/3114559
Support-URL:
https://support.microsoft.com/?LN=de-de

---

So we have 6 "new" updates. But these appear on safe list

Strangely ….
KB4461526 has appeared. So I De installed it
KB4461576 has appeared. So I De installed it
KB4461625 came back . So I De installed it again
KB4461625 came back once again . So I De installed it again
KB4464524 has appeared. So I De installed it.
KB4462230 has appeared. So I De installed it
KB4462223 has appeared. So I De installed it


After de installing KB4462223, Office started working

Code:

---

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461526
Sicherheitsupdate für Microsoft Word 2010 (KB4461526) 32-Bit-Edition
Letzte Änderung: 08.11.2018
Größe: 12,9 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Word 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4461526
Weitere Informationen:
https://support.microsoft.com/kb/4461526
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461576
Sicherheitsupdate für Microsoft Outlook 2010 (KB4461576) 32-Bit-Edition
Letzte Änderung: 07.12.2018
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Outlook 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4461576
Weitere Informationen:
https://support.microsoft.com/kb/4461576
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft.com/Search.aspx?q=%20KB4464524%20
Update für Microsoft Outlook 2010 (KB4464524) 32-Bit-Edition
Letzte Änderung: 15.05.2019
Größe: 79,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4464524
Weitere Informationen:
https://support.microsoft.com/kb/4464524
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462230
Sicherheitsupdate für Microsoft Excel 2010 (KB4462230) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 19,8 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Excel 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462230
Weitere Informationen:
https://support.microsoft.com/kb/4462230
Support-URL:
https://support.microsoft.com/?LN=de-de







https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223
Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462223
Weitere Informationen:
https://support.microsoft.com/kb/4462223
Support-URL:
https://support.microsoft.com/?LN=de-de

---

At this point, I decide to go backwards, reinstalling those de installed updates in order to pin down the latest “bad” or “bads”


This is the list I have to try out on a re install
I will do it in backward order


KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626
KB4462187
KB4461579
KB4462177
KB4464567
KB4461521
KB4461526
KB4461576
KB4461625
KB4464524.
KB4462230
KB4462223

Re installing in XP
Using Microsoft Update Catalog : https://www.catalog.update.microsoft...px?q=KB4462223
To install, type in the required update in the search box top right. Remember to include KB at the front Download KB from MicrosoftUpdateCatalog.JPG : https://imgur.com/AfSAtlC
Another window appears and you have one or more files to click on to download, https://imgur.com/bIWg243
After downloading you may need to save and / or open / unzip one or more files or do a double click on files to set off the installation or installations. The exact process to get the installation to start will vary depending on your exact system and settings


KB4462223 This breaks Office 2010 after re install , and note also that KB4461626 and KB4461623 and KB4461577 and KB4227170 appeared fir the first time ever!!!
So I de installed KB4462223 again.
All was then OK.

KB4462230
All is still OK after re instal.

KB4464524 ( 14.05.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet.

KB4461625 ( 03.01.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB4461576 ( 06.12.2018 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB4461526
All is still OK after re install

KB4461521
All is still OK after re install

KB4464567
All is still OK after re install

KB4462177
All is still OK after re install

KB4461579
All is still OK after re install

KB4462187
All is still OK after re install

KB4461626
All is still OK after re install

KB3114559
All is still OK after re install

KB4018363
All is still OK after re install

KB4475569
All is still OK after re install

KB4475599
All is still OK after re install

KB4484130
All is still OK after re install

KB3115314
All is still OK after re install

KB4475533
All is still OK after re install

KB4464566
This causes the XP problem
After de installing it the problem goes away.

KB4462172
All is still OK after re install

KB2589318
All is still OK after re install

KB4475604 ( 08.10.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB3114879
All is still OK after re install

So it appears that the two new "bads" are
KB4464566
KB4462223
And here were the previously known
KB4461522 ( no longer available )
KB4461614 ( available , but not been offered for some time )
KB4462157 ( available , but not been offered for some time. ( Originally this was introduced to solve the problem. It never did. Quite the opposite: If you have the problem, then installing this update has no effect; but if you do not have the problem , and you instal this update, it causes the problem, just as all the other "killers do !!. ) )
KB4462174 ( available, and until recently, was still offered )
KB4462223 : The latest, available, and being currently offered
http://www.eileenslounge.com/viewtop...249846#p249846
We see infact that the „hidden" KB4462223 is in fact, an already known „bad"

Code:

---

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4464566
Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition
Letzte Änderung: 05.09.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4464566
Weitere Informationen:
https://support.microsoft.com/kb/4464566
Support-URL:
https://support.microsoft.com/?LN=de-de



https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223
Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462223
Weitere Informationen:
https://support.microsoft.com/kb/4462223
Support-URL:
https://support.microsoft.com/?LN=de-de



KB4461522    No longer available


https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461614
Sicherheitsupdate für Microsoft Office 2010 (KB4461614) 32-Bit-Edition
Letzte Änderung: 12.02.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4461614
Weitere Informationen:
https://support.microsoft.com/kb/4461614
Support-URL:
https://support.microsoft.com/?LN=de-de
 



https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462157
Update für Microsoft Office 2010 (KB4462157) 32-Bit-Edition
Letzte Änderung: 22.01.2019
Größe: 8,2 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung.
Architektur: k.A.
Klassifikation: Wichtige Updates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Unspecified
KB-Artikelnummern: 4462157
Weitere Informationen:
https://support.microsoft.com/kb/4462157
Support-URL:
https://support.microsoft.com/?LN=de-de





https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462174
Sicherheitsupdate für Microsoft Office 2010 (KB4462174) 32-Bit-Edition
Letzte Änderung: 07.02.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462174
Weitere Informationen:
https://support.microsoft.com/kb/4462174
Support-URL:
https://support.microsoft.com/?LN=de-de




https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223
Updatedetails
Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition
Letzte Änderung: 04.04.2019
Größe: 8,0 MB
Details:
Übersicht Sprachauswahl Paketdetails Installationsressourcen
Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben.
Architektur: k.A.
Klassifikation: Sicherheitsupdates
Unterstützte Produkte: Office 2010
Unterstützte Sprachen: all
MSRC-Nummer: k.A.
MSRC-Sicherheit: Important
KB-Artikelnummern: 4462223
Weitere Informationen:
https://support.microsoft.com/kb/4462223
Support-URL:
https://support.microsoft.com/?LN=de-de
 Schließen

---

Test draft copy of forum answers associated with lates XP updates issues

http://www.eileenslounge.com/viewtop...249846#p249846
https://social.technet.microsoft.com...eitproprevious
https://tinyurl.com/t73r3pg
https://social.technet.microsoft.com...?forum=outlook
( ( Locked Threads:
https://answers.microsoft.com/en-us/...lc=1031&page=6
https://answers.microsoft.com/en-us/...fb63739&page=4
https://answers.microsoft.com/en-us/...16500c3?page=1
https://answers.microsoft.com/en-us/...2-7df17e82fb3d )
)

I just finished unwrapping my Xmas present from Microsoft. It took me a couple of days. Despite having automatic updates disabled, occasionally a massive amount of updates still come down unexpectedly. It does not happen very often. I think theoretically it should never happen. But it does.

So one of my XP machines got the present.
I do have an extensive library of known "good and bad" Updates, and coding to sort through and compare them etc.. That usually helps identify the culprits. This time it only saw the old favourites that Microsoft like to send to cripple Active X controls, but never the less my XP was crippled by the issues discussed in this Thread.

I did identify some new updates that I had not seen before, but de installing them did not solve the problem , at least initially. After a lot of painstaking manual de installing and re installing updates I sorted the problem out…

It was very strange this time. By removing recent updates, I noticed that other updates suddenly appeared in the update this. They were not visible before. After removing some of those , the XP problem was solved. Furthermore I could re install most of the updated which I had originbally removed and still the XP problem does not return

Just to explain that again: In order to find the killer updates, you first have to de install some non offending updates. Only then do the killer updates show so that you can de install them. (A few other harmless updates may also suddenly appear). Then you can put the others back, if you like.

So finally below is the current list, with the recent ones at the bottom

If you don't find those,
or
you find some, de install them,
and still have the problem,
then try de installing a few other recent updates and then look at your update list again . If you then see any of the bad updates , then de install them. If that cures the problem then you may be able to re install some of the others you de installed without getting the problem.

In actual fact in my recent case, following the procedure that I have described, I now have all the updates that were showing after the unwanted Xmas present, and a few more, but I no longer have the problem, because I have de installed some of the bad updates, which were initially not showing after the unwanted present. Crazy situation!

Current Killer List
KB4461522 ( no longer available )
KB4461614 ( available , but not been offered for some time )
KB4462157 ( available , but not been offered for some time. ( Originally this was introduced to solve the problem. It never did. Quite the opposite: If you have the problem, then installing this update has no effect; but if you do not have the problem , and you instal this update, it causes the problem, just as all the other "killers do !!. ) )
KB4462174 ( available, and until recently, was still offered )
KB4462223
KB4464566 Probably the most recent killer
The last two may be hidden , and you may need to go through the steps I described to find them. Unfortunately I still have not figured out how to automate messing around with Office updates in XP ( I can do it with most everything else ). So you will need a few days to unwrap your present if you get one…




(P.s. Microsoft have locked some Threads on this, making it difficult to update people on the problem. But a few new Threads have also been started)

Ref:
https://social.technet.microsoft.com...eitproprevious
https://tinyurl.com/t73r3pg
https://social.technet.microsoft.com...?forum=outlook
Locked Threads:
https://answers.microsoft.com/en-us/...lc=1031&page=6
https://answers.microsoft.com/en-us/...fb63739&page=4
https://answers.microsoft.com/en-us/...16500c3?page=1
https://answers.microsoft.com/en-us/...2-7df17e82fb3d

In support of these Thread posts

http://www.excelfox.com/forum/showth...ll=1#post11015
http://www.eileenslounge.com/viewtop...262344#p262344

Code:

---

Sub TestWtchaGot_Unic_NotMuchIfYaChoppedItOff()
 Call WtchaGot_Unic_NotMuchIfYaChoppedItOff("Laptop" & ChrW(8207) & ChrW(5))
End Sub
Sub WtchaGot_Unic_NotMuchIfYaChoppedItOff(ByVal strIn As String) '
Rem 1  ' Output "sheet hardcopies"
'1a) Worksheets    'Make a Temporary Sheet, if not already there, in Current Active Workbook, for a simple list of all characters
    If Not Evaluate("=ISREF(" & "'" & "WotchaGotInString" & "'!Z78)") Then '  ( the '  are not important here, but iin general allow for a space in the worksheet name like  "Wotcha Got In String"
    Dim Wb As Workbook '                                  ' ' Dim:  ' Preparing a "Pointer" to an Initial "Blue Print" in Memory of the Object ( Pigeon Hole with a bit of paper or code lines on that can be filled in to refer to a specific Objec of this type ) . This also us to get easily at the Methods and Properties throught the applying of a period ( .Dot) ( intellisense )                    '
    Set Wb = ActiveWorkbook '  '                            Set now (to Active Workbook - one being "looked at"), so that we carefull allways referrence this so as not to go astray through Excel Guessing inplicitly not the one we want...        Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191                                '
    Wb.Worksheets.Add After:=Wb.Worksheets.Item(Worksheets.Count) 'A sheeet is added and will be Active
    Dim Ws As Worksheet '
    Set Ws = ActiveSheet 'Rather than rely on always going to the active sheet, we referr to it Explicitly so that we carefull allways referrence this so as not to go astray through Excel Guessing implicitly not the one we want...    Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191            ' Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191
    Ws.Activate: Ws.Cells(1, 1).Activate ' ws.Activate and activating a cell sometimes seemed to overcome a strange error
    Let Ws.Name = "WotchaGotInString"
    Else ' The worksheet is already there , so I just need to set my variable to point to it
    Set Ws = ThisWorkbook.Worksheets("WotchaGotInString")
    End If
'1b) Array
Dim myLenf As Long: Let myLenf = Len(strIn)  '            ' Long is very simple to handle, - final memory "size" type is known (123.456 and 000.001 have same "size" computer memory ) , and so a Address suggestion can be given for the next line when the variable is filled in.  '( Long is a Big whole Number limit (-2,147,483,648 to 2,147,483,647) If you need some sort of validation the value should only be within the range of a Byte/Integer otherwise there's no point using anything but Long.--upon/after 32-bit, Integers (Short) need converted internally anyways, so a Long is actually faster. )      https://www.mrexcel.com/forum/excel-questions/803662-byte-backward-loop-4.html
Dim arrWotchaGot() As String: ReDim arrWotchaGot(1 To myLenf + 1, 1 To 2) ' +1 for header  Array for the output 2 column list.  The type is known and the size,  but I must use this ReDim  method simply because the dim statement  Dim( , )  is complie time thing and will only take actual numbers
 Let arrWotchaGot(1, 1) = Format(Now, "DD MMM YYYY") & vbLf & "Lenf is  " & myLenf: Let arrWotchaGot(1, 2) = Left(strIn, 40)
Rem 2  String anylaysis
'Dim myLenf As Long: Let myLenf = Len(strIn)
Dim Cnt As Long
    For Cnt = 1 To myLenf ' ===Main Loop========================================================================
    ' Character analysis: Get at each character
    Dim Caracter As Variant ' String is probably OK.
    Let Caracter = Mid(strIn, Cnt, 1) ' '    the character in strIn at position from the left of length 1
    '2a) The character added to a single  WotchaGot  long character string to look at and possibly use in coding
    Dim WotchaGot As String ' This will be used to make a string that I can easilly see and also is in a form that I can copy and paste in a code line  required to build the full string of the complete character string
        '2a)(i) Most common characters and numbers to be displayed as "seen normally" ' -------2a)(i)--
        If Caracter Like "[A-Z]" Or Caracter Like "[0-9]" Or Caracter Like "[a-z]" Then ' Check for normal characters
            'SirNirios
            If Not Cnt = 1 Then ' I am only intersted in next line comparing the character before, and if i did not do this the next line would error if first character was a  "normal"  character
                If Not Cnt = myLenf And (Mid(strIn, Cnt - 1, 1) Like "[A-Z]" Or Mid(strIn, Cnt - 1, 1) Like "[0-9]" Or Mid(strIn, Cnt - 1, 1) Like "[a-z]") Then  ' And (Mid(strIn, Cnt + 1, 1) Like "[A-Z]" Or Mid(strIn, Cnt + 1, 1) Like "[0-9]" Or Mid(strIn, Cnt + 1, 1) Like "[a-z]") Then
                Let WotchaGot = WotchaGot & "|LinkTwoNormals|"
                Else
                End If
            Else
            End If
        Let WotchaGot = WotchaGot & """" & Caracter & """" & " & " ' This will give the sort of output that I need to write in a code line, so for example if I have a123 , this code line will be used 4 times and give like a final string for me to copy of  "a" & "1" & "2" & "3" &      I would phsically need to write in code  like  strVar = "a" & "1" & "2" & "3"  -  i could of course also write  = "a123"  but the point of this routine is to help me pick out each individual element
        Else ' Some other things that I would like to "see" normally - not "normal simple character" - or by a VBA constant, like vbCr vbLf  vbTab
        Select Case Caracter ' 2a)(ii)_1
          Case " "
          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
          Case "!"
          Let WotchaGot = WotchaGot & """" & "!" & """" & " & "
          Case "$"
          Let WotchaGot = WotchaGot & """" & "$" & """" & " & "
          Case "%"
          Let WotchaGot = WotchaGot & """" & "%" & """" & " & "
          Case "~"
          Let WotchaGot = WotchaGot & """" & "~" & """" & " & "
          Case "&"
          Let WotchaGot = WotchaGot & """" & "&" & """" & " & "
          Case "("
          Let WotchaGot = WotchaGot & """" & "(" & """" & " & "
          Case ")"
          Let WotchaGot = WotchaGot & """" & ")" & """" & " & "
          Case "/"
          Let WotchaGot = WotchaGot & """" & "/" & """" & " & "
          Case "\"
          Let WotchaGot = WotchaGot & """" & "\" & """" & " & "
          Case "="
          Let WotchaGot = WotchaGot & """" & "=" & """" & " & "
          Case "?"
          Let WotchaGot = WotchaGot & """" & "?" & """" & " & "
          Case "'"
          Let WotchaGot = WotchaGot & """" & "'" & """" & " & "
          Case "+"
          Let WotchaGot = WotchaGot & """" & "+" & """" & " & "
          Case "-"
          Let WotchaGot = WotchaGot & """" & "-" & """" & " & "
          Case "_"
          Let WotchaGot = WotchaGot & """" & "_" & """" & " & "
          Case "."
          Let WotchaGot = WotchaGot & """" & "." & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'                  ' 2a)(ii)_2
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
'          Case " "
'          Let WotchaGot = WotchaGot & """" & " " & """" & " & "
          Case vbCr
          Let WotchaGot = WotchaGot & "vbCr & "  ' I actuall would write manually in this case like    vbCr &
          Case vbLf
          Let WotchaGot = WotchaGot & "vbLf & "
          Case vbCrLf
          Let WotchaGot = WotchaGot & "vbCrLf & "
          Case vbNewLine
          Let WotchaGot = WotchaGot & "vbNewLine & "
          Case """"  ' This is how to get a single  "    No one is quite sure how this works.  My theory that,  is as good as any other,  is that  syntaxly  """"    or  "  """  or    """    "  are accepted.  But  in that the  """  bit is somewhat strange for VBA.  It seems to match  the first and Third " together as a  valid pair  but  the other  " in the middle of the  3 "s is also syntax OK, and does not error as    """    would  because  of the final 4th " which it syntaxly sees as a valid pair matched simultaneously as it does some similar check on the  first  and Third    as a concluding  string pair.  All is well except that  the second  "  is captured  within a  accepted  enclosing pair made up of the first and third  "  At the same time the 4th  "  is accepted as a final concluding  "  paired with the  second which it is  using but at the same time now isolated from.
          Let WotchaGot = WotchaGot & """" & """" & """" & """" & " & "                                ' The reason why  ""  ""  would not work is that    at the end of the  "" the next empty  character signalises the end of a  string pair, and only if  it saw a " would it keep checking the syntax rules which  then lead in the previous case to  the situation described above.
          Case vbTab
          Let WotchaGot = WotchaGot & "vbTab & "
          ' 2a)(iii)
            Case Else
                If AscW(Caracter) < 256 Then
                Let WotchaGot = WotchaGot & "Chr(" & AscW(Caracter) & ")" & " & "
                Else
                Let WotchaGot = WotchaGot & "ChrW(" & AscW(Caracter) & ")" & " & "
                End If
            'Let CaseElse = Caracter
        End Select
        End If ' End of the "normal simple character" or not ' -------2a)------Ended-----------
    '2b)  A 2 column Array for convenience of a list
    Let arrWotchaGot(Cnt + 1, 1) = Cnt & "          " & Caracter: Let arrWotchaGot(Cnt + 1, 2) = AscW(Caracter) ' +1 for header
    Next Cnt ' ========Main Loop=================================================================================
    '2c) Some tidying up
    If WotchaGot <> "" Then
    Let WotchaGot = Left(WotchaGot, Len(WotchaGot) - 3) ' take off last " & "    ( 2 spaces one either side of a  & )
    Let WotchaGot = Replace(WotchaGot, """ & |LinkTwoNormals|""", "", 1, -1, vbBinaryCompare)
    ' The next bit changes like this  "Lapto" & "p"  to  "Laptop"  You might want to leave it out ti speed things up a bit
        If Len(WotchaGot) > 5 And (Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[A-Z]" Or Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[0-9]" Or Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[a-z]") And (Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[A-Z]" Or Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[0-9]" Or Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[a-z]") And Mid(WotchaGot, Len(WotchaGot) - 6, 5) = """" & " & " & """" Then
        Let WotchaGot = Left$(WotchaGot, Len(WotchaGot) - 7) & Mid(WotchaGot, Len(WotchaGot) - 1, 2) '  Changes like this  "Lapto" & "p"  to  "Laptop"
        Else
        End If
    Else
    End If
Rem 3 Output
'3a) String
MsgBox prompt:=WotchaGot: Debug.Print WotchaGot ' Hit Ctrl+g from the VB Editor to get a copyable version of the entire string
'3b) List
Dim NxtClm As Long: Let NxtClm = 1 ' In conjunction with next  If  this prevents the first column beine taken as 0 for an empty worksheet
 If Not Ws.Range("A1").Value = "" Then Let NxtClm = Ws.Cells.Item(1, Columns.Count).End(xlToLeft).Column + 1
 Let Ws.Cells.Item(1, NxtClm).Resize(UBound(arrWotchaGot(), 1), UBound(arrWotchaGot(), 2)).Value = arrWotchaGot()
 Ws.Cells.Columns.AutoFit
End Sub
'

---

Coding for this Thread post
http://www.excelfox.com/forum/showth...ll=1#post11827

Code:

---

Sub MakeFormulas4() '  http://www.excelfox.com/forum/showthread.php/2390-Apply-Vlookup-formula-in-all-the-available-sheets-in-a-workbook?p=11827&viewfull=1#post11827
Rem 1 '  Workbooks info
' 1a This months book, this workbook. It is the outout book for the current month
Dim ThisMonthsLatestBook As Workbook, LisWbName As String
 Set ThisMonthsLatestBook = ThisWorkbook ' ActiveWorkbook
 Let LisWbName = ThisMonthsLatestBook.Name
'    If InStr(7, LisWbName, Format(Now(), "MMM"), vbTextCompare) = 0 Then MsgBox Prompt:="This workbook is not for " & Format(Now(), "MMMM"): Exit Sub
'Dim BookN As Long
' Let BookN = Mid(LisWbName, 5, InStr(5, LisWbName, "_", vbBinaryCompare) - 5)
' 1b Last months book
Dim strDteLisBk As String, DteLisBk As Date
 Let strDteLisBk = Mid(LisWbName, 32, 8)
Dim LooksLikeADate As String: Let LooksLikeADate = Right(strDteLisBk, 2) & "." & Mid(strDteLisBk, 5, 2) & "." & Left(strDteLisBk, 4)
 Let DteLisBk = CDate(LooksLikeADate) '  31.12.2019  Looks like a date

Dim sourceBookName As String
' Let sourceBookName = "Book" & BookN - 1 & "_" & Format(DateAdd("m", -1, Now()), "MMM YYYY") & ".xlsm"
  Let sourceBookName = "MSCI Equity Index Constituents " & Format(DateAdd("m", -1, DteLisBk), "YYYYMMDD") & ".xlsm"
Dim sourceBook As Workbook
 Set sourceBook = Workbooks.Open(ThisWorkbook.Path & "\" & sourceBookName)
Rem 2  Make records worksheet                                                                  Sub MakeWorkSheetIfNotThere()
'Dim Wb As Workbook '                                  ' ' Dim:  ' Preparing a "Pointer" to an Initial "Blue Print" in Memory of the Object ( Pigeon Hole with a bit of paper or code lines on that can be filled in to refer to a specific Objec of this type ) . This also us to get easily at the Methods and Properties throught the applying of a period ( .Dot) ( intellisense )                    '
' Set Wb = ActiveWorkbook '  '                            Set now (to Active Workbook - one being "looked at"), so that we carefull allways referrence this so as not to go astray through Excel Guessing inplicitly not the one we want...        Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191                                '
    If Not Evaluate("=ISREF(" & "'" & "Records" & "'!Z78)") Then '  ( the '  are not important here, but in general allow for a space in the worksheet name like  "My Records"
    ThisMonthsLatestBook.Worksheets.Add After:=ThisMonthsLatestBook.Worksheets.Item(Worksheets.Count) 'A sheeet is added and will be Active
    Dim wsRcds As Worksheet '
    Set wsRcds = ThisMonthsLatestBook.Worksheets.Item(ThisMonthsLatestBook.Worksheets.Count)        'Rather than rely on always going to the active sheet, we referr to it Explicitly so that we carefull allways referrence this so as not to go astray through Excel Guessing implicitly not the one we want...    Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191            ' Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed.      http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191
    wsRcds.Activate: wsRcds.Cells(1, 1).Activate ' ws.Activate and activating a cell sometimes seemed to overcome a strange error
    Let wsRcds.Name = "Records"
    Else ' The worksheet is already there , so I just need to set my variable to point to it
    Set wsRcds = ThisWorkbook.Worksheets("Records")
    End If
'                                                                                              End Sub
Rem 3 looping through worksheets
Dim C As Long, I As Long
'C = ActiveWorkbook.Worksheets.Count
 'Let C = ThisWorkbook.Worksheets.Count
 Let C = ThisMonthsLatestBook.Worksheets.Count - 1  '  -1 since last worksheet is records worksheet
    'For I = 1 To C
'Application.ScreenUpdating = True
    For I = 1 To C  '  Sheet1  , Sheet2  , Sheet3 .......
    'what are  our worksheets?                        I  =  1        ,      2 ,      3    ..........
    Dim sourceSheet As Worksheet
    Set sourceSheet = sourceBook.Worksheets.Item(I) '    ("Sheet1")  , Sheet2  , Sheet3 ........
    Dim outputSheet As Worksheet
    Set outputSheet = ThisWorkbook.Worksheets.Item(I) ' ("Sheet1")    , Sheet2  , Sheet3 ........
     
        'Determine last row of source
        With sourceSheet
        Dim SourceLastRow As Long
        SourceLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        End With
        With outputSheet
        'Determine last row in col P
        Dim OutputLastRow As Long
        OutputLastRow = .Cells(.Rows.Count, "P").End(xlUp).Row
        End With
        'Apply our formula in records worksheet
        With Worksheets("Records")
        Let .Cells.Item(1, I).Value = sourceSheet.Name  '  Header in column as worksheet name
        '.Range("Q2:Q" & OutputLastRow).Formula = "=VLOOKUP($A2,'[" & sourceBook.Name & "]" & sourceSheet.Name & "'!$A$2:$P$" & SourceLastRow & ",3,0)"
        .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value = "=VLOOKUP(" & outputSheet.Name & "!$A2,'" & sourceBook.Path & "\" & "[" & sourceBook.Name & "]" & sourceSheet.Name & "'!$A$2:$P$" & SourceLastRow & ",3,0)"
'        .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value = .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value
        End With
    'MsgBox ActiveWorkbook.Worksheets(I).Name
    MsgBox ActiveWorkbook.Worksheets.Item(I).Name
    Next I
'Next P
Rem 4
Dim cel As Range
    With Worksheets("Records").UsedRange
        For Each cel In .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
            If IsError(cel.Value) Then
            '
            Else
                If cel.Value < 3 Then
                cel.Font.Color = vbRed
                Else
                cel.Font.Color = vbGreen
                End If
            End If
        Next cel
    End With
   
'Close the source workbook, don't save any changes
 sourceBook.Close False
' Application.ScreenUpdating = True
End Sub

---

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg. 9h740K6COOA9iHOYYpaAbC
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgxuL6YCUckeUIh9hoh4AaABAg
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwGTEyefOX7msIh1wZ4AaABAg. 9h4sd6Vs4qE9h7G-bVm8_-
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=Ugw3nF0C04AGt73H1BB4AaABAg. 9h6VhNCM-DZ9h7EqbG23kg
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwGTEyefOX7msIh1wZ4AaABAg. 9h4sd6Vs4qE9h7KvJXmK8o
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=Ugw3nF0C04AGt73H1BB4AaABAg. 9h6VhNCM-DZ9h7E1gwg4Aq
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgywFtBEpkHDuK55r214AaABAg
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h79hNGvJbu
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h79YAfa24T
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h79M1SYH1E
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h78SxhXTnR
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Coding in support of these Thread posts
http://www.excelfox.com/forum/showth...ll=1#post11569
http://www.excelfox.com/forum/showth...ll=1#post11672

Code:

---


Sub ipconfigall_routeprint(Optional ByVal Msg As String) '
Rem 1 ipconfig /all
 Shell "cmd.exe /c ""ipconfig /all > """ & ThisWorkbook.Path & "\ipconfig__all.txt"""""
' Get the entire text file as a string
Dim FileNum As Long: Let FileNum = FreeFile(1) '
Dim PathAndFileName As String, strIPcon As String
 Let PathAndFileName = ThisWorkbook.Path & "\ipconfig__all.txt"
 ' Let PathAndFileName = ThisWorkbook.Path & "\test2B.txt"  '  Al
  Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundemental type data input...
    strIPcon = VBA.Strings.Space$(LOF(FileNum)) '....and wot recives it hs to be a string of exactly the right length
    Get #FileNum, , strIPcon
  Close #FileNum
' Tidy the string
 Let strIPcon = Replace(strIPcon, vbCr & vbCr, vbCr, 1, -1, vbBinaryCompare)
 Let strIPcon = Replace(strIPcon, vbTab, "  ", 1, -1, vbBinaryCompare)
' add any extra info to string
Dim PublicIP As String: Call PubicIP(PublicIP)
  Let strIPcon = "ipconfig /all  route print" & Msg & vbCr & vbLf & ComputerName & vbCr & vbLf & GetIpAddrTable & vbCr & vbLf & PublicIP & vbCr & vbLf & vbCr & vbLf & """" & Format(Now, "DD MMM YYYY") & " " & vbLf & " " & Format(Now, "hh mm ss") & """" & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & strIPcon        ' vbLf is recognised as a new line within an Excel"
' String content check
' Call WtchaGot(strIPcon)
' put the text in the clipboard
Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objDataObject.SetText strIPcon: objDataObject.PutInClipboard

' Excel Worksheet
Dim Ws As Worksheet: Set Ws = ActiveSheet
Dim Clm As Range, NxtClm As Long
 Set Clm = Ws.Cells.Find(What:="*", After:=Ws.Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
    If Clm Is Nothing Then
    Let NxtClm = 2
    Else
    Let NxtClm = Clm.Column + 1
    End If
' Put in next free column in Active sheet
 Ws.Paste Destination:=Ws.Cells.Item(1, NxtClm)
' Ws.Columns.AutoFit: Ws.Rows.AutoFit

Rem 2 route print
 Shell "cmd.exe /c ""route print > """ & ThisWorkbook.Path & "\route_print.txt"""""
' Get the entire text file as a string
 Let FileNum = FreeFile(1) '              ' The "highway/ street/ link" to be built to transport the text will be given a number. It must be unique. So we use for convenience, the Freefile function: it returns an integer that represents the next file number that the Open statement can use.  The optional argument for the range number is a variant that is used to specify a range from which the next free file number is returned. Enter a value of data type 0 (default) to return a file number in the range 1 - 255 inclusive. Enter 1 to return a file number in the range 256 - 511.  https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/freefile-function  . Note also : Use file numbers in the range 1-255, inclusive, for files not accessible to other applications. Use file numbers in the range 256-511 for files accessible from other applications
Dim strrouteprint As String
 Let PathAndFileName = ThisWorkbook.Path & "\route_print.txt"
 ' Let PathAndFileName = ThisWorkbook.Path & "\test2B.txt"  '  Al
  Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundemental type data input...
    strrouteprint = VBA.Strings.Space$(LOF(FileNum)) '....and wot recives it hs to be a string of exactly the right length
    Get #FileNum, , strrouteprint
  Close #FileNum
' Tidy the string
 Let strrouteprint = Replace(strrouteprint, vbCr & vbCr, vbCr, 1, -1, vbBinaryCompare)
 Let strrouteprint = Replace(strrouteprint, vbTab, "  ", 1, -1, vbBinaryCompare)
' put the text in the clipboard
objDataObject.SetText strrouteprint: objDataObject.PutInClipboard
' Excel Worksheet
Dim Lr As Long: Let Lr = Ws.Cells(Ws.Rows.Count, NxtClm).End(xlUp).Row
' Put in next free column in Active sheet
 Ws.Paste Destination:=Ws.Cells.Item(Lr + 30, NxtClm)
 Ws.Columns.AutoFit: Ws.Rows.AutoFit
 ActiveWindow.Panes(2).Activate
 Ws.Cells.Item(1, NxtClm).Select
End Sub
'

---

In support of this Thread
http://www.excelfox.com/forum/showthread.php/2402-Extract-Multiple-Rows-into-a-Limited-Template-based-on-Multiple-Criterias
http://www.excelfox.com/forum/showth...iple-Criterias

Summary worksheet, before

_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D
1	Voucher	Date	Link
2			Go To Sheet
3			Go To Sheet
4

Worksheet: Summary

In support of this Thread
http://www.excelfox.com/forum/showthread.php/2402-Extract-Multiple-Rows-into-a-Limited-Template-based-on-Multiple-Criterias
http://www.excelfox.com/forum/showth...iple-Criterias

_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

01.01.2020_99909900 - A

01.01.2020_88888888 - F

01.01.2020_88888886 - D

01.01.2020_88888887 - E

02.01.2020_99909900 - A

03.01.2020_99909900 - A

04.01.2020_88888888 - F

05.01.2020_88888888 - F

06.01.2020_88888888 - F

07.01.2020_88888888 - F

08.01.2020_88888888 - F

09.01.2020_88888888 - F

10.01.2020_99909900 - A

11.01.2020_99909900 - A

12.01.2020_99909900 - A

13.01.2020_99909900 - A

14.01.2020_99909900 - A

15.01.2020_99909900 - A

Worksheet: arrUnicDtsSrc

In support of this Thread
http://www.excelfox.com/forum/showthread.php/2402-Extract-Multiple-Rows-into-a-Limited-Template-based-on-Multiple-Criterias
http://www.excelfox.com/forum/showth...iple-Criterias


_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

01.01.2020	1	Item A	ABC123	1	2000	2000	1E+08	A	1	2000	2000	01.01.2020_99909900 - A
01.01.2020	4	Item D	LLL000	1	131	131	1E+08	A	1	131	131	01.01.2020_99909900 - A
01.01.2020	5	Item E	LLL000	5	550	2750	1E+08	A	5	550	2750	01.01.2020_99909900 - A
01.01.2020	1	Item A	ABC123	1	2000	2000	1E+08	A	1	2000	2000	01.01.2020_99909900 - A
01.01.2020	4	Item D	LLL000	1	131	131	1E+08	A	1	131	131	01.01.2020_99909900 - A
01.01.2020	5	Item E	LLL000	5	550	2750	1E+08	A	5	550	2750	01.01.2020_99909900 - A
01.01.2020	1	Item A	ABC123	1	2000	2000	1E+08	A	1	2000	2000	01.01.2020_99909900 - A
01.01.2020	4	Item D	LLL000	1	131	131	1E+08	A	1	131	131	01.01.2020_99909900 - A
01.01.2020	5	Item E	LLL000	5	550	2750	1E+08	A	5	550	2750	01.01.2020_99909900 - A
01.01.2020	1	Item A	ABC123	1	2000	2000	1E+08	A	1	2000	2000	01.01.2020_99909900 - A
01.01.2020	4	Item D	LLL000	1	131	131	1E+08	A	1	131	131	01.01.2020_99909900 - A
01.01.2020	5	Item E	LLL000	5	550	2750	1E+08	A	5	550	2750	01.01.2020_99909900 - A
01.01.2020	1	Item A	ABC123	1	2000	2000	1E+08	A	1	2000	2000	01.01.2020_99909900 - A
01.01.2020	4	Item B	LLL000	1	131	131	8.9E+07	F	1	131	131	01.01.2020_88888888 - F
01.01.2020	5	Item C	LLL000	5	550	2750	8.9E+07	F	5	550	2750	01.01.2020_88888888 - F
01.01.2020	1	Item D	ABC123	1	2000	2000	8.9E+07	D	1	2000	2000	01.01.2020_88888886 - D
01.01.2020	4	Item D	LLL000	1	131	131	8.9E+07	E	1	131	131	01.01.2020_88888887 - E
01.01.2020	5	Item E	LLL000	5	550	2750	8.9E+07	F	5	550	2750	01.01.2020_88888888 - F
01.01.2020	1	Item A	ABC123	1	2000	2000	1E+08	A	1	2000	2000	01.01.2020_99909900 - A
01.01.2020	4	Item D	LLL000	1	131	131	1E+08	A	1	131	131	01.01.2020_99909900 - A
01.01.2020	5	Item E	LLL000	5	550	2750	1E+08	A	5	550	2750	01.01.2020_99909900 - A
01.01.2020	1	Item A	ABC123	1	2000	2000	1E+08	A	1	2000	2000	01.01.2020_99909900 - A
01.01.2020	4	Item D	LLL000	1	131	131	1E+08	A	1	131	131	01.01.2020_99909900 - A
01.01.2020	5	Item E	LLL000	5	550	2750	1E+08	A	5	550	2750	01.01.2020_99909900 - A
02.01.2020	2	Item B	ABC122	1	3500	3500	1E+08	A	1	3500	3500	02.01.2020_99909900 - A
03.01.2020	3	Item C	LLL000	4	10.4	41.6	1E+08	A	4	10.4	41.6	03.01.2020_99909900 - A
04.01.2020	4	Item D	LLL001	1	131	131	8.9E+07	F	1	131	131	04.01.2020_88888888 - F
05.01.2020	5	Item E	ABC999	8	550	4400	8.9E+07	F	8	550	4400	05.01.2020_88888888 - F
06.01.2020	6	Item F	ABC999	1	2500	2500	8.9E+07	F	1	2500	2500	06.01.2020_88888888 - F
07.01.2020	7	Item G	LLL001	1	2500	2500	8.9E+07	F	1	2500	2500	07.01.2020_88888888 - F
08.01.2020	8	Item H	LLL001	1	2250	2250	8.9E+07	F	1	2250	2250	08.01.2020_88888888 - F
09.01.2020	4	Item D	ABC123	1	2250	2250	8.9E+07	F	1	2250	2250	09.01.2020_88888888 - F
10.01.2020	5	Item E	ABC122	1	2250	2250	1E+08	A	1	2250	2250	10.01.2020_99909900 - A
11.01.2020	11	Item K	ABC122	1	600	600	1E+08	A	1	600	600	11.01.2020_99909900 - A
12.01.2020	12	Item L	ABC123	1	4992	4992	1E+08	A	1	4992	4992	12.01.2020_99909900 - A
13.01.2020	13	Item M	ABC122	1	10	10	1E+08	A	1	10	10	13.01.2020_99909900 - A
14.01.2020	6	Item F	LLL000	1	2731	2731	1E+08	A	1	2731	2731	14.01.2020_99909900 - A
15.01.2020	7	Item G	ABC122	1	85000	85000	1E+08	A	1	85000	85000	15.01.2020_99909900 - A
01.01.2020	5	Item E	LLL000	5	550	2750	1E+08	A	5	550	2750	01.01.2020_99909900 - A
02.01.2020	2	Item B	ABC122	1	3500	3500	1E+08	A	1	3500	3500	02.01.2020_99909900 - A
03.01.2020	3	Item C	LLL000	4	10.4	41.6	1E+08	A	4	10.4	41.6	03.01.2020_99909900 - A
04.01.2020	4	Item D	LLL001	1	131	131	8.9E+07	F	1	131	131	04.01.2020_88888888 - F
05.01.2020	5	Item E	ABC999	8	550	4400	8.9E+07	F	8	550	4400	05.01.2020_88888888 - F
06.01.2020	6	Item F	ABC999	1	2500	2500	8.9E+07	F	1	2500	2500	06.01.2020_88888888 - F
07.01.2020	7	Item G	LLL001	1	2500	2500	8.9E+07	F	1	2500	2500	07.01.2020_88888888 - F
08.01.2020	8	Item H	LLL001	1	2250	2250	8.9E+07	F	1	2250	2250	08.01.2020_88888888 - F
09.01.2020	4	Item D	ABC123	1	2250	2250	8.9E+07	F	1	2250	2250	09.01.2020_88888888 - F
10.01.2020	5	Item E	ABC122	1	2250	2250	1E+08	A	1	2250	2250	10.01.2020_99909900 - A
11.01.2020	11	Item K	ABC122	1	600	600	1E+08	A	1	600	600	11.01.2020_99909900 - A
12.01.2020	12	Item L	ABC123	1	4992	4992	1E+08	A	1	4992	4992	12.01.2020_99909900 - A
13.01.2020	13	Item M	ABC122	1	10	10	1E+08	A	1	10	10	13.01.2020_99909900 - A

Worksheet: arrAllDts

In support of this Thread
http://www.excelfox.com/forum/showthread.php/2402-Extract-Multiple-Rows-into-a-Limited-Template-based-on-Multiple-Criterias
http://www.excelfox.com/forum/showth...iple-Criterias






_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

4

5

6

7

8

9

10

11

12

13

14

15

16

22

23

24

25

26

27

42

Worksheet: arrRws









_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

4
5
6
7
8
9
10
11
12
13
14
15
16
22
23
24
25
26
27
42

Worksheet: arrRwsT

In support of this Thread
http://www.excelfox.com/forum/showthread.php/2402-Extract-Multiple-Rows-into-a-Limited-Template-based-on-Multiple-Criterias
http://www.excelfox.com/forum/showth...iple-Criterias

Code:

---

Option Explicit
Sub DoItForADay()
Rem 1 Worksheets info
Dim WsTp As Worksheet, WsDta As Worksheet, WsSmry As Worksheet
 Set WsTp = ThisWorkbook.Worksheets("Template"): Set WsDta = ThisWorkbook.Worksheets("Datadump"): Set WsSmry = ThisWorkbook.Worksheets("Summary")
Rem 2 The days and source list
' 2a) Put all info in an array
Dim LrDta As Long: Let LrDta = WsDta.Range("A" & WsDta.Rows.Count & "").End(xlUp).Row
Dim arrAllDts() As Variant          '  In the naxt line, the  .Value  Property ( method ) , is used to return in one go all  Values  in the range.  They are returned as a field, ( array ) of values in  held in  Variant  type  elements.  So we must use Variant for the  Dim ing  of the type of our Elements, or else the next code line will error , with a  Mismatch error
 Let arrAllDts = WsDta.Range("A4:M" & LrDta & "").Value '  I am adding  column M  for my own amusement
' 2b)

' 2c) make an array with all unique identifier for each voucher
Dim Cnt As Long
    For Cnt = 1 To UBound(arrAllDts(), 1) ' Looping effectively from forth row until last row in  Datadump
Dim Idt As String
    Let Idt = arrAllDts(Cnt, 1) & "_" & arrAllDts(Cnt, 8) & " - " & arrAllDts(Cnt, 9) '  I am adding a  "_"  to in between the  date  and  source info  : Later I can split the  unique identifiers  string by this  "_"  in order to get the date and souce info
    Let arrAllDts(Cnt, 13) = Idt
    Dim strDtsSrc As String
        If InStr(1, strDtsSrc, Idt, vbBinaryCompare) = 0 Then
        Let strDtsSrc = strDtsSrc & Idt & "###"
        Else
        ' case we already have the date in our string,  strDts
        End If
    Next Cnt
 Let strDtsSrc = Left(strDtsSrc, (Len(strDtsSrc) - 3)) '  take off the last space  "###"  which we do not need
 'Debug.Print strDtsSrc
' 2d)
Dim arrUnicDtsSrc() As String
 Let arrUnicDtsSrc() = Split(strDtsSrc, "###", -1)
 Let Worksheets("arrUnicDtsSrc").Range("A1").Resize(1, (UBound(arrUnicDtsSrc()) + 1)).Value = arrUnicDtsSrc()      '    arrUnicDtsSrc().jpg  --- https://imgur.com/QX1bJMB
 Worksheets("arrUnicDtsSrc").Columns.AutoFit
 Let Worksheets("arrAllDts").Range("A4:M" & LrDta & "").Value = arrAllDts()
 ' The next code line can be removed to get all the 19 worksheets
 ReDim arrUnicDtsSrc(0 To 0): Let arrUnicDtsSrc(0) = "01.01.2020_99909900 - A" ' ***** I am limiting it to the first unique identifier, ( 01.01.2020_99909900 - A ) just for demo purposes. If you remove this line,  then you will see that all dates and sources  will be considered
Rem 3                              ' === Main Outer loop ============================================================
Dim Stear As Variant    '  For Each  unique identifier  . In VBA,
    For Each Stear In arrUnicDtsSrc() ' Doing stuff For Each  unique identifier
    '3a) work out how many rows and which row indicies with the current unique identifier
    Dim DteSrcRwCnt As Long
        For Cnt = 1 To UBound(arrAllDts(), 1) ' ----------------------Going through all data rows
        If arrAllDts(Cnt, 13) = CStr(Stear) Then ' I am looking for rows in the main datadump that have the current unique identifier
        '3a)(i) counting rows
                                                                          ' Debug.Print Cnt + 3 & " " & arrAllDts(Cnt, 13)
          Let DteSrcRwCnt = DteSrcRwCnt + 1  '  counting the rows for the current unique identifier
        '3a)(ii) get the (row) indicies for the current unique identifier. Later i need the row number of all the rows corresponding to the current unique identifier
        Dim strRws As String
          Let strRws = strRws & Cnt + 3 & " " ' I later wont the actual row in the datadump worksheet, so that is 3 higher than the "row" number in  arrAllDts()  because I captured just the range from the 4th row  --    "A4:M........
        Else
        End If
        Next Cnt                              ' ----------------------Going through all data rows
    Let strRws = Left(strRws, (Len(strRws) - 1))  ' Take of last  " "  which I do not need
    Dim arrRws() As String ' The VBA string function returns field of string type elements. So I must Dim my array elements appropriately
    Let arrRws() = Split(strRws, " ", -1, vbBinaryCompare) ' This gives us an array which is the row numbers  in the  Datadump  for this unique identifier
    Let ThisWorkbook.Worksheets("arrRws").Range("A1").Resize(1, (UBound(arrRws()) + 1)).Value = arrRws() '  arrRws().JPG - https://imgur.com/HDgpyQq                          -
    ThisWorkbook.Worksheets("arrRws").Columns.AutoFit
    '3b) In the  "Magic Code line"  below we need a  "vertical" array    https://www.excelforum.com/excel-new-users-basics/1099995-application-index-with-look-up-rows-and-columns-arguments-as-vba-arrays.html#post4571172
    Dim arrRwsT() As Long
    ReDim arrRwsT(1 To UBound(arrRws()) + 1, 1 To 1) ' a  "Vertical"  1 column array
        For Cnt = 1 To UBound(arrRws()) + 1
        Let arrRwsT(Cnt, 1) = arrRws(Cnt - 1)
        Next Cnt
    Let ThisWorkbook.Worksheets("arrRwsT").Range("A1:A" & UBound(arrRws()) + 1 & "").Value = arrRwsT()  '                            -        arrRwsT().JPG - https://imgur.com/syf0PaZ
    Rem 4 Make Vouchers for current unique identifier, Stear
    ' 4a)
    Dim arrVouch() As Variant    '    https://www.excelforum.com/excel-new-users-basics/1099995-application-index-with-look-up-rows-and-columns-arguments-as-vba-arrays.html#post4571172
    Let arrVouch() = WsTp.Range("A1:K24").Value
    ' 4b) An array just containing the rows for the current Idt
    Dim Clms() As Variant: Let Clms() = Evaluate("=Column(A:N)")    '  {1, 2, 3, 4......14} -  Clms().jpg  -  https://imgur.com/xHlUeH9
    Dim arrDtsSrc() As Variant  '    For  "Magic Code line"    https://www.excelforum.com/excel-new-users-basics/1099995-application-index-with-look-up-rows-and-columns-arguments-as-vba-arrays.html#post4571172
    Let arrDtsSrc() = Application.Index(WsDta.Cells, arrRwsT(), Clms())  ' - --"Magic Code line"      -  arrDtsSrc().JPG : https://imgur.com/0c8SgIn
    Let ThisWorkbook.Worksheets("arrDtsSrc").Range("A1").Resize(UBound(arrDtsSrc(), 1), UBound(arrDtsSrc(), 2)).Value = arrDtsSrc() '                            -        arrRwsT().JPG - https://imgur.com/syf0PaZ
    Dim RwCnt As Long: Let RwCnt = 1: Let Cnt = 1
    ' 4c)
        Do While RwCnt < DteSrcRwCnt + 1 ' ............................................
            Do While Cnt < 11 ' _________________________________|
            '  Fill in values in Voucher Array
            Let arrVouch(Cnt + 9, 1) = "'" & arrDtsSrc(RwCnt, 2)  '  The extra  "'"  is one way to keep the leading 0s
            Let arrVouch(Cnt + 9, 4) = arrDtsSrc(RwCnt, 3)    '  Detail  ( Item )
            Let arrVouch(Cnt + 9, 7) = arrDtsSrc(RwCnt, 4)    '  Unit Code
            Let arrVouch(Cnt + 9, 9) = arrDtsSrc(RwCnt, 11)    '  Value
            Let Cnt = Cnt + 1
            Let RwCnt = RwCnt + 1
            Loop ' While Cnt < 11 ' ______________________________|
        Let arrVouch(6, 3) = Split(Stear, "_", 2, vbBinaryCompare)(1) ' The second array element (1) is  source code & source name  ( The first array element (0) is the date )
        Let arrVouch(4, 10) = Split(Stear, "_", 2, vbBinaryCompare)(0) ' The first array element (0) is the date
        Let Cnt = 1                      ' back to first row for a template
    '4d) Information to the summary sheet.
        Dim NxtVch As Long: Let NxtVch = WsSmry.Range("A" & WsSmry.Rows.Count & "").End(xlUp).Row
        Let WsSmry.Range("A" & NxtVch + 1 & "").Value = "V" & Format(NxtVch, "0000")
        Let WsSmry.Range("B" & NxtVch + 1 & "").Value = Split(Stear, "_", 2, vbBinaryCompare)(0)
        WsSmry.Hyperlinks.Add Anchor:=WsSmry.Range("C" & NxtVch + 1 & ""), Address:="", SubAddress:="V" & Format(NxtVch, "0000") & "!A1", TextToDisplay:="Go To Sheet"
    '4e)  Add next voucher
        WsTp.Copy After:=WsDta
        Let ActiveSheet.Name = "V" & Format(NxtVch, "0000")
        Let ThisWorkbook.Worksheets("arrVouch").Range("A1").Resize(UBound(arrVouch(), 1), UBound(arrVouch(), 2)).Value = arrVouch() '                            -        arrRwsT().JPG - https://imgur.com/syf0PaZ
        Let ActiveSheet.Range("A1").Resize(UBound(arrVouch(), 1), UBound(arrVouch(), 2)).Value = arrVouch()
        Let arrVouch() = WsTp.Range("A1:K24").Value  ' get a new template array
   
        Loop ' While RwCnt < DteSrcRwCnt ' .............................................

    Let DteSrcRwCnt = 0 ' ready for next Idt Stear
    Next Stear        ' === Main Outer loop =========================================================================

End Sub

---

In support of this Post:
http://www.excelfox.com/forum/showth...ll=1#post11847


Before
_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D
1	Voucher	Date	Link
2

Worksheet: Summary





After for first two vouchers
_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D
1	Voucher	Date	Link
2	V0001	01.01.2020	Go To Sheet
3	V0002	01.01.2020	Go To Sheet
4

Worksheet: Summary





After for all vouchers
Remove this code line

Code:

---

ReDim arrUnicDtsSrc(0 To 0): Let arrUnicDtsSrc(0) = "01.01.2020_99909900 - A" ' ***** I am limiting it to the first unique identifier, ( 01.01.2020_99909900 - A ) just for demo purposes. If you remove this line,  then you will see that all dates and sources  will be considered

---

_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D
1	Voucher	Date	Link
2	V0001	01.01.2020	Go To Sheet
3	V0002	01.01.2020	Go To Sheet
4	V0003	01.01.2020	Go To Sheet
5	V0004	01.01.2020	Go To Sheet
6	V0005	01.01.2020	Go To Sheet
7	V0006	02.01.2020	Go To Sheet
8	V0007	03.01.2020	Go To Sheet
9	V0008	04.01.2020	Go To Sheet
10	V0009	05.01.2020	Go To Sheet
11	V0010	06.01.2020	Go To Sheet
12	V0011	07.01.2020	Go To Sheet
13	V0012	08.01.2020	Go To Sheet
14	V0013	09.01.2020	Go To Sheet
15	V0014	10.01.2020	Go To Sheet
16	V0015	11.01.2020	Go To Sheet
17	V0016	12.01.2020	Go To Sheet
18	V0017	13.01.2020	Go To Sheet
19	V0018	14.01.2020	Go To Sheet
20	V0019	15.01.2020	Go To Sheet
21

Worksheet: Summary

Coding for these Threads
https://stackoverflow.com/questions/...ication-ontime
http://www.excelfox.com/forum/showth...ll=1#post11870
https://stackoverflow.com/questions/...12342#59812342

Open workbook - MainFile.xls : https://app.box.com/s/prqhroiqcb0qccewz5si0h5kslsw5i5h

Module “Modul1” in MainFile.xls
(This is the main module from which all macros are run)

Code:

---

Option Explicit
' Public variable code section
Private Pbic_Arg1 As String
Public Pbic_Arg2 As Double


Dim sTemp As String
 ' _
_
 
 
Sub MainMacro()    '    https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime/31464597      http://markrowlinson.co.uk/articles.php?id=10
Rem 1
                                                                                                                                                                                                                          Debug.Print "Rem 1" & vbCr & vbLf & "This workbook module, single arrgument"
' This workbook module, single argument
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"            &          "!'Modul1.UnderMainMacro 465'": Debug.Print "!'Modul1.UnderMainMacro 465'"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"            &          "!'Modul1.UnderMainMacro ""465""'": Debug.Print "!'Modul1.UnderMainMacro ""465""'"
 Application.OnTime Now(), "'Modul1.UnderMainMacro  465'" '  --- more usual simplified form. In this case I nned the extra  Modul1.  because Sub UnderMainMacro( ) is private
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "UverFile module, single argument"
' UverFile module, single argument
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"              &            "!'Modul1.MacroInUverFile 465'": Debug.Print "!'Modul1.MacroInUverFile 465'"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"              &            "!'Modul1.MacroInUverFile ""465""'": Debug.Print "!'Modul1.MacroInUverFile ""465""'"
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "Thisworkbook module, multiple arguments"
' Thisworkbook module, multiple arguments
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"            &          "!'Modul1.UnderUnderMainMacro 465, 25'": Debug.Print "!'Modul1.UnderUnderMainMacro 465, 25'"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"            &          "!'Modul1.UnderUnderMainMacro 465, ""25""'": Debug.Print "!'Modul1.UnderUnderMainMacro 465, ""25""' "
 Application.OnTime Now(), "'UnderUnderMainMacro 465,  25 '" '  --- more usual simplified form. I don't even need the extra  Modul1.  because it is not private
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "UverFile module, multiple argument"
' UverFile module, multiple argument
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"                  &          "!'Modul1.MacroUnderMacroInUverFile 465, 25'": Debug.Print "!'Modul1.MacroUnderMacroInUverFile 465, 25'"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"                  &          "!'Modul1.MacroUndermacroInUverFile 465, ""25""'": Debug.Print "!'Modul1.MacroUndermacroInUverFile 465, ""25""'"
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "mess about with argument positions"
' mess about with argument positions
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"              &          "!'Modul1.UnderUnderMainMacro      465  ,    ""25""          '": Debug.Print "!'Modul1.UnderUnderMainMacro      465  ,    ""25""          '"
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "This workbook first worksheet code module, single arrgument"
' This workbook first worksheet code module, single arrgument
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                &          "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWsCodeModule 465'": Debug.Print "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWcCodeModule 465'"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                &            "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWsCodeModule ""465""'": Debug.Print "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWcCodeModule ""465""'"
                                                                  Debug.Print vbCr & vbLf & "UverFile  first worksheet code module, single arrgument"
' UverFile  first worksheet code module, single arrgument
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"                    &          "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModule 465'": Debug.Print "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModule 465'"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"                    &            "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModule ""465""'": Debug.Print "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModule ""465""'"
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "This workbook first worksheet code module, multiple arguments"
' This workbook first worksheet code module, multiple arguments
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &            "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWsCodeModuleMultipleArguments 465      ,  ""25""        '": Debug.Print "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWcCodeModuleMultipleArguments 465      ,  ""25""        '"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &            "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWsCodeModuleMultipleArguments      ""465""  ,  25    '": Debug.Print "!'" & ThisWorkbook.Worksheets.Item(1).CodeName & ".InLisWbFirstWcCodeModuleMultipleArguments      ""465""  ,  25    '"
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "UverFile  first worksheet code module, Multiple  arrgument"
' UverFile  first worksheet code module, Multiple  arrgument
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"                    &          "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModuleMultipleArguments  465  ,    ""25""      '": Debug.Print "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModuleMultipleArguments  465  ,    ""25""      '"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & "UverFile.xls" & "'"                    &          "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModuleMultipleArguments ""465""  ,    ""25""  '": Debug.Print "!'" & "Tabelle1" & ".InUverFileFirstWsCodeModuleMultipleArguments ""465""  ,    ""25""  '"
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "Doubles do not have to be in quotes either  ' This workbook module, double argument arrgument"
' Doubles do not have to be in quotes either  ' This workbook module, double argument arrgument
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &          "!'Modul1.DoubleCheck 465.5  , ""25.4""    '": Debug.Print "!'Modul1.DoubleCheck 465.5  , ""25.4""    '"
                                                                                                                             
Rem 2 Variables
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "Rem 2 Variables" & vbCr & vbLf & "'2a)  ""Pseudo""  variables use"
'2a) "Pseudo" variables use
Dim Arg1_str465 As String, Arg2_Dbl25 As Double
 Let Arg1_str465 = "465.42": Let Arg2_Dbl25 = 25.4
 ' Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                &            "!'Modul1.DoubleCheck  Arg1_str465  ,  Arg2_Dbl25    '": Debug.Print "!'Modul1.DoubleCheck  Arg1_str465  ,  Arg2Db_l25    '"  ' This code line will not work, that is to say it will not find the varables and take  0  values when VBA later runs the Scheduled macro,  Sub DoubleCheck( )
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &          "!'Modul1.DoubleCheck  """ & Arg1_str465 & """  ,  """ & Arg2_Dbl25 & """    '": Debug.Print "!'Modul1.DoubleCheck  """ & Arg1_str465 & """  ,  """ & Arg2_Dbl25 & """  '"
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &            "!'Modul1.DoubleCheck  """ & Arg1_str465 & """  ,  " & Arg2_Dbl25 & "    '": Debug.Print "!'Modul1.DoubleCheck  """ & Arg1_str465 & """  ,  " & Arg2_Dbl25 & "  '"
                                                                                                                                                                                                                          Debug.Print vbCr & vbLf & "'2b) Real varable use"
'2b) Real varable use
 Let Modul1.Pbic_Arg1 = "465.42": Let Pbic_Arg2 = 25.4
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &          "!'Modul1.DoubleCheck  Modul1.Pbic_Arg1    ,  Pbic_Arg2    '": Debug.Print "!'Modul1.DoubleCheck  Modul1.Pbic_Arg1  ,  Pbic_Arg2  '"

 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &          "!'Modul1.DoubleCheck Modul1.Pbic_Arg1, Pbic_Arg2'"
                                                                                                                                ''      Debug.Print Pbic_Arg2 '' This gives 999.99 in  Debug F8  mode , 25.4 in  normal  run

Rem 3 ByRef check
 Application.OnTime Now(), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"                  &          "!'Modul1.ByRefCheck'"
 Application.OnTime Now() + TimeValue("00:00:00"), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"          & "!'Modul1.ByRefCheck'"
 Application.OnTime Now() + TimeValue("00:00:01"), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'"          & "!'Modul1.ByRefCheck'"
End Sub
Private Sub UnderMainMacro(ByVal Nmbr As Long)
 MsgBox prompt:="Arg1 is  " & Nmbr
End Sub
Sub UnderUnderMainMacro(ByVal Nmbr As Long, ByVal NuverNmbr As Long)
 MsgBox prompt:="Arg1 is  " & Nmbr & ", Arg2 is  " & NuverNmbr
End Sub
Sub DoubleCheck(ByVal DblNmr1 As Double, ByRef DblNmr2 As Double) ' provided the signature line is declared appropriately, all number argument types dont have to be in  ""
 MsgBox prompt:="Arg1 is  " & DblNmr1 & ", Arg2 is  " & DblNmr2
 Let DblNmr2 = 999.99
End Sub


Sub ByRefCheck()
 Debug.Print vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & "Rem 3    ByRef Check" & vbCr & vbLf & Pbic_Arg2
End Sub

---

Coding in support of this Thread

Code:

---

Option Explicit
' Module scope variable code section
Public Eye As Long
Private Jay As Long
Dim KEh As Long

' Main scheduling macro 1
Sub ByVal_GEhtitsAppObj_1()
1 Application.OnTime Now(), "'CalledByVal Eye, Jay, KEh'"
 Let Eye = 11: Let Jay = 12: Let KEh = 13

 Application.OnTime Now() + TimeValue("00:00:01"), "'WtchaGotModScopeVariables'"
End Sub

' Main scheduling macro 2
Sub ByVal_GEhtitsAppObj_2()
2 Application.OnTime Now(), "'CalledByVal Module1.Eye, Module1.Jay, Module1.KEh'"  '_--- Fix _ 2)  Module1.MyVariable
 Let Eye = 21: Let Jay = 22: Let KEh = 23
 
 Application.OnTime Now() + TimeValue("00:00:01"), "'WtchaGotModScopeVariables'"
End Sub

' Main scheduling macro 3
Sub ByRef_GEhtitsAppObj_3()
3 Application.OnTime Now(), "'CalledByRef Eye, Jay, KEh'"
 Let Eye = 31: Let Jay = 32: Let KEh = 33
 
 Application.OnTime Now() + TimeValue("00:00:01"), "'WtchaGotModScopeVariables'"
End Sub

' Main scheduling macro 4
Sub ByRef_GEhtitsAppObj_4()
4 Application.OnTime Now(), "'CalledByRef Module1.Eye, Module1.Jay, Module1.KEh'"    '_--- Fix _ 2)  Module1.MyVariable
 Let Eye = 41: Let Jay = 42: Let KEh = 43
 
'  Application.OnTime Now(), "'WtchaGotModScopeVariables'" ' ByRef is not working if this is done
 Application.OnTime Now() + TimeValue("00:00:01"), "'WtchaGotModScopeVariables'"    '_--- Fix _ 1)  to get ByRef to work
End Sub

Sub WtchaGotModScopeVariables()
 Debug.Print Eye & "  " & Jay & "    " & KEh & vbCr & vbLf
End Sub





Sub CalledByVal(ByVal I As Long, ByVal J As Long, ByVal K As Long)
 Debug.Print I & "  " & J & "    " & K
 Let I = I + 1000: Let J = J + 1000: Let K = K + 1000
End Sub
Sub CalledByRef(ByRef I As Long, ByRef J As Long, ByRef K As Long)
 Debug.Print I & "  " & J & "    " & K
 Let I = I + 2000: Let J = J + 2000: Let K = K + 2000
End Sub



'Results
' Macro 1
'  11  0    0
'  11  12    13
'
' Macro 2
'  21  22    23
'  21  22    23
'
' Macro 3
'
'  Fail!!!!!
'
'
' Macro 4
'  41  42    43
' 2041  2042    2043
'
'
'
'
'
'
'
'
'











































































































'
'
'
'
'
'
'
'
'
'
'

Sub GEhtitsAppObject()
1
2  Rem 1 Simple use of variables
  Let Eye = 31: Let Jay = 32: Let KEh = 33
3  Debug.Print Eye & "  " & Jay & "    " & KEh
  Let Eye = 41: Let Jay = 42: Let KEh = 43
4  Debug.Print Module1.Eye & "  " & Module1.Jay & "    " & Module1.KEh
5
6  Rem 2 Call ing Subs with variable arguments
  Let Eye = 71: Let Jay = 72: Let KEh = 73
7  Call CalledByVal(Eye, Jay, KEh)
  Let Eye = 81: Let Jay = 82: Let KEh = 83
8  Call CalledByVal(Module1.Eye, Module1.Jay, Module1.KEh)
9
  Let Eye = 101: Let Jay = 102: Let KEh = 103
10 Call CalledByRef(Eye, Jay, KEh)
  Let Eye = 111: Let Jay = 112: Let KEh = 113
11 Call CalledByRef(Module1.Eye, Module1.Jay, Module1.KEh)
12
13 Rem 3 Application.OnTime
  Let Eye = 141: Let Jay = 142: Let KEh = 143
14  Application.OnTime Now(), "'CalledByVal Module1.Eye, Module1.Jay, Module1.KEh'"
  Let Eye = 151: Let Jay = 152: Let KEh = 153
15  Application.OnTime Now(), "'CalledByVal Eye, Jay, KEh'"
16
  Let Eye = 171: Let Jay = 172: Let KEh = 173
17  'Application.OnTime Now(), "'CalledByRef Eye, Jay, KEh'"
  Let Eye = 181: Let Jay = 182: Let KEh = 183
18  Application.OnTime Now(), "'CalledByRef Module1.Eye, Module1.Jay, Module1.KEh'"
19
End Sub







'20 Rem 4 Application.Run
'  Let Eye = 211: Let Jay = 212: Let KEh = 213
'21 Application.Run "CalledByVal", Eye, Jay, KEh
'  Debug.Print Eye & "  " & Jay & "    " & KEh
'
'  Let Eye = 221: Let Jay = 222: Let KEh = 223
'22 Application.Run "CalledByVal", Module1.Eye, Module1.Jay, Module1.KEh
'  Debug.Print Eye & "  " & Jay & "    " & KEh
'23
'
'  Let Eye = 241: Let Jay = 242: Let KEh = 243
'24 Application.Run "CalledByRef", Module1.Eye, Module1.Jay, Module1.KEh
'  Debug.Print Eye & "  " & Jay & "    " & KEh
'
'  Let Eye = 251: Let Jay = 252: Let KEh = 253
'25 Application.Run "CalledByRef", Eye, Jay, KEh
'  Debug.Print Eye & "  " & Jay & "    " & KEh
'
'End Sub
'    Sub CalledByVal(ByVal I As Long, ByVal J As Long, ByVal K As Long)
'    Debug.Print I & "  " & J & "    " & K
'    Let I = I + 1000: Let J = J + 1000: Let K = K + 1000
'    End Sub
'    Sub CalledByRef(ByRef I As Long, ByRef J As Long, ByRef K As Long)
'    Debug.Print I & "  " & J & "    " & K
'    Let I = I + 2000: Let J = J + 2000: Let K = K + 2000
'    End Sub

---

In support of this thread
http://www.excelfox.com/forum/showth...ll=1#post12138

Code:

---

dism.exe /Online /Get-Drivers  > "C:\Users\Elston\Desktop\3rdparty driverlist.txt"

---

Code:

---

Tool zur Imageverwaltung fr die Bereitstellung
Version: 10.0.17134.1

Abbildversion: 10.0.17134.1246

Liste der Treiber von Drittanbietern wird aus dem Treiberspeicher abgerufen...

Treiberpaketauflistung:

Ver"ffentlichter Name : oem0.inf
Originaldateiname : prnms009.inf
Windows-intern : Nein
Klassenname : Printer
Anbietername : Microsoft
Datum : 21.06.2006
Version : 10.0.17134.1

Ver"ffentlichter Name : oem1.inf
Originaldateiname : prnms001.inf
Windows-intern : Nein
Klassenname : Printer
Anbietername : Microsoft
Datum : 21.06.2006
Version : 10.0.17134.1

Ver"ffentlichter Name : oem2.inf
Originaldateiname : igdlh.inf
Windows-intern : Nein
Klassenname : Display
Anbietername : Intel Corporation
Datum : 11.03.2013
Version : 8.15.10.2702

Ver"ffentlichter Name : oem3.inf
Originaldateiname : hpygid20_v4.inf
Windows-intern : Nein
Klassenname : Printer
Anbietername : HP
Datum : 29.05.2017
Version : 20.79.1.6692

Der Vorgang wurde erfolgreich beendet.

---

---

Code:

---

dism /online /export-driver /destination: "C:\Users\Elston\Desktop\driverbackupBefore"
Export-WindowsDriver -Online -Destination "C:\Users\MeinPC\Desktop\PowerShell driverbackup"

---

_____ Workbook: wbCodesBeforeFrom cmd prompt.xlsm ( Using Excel 2007 32 bit )

F:\Windows\Windows 10\Win 10 Devices\driverbackup	driverbackup
F:\Windows\Windows 10\Win 10 Devices\driverbackup\hpygid20_v4.inf_amd64_01bab60 e80914ef1		hpygid20_v4.inf_amd64_01bab60e80914ef1
		hp8720.bag
		hpgid20v4-bidiEvent.xml
		hpgid20v4-bidiSPM.xml
		hpgid20v4-bidiUSB-OPA.xml
		hpgid20v4-bidiUSB.js
		hpgid20v4-bidiWSD.xml
		hpgid20v4-constraints.js
		hpgid20v4-PipelineConfig.xml
		hpgid20v4cfg.gdl
		hpgid20v4help.cab
		hpgid20v4map.xml
		hpgid20v4que.xml
		hpygid20_8720-manifest.ini
		hpygid20_v4.cat
		hpygid20_v4.inf
		hpygid20_v4.PNF
F:\Windows\Windows 10\Win 10 Devices\driverbackup\hpygid20_v4.inf_amd64_01bab60 e80914ef1\amd64			amd64
			hpbxpsv420.dll
			hpgid20v4PE.exe
			hpgid20v4PELib.dll
			hpgid20v4_symbols.gpd
			hpoj_8720_v4.gpd
			hpUIMDDialog20.dll
			hpygiddrv20.dll
			hpygidres20.dll
			userfors.dll
F:\Windows\Windows 10\Win 10 Devices\driverbackup\igdlh.inf_amd64_c9077a4bbb395 caa		igdlh.inf_amd64_c9077a4bbb395caa
		igcompkrng500.bin
		igd10umd32.dll
		igd10umd64.dll
		igdkmd64.sys
		igdlh.cat
		igdlh.inf
		igdlh.PNF
		igdumd32.dll
		igdumd64.dll
		igfcg500m.bin
		igkrng500.bin
		iglhcp32.dll
		iglhcp64.dll
		iglhsip32.dll
		iglhsip64.dll
		iglhxa64.cpa
		iglhxa64.vp
		iglhxc64.vp
		iglhxg64.vp
		iglhxo64.vp
		iglhxs64.vp
F:\Windows\Windows 10\Win 10 Devices\driverbackup\prnms001.inf_amd64_cb0feabdd7 1f0e97		prnms001.inf_amd64_cb0feabdd71f0e97
		MXDW-manifest.ini
		MXDW-pipelineconfig.xml
		MXDW.gpd
		mxdwdui.dll
		prnms001.cat
		prnms001.Inf
		prnms001.PNF
F:\Windows\Windows 10\Win 10 Devices\driverbackup\prnms009.inf_amd64_5887f9f923 285dd6		prnms009.inf_amd64_5887f9f923285dd6
		MPDW-constraints.js
		MPDW-manifest.ini
		MPDW-PDC.xml
		MPDW-pipelineconfig.xml
		MPDW_devmode_map.xml
		prnms009.cat
		prnms009.Inf
		prnms009.PNF

Worksheet: cmd