Respuesta
en
Microsoft Excel
y en 2 temas más
a
Agregar instrucciones a Macro ya existente
H o l a: Te anexo la macro actualizada: Sub GrabarPacienteRevision() 'Act.Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("INGRESAR_CITA") Set h2 = Sheets("Revision") h1.Unprotect...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Agregar instrucción a macro ya existente para evitar que se ejecute si cumple una condición
H o l a: Te anexo la macro actualizada Sub modificar2() 'Por.Dante Amor Application.ScreenUpdating = False Set h2 = Sheets("AGENDA") Set h3 = Sheets("REAGENDAR") Set h4 = Sheets("INGRESAR_CITA") ' If h3.[D4] = "" Then MsgBox "Número de Registro Único...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que busque en una tabla organizada Cronológicamente la visita anterior a la actual de un cliente
H o l a: Te anexo la macro actualizada Sub Buscar2() 'Por.Dante Amor Set h2 = Sheets("BASE") Set h3 = Sheets("INGRESAR_CITA") Set h4 = Sheets("AGENDA") h3.[D8:D24].ClearContents ' If h3.[D6] = "" Then MsgBox "Número de Identificación VACIO." & vbCrLf...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que me permita pasar a una celda antes de la misma columna
H o l a: Te cambio el código completo. Primero, al iniciar el form, la primer pregunta que se debe mostrar es la 1, entonces vamos a poner el cursor en la celda J3 y mostramos la primer pregunta. Private Sub UserForm_Activate() 'Por.Dante Amor...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Modificar macro para que vaya avanzando celda a celda
H o l a: después de esta línea: Label1.Picture = LoadPicture(archivo) ' Pon esta línea: ActiveCell.Offset(1, 0).Select
Respuesta
en
Microsoft Excel
y en 2 temas más
a
FOrmato y SUma de dos o más textbox de un formulario
La desventaja de hacerlo en un textbox, es que tienes que buscar el símbolo "+", si lo encuentra, separar las cantidades, validar que sean numéricos y por último sumarlas. Te recomiendo que lo hagas en 2 textbox, valides que sean numéricos y pasarlo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar un numero con texto en otra celda
H o l a : Cambia en tu macro esto: For Each Hoja In ActiveWorkbook.Sheets Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count) Next Por esto: For Each Hoja In ActiveWorkbook.Sheets Hoja.Copy...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para cargar en Label texto e imágenes
H o l a: Los datos que puedes poner en un label, en la propiedad .Caption, son solamente textos. Adicional, los controles tienen la propiedad .Picture, en ésta, sí puedes poner imágenes. Pero la imagen que puedes cargar en la propiedad .Picture es la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar rangos de fila en no seguidos en columna
H o l a: Te anexo la macro para copiar 2 rangos. Ya va el ajuste para el nombre de la hoja. Sub CopiarFilas() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("año 2001") 'hoja1 Set h11 = l1.Sheets("año...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que al ejecutar con un Botón busque el dato registrado en una celda, en una tabla de datos y ejecute macro correspondiente
Te anexo el código Sub EjecutarMacro() 'Por.Dante Amor Set h1 = Sheets("constantes") If [D21] = "" Then Exit Sub Set b = h1.Columns("A").Find([D21], lookat:=xlWhole) If Not b Is Nothing Then If b.Offset(0, 1) <> "" Then Run b.Offset(0, 1).Value End...