command button

[emiaj61]

tengo una input box, para dar la bienvenida en una hoja de reporte, despues vienen tres command button con los que se enlasa con cada uno a una hoja distinta dentro del mismo libro de trabajo.
hay manera de que los command button aparescan solo si se mete texto dentro del input box y se clickea enter ?
de tal manera que si se elige cancelar en la input box, no aparescan los command button.

 

[galileogali]

Un Inputbox: supongo que te refieres a un InputBox, es decir fuera de Userform.....
por ende imagino los commandbuttons sobre la hoja........(hoja1, o la que sea)....
Ahora bien....para que aparezca Inputbox, deberais tener una macro, mas precisamente una Auto_openo, Workbook_open......¿y si nos la mandas ?????

 

[emiaj61]

para el InputBox, tengo en la hoja1

Sub Auto_Open()
Dim nom As String
nom = InputBox(" Como te llamas ? ")
 With Worksheets("Sheet1").Range("F5")
  .Value = " Hola " & nom
  .Font.Bold = True
  .Font.Color = RGB(255,0,0)
  .Offset(1,0).Value = " Reporte mensual Mayo 2007 "
  End With
End Sub

para los command button, ambos en la hoja 1, que enlasan hacia las hojas 2 y3
para el command button 1, que enlasa hacia la hoja 2, tengo como codigo
Sheet2.Activate
para el command button 2, que enlasa hacia la hoja 3, tengo como codigo
Sheet3.Activate
asimismo en las hojas 2 y 3, en cada una un command button que regresa hacia la hoja 1, con codigo
Sheet1.Activate

 

[Greg Truby]

En vez de usar la propiedad de visibilidad, mejor usar la propiedad de habilitado.

    nom = InputBox("¿Cómo se llama?")
    Sheets("sheet1").OLEObjects("commandbutton1").Enabled = Len(nom)
    Sheets("sheet1").OLEObjects("commandbutton2").Enabled = Len(nom)

Y favor note que edité su mensaje, poniendo las etiquetas de "code" para que leamos su código VBA con más facilidad. Favor use las etiquetas de "code" para VBA.

 

[emiaj61]

gracias por la ayuda