Dante Amor

Dante Amor

Excelente!
 3.197K puntos  Estado de México, México @aprendemos desde - visto
Preguntar

Actividad pública reciente

Ha respondido en y en 1 temas más

Macro para seleccionar hoja en excel

Para abrir un userform pon lo siguiente en un módulo Sub Abrir() userform1.show End sub Ahora, en el formulario puedes poner un combobox, cargar las hojas en el combobox Pero al momento de seleccionar una hoja, ¿qué necesitas? ¿Qué se haga visible y...
Ha respondido en

Formulario para buscar hojas de un libto

H o l a: En lugar de agregar un textbox, agrega un combobox. Pon el siguiente código en tu formulario: Private Sub ComboBox1_Change() 'Por.Dante Amor If ComboBox1.ListIndex = -1 Then Exit Sub Sheets(ComboBox1.Value).Select End Sub ' Private Sub...
Ha respondido en y en 2 temas más

¿Puede ser que el tamaño del archivo esté muy ligado a la cantidad de celdas utilizadas?.

Desde luego el tamaño del archivo va en función de las celdas ocupadas. Otras características que incrementan el volumen del archivo: Formatos de celdasFormatos condicionales, estos ocupan mucho espacio, sobre todo si tienes gran cantidad de...
Ha respondido en

Cambiar columnas por filas en Excel, manteniendo la primera columna

Puedes describir cómo tienes esto: Eva Rojo Amarillo Verde Tienes Eva en la celda A2, Rojo en la celda B2, Amarillo en la celda C2 y Verde en la celda D2 ¿O lo tienes todo en la celda A2?
Ha respondido en y en 1 temas más

Macro para seleccionar símbolos y números

H o l a: Te anexo la macro Sub FiltroNumeros() 'Por.Dante Amor Dim nums() ActiveWindow.ScrollRow = 1 digs = "1234567890,.°|¬#$%&/()=[]{}_-<>'?¿!¡" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If InStr(1, digs, Left(Cells(i, "A"), 1)) > 0 Then n...
Ha respondido en y en 3 temas más

Traer Datos de un Archivo RDF a Hoja Excel con macros

H o l a: No conozco los archivos RDF, puedes enviarme un par de archivos RDF y me envías tu archivo de excel. En el archivo de excel con algún color y con comentarios me explicas cómo cargaste los 2 archivos RDF que me estás enviando. Mi correo...
Ha respondido en y en 4 temas más

Obtener la página de una celda específica en VBA Excel

Te anexo la macro, el resultado de las celdas te las puse en un mensaje. Sub PrimerasCeldas() 'Por.Dante Amor ActiveWindow.View = xlPageBreakPreview For Each corte In ActiveSheet.HPageBreaks celdas = celdas & corte.Location.Address(False, False) & ",...
Ha respondido en

Con esta fórmula, se puede cambiar, para verla con otra definición

¿Qué datos tienes? ¿Cómo tienes configurada la celda?
Ha respondido en

Fórmula para saber el % de diferencia entre dos celdas, sea en positivo o negativo

En P15 pon la siguiente fórmula =SI(P16>=N16;(P16/N16)-1;(P16/N16)*-1) Pon formato de % en la celda P15. Si subió verás positivo el incremento, si bajó verás negativo el decremento. 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Ha respondido en y en 1 temas más

Combobox de archivos en una carpeta

Te anexo la macro Private Sub UserForm_Activate() 'Por.Dante Amor carpeta = "C:\trabajo\" archivo = Dir(carpeta & "*.*") Do While archivo <> "" ComboBox1.AddItem archivo archivo = Dir() Loop End Sub Cambia en esta línea de la macro por el nombre de...
Ha respondido en

Rellenar columnas con dato de una celda de otra hoja

H ol a: Te anexo la macro. Sub Copiar2() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Formulas") 'hoja origen Set h2 = Sheets("val_padron") 'hoja destino cols = Array("", "C", "F", "N", "P", "R", "T", "Y", "AA", "AC", _ "AE",...
Ha respondido en y en 2 temas más

Imprimir libro excel 2003 en archivo pdf

Te anexo la macro actualizada Sub macro1apdf() 'Act.Por.Dante Amor carpeta = ThisWorkbook.Path & "\" archivo = "PROGRAMACION.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=carpeta & archivo, _ Quality:=xlQualityStandard,...
Ha respondido en y en 1 temas más

Copiar valores si se cumple condición

H o l a: Definitivamente podría hacerte la macro, pero no entendí qué dato de "SVE" tengo que comparar en "Base", pusiste "celda 4", ¿pero cuál es la celda 4? Tienes que poner un ejemplo más claro. Por ejemplo, en la hoja "SVE" en la fila 2, columna...
Ha respondido en y en 2 temas más

Seleccionar rango, copiar y pegar hasta la ultima fila

Esta puede ser una opción Range("a3").FormulaLocal = "=SUBTOTALES(103,$F$3:F3)" Range("b3").FormulaLocal = "=SI(ColorFondoIgual(E3,204,255,255),""X"",)" Range("c3").FormulaLocal = "=SI(H3=0,0,SI(I3-I2=1,""OK"",""FA""))" Range("a3:c3").AutoFill...
Ha respondido en

Calcular fórmulas y pasar resultados a otra hoja

H o l a: me puedes enviar un correo nuevo y me explicas con ejemplos cómo debo realizar el cálculo. R ecuerda poner tu nombre de usuario en el asunto.
Ha respondido en y en 2 temas más

¿Fórmula para referencias en excel?

Te anexo una fórmula, es una opción para reflejar en la celda A10 el valor de la celda D1 Pon la siguiente fórmula en la celda A10 =INDIRECTO("D"&FILA()/10) Lo que hace la fórmula es calcular la celda, la fórmula empieza con la columna "D", después...

Experiencia

Más de 20 años en sistemas

Trabajo

  • Sistemas
    Analista , 2002 - actualidad

Educación

  • uvm
    lic en sistemas , 1988 - 1992