Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

Macro: crear una hoja nueva, renombrarla y pegarle datos

Según tu macro el nombre de la hoja lo toma de la B3 y en A7 debes tener un número de fila. Te anexo la macro actualizada Sub Btn_Guardar_Informacion2() 'Act.Por.Dante Amor Set h1 = Sheets("AVISO") hoja = h1.Range("B3") If hoja = "" Then MsgBox...
Respuesta en a

Como se podría hacer una sumatoria de puntos cuando se está en diferentes form ?

Podrías poner el resultado de cada form en una hoja. Por ejemplo, antes de cerrar el form1 pon los puntos en la hoja "resultados", celda "A1" Los puntos del form2, en la hoja "resultados" celda A2 Y así sucesivamente. Al final suma las celdas A1+ A2...
Respuesta en y en 2 temas más a

Restringir y validar formato en Textbox

Pon lo siguiente el botón cuando vayas a registrar los datos: Private Sub CommandButton1_Click() ' ' err_matricula = False For i = 1 To 4 If Not IsNumeric(Mid(TextBox1, i, 1)) Then err_matricula = True Exit For End If Next For i = 5 To 7 If...
Respuesta en y en 2 temas más a

Calculacion con Checkbox y con dos Textbox con Fechas

¿Y qué no te sale? ¿Te envía algún error? ¿Qué dice el error? Prueba con esto: aa = TextBox11.Value bb = TextBox12.Value dd = Sheets("Data").Range("G" & Bos_Satir).Value cc = CDate(bb) - CDate(aa) If CheckBox4.Value = True Then...
Respuesta en y en 4 temas más a

Modificar datos en un libro protegido

Si el libro está protegido, no es necesario mostrar la hoja para actualizar sus celdas. Tampoco es necesario desproteger el libro. Por ejemplo, abre un libro nuevo, crea una hoja nueva llamada "Hoja2", oculta la hoja, protege el libro. Corre la...
Respuesta en y en 3 temas más a

Equivalente en VBA para las siguientes funciones de condición

Ejecuta la siguiente macro Sub Macro3() ' ' Por.Dante Amor ' u = Range("A" & Rows.Count).End(xlUp).Row Range("D4:E" & u).FormulaR1C1 = "=IF(ISNUMBER(RC[-2]),IF((RC[-2])>R3C8,""PROXIMO A VENCER"", ""VENCIDO""),"""")" Range("F4:G" & u).FormulaR1C1 =...
Respuesta en y en 2 temas más a

Como ingresar una fórmula en excel

La fórmula podría ser así: =(1+ ( ( (1- (2.99/15)^2)^2) / ( ( ( 2 * ((2.99/15)^2) ) * (1 - ( (2.99/15)^2)) ) + ( ((2.99/15)^2) * ( 1 - (-1*-10) )))) ) - (-10 / 0.44) Utilizando unas celdas para poner los valores de las variables, por ejemplo: La...
Respuesta en y en 2 temas más a

Configuración automática de rango de impresión

Envíame tu archivo y me explicas lo siguiente: En cuál hoja está la información que quieres imprimir En dónde pondrías los parámetros. Pon un ejemplo de parámetros En otra hoja, y dependiendo de los parámetros que pusiste, marca de amarillo lo que...
Respuesta en y en 1 temas más a

Copiar Celdas de una columna a otra con bucle o similar.

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Count > 1 Then Exit Sub Cells(Target.Row, "C") = Cells(Target.Row,...
Respuesta en y en 1 temas más a

Elegir fecha en textbox con calendario

Puedes poner un calendario, busca la versión de excel en este enlace: https://sites.google.com/site/e90e50/calendar-control-class sal u dos