Dante Amor

Dante Amor

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

Respuestas en Visual Basic

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?
Respuesta en y en 2 temas más a

Macro para filtrar casa elemento de una lista y guardar el resultado de ese filtro en csv.

Te anexo la macro. Cambia en la macro "Hoja 1" por el nombre de tu hoja con datos. Crea una hoja y le pones por nombre "temp" Sub Separar_Datos() '---- ' Por Dante Amor '---- Application.ScreenUpdating = False Application.DisplayAlerts = False...
Respuesta en y en 1 temas más a

Copiar e insertar hoja nueva y pegar solo valores

Veamos, quieres insertar 2 hojas nuevas en el archivo 3, y luego dices: Y en estas quiero copiar solo los valores de la hoja 1. Si la "Hoja1" está en el archivo origen, entonces quedaría así: Sub MaAlfa() alfa = ActiveWorkbook.Name origen =...
Respuesta en y en 2 temas más a

Error en Macro Necesito una solución

No entendí muy bien lo que hace la macro. Mejor explícame qué quieres hacer, te dejo algunos pasos, solamente completa la información: 1. Quieres copiar de la hoja "Aviso de Cobro", el rango "A1:M51" 2. Quieres crear una nueva hoja 3. En la nueva...
Respuesta en y en 4 temas más a

Macro que concatene los valores de igual criterio

Te anexo la macro Sub Concatenar_Notas() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' 'h2.Cells.ClearContents For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row nota = h1.Cells(i, "A").Value If nota <> "" Then Set b =...
Respuesta en y en 1 temas más a

Crear Macro en Excel para rellenar una plantilla y separarlas en libros diferentes

Te anexo la macro para crear los archivos. Sigue las siguientes instrucciones: 1. Los nombres de los archivos no puede quedar con el nombre "007/18", no se puede guardar un archivo con una diagonal, por lo tanto, los nombres de los archivos quedarán...
Respuesta en y en 2 temas más a

Cómo reemplazar el valor de un textbox que es resultado de una operación en una celda de Excel

El error es porque tienes esto: ActiveSheet = Sheets("Inventario(almacén)") Me parece que el nombre correcto es con un espacio después de inventario: "Inventario (almacén)" Si corriges el nombre, ahora te marcaría el error: "Se ha producido el error...