Dante Amor

Dante Amor

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

Respuestas en VBA

Respuesta en y en 4 temas más a

Necesito Guardar 3 Hojas de Libro de 15?

Te anexo la macro Sub Copiar_Hojas() 'por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("INGRESOS", "SEGURIDAD", "VENEZOLANA")).Copy For Each h In Sheets h.Cells.Copy h.Range("A1").PasteSpecial xlValues...
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

VBA Buscar Coincidencia(Like) en Matriz de Excel

No entendí muy bien qué dato debe iniciar la búsqueda. Continuando con este ejemplo: " "013531-170117", "NCI-170117" " Quieres qué tome el "170117" de este dato: "013531-¿170117" y lo busque en el resto de la columna? O quieres que tome el "170117"...
Respuesta en y en 3 temas más a

Como saber si un libro de trabajo esta abierto

Te anexo el código ' 'valida nombre de archivo For Each libro In Workbooks If libro.Name = "YAFO_EBIT_AMORTIZACIONES.xlsm" Then MsgBox "El libro ya está abierto" Exit Sub End If Next ' 'continúa con tu macro ' . 'S aludos. Dante Amor. Recuerda...
Respuesta en y en 2 temas más a

Seleccionar Rango de Hojas y Exportar a Pdf

Te anexo la macro actualizada, para copiar de la hoja4 hasta la última en un pdf Sub CommandButton2_Click() 'Por.Dante Amor Dim hojas() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path arch = Hoja2.Name n...
Respuesta en y en 2 temas más a

Filtrado de columnas en vba

Envíame tu archivo y me explicas con cuáles columnas quieres filtrar, incluso puede ser con todas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “kronos6” y el título de esta pregunta.
Respuesta en y en 2 temas más a

Hacer una distribución con Visual Basic Excel

Te propongo lo siguiente. En la celda A2 pon el número de personas, en la columna C y en la columna E te aparecerá el número de personas por sala, turnos 1 y 2 respectivamente. Ver siguiente imagen: Asigna la siguiente macro a un botón: Sub...
Respuesta en y en 2 temas más a

Macro busqueda, modificacion del codigo

De hecho son 3 peticiones: 1. Buscar en base a 2 criterios 2. Cargar un listbox con lo encontrado 3. Poder seleccionar registros del listbox y enviarlos a la hoja. Supongo que ya tienes un userform, envíame tu archivo con el userform, y me explicas...
Respuesta en y en 3 temas más a

Bloquear Botón de Comando Si Falta Datos En Un Label de Userform

Pon el evento activate en tu userform "verificación de datos" Private Sub UserForm_Activate() CommandButton1.Enabled = True 'habilita botón "Registrar Datos" Label1 = UserForm5.TextBox1 If Label1 = "" Then CommandButton1.Enabled = False Label2 =...
Respuesta en y en 4 temas más a

¿Cómo extraer datos de una cadena de texto dependiendo de los valores de un listado con código vba?

Te anexo la macro Sub Actualizar_Datos() 'Por.Dante Amor Set h1 = Sheets("CONCENTRADO") Set h2 = Sheets("Marcas y modelos") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row texto = UCase(h1.Cells(i, "A")) existemarca = False For j = 2 To...