Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que muestre un msgbox si es mayor de edad o no
Sub evaluarEdad() edad = InputBox("Ingrese edad") Select Case edad Case Is >= 18 MsgBox "Es mayor de edad", vbInformation, "AVISO" Case Else MsgBox "Es menor de edad", vbCritical, "AVISO" End Select End Sub Recuerda valorar saludos!!
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que solicite ingresar un rut y que arroje un mensaje que diga el rut ya fue ingresado
Te anexo el código Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set b = h1.Columns("A").Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Ya existe ese RUT" Exit Sub End If ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row...
Respuesta
en
Microsoft Excel
a
Macro que permita ingresar la edad de una persona através de un inputbox con select case
No entendí que resultado saldrá cuando la edad es mayor o menor Te anexo el código para modifiques a tus necesidades Sub evaluarEdad() edad = InputBox("Ingrese edad") Select Case edad Case Is >= 18 Range("A1") = "Mayor de edad" Case Else Range("A1")...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Leer tramo de valores desde celda
¿Necesariamente deseas una macro?
Respuesta
en
Microsoft Excel
a
Macro con funcion select anidada
Me comentas y valoras para finalizar!
Respuesta
en
VBA
y en 2 temas más
a
If, then y else en VBA problema
If Range("B4") = "Merida" Or Range("B4") = "Hermosillo" Then ActiveChart.PlotArea.Select ActiveChart.SetSourceData Source:=Range( _ "'Dashboard 2'!$B$9,'Dashboard 2'!$E$9") ElseIf Range("B4") = "Mexicali" Then ActiveChart.PlotArea.Select...
Respuesta
en
Visual Basic
y en 1 temas más
a
Problemas con MsgBox: No aparece
Existe = True If Existe = True Then DoCmd.OpenForm (todo el camino) , acEdit, acNormal DoCmd.Close acForm, "Buscar Expediente" Else x= MsgBox ("No se ha encontrado el Expediente buscado" & vbYesNo & "¿Desea incorporarlo ahora?", vbInformation, "NO...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para activar label al seleccionar item en combobox
Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case 0 ThisWorkbook.Save Application.Quit Case 1 TextBox1 = "Regresa al archivo" Label5.Caption = "Regresa al Archivo" End Select End Sub Me comentas y valoras la respueta para finalizar...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Controlar valor repetido en un listbox que venga de otro listbox
Envíame tu archivo [email protected]
Respuesta
en
Visual Basic
y en 1 temas más
a
Como hacer que funcione este código
El vídeo esta bien explicado cual es tu dificultad. Saludos!1