Check if sheet hide then unhide them

haroon2015 · Dec 27th 2016

hi,
i am using below code to run the macro

Code

Sub ExcelToTallyAll()


Application.Goto Sheet15.Cells(4, 3)
ExcelToTally_V2




Application.Goto Sheet22.Cells(4, 3)
ExcelToTally_LV




Application.Goto Sheet23.Cells(4, 3)
ExcelToTally_F2




Application.Goto Sheet24.Cells(4, 9)
ExcelToTally_L2
End Sub

Display More

in above code what i want to change are

check sheet15 is hide then unhide them
check sheet22 is hide then unhide them
check sheet23 is hide then unhide them
check sheet24 is hide then unhide them

like below

Code

Sub ExcelToTallyAll()Worksheets("Sheet15").Visible = True
Application.Goto Sheet15.Cells(4, 3)
ExcelToTally_V2
Worksheets("Sheet22").Visible = True
Application.Goto Sheet22.Cells(4, 3)
ExcelToTally_LV
Worksheets("Sheet23").Visible = True
Application.Goto Sheet23.Cells(4, 3)
ExcelToTally_F2
Worksheets("Sheet24").Visible = True
Application.Goto Sheet24.Cells(4, 9)
ExcelToTally_L2
End Sub

Display More

thanx in advance

GOLDENEXCEL · Dec 28th 2016

Re: Check if sheet hide then unhide them

Hi,

This code could help you:

Code

Sheet15.Visible = xlSheetVisible = Sheet15.Visible = False

Cheer!!!

**KjBox** · Dec 28th 2016

Re: Check if sheet hide then unhide them

@ GOLDENEXCEL

Please use code tags even for code snippets, I have added them for you on this occasion.

Thanks.

haroon2015 · Dec 29th 2016

Re: Check if sheet hide then unhide them

dear
thanx for reply

but its not working

**KjBox** · Dec 29th 2016

Re: Check if sheet hide then unhide them

Try

Code

Sub ExcelToTallyAll()


    With Sheet15
        .Visible = xlSheetVisible
        Application.Goto .Cells(4, 3)
        ExcelToTally_V2
    End With
    With Sheet22
        .Visible = xlSheetVisible
        Application.Goto .Cells(4, 3)
        ExcelToTally_V2
    End With
    With Sheet23
        .Visible = xlSheetVisible
        Application.Goto .Cells(4, 3)
        ExcelToTally_V2
    End With
    With Sheet24
        .Visible = xlSheetVisible
        Application.Goto .Cells(4, 9)
        ExcelToTally_V2
    End With
    
End Sub

Display More

Check if sheet hide then unhide them

Participate now!

Share