VPN Forum access and IP addresse Tests

[FONT=Arial][size=3] [color="#3E0000"]


SoftEther XP issue.

I am at a loss as to what new to try here.

I did register a new Device name on my account, TheDocIsHere@xp
I made one new SoftEther connection using TheDocIsHere@xp on an XPmachine, https://imgur.com/59GGBc7
But I could not make much progress with that because attempting to use that for a connection shortly after registering the new Device results in an endless loop asking me again and again to verify the Username and Password.
https://imgur.com/KYOOtBo

I restarted a few times but that had no effect, I still got the endless loop asking me to verify the Username and Password

I experienced this issue early on in my testing of VPN with my original initial single Device name. So I expect this problem may sort itself out by itself eventually , as it did at that time.

( But I doubt that a working new device name will have any effect on the remaining SoftEther XP issue).



On your Windows XP machine can you do the following commands in command prompt, press 'Windows Key + R' and then type in cmd in the Run box and hit Enter. Now type in the following command in Command Prompt, enter this both when you are not connected to VPN and also while connected to VPN:
nslookup hide.me
nslookup hide.me 8.8.8.8
route print

Regarding this screenshot https://imgur.com/KMk8m1F - VPN client Adapter is adapter for SoftEther and TAP Windows Adapter V9 adapter is for OpenVPN.
Please check that you are not connecting both SoftEther and OpenVPN connection at the same time.
Also, on Windows XP and Vista please try (this configuration file), you can also try it on other computer


I have not had time to look thoroughly further at my XP/SoftEther issue yet. I will do this and then report back to you in another EMail. )



Remaining XP SoftEther issue.
I have not had time to look thoroughly yet at this. I will do this and then report back to you. Firstly I will try the suggestions from your last Email. Another thing that I will possibly try is older Client versions

_:___

Just some thoughts........ I suppose it makes some sense to try older Clients if using older operating systems… ? I wonder if a "rule of thumb" could be to try a version whose issue date is close to and/or shortly after the most recent Windows update that is on the computer on which you want to install the Client. My reason for suggesting this is that I presume the people who write this software would routinely be testing their software on a fairly up to date system which would likely have the most recent windows updates of that time.

( I already know from my own small experience that unfortunately, Microsoft updates usually seem to cause at least as many problems as they solve……………. :( )


_.__________


I will also prepare some configuration files for your computers with TCP mode in the settings as some service providers throttle UDP based protocols and TCP based protocol might work better for you.
Try this configuration file from (here) and download this one from (here).
Just make sure you don't start VPN connection on your XP computer with both SoftEther while OpenVPN connection was already active.
Some configuration files (openvpn-berlin and openvpn-berlin-21) won't work on older OpenVPN client versions since the configuration files have tls crypt which is not supported on OpenVPN 2.3 versions. You can download configuration files for Windows XP and Vista from your Members area as it still provides older versions.
Openvpn-berlin and openvpn-berlin-21 configuration files you can use with OpenVPN 2.4. on Windows 7, 8 and Windows 10.
Sorry to hear about issues with downloading SoftEther and on one of your computers you can also try using this link to check if there are any issues with downloading - http://www.softether-download.com/fi..._x64-intel.exe
The version you've successfully downloaded and installed is the build from 2016 and as you noticed it does make sense to try out older version as compatibility issues are resolved - https://www.softether-download.com/f..._x64-intel.exe
And you can try this build on Windows XP machine as well.
Since you mentioned Windows updates bring more problems than fixes, recently what happened is just that - check this article for example: https://www.bleepingcomputer.com/new...work-adapters/
Thanks for the feedback,I'm glad to hear it's working better now and I hope SoftEther will also improve.


_.______


XP ( LG X120 )
OpenVPN 2 3 18 I001 TAP-Windows 9 9 2
https://build.openvpn.net/downloads/...-I001-i686.exe
Berlin.ovpn ___ OK
Berlin-tcp.ovpn __ OK
openvpn-berlin.ovpn ___ FAIL
openvpn-berlin-21.ovpn ___ FAIL
Netherlands-ip-tcp.ovpn ___ OK

XP Issue…
So, back to the XP / SoftEther remaining issue.
( [size=2] This is the issue whereby it appears that a connection will give a working internet only once at approximately a couple of day intervals. Attempts more often than that at a dis connection / connection, appear to be successful, but the internet will not work


https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=Ugxq4JHRza_zx3sz0fx4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=UgzMCQUIQgrbec400jl4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=UgwhVTFaD469mW9wO194AaABAg. 9gJzxwFcnPU9gORqKw5tW_
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=Ugyb8nmKKoXvcdM58gV4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=UgwvvXcl1oa79xS7BAV4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=UgxvIFArksPprylHXYZ4AaABAg
https://www.youtube.com/watch?v=f7xZivqLZxc&lc=Ugxq4JHRza_zx3sz0fx4AaABAg
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

[FONT=Arial][size=3] [color="#3E0000"]



So at this point, both my xp computers are in a similar state:
They have a working internet without VPN and an attempt at a SoftEther connection appears successful but the internet does not usually work

Further hide.me xp notes to follow

Cjhgjhgjhghgh

Cjhgjhgjhghgh

mnnvmnmnmnnbn

For Windows Vista you can check this article here: https://hide.me/en/knowledgebase/hid...dows-xp-vista/
As mentioned in the article, if you are using free membership you can set up VPN connection using SoftEther protocol and this setup guide here:
The OpenVPN protocol is only available to our Free members through our own VPN client apps here and we no longer provide our native VPN client for Windows XP and Vista.
You can check this article here: https://hide.me/en/knowledgebase/where-can-i-download-openvpn-configuration-files/
We also recommend to upgrade to newer version of the operating system to be able to receive security patches and regular updates from Microsoft and also to use our latest VPN app.
When you will have time please check these articles and with free membership you can continue using SoftEther setup on your Windows XP and Vista devices and for Windows 7 you can download our VPN client from here.


_2) I am not sure how to "get started" , for example , with a computer with Vista Operating system: You mention "SoftEther setup" . I have been able to Google some information on SoftEther. But I am rather confused as to how
that fits in with a VPN from hide.me. In other words, I have no idea how to "get started" with a computer with
Vista Operating system: What do I download and from where. I am basically looking for a "computer idiots guide" to getting started with your VPN on a Vista computer.
Can you tell me what my first step or steps would be try out a VPN connection on a Vista operating system machine?
(I think I would prefer to get the more difficult option of Vista ( or XP ) working first: It would not be so helpful if I practiced on the simpler Windows 7, and then, after taking full membership option found that I had difficulty getting a VPN on one of my older machines… )

_3) "VPN client" ..???
_3) (i) You have used the term "our VPN client" in your last Email….. On the internet this term, "VPN client", is used very imprecisely and vaguely, and appears to mean many different things depending on who uses it and in what context. Could you please elaborate on what you are referring to by "our VPN client"
_3) (ii) I have read that my "Router"###, "does not have the VPN client feature", and so "cannot connect directly to a VPN service". ( https://vpn-anbieter-vergleich-test....d-vpnanbieter/ ). Is this relevant?
_.__________________

We have our own VPN clients on our website here: https://hide.me/en/software
However there are alternative ways of setting up a VPN connection, you can find all our setup tutorials that do not require our software on https://hide.me/en/vpnsetup/
You can establish VPN connection manually using your operating systems built-in VPN client and one of our setup guides from our tutorial section.
For example, for Windows 7 you can use this guide here: https://hide.me/en/vpnsetup/windows7/ikev2/
Our own VPN client means our own VPN application that is solely our product and it was developed by us.
Please note that SoftEther standalone client/application is not our own product, OpenVPN and SoftEther standalone clients which are still viable for Windows XP/Vista are third party products - none of those are developed by us.
OpenVPN and SoftEther are open source projects and you can check https://en.wikipedia.org/wiki/OpenVPN
And more information on SoftEther project you can find here https://www.softether.org/
Both OpenVPN and SoftEther security wise are one of the best protocols available and you can check this article here: https://hide.me/en/blog/best-vpn-protocol/
________________________________________
As mentioned in Step 1 of the setup guide you need to download SoftEther standalone client from their website here: http://www.softether-download.com/en...duct=softether
have made changes in the meantime since the hide me notes and tutorials were written.

SoftEther VPN
Following the hide me notes and tutorials choosing the SoftEther Option, ( which you also noted in your last Email ) , I have more success. The tutorial form hide me ties up exactly with what one finds at the softether-download site.
The hide me notes for getting the SoftEther VPN "Client" are very clear and easy to follow…
I followed all the steps and I seem to have success!!
( I did get some extra info appear as well , which I am not sure what it
means, .. yet.. : https://imgur.com/hhyGYKf )

_b) This morning , I occasionally had an error after connection using my Vista laptop connection. The error occurred a few times, usually after connecting. But after a few minutes it sorted itself out by itself, and all was well. So it was not a major problem, just an occasional short term inconvenience. https://imgur.com/oLfSlA1
_c) regarding those German screenshots from yesterday.. That is not too important. I think I know what is _d) This morning when connecting my Vista laptop I consistently get told that my assigned IP address will be this: https://imgur.com/K3VUGN4
I disconnected and reconnected a few times and consistently I see as in that last screenshot
But on inspection I see a different IP address being used: https://imgur.com/EeuJ04F
I expect this is not too important for now, and as you mentioned, I may have more control of the IP address used with the premium version

Regarding the Softether error, it could be a temporary issue with the route between your ISP and our VPN server, there are many interconnecting links and you can reconnect again or try to connect to a VPN server closest to your real location, because that will provide you with the best internet speed and connection quality.
Regarding the notification about your assigned IP address, our DHCP server gives you a different internal IP address when you connect and the one that you see on the IP check is the external (public) IP address of our VPN server.
IP address in 10.x.x.x private range belongs to our internal range, which is used for internal routing. the ip address you see on hide.me/check is an external IP address available on the internet. This is called Network Address Translation (NAT for short) For more information about NAT, please check out this article.




On my Vista machine, I continually kept getting any of these , making it impossible to use any connection for more than a short period of time.: https://imgur.com/V1LEGbe https://imgur.com/B282Nei


So this is the results from my experiments today, Sunday.


_ My Vista Operating System Lap top ACER Aspire 4810TZG
Initially I did not change anything on my Vista machine, ( which still was/ is set up to use hide.me via the "SoftEther way".
Today, Sunday, it only seemed to have the problems mentioned from yesterday, Saturday, a few time initially. After that it had settled down.
So, initially I have not made the adjustments that you mentioned in your second screenshot in your last Email. For this machine. But I may look at them later on this machine.


.... regarding the OpenVPN client files for Vista and XP ..
… could these be a possible source for them? ( I found them after a short
Google search for "OpenVPN client download" )
http://www.frostvpn.com/downloads/Openvpn_ALL_32.exe
http://www.frostvpn.com/downloads/Openvpn_XP_32.exe


I have not attempted to download them myself yet, as I am a bit apprehensive of downloading when I do not have any information about the source.

On my Vista and Win 7 machines all the VPN stuff is working OK

Regarding connection issues on your XP computer, perhaps something is interfering with your connection, maybe security software if you're using it but you can try restarting your router and your computer to check if it resolves these issues.
You mentioned if you need to add a new connection and then change the Advanced setting, that is not necessary- you only need to press OK to confirm it, first on the Advanced section and then on the main screen of SoftEther client.
Make sure that your firewall is not blocking the following ports or turn off the router's firewall:
SSTP / SoftEther require port 443
IKEv2 requires UDP ports 500 and 4500
PPTP requires TCP port 1723
L2TP requires UDP 1701, 500 and 4500
OpenVPN requires TCP/UDP 4000-4100

To connect to VPN, you have to allow ports through firewall for each respective protocol.
Forgive me for being stupid or missing the obvious again , but I am not seeing any mentioned download for Vista






TCP based protocols such as SSTP and SoftEther might work better for you.
________________________________________

OpenVPN client doesn't have a separate installer for Vista, you can use the one for Windows 7 - you can check this article here: https://openvpn.net/vpn-server-resou...-with-windows/

Code for Thai .

Code:

---

Option Explicit
Sub Sendfromexcellearninggmail()
Rem 6 EMail send 'For info see:  http://www.excelfox.com/forum/showthread.php/2233-Urgent-support-needed-Multiple-emails-multiple-Excel-workbooks-at-once#post10519
'Working at my end With my With End With Created LCDCW Library, (LCD 1.0 Library ) (Linking Configuration Data_Cods Wollups)
    '6a(i)
    With CreateObject("CDO.Message") ' -Linking Cods Wollups--------
    Dim LCD_CW As String: Let LCD_CW = "http://schemas.microsoft.com/cdo/configuration/"
    .Configuration(LCD_CW & "smtpusessl") = True '
    .Configuration(LCD_CW & "smtpauthenticate") = 1  '
    '  ' Sever info
    .Configuration(LCD_CW & "smtpserver") = "smtp.gmail.com" ' "smtp.office365.com" ' "smtp.live.com" ' "smtp-mail.outlook.com" ' "smtp.live.com" ' "smtp.gmail.com" ' "securesmtp.t-online.de" "smtp.mail.yahoo.com" "smtp.live.com" "pod51017.outlook.com"  "smtp-mail.outlook.com" "smtp.live.com"  "securesmtp.t-online.de"
    '  The mechanism to use to send messages.
    .Configuration(LCD_CW & "sendusing") = 2  '  Based on the LCD_OLE Data Base of type DBTYPE_I4
    .Configuration(LCD_CW & "smtpserverport") = 465 ' 465 or 25 for gmail '587 ' 25  ' 465 or 25 for t-online.de 'or 587 'or 25
    '
    .Configuration(LCD_CW & "sendusername") = "excellearning12@gmail.com" '
    .Configuration(LCD_CW & "sendpassword") = "xxxxxxxxxxxxx"      '                                  '
'    .Configuration(LCD_CW & "sendusername") = "YourEMailAddress"
'    .Configuration(LCD_CW & "sendpassword") = "YourEMailPassword"
    ' Optional - How long to try
    .Configuration(LCD_CW & "smtpconnectiontimeout") = 30 '
    ' Intraction protocol is Set/ Updated
    .Configuration.Fields.Update '
    'End With 6a(i)' ----------------------        my Created  LCDCW Library
    '6a(ii) With  ' -- ' Data to be sent---      my Created  LCDCW Library
    Dim strHTML As String: Let strHTML = "<font size=""3"" face=""Calibri"">" & _
    "This is sent from EMail account:" & _
    "<br>Username: ""excellearning12@gmail.com""" & _
    "<br>Password: ""xxxxxxxxxxxxx""" & _
    "<br><br>" & _
    "<br>Please click on the 5 links below and tell me what happens, thanks!" & _
    "<br>1 <A HREF=""https://app.box.com/s/x01liz3ralbdrt152i52fpwb0wx40ff3"">link to box net cloud free file sharing</A>" & _
    "<br>2 <A HREF=""file://" & ThisWorkbook.Path & "\" & "Test file DOThtm to be stored on your computer to try to open with a Hyperlink in a received EMail.htm"""">htm file on your computer</A>" & _
    "<br>3 <A HREF=""file://" & ThisWorkbook.Path & "\" & "Test file DOThtm to be stored on your computer to try to open with a Hyperlink in a received EMail.htm"""">htm file on your computer</A>" & _
    "<br>4 <A HREF=""file://" & ThisWorkbook.Path & "\" & "Empty test file DOTxls stored on your computer to try to open from Hyperlink in arrived Email.xls"""">empty xls file on your computer</A>" & _
    "<br>5 <A HREF=""file:///" & ThisWorkbook.Path & "\" & "Empty test file DOTxls stored on your computer to try to open from Hyperlink in arrived Email.xls"""">empty xls file on your computer</A>"
    .To = "THai xxxxxxxxx"
    '.CC = "xxxxxxxxxxxxx"
    .BCC = ""
    .from = """excellearning12@gmail.com"" <excellearning12@gmail.com>"
    .Subject = "Sent from EMail address: excellearning12@gmail.com"
    .htmlbody = strHTML

    .Send ' Do it
    End With ' 6a(ii) CreateObject("CDO.Message") ---my Created  LCDCW Library
End Sub

---

Testing files( sent privately ) :
I have also posted 3 files to you using our share g mail account , ExcelVBAExp@gmail.com
Please can you also try out the test…

Please do the following.

_1) Download all three files , and important: All must be stored in the same Folder.
( the three files are:
Test file DOThtm to be stored on your computer to try to open with a Hyperlink in a received Email.htm
Empty test file DOTxls stored on your computer to try to open from Hyperlink in arrived Email.xls
Test File Thai to send EMail containing Hyperlinks to Files.xlsm )

_2) Open only file Test File Thai to send EMail containing Hyperlinks to Files.xlsm
Run code Sub Sendfromexcellearninggmail()

You should receive an Email similar to these:
Alan 5 Links in German Telekom.JPG : https://imgur.com/LeASbhf
Attachment 2079
Alan 5 Links in gmail.JPG : https://imgur.com/0sdyZEj
Attachment 2080

_3) Please click on the links.

_4) Please reply and tell me what happens when you click each link

Thanks
Alan

First test code for solution to this thread:
http://www.excelfox.com/forum/showth...le-or-two-tabs

( Run code Sub TestieCalls() )

Code:

---

Option Explicit
Sub TestieCalls()
 Call Testie(Worksheets("Sheet1"), Worksheets("Sheet2"))
End Sub
Sub Testie(Ws1 As Worksheet, Ws2 As Worksheet)
Rem 1 Worksheet data info
'1a capture data
'1a(i) last data rows
Dim lr1_1 As Long, Lr1_2 As Long, Lr2_1 As Long, Lr2_2 As Long, Lr1 As Long, lr2 As Long
 Let lr1_1 = Ws1.Cells(Rows.Count, 1).End(xlUp).row
 Let Lr1_2 = Ws1.Cells(Rows.Count, 2).End(xlUp).row: Lr2_1 = Ws2.Cells(Rows.Count, 1).End(xlUp).row: Lr2_2 = Ws2.Cells(Rows.Count, 2).End(xlUp).row
    If lr1_1 > Lr1_2 Then
    Let Lr1 = lr1_1
    Else
    Let Lr1 = Lr1_2
    End If
 Let lr2 = Lr2_2: If Lr2_1 > Lr2_2 Then Let lr2 = Lr2_1
'1a(ii) capture data into arrays in one go
Dim arrSht1() As Variant, arrSht2() As Variant
 Let arrSht1() = Ws1.Range("A1:B" & Lr1 & "").Value
 Let arrSht2() = Ws2.Range("A1:B" & lr2 & "").Value
Rem 2 arrays for check and output
Dim arrSht1b() As String, arrOut() As String
'2a size arrays to that of sheet 2 data
 ReDim arrSht1b(1 To UBound(arrSht2(), 1), 1 To UBound(arrSht2(), 2))
 ReDim arrOut(1 To UBound(arrSht2(), 1), 1 To UBound(arrSht2(), 2))
'2b fill modified sheet 1 array, arrSht1b() , initially with sheet 1 data
Dim Cnt As Long
    For Cnt = 1 To UBound(arrSht1(), 1) Step 1
    Let arrSht1b(Cnt, 1) = arrSht1(Cnt, 1): Let arrSht1b(Cnt, 2) = arrSht1(Cnt, 2)
    Next Cnt
Rem 3 main loop  ' == Start main loop ==========
    For Cnt = 1 To UBound(arrSht2(), 1) - 1 Step 1 ' Counting at each row
    Dim DifCnt As Long 'Count of different cells
        ' Condition check
        If (arrSht2(Cnt, 1) <> arrSht1b(Cnt, 1) Or arrSht2(Cnt, 2) <> arrSht1b(Cnt, 2)) And (arrSht2(Cnt + 1, 1) = arrSht1b(Cnt + 1, 1) And arrSht2(Cnt + 1, 2) = arrSht1b(Cnt + 1, 2)) Then  ' condition for changed row but next row is as previous : row had data changed, but a row was not inserted
        Let arrSht1b(Cnt, 1) = arrSht2(Cnt, 1): arrSht1b(Cnt, 2) = arrSht2(Cnt, 2) 'change any changed cell
            If arrSht1b(Cnt, 1) <> arrSht1(Cnt, 1) Then
            Let arrOut(Cnt, 1) = arrSht1b(Cnt, 1) & "  <>  " & arrSht1(Cnt, 1)
            Let DifCnt = DifCnt + 1
            Else: End If
            If arrSht1b(Cnt, 2) <> arrSht1(Cnt, 2) Then
            Let arrOut(Cnt, 2) = arrSht1b(Cnt, 2) & "  <>  " & arrSht1(Cnt, 2)
            Let DifCnt = DifCnt + 1
            Else: End If
        ' Condition check
        ElseIf ((arrSht2(Cnt, 1) <> arrSht1b(Cnt, 1) Or arrSht2(Cnt, 2) <> arrSht1b(Cnt, 2)) And (arrSht2(Cnt + 1, 1) <> arrSht1b(Cnt + 1, 1) Or arrSht2(Cnt + 1, 2) <> arrSht1b(Cnt + 1, 2))) Then  ' main condition suggesting added new row
        Dim AdedRows As Long: Let AdedRows = AdedRows + 1
        '3b we need to shift all data down to allow space for new row in arrSht2()
        Dim CntIn As Long
            For CntIn = (UBound(arrSht2(), 1) - 1) To Cnt Step -1 'loop for all but last from this row
            Let arrSht1b(CntIn + 1, 1) = arrSht1b(CntIn, 1): arrSht1b(CntIn + 1, 2) = arrSht1b(CntIn, 2) ' This effectively pulls up each row by one
            Next CntIn
        '3c add the new data to the modified array, Let arrSht1b()
        Let arrSht1b(Cnt, 1) = arrSht2(Cnt, 1): arrSht1b(Cnt, 2) = arrSht2(Cnt, 2)
            If arrSht1b(Cnt, 1) = "" Then arrSht1b(Cnt, 1) = "          " ' Just to make final output more neat
            If arrSht1b(Cnt, 2) = "" Then arrSht1b(Cnt, 2) = "          "
        '3d add info to the output array
            If Cnt > UBound(arrSht1(), 1) Then ' case of new lines
            Let arrOut(Cnt, 1) = "An new extra line contains  " & arrSht1b(Cnt, 1): arrOut(Cnt, 2) = "An new extra line contains  " & arrSht1b(Cnt, 2)
           
            Else
              If arrSht1b(Cnt, 1) <> arrSht1(Cnt, 1) Then
                Let arrOut(Cnt, 1) = arrSht1b(Cnt, 1) & "  <>  " & arrSht1(Cnt, 1)
                Let DifCnt = DifCnt + 1
              Else: End If
              If arrSht1b(Cnt, 2) <> arrSht1(Cnt, 2) Then
                Let arrOut(Cnt, 2) = arrSht1b(Cnt, 2) & "  <>  " & arrSht1(Cnt, 2)
                Let DifCnt = DifCnt + 1
              Else: End If
            End If
        '
        Let Cnt = Cnt + 1 ' we need to skip the next row as that was just effectively added so we are done with it
        Else ' row has not been added here
       
        End If
    Next Cnt ' ========= End main loop ==========
Rem 4 last row may be new
    If arrSht2(lr2, 1) <> arrSht1(Lr1, 1) Or arrSht2(lr2, 2) <> arrSht1(Lr1, 2) Then ' either cell in last row is different
        If arrSht2(lr2, 1) <> arrSht1(Lr1, 1) Then
        Let arrOut(lr2, 1) = arrSht2(lr2, 1) & "  on last row is new"
        Let DifCnt = DifCnt + 1
        Else: End If
        If arrSht2(lr2, 2) <> arrSht1(Lr1, 2) Then
        Let arrOut(lr2, 2) = arrSht2(lr2, 2) & "  on last row is new"
        Let DifCnt = DifCnt + 1
        Else: End If
    Else 'last row on sheet2 is as on sheet1
    End If
Rem 5 Output in new file For testing purposes, I give the output in a third worksheet, Tabelle3 
Dim Ws3 As Worksheet: Set Ws3 = ThisWorkbook.Worksheets("Tabelle3")
 Ws3.Cells.ClearContents
 Let Ws3.Range("A1:B1").Value = "Sheet1": Ws3.Range("C1:D1").Value = "Test Output": Ws3.Range("E1:F1").Value = "Sheet2"
 Let Ws3.Range("A2").Resize(UBound(arrSht1(), 1), UBound(arrSht1(), 2)).Value = arrSht1()
 Let Ws3.Range("C2").Resize(UBound(arrOut(), 1), UBound(arrOut(), 2)).Value = arrOut()
 Let Ws3.Range("E2").Resize(UBound(arrSht2(), 1), UBound(arrSht2(), 2)).Value = arrSht2()
 Ws3.Columns.AutoFit
Rem 6 MsgBoox output
 MsgBox Prompt:="inserted lines is  " & AdedRows & vbCrLf & "Changed cells is  " & DifCnt
End Sub

---

Test runs from code

Code:

---

Sub TestyCalls() ' http://www.excelfox.com/forum/showthread.php/2277-Vba-button-Comparison-data-between-two-file-or-two-tabs?p=10741#post10741
' Call Testie(Worksheets("Sheet1"), Worksheets("Sheet2"))
 Call Testy(Worksheets("Sheet1"), Worksheets("Sheet2"))
End Sub

---

For support of this excelfox Thread:
http://www.excelfox.com/forum/showth...0741#post10741

Using Excel 2007 32 bit

Sheet1	Sheet1	Test Output	Test Output	Sheet2	Sheet2
Customer	Assembly			Customer	Assembly
Nu Torque	13456			Nu Torque	13456
Blu Origin	Spaceship			Blu Origin	Spaceship
Jet Blue21	ABC
Alaska	789
Toyota	Supra
Emirate	ABC12345
				Jet Blue21	ABC
				Alaska	789
				Toyota	Supra
				Emirate	ABC12345
		Dup 2 of Toyota	Dup 2 of Supra	Toyota	Supra
		Dup 2 of Emirate	Dup 2 of ABC12345	Emirate	ABC12345
		Spaceship	12	Spaceship	12

Worksheet: Tabelle3


Using Excel 2007 32 bit

Sheet1	Sheet1	Test Output	Test Output	Sheet2	Sheet2
Customer	Assembly			Customer	Assembly
Nu Torque	13456			Nu Torque	13456
Blu Origin	Spaceship			Alaska	789
Jet Blue21	ABC	Excel123	HiThai	Excel123	HiThai
Alaska	789			Blu Origin	Spaceship
Toyota	Supra			Emirate	ABC12345
Emirate	ABC12345			Jet Blue21	ABC
				Toyota	Supra

Worksheet: Tabelle3