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 1 temas más a

¿Cómo enumerar consecutivamente boletos para un sorteo? (DAM)

¿Puedes poner una imagen de cómo tienes el boleto o es una lista? Envíame tu archivo con la idea que tienes, pon 3 ó 4 ejemplos y te ayudo con la numeración.
Respuesta en y en 4 temas más a

Problema Macro Error 1004 en tiempo de ejecución - No se encontraron celdas

Con esta opción puedes controlar si no se encontraron datos en el filtro: ActiveSheet.Range("$A:$P").AutoFilter field:=13, Criteria1:="AB" ActiveSheet.Range("$A:$P").AutoFilter field:=4, Criteria1:= _ ">1000000000", Operator:=xlAnd,...
Respuesta en y en 2 temas más a

Buscarv en una macro para 200,000

Podrías poner una muestra de los datos que tienes, qué quieres buscar, en dónde lo quieres buscar y qué es lo que esperas como resultado. Todo explicado con ejemplos y con las referencias de filas y columnas de la hoja de excel. O envíame una muestra...
Respuesta en y en 2 temas más a

Macro para generar un nuevo libro cuando hayan 7 hojas en el

Te recomiendo lo siguiente. 1. Que tengas un libro con una hoja "formato", esta hoja deberá permanecer protegida, es decir, el "formato" no puede ser modificado. 2. En la hoja "formato" tendrás un botón con la macro para copiar el "formato" a una...
Respuesta en y en 2 temas más a

Transformar letras con acento en letras sin ellos en VBA Excel 2010

Una opción es que lo hagas en el evento exit del textbox, por ejemplo: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor sina = Replace(TextBox1, "Á", "A") sina = Replace(sina, "É", "E") sina = Replace(sina, "Í", "I")...
Respuesta en y en 2 temas más a

Tengo un libro con códigos y macros pero empezó a fallar...

Puede ser por falta de memoria, cierra algunas de tus aplicaciones; depura tu archivo de excel: elimina imágenes de tu archivo que no ocupes, elimina filas que no ocupes, elimina fórmulas que no ocupes, elimina hojas que no ocupes. Si no se corrige,...
Respuesta en y en 2 temas más a

Para Dante: Macro para búsqueda exacta de un resultado

Cambia en la macro, esta línea Set b = r.Find(num) Por esta Set b = r.Find(num, LookAt:=XlWhole) Saludos. Dante Amor
Respuesta en y en 2 temas más a

¿Cómo hacer que se ejecute una macro al presionar la tecla "Enter" en una celda determinada?

Pon la siguiente macro en los eventos de tu hoja, después de que modifiques la celda D4 y presiones enter tu macro se ejecuta, cambia "nombremacro" por el nombre real de tu macro. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If...
Respuesta en y en 2 temas más a

Copiar fragmento del texto en otra celda

Me enviaste esta pregunta y te anexo la macro. Sub CortarFragmento() 'Por.Dante Amor u = Range("C" & Rows.Count).End(xlUp).Row If u < 4 Then u = 4 Range("A4:B" & u).ClearContents For i = 4 To u ini = InStr(1, Cells(i, "C"), "Cod.") If ini > 0 Then i2...
Respuesta en y en 2 temas más a

Como encuentro la ultima celda no vacía

Te anexo 4 posibles opciones, elige la que más te agrade. Si los datos siempre están como lo estás poniendo en tu ejemplo, es decir, entre el total y la última fecha siempre hay uno más renglones vacíos, te recomiendo la opción2 Sub...