Dante Amor

Dante Amor

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

Respuestas en Microsoft Excel

Respuesta en y en 1 temas más a

Macro Excel 2019 para enviar email. No se añadir una imagen al pie del mensaje que me sirva como firma, la coloca en el asunto

En la siguiente respuesta explico, cómo insertar una imagen al pie del correo. Envío de emal por Outlook desde excel En lo sucesivo, procura poner el código utilizando el icono para Insertar código fuente.
Respuesta en y en 2 temas más a

¿Cómo hacer una macro de una celda que cuente registros solo con VBA?

El evento Change se utiliza para ejecutar un código cuando modificas una celda. Te explico por qué se "cuelga" la macro. Pusiste la línea: ws.Range("B3") = Application.WorksheetFunction.CountA(ws.Range("B6:B1048576")) Eso significa, que modificas la...
Respuesta en y en 1 temas más a

Como NO perder el consecutivo de una numeraicon

¿La fórmula empieza en la celda A6? ¿Qué tienes en F6, letras o números o cualquiera? Prueba la siguiente fórmula: =SI(F6<>"";CONTARA($F$6:F6);"")
Respuesta en a

Buscar cadena de palabras más larga en una columna

Es una fórmula matricial. Para aceptar debes presionar las 3 teclas Shift + Control + Enter al mismo tiempo. Notarás que la fórmula queda entre llaves { } =INDICE(A2:A100;MAX((LARGO(A2:A100)=MAX(LARGO(A2:A100)))*FILA(A2:A100))-1)
Respuesta en y en 2 temas más a

Tengo un problema con un formulario, al desplegarlo me dice que no encuentra la ruta del archivo

Prueba lo siguiente y dime qué mensaje te aparece Private Sub UserForm_Initialize() Dim imag As String Dim ruta As String ' ruta = ThisWorkbook.Path & "\Pict\" If Dir(ruta, vbDirectory) = "" Then MsgBox "No existe la carpeta : " & ruta Exit Sub End...
Respuesta en y en 2 temas más a

Abrir un doc de word especifico o si esta abierto continuar

Prueba lo siguiente: Sub PORTADA() 'Declaración de variables Dim num As Variant Dim ruta As String, archi As String Dim TEX2 As String, TEX3 As String Dim WordApp As Object Dim wdDoc As Object 'Dim WordApp As Word.Application 'Dim wdDoc As...
Respuesta en y en 2 temas más a

Como insertar imagenes en una todo expertos

Al parecer la página de todoexpertos, no tiene esa funcionalidad para el smartphone. Una opción es que subas la imagen a algún sitio en la web, como dropbox o googledrive y pegar el enlace en tu pregunta.
Respuesta en y en 2 temas más a

Consolidar múltiples hojas de varios excel

Prueba lo siguiente: Sub Consolidar_Hojas() 'Por Dante Amor Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb4 As Workbook Dim uDia As Long, i As Long, mes As Long Dim hojaDia As String, hojaMes As String, hojagas As String Dim valor As...
Respuesta en y en 4 temas más a

¿Validación de datos y filtros en este caso no es o si?

Revisa la siguiente respuesta: Cómo crear listas desplegables dependientes Excel 2016
Respuesta en y en 2 temas más a

Que tal, me gustaría hacer un vlookup en un formulario, que devuelva un dato en un label según el dato ingresado en un textbox.

¿Cuál problema tienes con tu código? Intenta también con el siguiente: Private Sub CommandButton1_Click() Dim f As Range Set f = Sheets("DATA Maro-2021").Range("A:B").Find(TextBox1.Value, , xlValues, xlWhole, , , False) If Not f Is Nothing Then...