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

Como hacer Userforms con textbox obligatorios

Una opción es poner las validaciones en el commandbutton. Por ejemplo: Private Sub CommandButton1_Click() 'Validaciones If TextBox1.Value = "" Then MsgBox "Captura un texto en el textbox1" TextBox1.SetFocus Exit Sub End If txt1 = TextBox1.Value For i...
Respuesta en a

Buscar en rango de fechas

Prueba con la siguiente macro. Ahora en las celdas C1 y D1 debes poner las fechas inicial y final de tu rango de fechas. Cambia "C:\trabajo\", por la carpeta donde tienes tus archivos. Sub Buscar_Regresar_Datos2() 'Por Dante Amor...
Respuesta en a

Incluir firma digital de Outlook en macros Excel

Revisa las siguientes respuestas Insertar firma con imagen a macro mails automático Macro envío de libro excel por correo con firma
Respuesta en a

Buscar y regresar valor misma fila

Te anexo la macro, sigue las siguientes indicaciones: 1. Pon la macro en un archivo nuevo y pon un botón para ejecutarla. 2. En el archivo con la macro debes tener una hoja llamada "Hoja1" 3. En la "hoja1" en la celda B2 escribe el texto que quieras...
Respuesta en y en 1 temas más a

Guardar un libro en diferentes direcciones

Puedes comentar: ¿El archivo a guardar está abierto? ¿El archivo a guardar es el que contiene la macro? ¿O el archivo a guardar está en un directorio específico?
Respuesta en y en 2 temas más a

Macro pegar valores buscando el último dato

Te anexo la macro Sub Copiar_TD() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 h1.Range("A10:F" & u1).Copy h2.Range("B" &...
Respuesta en y en 1 temas más a

Hallar y Extraer valor con longitud variable

Utiliza la siguiente función. Considerando que leyendo el texto de atrás hacia adelante, el primer punto es el del importe. Function Obtener_Cifra(celda As Range) 'Por Dante Amor punto = InStrRev(celda.Value, ".") amper = InStr(punto, celda.Value,...
Respuesta en y en 1 temas más a

Cómo copiar determinadas columnas, sin encabezados, de todas las hojas de un libro a otro libro diferente.

Está claro qué quieres copiar y de dónde lo quieres copiar. Lo que no explicaste es en dónde exactamente lo quieres pegar. Entiendo que lo quieres pegar en el libro "xyz", en la hoja "resumen", pero no explicaste en cuáles columnas ni en cuáles...
Respuesta en y en 2 temas más a

Jerarquía en selección de datos automática por VBA

Te anexo el código: Private Sub TextBox1_Change() Call Resultado_Grado End Sub Private Sub TextBox2_Change() Call Resultado_Grado End Sub Private Sub TextBox3_Change() Call Resultado_Grado End Sub Private Sub TextBox4_Change() Call Resultado_Grado...
Respuesta en y en 1 temas más a

Fórmula para controlar secuencia alfabética y cantidad entre ellas

Y qué esperas de resultado, ¿solamente qué te diga la cantidad? Y en dónde quieres el resultado, ¿en una celda o en un mensaje? ¿Siempre vas a poner 3 letras?