Pop Up Information

[grahambotha]

When on a specific cell or clicking on a specific cell in sheet 1, then i want to see information from several other cells in different sheets in a pop up of some sort.


For example when i click on cell C3 in sheet 1, i want a pop up to show the information from cell C3 in sheet 2 and cell C3 in sheet 3.


Is this possible? Please assist. It would be greatly appreciated


Thank Graham

 

[Hui]

Graham


Firstly, Welcome to the Chandoo.org forums


Can you please read the 4 Sticky Green Posts at the Main Forum page

They explain how the Forums work and ask that you phase questions correctly and Don't YELL IN YOUR Posts

(I have fixed both for you)


It is possible using some VBA to make a window appear


I'll post back later

 

[Debraj]

THANKS HUI..


Hi Graham:


Right Click on Sheet Name and paste the below Code..

[pre]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Add = Target.Address
msg = "Is this what you are looking for ? "
For Each sh In ActiveWorkbook.Worksheets
msg = msg & Chr(10) & sh.Range(Add)
Next sh
MsgBox msg
End Sub

[/pre]

Paste the same code in all Sheets, in same manner, if you need the same for all Sheets..


Regards,

Deb

 

[mahaveer]

hi grahambotha


download popup file n check it

http://www.2shared.com/document/GHFdm9Ls/mahaveer.html

hope it is really useful for you.


Regards

CA Mahaveer Somani

 

[Raja Kamarthi]

@mahaveer:


Am not sure but I think that the shared file is not the relevant one to this post.


Could you please re check?


Apologies if I got this wrong


Thanks,

Raja

 

[shrivallabha]

Hi Deb,


Nice code. Instead of putting the code in all sheets, you can use following in 'ThisWorkbook' Module.

[pre]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Sheet1" Then 'condition for running code for "Sheet1" only
If Target.Cells.Count > 1 Then Exit Sub
Add = Target.Address
msg = "Is this what you are looking for ? "
For Each Sh In ActiveWorkbook.Worksheets
msg = msg & Chr(10) & Sh.Range(Add)
Next Sh
MsgBox msg
End If
End Sub

[/pre]

 

[Debraj]

Thanks Shri..


Keep guiding us..


Regards,

Deb