command button

emiaj61

New Member
Joined
Dec 11, 2006
Messages
17
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

Well-known Member
Joined
Oct 14, 2005
Messages
748
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

New Member
Joined
Dec 11, 2006
Messages
17
para el InputBox, tengo en la hoja1
Code:
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

MrExcel MVP
Joined
Jun 19, 2002
Messages
10,013
En vez de usar la propiedad de visibilidad, mejor usar la propiedad de habilitado.
Code:
    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.
 

Forum statistics

Threads
1,084,838
Messages
5,380,198
Members
401,654
Latest member
etusch

Some videos you may like

This Week's Hot Topics

Top