command button

emiaj61

New Member
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
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
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
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.
 

Some videos you may like

This Week's Hot Topics

  • Importing multiple excel files into one spreadsheet
    Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the...
  • find many based on a certain criteria
    good evening, I hope someone can help me? I have a workbook sheet 2 contains lots of data.... I would like to be able to find anything on sheet...
  • How to copy multiple rows using If
    Hi all, I'm very new to VBA and have written this simple code to copy certain cells if a certain cell within that row contains any data. I need...
  • VBA If statement
    Dear All, I have two dates, where I'd like a message box to pop, if the dates are between this criteria. [CODE] sDate1 = #10/1/2019#...
  • Text Format
    I have a sheet for user to keyin the data. The format of the data can be 451 / 1903, 0012 / 9908 or 00287 / 0099. The number after the "/" is...
  • Macro to copy values across rows and transposing them and add the user id
    [FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]Hi,[/COLOR][/SIZE][/FONT] [FONT=Times New...
Top