Posts by MrFire

Quote from royUK

You don't need the hyperlink code, I'm not sure if you path to the file is correct.

Code

Private Sub CommandButton40_Click()

'On Error Resume Next

Dim oWb As Workbook

Set oWb = Workbooks.Open("E:1.xlsx")

its work but

the second excel file ( 1.xlsx ) opens in read only mode and i cant change or type even close the file

i should close the all excel files

Quote from royUK

Don't use an error handler until the code is working, it will stop all error messages that might help to solve the problem.

Don't use a hyperlink, try this to open the workbook.

Code

Private Sub CommandButton40_Click()
'On Error Resume Next
Dim oWb As Workbook
Set oWb = Workbooks.Open("E:1.xlsx")
'ActiveWorkbook.FollowHyperlink "E:1.xlsx"    'change for location

If Error <> "" Then MsgBox ("Nowhere to go, Nothing to see")
oWb.Worksheets("Sheet1").Cells(ActiveCell.Row, 3).Hyperlinks(1).Follow
End Sub

tnx for reply but its not working

Hi guys how are u ?

i have problem

I created a form user with Excel and I want to link several types of files to the program,

the problem is that when I link to another Excel file, the file is displayed as read-only and i cant do anything

can some one help me

Quote from royUK

Attach an example file.

this is Example file

I want these lines to be listed in Search Sheet and change automatically each time the file is added

Hi guys

i need help on this problem

I have sheets with all types of files but column titles are the same.

I want these lines to be listed in another sheet and change automatically each time the file is added

Quote from royUK

You don't need code for this. Use Conditional Formatting.

Highlight Dates Based on Due Date in Excel

HI again

i need code for this

for example : i have a Fire extinguisher bought on 07/24/2021 with expire date 07/24/2021

now i want excel to show me how much day left until the expiration date of the capsule

Quote from royUK

Where is the key word?

i attached wrong one

i think its better to search in textbox but i dont know the code

HI guys

i need a code for show message or change the color of the cell as the expiration date approaches

For example, the expiration date of the extinguishing capsule

Purchase date 2021/20/7

Expiration date 2021/20/10

i dont have file i try to work on this

HI Guys

I Need a code for search on key word and lead to to the result sheet (my sheets is hidden)

i attached my file but its in Persian Language

Quote from royUK

You have 3 sheets whose names contain "?" which is a character not allowed in sheet names. Rename those sheets and the code should work, it's not the code at fault it's the sheet names.

I don't know how you have saved those names, maybe it's the language version

Hi bro

yes is our Language

but its not a problem

i changed all the sheets name to English

and its not work

Quote from royUK

Attach the workbook.

Hi i Didint see this msg sry

i use the code u Give but not worked

i attached my excel

Hi guys

I have a Problem

i have 10 sheet in my excel workbook

and i need to automatically open sheet 2 every time when excel is going to run

i use this codes in Private Sub Workbook_Activate() or Private Sub Workbook_Open() but result is ERRoR

1. activeworkbook.sheets(index).activate

2. Workbooks(“Book1”).Sheets(“Sheet2”).Activate

3. Workbooks(“Book1”).Sheets(“Sheet2”).Select

4. Sheets(“MasterList”).Activate

Quote from royUK

Have you copied the WorkBook Close event code to your workbook?

i tried this codes in Private Sub Workbook_Activate() or Private Sub Workbook_Open()

but its not work

1. activeworkbook.sheets(index).activate

2. Workbooks(“Book1”).Sheets(“Sheet1”).Activate

3. Workbooks(“Book1”).Sheets(“Sheet1”).Select

4. Sheets(“MasterList”).Activate

Quote from royUK

I thought that you wanted all sheets except master hidden.

I've already posted code for you to unhide and select a sheet.

Bro u did not fully understand what i meant, (hide and unhide is done Tnx to u )

i have 70 sheets , First Sheet name IS MasterLaster ( i create links in this sheet to travel between sheets )

i do my job in sheet20, save and close the excel program.

Now when i want to open excel, the last opened sheet is displayed.

i want the code to display MasterList sheet every time the excel program is run

i Used more codes but its not work

Quote from royUK

See this code. It also ensures all sheets except Master are hidden when the workbook is closed.

its good but i cant travel between sheets

i use this code for hide sheets :

Sheet1.Visible = xlSheetVisible

Sheet9.Visible = xlSheetHidden

Sheet2.Visible = xlSheetHidden

Sheet3.Visible = xlSheetHidden

Sheet4.Visible = xlSheetHidden

now my problem is when im in sheet 5 and i close the excel program, again when i try to open excel, its start from sheet 5

i tried so many codes like :

1. activeworkbook.sheets(index).activate

2. Workbooks(“Book1”).Sheets(“Sheet1”).Activate

3. Workbooks(“Book1”).Sheets(“Sheet1”).Select

4. Sheets(“MasterList”).Activate

but i got this errors in attach

Quote from royUK

Attach an example of your workbook.

OK, this is example of my work

but i dont use code in this example

i need to show Master All the time when excel is going to run

Quote from royUK

Did you try the code that I posted

Yes i tried tnx

now i have problem with sheet load, i need to show MasterList All the time when excel is going to run

and i got this error when i try to active a sheet to start

with this code's

1. activeworkbook.sheets(index).activate

2. Workbooks(“Book1”).Sheets(“Sheet1”).Activate

3. Workbooks(“Book1”).Sheets(“Sheet1”).Select

4. Sheets(“QA”).Activate

Quote from royUK

Firstly, 70 sheets is certain to make it difficult to manage. Why have you got 70 sheets? I suspect they are all identical except for their data.

1. If you are having problems don't hide the sheets, hide the tabs in the Workbook's options. Or, unhide the sheet in your code.

2. You don't usually need to activate a sheet. What are you doing? You can use

Code

Sheets(“QA”).Visible=xlSheetVisible
Sheets(“QA”).Activate

Display More

i create a Master List

and linked to the other sheets Like M , Q , S ,... (untitled)

there are different sections inside each section (untitled1) that's why i try to hide

now i try to search and fine a value in this system

and always start with master list when open the excel

Quote from royUK

Firstly, 70 sheets is certain to make it difficult to manage. Why have you got 70 sheets? I suspect they are all identical except for their data.

1. If you are having problems don't hide the sheets, hide the tabs in the Workbook's options. Or, unhide the sheet in your code.

2. You don't usually need to activate a sheet. What are you doing? You can use

Code

Sheets(“QA”).Visible=xlSheetVisible
Sheets(“QA”).Activate

Display More

tnx for ur help but,

i have 70 or more sheets, i have to hide it to be seen better

i use macro to access to the sheets easily

BUT :

for example: i try to search a value like HI in sheet QA when its hide

now i need a code when result is true , show the sheet (unhide) and value