Dante Amor

Dante Amor

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

Respuestas en Programación

Respuesta en y en 4 temas más a

Buscar copiar y pegar con macros desde una base de datos

H o l a Sandra, bienvenida a TodoExpertos! Revisa si lo siguientes es algo como lo que necesitas: Como buscar resultados con múltiples palabras parciales, ¿de una tabla de datos en Excel?
Respuesta en y en 3 temas más a

Cuanto tiempo y horas hay entre estas fechas

En excel: =(B2-A2)*24
Respuesta en y en 2 temas más a

VBA para copiar y pegar datos de rango de fila, pero solo celdas con valores

Prueba lo siguiente: Sub CopiarValores() Dim a As Variant, b As Variant, lr As Long, i As Long, j As Long, k As Long lr = ActiveSheet.Range("A:E").Find("*", , xlValues, , xlByRows, xlPrevious).Row a = Range("A1:E" & lr).Value2 ReDim b(1 To UBound(a,...
Respuesta en y en 2 temas más a

Excel. Mejorar macro de búsqueda de archivos

Puedes poner una imagen de cómo están tus datos, pon 3 ejemplos un excle, un pdf y un dxf Procura que se vean las filas y las columnas de excel. Entiendo que tienes los nombres de los archivos en la columna M. Qué valores tienes en la columna J,...
Respuesta en y en 3 temas más a

¿Cómo aplicar múltiples condiciones en una macro que se ejecute de manera correcta en todos los casos posibles?

Olvida la macro. Olvida que tienes muchos datos en la hoja. Yo entiendo que debe aplicar para todos los datos. Explica un ejemplo. 1. Si hay dato en la celda B9 entonces, si la celda B9 está vacía, ¿quieres un mensaje? 2. "Debe haber un dato en E9 o...
Respuesta en y en 3 temas más a

Extender condición celdas en un rango variable

Puedes poner otra vez la macro, pero utiliza el icono para insertar código:
Respuesta en y en 2 temas más a

Macro para crear una nueva hoja, según condición en otra celda

Prueba así: Sub test() Dim i As Long, sHoja As String sHoja = "añadir" With Worksheets("hoja1") For i = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row If .Cells(i, "B").Value = "" Then If Not Evaluate("ISREF('" & sHoja & "'!A1)") Then...
Respuesta en y en 2 temas más a

Macro para filtrar una columna de acuerdo a su título

Prueba lo siguiente: Sub blanco_agendaHoy_ars() Dim f As Range, col As Long Set f = Rows(2).Find("Titulo", , xlValues, xlWhole) If Not f Is Nothing Then col = f.Column - 1 Sheets("ABM").Select On Error Resume Next If Sheets("ABM").AutoFilterMode Then...
Respuesta en y en 2 temas más a

Macro envio sivo de mails con adjunto

Y bienvenida a TodoExpertos. Podrías poner un ejemplo del nombre del destinatario y cómo se llama el archivo. ¿En cuál carpeta se encuentran los archivos? ¿Cada mes cambian de nombre? Si cambian de nombre, ¿puedes poner ejemplos?
Respuesta en y en 2 temas más a

Seleccionar una Página Especifica en un Multipage

La primer página es la número 0, entonces si quieres activar la página "validaciones", según la imagen es la número 5, entonces: Private Sub UserForm_Activate() MultiPage1.Value = 5 End Sub