Can someone try this in Newer office versions please

User avatar
Doc.AElstein
BronzeLounger
Posts: 1499
Joined: 28 Feb 2015, 13:11
Location: Hof, Bayern, Germany

Can someone try this in Newer office versions please

Post by Doc.AElstein »

Hello
I have checked this with a few Excel 2002 2003 2007 2010 2013 in XP Vista Win7 and Win 10, but I would like to know if its working for other people

Can anyone check it out in their Excel, in particular I am interested if it works in newer Office versions

Thanks
Alan

_.___________

This is what I would like you to try for me please:
Download and open the uploaded file, then
enable macros and then
type anything in cell A1, then tell me what happens.

_.______________________________________________________________________________
EDIT: Or, alternatively, if you prefer not to risk downloading the file ;)
Please do this
In a new virgin File, insert a normal code module and put this coding in it

Code: Select all

 Option Explicit
Function WotsThereWhere(ByVal Rng As Range) As String
 Evaluate "='" & ThisWorkbook.Path & "\TryThisPlease.xls'!Modul1.YouNameIt(" & Rng.Address & ", """ & ActiveSheet.Name & """)"          '    Evaluate "=YouNameIt(" & Rng.Address & ", """ & ActiveSheet.Name & """)"    '    : Debug.Print "=YouNameIt(" & Rng.Address & ", """ & ActiveSheet.Name & """)"    '  gives   YouNameIt($A$1, "Sheet1")
End Function
Sub YouNameIt(ByVal Rng As Range, ByVal Sht As String)
Stop  '  It wont
 Let Rng.Offset(0, 2).Value = ""
 Let Rng.Offset(0, 2).Value = "You wrote " & Rng.Value & " in cell " & Rng.Address(0, 0) & ",  in worksheet " & Sht
End Sub
Type in cell B1 this formula =WotsThereWhere(A1)
Save the file as TryThisPlease.xls
Close the file
Open the file
enable macros and then
type anything in cell A1, then tell me what happens.
You do not have the required permissions to view the files attached to this post.
Last edited by Doc.AElstein on 19 Feb 2021, 07:23, edited 3 times in total.
I am having difficulty logging in with this account just now.
You can find me at DocAElstein also

User avatar
HansV
Administrator
Posts: 78487
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: Can someone try this in Newer office versions please

Post by HansV »

It works in Excel 2019 (the non-Microsoft 365 version)

(i.e. the formula in B1 wrote something in cell C1 when I edited cell A1)
Best wishes,
Hans

adeel1
3StarLounger
Posts: 264
Joined: 04 Oct 2017, 15:47

Re: Can someone try this in Newer office versions please

Post by adeel1 »

hi Alan, I have excel 365 (business)its appear to me like this.
Capture.PNG
Adeel
You do not have the required permissions to view the files attached to this post.

User avatar
Doc.AElstein
BronzeLounger
Posts: 1499
Joined: 28 Feb 2015, 13:11
Location: Hof, Bayern, Germany

Re: Can someone try this in Newer office versions please

Post by Doc.AElstein »

Thx Hans, Thx Adeel
_._________
@ Adeel
What does happen please, if you type anything into cell A1?


Alan
I am having difficulty logging in with this account just now.
You can find me at DocAElstein also

adeel1
3StarLounger
Posts: 264
Joined: 04 Oct 2017, 15:47

Re: Can someone try this in Newer office versions please

Post by adeel1 »

its put that value in comments
Capture1.PNG
Adeel
You do not have the required permissions to view the files attached to this post.

User avatar
Doc.AElstein
BronzeLounger
Posts: 1499
Joined: 28 Feb 2015, 13:11
Location: Hof, Bayern, Germany

Re: Can someone try this in Newer office versions please

Post by Doc.AElstein »

Thx Adeel


_._____________________________________________________________________________

Edit Ref: Thinking about this ... https://excelfox.com/forum/showthread.p ... DF-is-used
I am having difficulty logging in with this account just now.
You can find me at DocAElstein also