Macros y programación VBA

Hola.. a Todos, Me podrian Colaborar Con este Codigo por Favor.. Estaria Muy Agradecido por que no he podido Realizarlo y lo he intentado Tengo este codigo ancho = Int(.Range("A1").Width + 5) & ";" & Int(.Range("B1").Width + 40) & ";" & _ Int(.Range("C1").Width + 30) & ";" & Int(.Range("D1").Width + 20) & ";" & _ Int(.Range("E1").Width + 20) & ";" & Int(.Range("F1").Width + 30) & ";" & _ Int(.Range("G1").Width + 10) & ";" & Int(.Range("H1").Width + 30) & ";" & _ Int(.Range("I1").Width + 75) & ";" & Int(.Range("J1").Width - 40) & ";" & _ Int(.Range("k1").Width + 3)Com alinear la colum…

Buenas tardes, He estado buscando y tratando de adaptar el código que he podido encontrar, pero no soy capaz de hacerlo y llevo bastante tiempo atascado con ello, por eso pido vuestra ayuda. Estoy creando una serie de macros que me permitan agilizar unas tareas repetitivas en mi trabajo. Una de ellas es la de exportar una sección de la hoja excel a un libro distinto, qué, si existe el libro añade la información en una hoja nueva y si no existe, creará el libro. El principal problema lo tengo en que no sé como recuperar la información desde el archivo que ejecuto la macro. No sé si existe la forma de tener un puntero apuntando al archivo desde el que ejecutas la macro p…

buenas tardes saludos Expertos, queria comentarles que estaba creando un codigo en el cual despues de una cantidad de datos (revisando que sea un producto y de ahi vaya a otra columna y ponga su nombre ) llega a un numero y busque el nombre de otro vendedor y continue haciendo lo mismo, pero da la casualidad que estaba creando el codigo de acuerdo a la base de datos, pero realmente si la distribucion de nombres seria distinta (x lo que se aprecia es orden alfabetico, pero si cambia) mi codigo genera error podrian ayudarme adjunto archivo no puedo mostrar el código porque es muy grande. gracias Saludos Brian ayudaDatos.zip

Cordial Saludo Compañeros, Realmente este foro ha sido de gran ayuda para mi, esta vez venga con un problema muy especial ya que se trata de una información que debo enviar y mi software de contabilidad no la arroja como debe ser. Si alguno sabe de contabilidad y es de Colombia y conoce acerca de la información exogena, bueno sabrá entenderme . PROBLEMA: La cuestión es que tengo un archivo bloc de notas que me arroja el software y quisiera una macro o me importe ese archivo a excel pero organizado como lo necesito porque si lo abro con excel me lo desordenas demasiado lo que necesito es que me coja los códigos de contabilidad, por decir 110505 CAJA y organice debajo e…

Buenas tardes. Amigos muchas gracias por la ayuda que siempre me han proporcionado, esta vez tengo una macro que ya me funciona pero solo para enviar un correo a la vez y manualmente tengo que estar cambiando en el codigo el correo y la hoja, me gustaria conocer si existe la forma de dentro de mi libro tengo 20 o 30 hojas (nunca es el mismo numero), cada hoja tiene el mismo formato, rango de datos, etc.. a excepción de la información que contiene cada hoja. Lo que me gustaría conocer es como hacer que en una hoja tenga una lista de correos (EMAIL) y vaya recorriendo y enviando el rango que le corresponde, es decir: ColumnaA ColumnaB Nombre hoja …

Hola buenas Tardes, tengo una duda, ayer con su ayuda pude resolver 1 problema pero me causo 1 mas la cual estoy intentado resolver, si me pueden ayudar se los agradeceria. Bueno ahora tengo 2 ejemplos los cuales me estoy basando. El Catalogo 1 si me elimina y me habre el modificiar pero al darle click a los items del listbox El catalogo 2 Me muestra todos los items que hay en la hoja de excel pero no me deja eliminar ni modificar porque al seleccionar los items no se selecciona Lo que me gustaria si no es molestia es que Se visualice como en el Catalogo2 todos los items de mi hoja de excel, y que al seleccionarlo pueda Eliminar, o modificar como en la Hoja 1. Tengo…

Buen dia Mi problema es el siguiente, tengo un archivo donde manejo un listado de refacciones las cuales se pueden ver en un Useform, las tengo organizadas por equipo, pero al momento de abrir la plantilla (Useform) me aparece el listado completo. Quiero saber si al momento de aparacerme el listado se puede filtrar directamente en el listbox o tengo que poner un boton mas. Dibujos_Moldeo - Copy.zip

Buena tarde, les comento estoy aprendiendo el lenguaje de VBA para Excel 2013 y estoy haciendo un proyecto el cual consiste en que al abrir un libro (Índice) se ejecute una macro que abra otros determinados archivos y en diferentes ubicaciones dependiendo de cada persona que use esta aplicación. Ya tengo resuelta la parte que me pregunta por la nueva ubicación o si deseo cambiar de ubicación. El Problema que tengo que en la parte en donde tengo el código para abrir los archivos seleccionados estoy utilizando un bucle For Next y se me presenta el siguiente problema cuando lo Ejecuto y corre el primer ciclo del bucle si me abre el archivo pero al correr el segundo en adela…

Buenos dias, mi problema es: tengo 2 hojas, en la 1 hoja tengo una tabla con 5 campoa (Cod, Nom, Apell, Area, Pais) con datos, en la 2° tengo un buscador, coloco el codigo y me aparecen los demas datos segun la tabla1, ademas aparece la imagen de la bandera del pais segun el que aparesca del filtro (B7). Lo que sucede es que no aparece la bandera cuando escribo un codigo en el filtro, pero he probado escribiendo el pais aparte y modificando el codigo que hice y asi si funciona. ¿Como podria hacer que al actualizarse el buscador tambien se actualize la imagen de la bandera?. Ademas las imagenes de las banderas tienen el mismo nombre que en la tabla, pero los espacios en bl…

Buenas noches Tengo el siguiente código que muy amablemente me ayudaron Sub Nuevokardexclte() Sheets("A1").Select Sheets("A1").Copy before:=Sheets(7) For Each Sh In Sheets If InStr(1, Sh.Name, Range("B1")) > 0 Then 'se busca el guión bajo porque no sabemos cuántos índices puede llegar a tener For i = Len(Sh.Name) To 1 Step -1 If Mid(Sh.Name, i, 1) = "-" Then indi = Right(Sh.Name, Len(Sh.Name) - i) + 1 nvonbre = Left(Sh.Name, i) & indi ActiveSheet.Name = nvonbre Exit For End If Next i 'si i = 1 es que no encontró el guión If i = 0 Then nvonbre = Range(…

Hola! Como están! Me encontré con un pequeño problema el cual las soluciones que me leía en los foros no me corregía el problema. Pero probablemente soy yo el que esta haciendo las cosas mal. básicamente en un textbox pongo numero con decimales, (con comas). pero en la celda de la hoja de destino me los deja escrito como palabras. no como texto. UN caso similar me paso con las fechas pero ya lo he resuelto. Si necesito sumar las celdas, el resultado esta errado ya que las celdas que contienen números con comas al ser tomadas como texto, no las cuenta. envío el archivo para ver si me dan un poquito de luz. Muchas Gracias! decimales.xls

Buenas noches: Traigo de nuevo esta consulta. Tengo un formulario que carga los datos filtrados en un listbox. Pero tengo un problema: solo funciona teniendo la hoja mostrada y situándome en ella. Si la hoja está oculta o estoy en otra hoja no funciona.... Pido vuestra colaboración porque he estado mirando por la web y he hecho varias pruebas pero no consigo solucionar este problema. Os pongo el acceso al archivo a ver si, por favor, me podéis echar una mano.... https://drive.google.com/open?id=1812Uw2iHKBYPnyFSTvRGmFaWufh-jL5N

Hola, les consulto como crear una macro que ajuste el area de impresion del tamaño de una hoja de alto por una hoja de ancho de varios archivos de una carpeta. Lo intente con la grabadora de macros, pero no funciona. Cada archivo solo contiene una hoja con una tabla de de 7 columnas (A:G) y la cantidad de filas es variable (aproximadamente puede ir de unas 10 filas a unas 200 filas ). Esta macro la estaria agregando a otra que saqué del sitio de ron de bruin, que toma un libro con varias hojas y crea un nuevo libro por cada hoja:(https://www.rondebruin.nl/win/s3/win007.htm). Aclaro que los archivos no se van a imprimir, sino que se van a subir a un sitio …

hola a todos quiero que mi tabla se rellene por columnas por meses ejemplo aqui les adjunto el archivo en la tabla que les adjunto quiero que cuando ingrese una cantidad en el form que hice. el numero se agregue automáticamente en el mes que lo estoy agregando, y automáticamente lleve el total al final de la columna que si yo ingreso el numero 1 en caja rota y presiono agregar, se agregue en el mes que lo estoy ingresando y al final lleve el total de cuantas cajas rotas van gracias inventario perdido.xlsx

Hola a todos, me acabo de unir a este foro y que mejor manera para estrenarse que con un problema... Os pongo en antecedentes. Trabajo en una empresa en la que hay ordenadores personales y ordenadores comunes. Y hay una red a la que te conectas para acceder a diferentes unidades de red para revisar pdfs, excels, words, lo que sea... Hay un conjunto de ficheros excel los cuales estan en carpetas separadas dentro de la misma carpeta. Por ejemplo: 10 carpetas (tipos de coche) con 10 carpetas dentro (diferentes zonas dentro de cada coche), y dentro de cada una de esas carpetas, 2 archivos, uno para cableado y otro para materiales. Como estan separados, cuando se qu…

Buenas tardes, Tengo un excel con condicionales de colores y que por filtrar han acabado por estropearse. Me gustaría hacer lo mismo con VBA. Lo que necesito es algo que seguramente esté más que publicado, pero no hay forma de encontrarlo. Se trata de como ejemplo 5 columnas y que la columna tiene un valor especifico string "Cerrar" y otros "Abierto". Lo que busco es que cuando la columna 1 contanga "Cerrar" la fila hasta la columna 5 se ponga en rojo, y si es "Abierto" sea del color verde. Realmente sólo necesito el codigo base o una idea de como hacerlo. Saludos,

Hola a todos, mi nombre es Maurizio y mi problema es este: De ahora en adelante afirmo que este proyecto no debería de ninguna manera; Implicar el uso de la hoja de Excel Pero solo con su forma de usuario Habiendo dicho eso: comenzaría diciendo que dentro de mi formulario de usuario ingresé: 1) imagen 1) Botón de comando 1) cuadro combinado y finalmente una etiqueta Ahora, el propósito de este proyecto sería hacer que uno de los dos enlaces que pertenecen a tantas imágenes tomadas de una página web lleguen al interior (Label3) Pero por conveniencia he insertado los dos enlaces dentro de uno (cuadro combinado) Por otra parte, desde el progra…

Buenos días, me he vuelto loco intentando encontrar la solución a un problema que tengo y agradecería ayuda. Intento explicaros lo mejor que pueda. Tengo una Hoja de excel la cual tiene datos en la columna A y la columna B. Necesito que si selecciono el dato que yo necesite de la columna A y apriete un botón se ejecute la macro y... cambie a color rojo el dato de la celda seleccionada, compruebe el dato de su derecha, columna B, y si pone Nuevo me copie el dato seleccionado, Columna A, en L6, pero si pone a la derecha del dato Antiguo copie el dato de la columna A en la celda O6. En resumen, que compruebe la macro a la derecha del dato seleccionado y copie en L6…

Buenas expertos, nuevamente necesito una ayuda tengo un libro dentro de ello tengo 3 hojas cada uno con sus datos y en la macro tengo un formulario con la que registro los datos pero al momento de pulsar el botón registrar me me sale un error y se cierra el libro y no me deja ver donde esta el error. Por favor si me pueden ver a donde esta el error. Adjunto el libro. Muchas gracias. Médicos.xlsm

Buenos días No se si este es el hilo correspondiente ya que no se si se puede hacer sin Macros o userform... Necesito insertar una foto de grandes dimensiones en horizontal, pero que la foto este dentro de un recuadro de la hoja y mediante scroll, conseguir ver toda la imagen, sin tener que hacer la hoja tan grande como la foto. ¿creéis que seria posible?, llevo toda la mañana intentando cosas y no doy con ello... Un Saludo

Buen día, Tengo un problema tratando de importar los datos de un query de Acces a Excel para poder generar una tabla pivote, no tengo problema generando la tabla pivote, si no en la importación del query a excel mediante VBA. El acercamiento que tuve fue con este código pero al tratar de llamarlo en el Sub, me aparece el error de hace falta un separador de listas o error de sintaxis, esta macro se ejecuta desde Access. Option Compare Database Sub PivotT() SendTQ2Excel(strTQName As String, Optional strSheetName As String) End Sub Public Function SendTQ2Excel(strTQName As String, Optional strSheetName As String) ' strTQName is the name of the table or query y…

Buenas a tod@s, Os adjunto un calendario al que quiero hacer lo siguiente: como veis tengo una celda que es la E22 en color rojo que usaré para los dias festivos. Justamente debajo incluiré los dias festivos (1 de enero, 6 de enero, etc) estos dias al incluirlo en el listado querria que cambiaran el color segun el relleno de la Celda E22. Tambien busco la forma de que si cambio el año estos dias se actualicen Luego tengo la celda I18 que tiene el color amarillo y querria que al incluir los dias del calendario me cambiaran al color de relleno de dicha celda. Es posible? 2021.xlsm

Buenas, alguien sabe como convertir un numero racional a notación decimal? Muchas gracias

Buenas tardes comunidad, Actualmente tengo este problema que he estado desarrollado en un formulario desde varios aporte que he visto, pero que no he podido solucionar este caso, necesito filtrar la informacion de dos datos especificos que se encuentran en otro Libro excel y traer uno, Ejemplo. Código de despacho - Descripción - Lote 001 Zanahorias 9121 001 Manzana 9121 002 Peras 9121 003 Cebollas 8090 003 …

Hola colegas buenos días. Tengo un problema y acudo a ustedes para ver que solución me dan. Esto es parte del proyecto de Disponibilidad bancaria que ustedes han visto y ayudado en ocasiones. Quiero crear un Histórico, que puede ser único o separado por banco, no importa. Copiar cada Rango y pasarlo a cada una de las hojas Histórico no es problema, eso es algo que hago a menudo, el problema está en que al finalizar el año, las Hojas Diario y DiarioBFI quedarán en “Blanco” (Vacías) para comenzar un nuevo período fiscal y si hago referencias nuevamente a las Hojas Diario y DiarioBFI para copiar y pegar en las Hojas Histórico (comenzado otro año) se …