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

Fecha con formato año mes día hora minuto y segundo

Si quieres la fecha actual con hora y que la fecha sea una fecha válida para excel: Range("B2").Value = Now() Dale formato a la celda B2 para que se muestren los segundos. Si quieres la fecha y hora sean textos: Range("B2").Value = "'" &...
Respuesta en y en 2 temas más a

Pasar para imprimir solo ciertos items seleccionados en listbox

Te anexo la macro actualizada Private Sub CommandButton3_Click() Set h = Worksheets.Add h.Range("A1:H1") = Array("N° CHEQUE", "DOCUMENTO N°", "FECHA", "MONTO", "GIRADO A", "CONCEPTO", "BANCO", "OPERACION") h.Range("A2:h200").NumberFormat = "General"...
Respuesta en y en 2 temas más a

Sistema de Facturación creado en Excel carga factura de manera correcta pero presenta un problema en el Inventario

Puedes poner un par de imágenes explicando el caso cuando tienes: " Al momento de que el sistema automáticamente le da salida a la cantidad de productos vendidos solo me toma el primero colocado, no le da salida a la segunda cantidad del mismo...
Respuesta en y en 1 temas más a

Macro para enviar por mail un archivo adjunto a través de una Macro

Revisa la siguiente respuesta Macro para envíar correos masivos con adjuntos diferentes Ahí también encuentras las versiones de los archivos para excel 2007 y 2010 o superiores. [Si te sirvió el archivo, no olvides votar la respuesta y valorar esta...