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
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
Respuesta
en
Microsoft Excel
a
Error 1004 en línea de código VBA Excel
Haber cambia esto. Hoja7.Select Sheets(7).Range("C7,C12,B14:B23,E14:E23").value = "" Por esto Sheets("Hoja7").Select Sheets("Hoja7"). Range("C7, C12, B14:B23, E14:E23").Value = "" Me comentas y valoras para finalizar saludos!
Respuesta
en
Microsoft Excel
a
Macro para copiar datos de celdas a otra hoja según condición
Sub copiacondicion() 'Act.Temp01 Set h1 = Sheets("conciliación") Set h2 = Sheets("resumen") h2.Cells.Clear Application.ScreenUpdating = True y = 9 For k = 3 To h1.Range("H" & Rows.Count).End(xlUp).Row If h1.Cells(k, "I") = "SI" Then h2.Cells(y, "A")...
Respuesta
en
Microsoft Excel
a
Necesito ingresar texto en una celda y que una vez que salga de dicha celda, el texto quede con mayúscula para unificar formato
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range(" A12:A41,C12:C41")) Is Nothing Then Target.Value = UCase(Target.Value) End Sub Cambia el deseas saludos!