Dante Amor

Dante Amor

Si me amas, siempre voy a estar en tu corazón; si me odias, siempre voy a estar en tu mente. Ódiame o ámame, ambas están a mi favor. Shakespeare
 3.503K puntos  Estado de México, México @aprendemos desde - visto
Preguntar

Preguntas y respuestas en Microsoft Excel

Respuesta en y en 1 temas más a

Actualización automática de TABLAS DINÁMICAS, con hojas protegidas de contenidos TABLAS EXCEL (Base de dato) y Tablas dinámicas

Ejecuta la siguiente macro. Cambia en la macro "abc" por el password que tienen tus hojas Sub Actualizar_Hojas() 'Por.Dante Amor ' Application.ScreenUpdating = False For Each h In Sheets h.Unprotect "abc" Next ActiveWorkbook.RefreshAll For Each h In...

Búsqueda y Extracción información de una columna y copiarla en otras dos columnas

Te anexo la macro Sub Separar() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If InStr(1, Cells(i, "A"), "/") > 0 Then datos = Split(Cells(i, "A"), "/") Cells(i, "B") = WorksheetFunction.Trim(datos(0)) Cells(i, "C") =...
Respuesta en y en 2 temas más a

Excel Que fórmula puedo utilizar para lacular meses

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...
Respuesta en y en 2 temas más a

Holiii, no he podido hacer funcionar este código de Búsqueda y eliminación de datos en VBA

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...
Respuesta en y en 1 temas más a

Alertas de búsqueda en formulario excel

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 =...
Respuesta en y en 2 temas más a

Mejorar una Macro en Excel

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...
Respuesta en y en 1 temas más a

InputBox al que se le incluye un ComboBox

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...
Respuesta en y en 1 temas más a

Solicita macro vba de búsqueda múltiple

Te anexo la macro Sub Buscar_Dni() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Resultados") Set h2 = Sheets("Datos") ' h1.Rows("6:" & Rows.Count).ClearContents If h1.Range("C4") = "" Then MsgBox "Captura el DNI"...
Respuesta en y en 1 temas más a

MACRO: como copiar una macro en VBA de un archivo a otro de igual formato

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...
Respuesta en y en 2 temas más a

¿Multiplicar 2 valores ingresos en textbox diferentes y mostrar automáticamente el resultado en un tercer textbox?

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...