Hola a todos Soy nuevo y de excel no tengo casi ni idea, estoy haciendo un libro para hacerme escandallos de trabajos y necesitaria hacer un boton para insertar una imagen, en una posicion y con un tamaño en la hoja con la que estoy trabajando.Buscando por varios foros he conseguido hacer este macro . Sub InsertarIMGcorte() ActiveSheet.Range("K5").Activate Application.Dialogs(xlDialogInsertPicture).Show With Selection .ShapeRange.LockAspectRatio = msoTrue .ShapeRange.Height = 290 'Alto de la imagen .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda) .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 pa…

Buenas tardes, Alguien me podría ayudar a corregir este código que tengo para unir un rango de celdas (varias hojas) en una sola: Sub UNIR() Dim Resp As Byte Resp = MsgBox("UNIR CONTENIDO", _ vbQuestion + vbYesNo, "Microsoft Excel") If Resp = vbYes Then MsgBox "Continuar proceso", vbExclamation, "Microsoft Excel" Application.ScreenUpdating = True For x = 5 To 17 Sheets(x).Select [B28].CurrentRegion.Offset(2, 1).Resize([B28].CurrentRegion.Rows.Count - 2, [B28].CurrentRegion.Columns.Count - 1).Copy Sheets("RV Consolidado").Select [C7].End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Application.ScreenUpdating = F…

Buenas. Tengo en un excel una hoja estilo menú en la que quiero colocar una lista que me lleve a diferentes hojas. El problema es que hay hojas que aún no están creadas y no sé cómo hacerlo. Me explico: En dicho excel se introducen gastos de empresas y beneficios de diferentes ventas. Pues bien, yo tengo dos hojas fijas: Empresa1 y Empresa2 y dos ventas fijas Venta1 y Venta2, y en el menú tengo un macro que me genera o bien una nueva empresa que se sitúa en medio de las fijas, o bien una nueva venta que se sitúa en medio de las fijas. De forma visual, las hojas de mi excel quedan así:Menú principal, Empresas, NuevaEmpresa, Empresa1, [Aquí se generan nuevas empresas],…

hola tengo un problema, tengo datos desde A4:j4 y quiero que al presionar el boton, por medio de macro me copie los datos ingresados en las celdas mensionadas en una ubicacion mas abajo por ejemplo A9:J9. El problema que se me presenta es que en lugar de copiar los datos en forma horizontal (es decir de A9:J9), los copia de forma vertical (desde A9 para abajo). Este es el codigo, gracias Private Sub CommandButton1_Click() Range("A4").Select ActiveSheet.Unprotect Range("A4:J4").Select Selection.Copy Range("A8").Select '' [A65536].End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ …

Hola a todos, estoy intentando enviar un mail desde un formulario y me está dando este error y no sé donde está el error ¿?. Saludos y buen día. MMail.xlsm

Buenas noches, necesito sacar de un archivo con 200 hojas aprox (que son facturas , todas con el mismo formato) un resumen de facturación con nombre cliente, fecha, número fra, importe, ... Como lo puedo hacer , no tengo ni idea de macros. Por favor ayuda!!! Y que sea fácil ...

Hola a todos, primero que todo dar las gracias por los aportes y comentarios que haceis.. Hoy traigo un "pequeño gran reto", GRÁFICA VERTICAL TIPO PROCESOS La Idea es obtener un gráfico Tipo Procesos (Vertical), y que las Formas (Shapes), cambien de celda dependiendo de los valores registrados en la columna "E"; para cada opción de este Ejercicio ... RANGO DE VALORES desde 0 hasta 100; mostrados en el Rango("F2:P2") La idea es que al cambiar el valor de la Columna "E", el objeto (Shape), se desplace a la columna correspondiente (F; G; H; I; J; K; L; M; N; O; P) Dependiendo del valor registrado en la Celda Range("$E...") La M…

tengo un listbox en una hoja de ecxel con unos datos ya cargados. la idea es ordenar ascendentemente ese listbox sin tocar los datos de donde los traigo. solo quiero ordenarlos y ya.

Hola necesito intertar filas automaticamente en excel despues de terminar de rellenar una primera columna,no quisiera perder los enlaces a las demas hojas libro mayor y balance de sumas y saldo y plan general contable. el archivo no lo pude subir porque es de 258kb o algo asi. pero bueno intento explicarlo.el formato del libro diario es de la siguiente manera. nº asiento...fecha....grupo...subgrupo...subcuenta.....concepto....debe....haber 1...............13-5....... 4....... 43.............430.............clientes.....300 2................14-5...... 4........40.............400.............proveedor.............300 ahora explico: -nº de asiento es aut…

Buenas noches. Necesito su amable ayuda. tengo una base de datos con 4 columnas, comienza en a7(clave de producto), b7(familia), c7 (descripcion de producto) y d7 (unidad)...Ejemplo M0001, afine, afine de terreno, m2. Necesito la forma de filtrarlos escribiendo la familia en la celda C6. Y de paso, (al seleccionar el producto necesario, ya que puede haber cinco, tres, quince, tipos de afine, por ejemplo)asignarle algun mecanismo para enviarlo a otra hoja donde se va formando mi presupuesto o factura y que me permita ir escribiendo en la celda de abajo, para agregar otros productos. Aclaro, no se nada de macros y programacion. Es solo un programita para facilitarme mis…

Buenas tardes. Tengo en excel un macro con el que imprimo un ticket y tras imprimir el ticket automáticamente se abre el cajón portamonedas. El cajón portamonedas he logrado abrirlo a través de las propiedades de la impresora que es de la marca AV Pos modelo P-83. No obstante, me gustaría hacer una macro que abra solo el cajón portamonedas sin necesidad de imprimir. El cajón que tengo es el HS-410. ¿Hay alguna forma de hacer esto? Gracias.

Estimados, Soy nuevo en este foro. quisiera saber si son capaces de ayudarme con el siguiente porblema: Estoy utilizado el codigo de mas abajo, que junta varios libros en uno solo (nuevo libro creado por el macro), y me gustaria que si se puede hacer que junte esos libros en el mismo donde tengo la macro y sin borrar las hojas que existe. saludos y gracias Sub UnirLibros() Dim Directorio, NombreLibro As String Dim ContadorFicheros As String Dim Unidos As Workbook Dim K, NumHojas As Integer Dim Libro As Workbook Directorio = ThisWorkbook.Path ContadorFicheros = Dir$(Directorio + "\*.*") 'Crea el libro que contendrá a todos los demás Application.SheetsInNewWor…

Hola a Todos Espero estén muy bien junto a sus seres queridos. Favor su ayuda con lo siguiente: Tengo un problema con una planilla excel, desde hace un par de horas dejo de funcionar y cuando abro o cierro el libro me aparece el siguiente mensaje "No se puede encontrar el proyecto o la biblioteca". He buscado en el foro y red, pero no logro dar con una solucion. Segui lo siguiente: ALT + F11 > herramientas > referencias, pero al dar clic en referencias no pasa nada. Al dar ALT + F11, me aparece otro mensaje " No se encontro el modulo". Adjunto el libro. https://1drv.ms/x/s!Aiq68zQ4jy8ShKBFkgvTfFpeIdjmHQ?e=ctaaxx S…

Buenas a todos nuevamente...estoy con problemas en esta macro, 1- no me traspasa los datos del UserForm al seleccionar el mes; me da dos errores 1 - Error de compilación...se requiere objeto ......(en este caso es cuando no desactivo ninguana línea de la macro) 2 - Se ha producido el error '-2147417848(80010108) en tiempo de ejecucion.: ..error en el metodo 'Apply' de objeto 'Sort'...(en este caso es cuando desactivo la línea 'Set MES = Sheets("Rucs Empresas")...me pueden dar una mano con esto... la idea es que me arroje los datos segun la seleccion del mes que lo hago en el ComboBox4 y que me ordene por fecha que se encuentra en la columna A a partir …

estoy haciendo un registro en el cual ya hice el combobox con lista desplegable pero no se como hacer que con vba excel de autofiltro a el valor seleccionado en el combobox

Tengó la siguiente macro que me permite exportar a PDF en una ruta definida por mi: Option Explicit Sub CreaPDF() Dim NombreArchivo, RutaArchivo, historico, separador As String NombreArchivo = Cells(7, 3).Value RutaArchivo = Cells(42, 2).Value historico = Cells(3, 6).Value separador = “-” ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo & NombreArchivo & separador & historico, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub Esa macro me exporta a un pdf la planilla que tengo en una ruta definida. Lo que necesito hacer ahora es qu…

Buenas noches! Amigos(as) acude a este foro para buscar una solución a lo siguiente: El archivo que he adjuntado cuenta con un formulario vba en la hoja llamada "Datos" el cual se muestra en botón Inicio, este formulario cuenta con un combobox que carga una lista de los datos contenidos de la columna A hasta la columna N. Una vez cargado los datos son seleccionados y se imprimen por medio del botón llamado Reporte, existe forma que me evite ir seleccionando uno a uno el usuario a imprimir? entiéndase que con seleccionar una opción o checkbox imprima automáticamente todos los registros cargados en el combobox. Espero haberme explicado bien y agradezco…

Buen día, tarde, noche Quisiera solicitarles de su amable ayuda para solucionar un problemita que estoy teniendo en un archivo Dropbox - Chequeras.rar Quiero hacer un barrido de la Hoja que se llama ACSEL Q, y que me vaya a buscar el número de cheque en la hoja que se llama Listado de Cheques, y que me traiga ciertos datos hacia la hoja ACSEL Q Lo estoy haciendo a través del método Find, pero siempre me salta el error 91, y esto se debe porque no encuentra algún dato. Al código le agregué lo siguiente: On error resume Next . . . if err.number = 91 then goto Siguiente[/CODE] Esto me resuelve a medias el problema, pues lo que hace es que si existe el error 91 …

Hola Buenas Noches, Tengo un problema ya que estoy haciendo scraping a una página la cuál contiene sólo eventos Class para descargar la información y no me permite descargar nada queda la hoja en blanco. He probado con todos los class y aún así no puedo obtener la descripción y URL de los productos que es lo que ando buscando. Alguien me podría ayudar a obtener dicha información. Adjunto el archivo. Muchas Gracias.Prueba.xlsm Prueba.xlsm

Hola buenas, soy nuevo en el foro y, aunque he visto peticiones similares, no he conseguido aplicar las soluciones a mi hoja. En mi caso, tengo un libro de excel con doce hojas (una por cada mes). Necesito una macro que busque en cada hoja anterior (es decir, si estamos en la hoja "Abril" que busque en las hojas de Enero, Febrero y Marzo el valor "Abril") en la columna G el valor del mes correspondiente. Una vez hecho esto, que copie las filas correspondientes y la inserte en la celda A5 del mes de Abril. Tengo hechas ya las fórmulas para que solo sume los valores correspondientes al mes en cuestión, así que eso no sería problema. Soy consciente de que hará falta ha…

Hola Buen Dia Gente, Es mi primer post en el Foro Quero Dar las gracias por este gran aporte que brindan! Despues Paso a lo Siguiente., Tengo un simpre formulario el cual contiene un boton me crea una Base Datos en SQL otro que crea la Tabla y Poateriormente Introducir los Datos , Los Datos me los Agrega perfectamente al Excel, Pero lo que quiero es que tambien los Pegue en la Tabla de la Base de Datos SQL. Si alguien me puede suguerir Algo Estoy Disponible Graciass! Base de Datos.rar

Team, Espero me puedan apoyar con los siguiente, en una sola columna de excel tengo 7647 registros desde "A1:A7647", lo que necesito es a través de una macro pasar estas cantidades a un archivo TXT sin espacios, solo separados por ",". Quise hacerlo seleccionando de la fila la misma cantidad de columnas que hay para copiar y trasponer, pero al momento de copiarlos a un TXT, me deja mucho espacios entra cada dato. Ejemplo: Excel A1 17564, A2 34899, Copiar y Trasponer 17564, 34899, Seleccionar y pegar en TXT 17564, 34899, Y lo que necesito es que esten así: 17564,34899, Anexo envío los archivos como ejemplo. De antemano gracias y quedo al pe…

Buenas a todos... Dispongo de un UserForm con un objecto Spreadsheet insertado, en el cual muestro los datos que importo de una archivo de Excel mediante ADO. En el objeto Spreadsheet puedo modificar los datos que importo mediante ADO, y lo que necesito es exportar los datos del Spreadsheet a una hoja de Excel nueva, en un libro existente. Podrían ayudarme? Gracias. Saludos.

Buenas tardes Agradeceré nuevamente de su ayuda Tengo un rango de valores que van cambiando, ya que están vinculado a una serie de operaciones. He confeccionado una fila auxiliar para que los errores de la fila anterior se conviertan en FALSO Lo que estoy buscando es: 1- una macro para borrar los datos de las celdas que dan error o 2-una macro para forrar los datos de la fila auxiliar con el texto FALSO Desde ya muchas gracias todos

Hola Buen Día Amigos, estoy buscando apoyo en cuanto a la elaboración de macros como herramienta y apoyo a mis tareas cotidianas, soy nuevo en esto del Excel y me gustaría aprender mas, pero el corto tiempo que tengo para la presentación de mis formatos me lo impide si alguien me pudiese apoyar dando consejos, manuales y sitios de apoyo como este el cual yo podría capacitarme y realizar esta Macro se los agradecería eternamente. Se anexa el archivo adjunto en Excel de como paso los datos a Excel y como paso a paso los voy moldeando hasta llegar a lo que quiero, pero eso solo es un cliente y un proceso, tenemos muchísimos clientes y en ellos muchos procesos que por como v…