Dante Amor

Suponiendo que en A2 tienes la fecha inicial y en B2 tienes la fecha final, utiliza la siguiente fórmula en C2: =SIFECHA(FECHA(AÑO(A2);MES(A2)-1;1);B2;"m") Lo que hace la fórmula es obtener una fecha del mes anterior a la fecha inicial. Por ejemplo...

Si realizas la búsqueda con el método .Find y al final pones .Activate, pero el dato buscado no existe, te va a enviar el error "91 Variable de objeto no establecido". Para controlar el error, puedes hacerlo de la siguiente forma, en el objeto b se...

Te anexo la macro actualizada. Te puse el mensaje cuando el número no aparece con las opciones "Sí" "No", pero no pusiste qué hacer cuando presiones "Sí" o qué hacer cuando presiones "No". Private Sub CommandButton1_Click() ' ' ListBox1.ColumnCount =...

Envíame tu archivo con la hoja "Modelo" y unos ejemplos en la hoja "Base de Datos", también agrega una tercera hoja para ver un ejemplo de cómo debería quedar cada hoja. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

Algo no estoy entendiendo, si ya estás ejecutando tu userform, ya no es necesaria esta línea: frmpersonalseleccion.Show Agrega después de esta línea: h.Cells(b.Row, "AA").Formula = Day(h.Cells(b.Row, "X").Value) Esta línea: h.Cells(b.Row, "AB").value...

Abre los 2 archivos. Entra a VBA, del lado izquierdo verás los módulos, arrastra el módulo 1 del archivo con la macro hacia el otro archivo Cierra el archivo con la macro. Ahora en el archivo nuevo, realiza los siguientes pasos para crear un botón y...

Pon el siguiente código en tu formulario Private Sub TextBox1_Change() Call Multiplicar End Sub ' Private Sub TextBox2_Change() Call Multiplicar End Sub ' Sub Multiplicar() TextBox3 = "" t1 = Val(TextBox1.Value) t2 = Val(TextBox2.Value) TextBox3 = t1...

Si vas a ordenar por la columna "B", entonces el dato el Textbox2 (nombre), siempre deberá tener algo, de ese forma aseguras que vas a agregar un dato en la columna B y podrás encontrar la siguiente fila vacía después del último registro. Con la...

Te anexo la macro con algunas validaciones Sub Ejer02() Dim hoja As String, tex As String, celda As String celda = InputBox("En que celda desea situarse") tex = InputBox("Que desea escribir") hoja = InputBox("En que hoja desea situarse") ' If celda =...

Te anexo la macro para lo siguiente: 1. Captura el dato en la hoja "actualización", celda C4 2. Ejecuta la macro. Si no hay dato, te envía un mensaje 3. La macro realiza los 2 filtros 4. Si hay información en la columna A, la copia y la pega en la...