Command Button
 

Hi All
Please could u help me
I want to write a Macro using teh VBA, such that

Suppose in a sheet if there is a buttton, then it should click on that button,
if the button is not present then it should navigate to other page. is this
possbile. please help me out

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200805/1

Command Button
 

Hi Suresh,

Your question is not clear.

Are you asking for a means to navigate to
any sheet in the workbook?

If that is the case then try assisgning the following
code to a toolbar button or to a shortcut key:

'==================
Sub ShowSheetList()
'// Jim Rech

On Error Resume Next
If ActiveWorkbook.sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs"). _
ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs"). _
Controls("More Sheets...").Execute
End If
On Error GoTo 0
End Sub
'<<==================


---
Regards.
Norman


"sureshkasi1985 via OfficeKB.com" <u43741@uwe wrote in message
news:8484da04d7ed0@uwe...
Hi All
Please could u help me
I want to write a Macro using teh VBA, such that

Suppose in a sheet if there is a buttton, then it should click on that
button,
if the button is not present then it should navigate to other page. is
this
possbile. please help me out

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200805/1

Command Button
 

hi Norman
Thanks for your quick reply

Actually i writting a Web Macro
In that i am entering a record through Web Maro.
So while doing this i get a Update button usually.
Suppose if i had already updated the record then the Update button would not
display
so i will get an error and not able to update the next record.

Norman Jones wrote:
Hi Suresh,

Your question is not clear.

Are you asking for a means to navigate to
any sheet in the workbook?

If that is the case then try assisgning the following
code to a toolbar button or to a shortcut key:

'==================
Sub ShowSheetList()
'// Jim Rech

On Error Resume Next
If ActiveWorkbook.sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs"). _
ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs"). _
Controls("More Sheets...").Execute
End If
On Error GoTo 0
End Sub
'<<==================

---
Regards.
Norman

Hi All
Please could u help me
[quoted text clipped - 5 lines]
this
possbile. please help me out

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200805/1

Command Button
 

Hi All

Please help me on this????

sureshkasi1985 wrote:
hi Norman
Thanks for your quick reply

Actually i writting a Web Macro
In that i am entering a record through Web Maro.
So while doing this i get a Update button usually.
Suppose if i had already updated the record then the Update button would not
display
so i will get an error and not able to update the next record.

Hi Suresh,

[quoted text clipped - 31 lines]
this
possbile. please help me out

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200805/1