Sub test()
Dim wsDict AsObject, i asInteger
Set wsDict = CreateObject("Scripting.Dictionary")
For i = 1 To Worksheets.Count
wsDict.Add Worksheets(i).Name, CStr(i)
Next
Worksheets(wsDict.Keys).Select
EndSub
Sorry here it is
Hi Chihiro,
Sub test()
Dim wsDict AsObject, i asInteger
Set wsDict = CreateObject("Scripting.Dictionary")
For i = 1 To Worksheets.Count
wsDict.Add Worksheets(i).Name, CStr(i)
Next
Worksheets(wsDict.Keys).Select
EndSub
In the above code, once it is executed, after for loop and before...
@Monty,
I'm trying my best. Now i'm struck with deleting the picture that is created
I have copied the required display rage and pasted as image file but unable to find it to delete the same
Kindly advise
@Monty
Thanks for your reply.
I will try if it is possible to DELETE the created IMAGE file every time while running this macro
I have 26 sheets
Each sheets needs this action
For each click one image will be created
So need to delete that newly created image every time after closing that...
Dear all,
Kindly advise how to make the display in the user form in the format as same in the sheet cells
Required is SIZE of the cells/ gap shall be same not even the colours
Need to have same ROW size while appearing in the user form.
Thanks
@Pcosta,
Really a great
Thanks for you help....
Could you please advise the changes ....
This is 100% perfect and it is working for me....
Thanks
Govind
@ PCosta
Thanks for your reply
sorry for bothering you
Actually the pop-up requirement is to HIDE the other sheet content and getting the display of the required portion of the selected sheet while clicking the icon....
Thanks once again for help...
Govind
@Pcosta,
After fine tuning, i have some issues. Please refer to the uploaded file.
While calling the code from other sheet it is not doing the job,
kindly advise
The image to be displayed is in next sheet but the active sheet is different in such case the required cell content is not displayed...
@Pcosta,
Yes it is working good. Thanks for your help
Please help to transfer the code into my original file
I have exported the userform and code module into original file again it shows same error.
Kindly advise what needs to be transferred to the new file to make the code work.
Chart in...
Dear PCosta,
Thanks for your help.
It is ok if there is one sheet.
I have attached the file that contain more than one sheet.
Actual file has around 20 sheets. This operation has to be performed in all 20 sheets,
Kindly advise, how to go with.
Regards
Govind
PCosta
This is not working in the file that contains already other objects for other
Kindly advise
Code needs to identify the object that is crossing the selection
Pl do the needful
I'm getting Below error
Dears,
Is there is any way to capture range of cells and display the captured region as a picture in a window in user for such that after display it can be closed by the user.
Please advise.
Sub Macro4()
Sheets("Sheet2").Select
Range("C2:F14").Select
Selection.CopyPicture...
Dear YasserKhalil,
Thank you
Actually i'm looking for the history of sheets internal to a workbook so the history has to store the previous work'sheets ' in each cell..in any one of the sheet
Dear Marc,
Thanks for your suggestions
I'm trying my best ,..
Regards
Govind
Dears,
Is there is any way to keep the history of last seen sheets in workbook containing more than 100 sheets ---- in a separate sheet called historysheet
Say i have sheet1 sheet2 sheet3....sheet100
if sheet1 is activated then the A1 cell in the sheet named "historysheet" will be updated...
This code is working for me
(taken from example worksheet from other thread by HUI -> Sample_file_pk_Hui.xlsm
Sub preview()
UserForm1.ListBox1.ColumnCount = 5
UserForm1.ListBox1.List = Worksheets("Sheet1").Range("A1:E10").Value
UserForm1.Show
End Sub