Buenas, mi consulta es la siguiente: En un excel tengo una base de datos los cuales se pasaran a un Word y llenaran formularios, y esto lo estoy haciendo mediante correspondencia. Mi duda entra en que cuando por ejemplo una celda del excel este vacia (o con un "-") al pasarlo al word en ves de pegar el espacio, borre cierta cantidad de texto. Gracias.

Buenos días, os hago una pregunta estoy limpiando unas macros y quisiera saber sin el Range se puede ejecutar con variable, aquí va una explicación If Range("s50") >= 1 Then Range("U50") = ("=U47+S50") zz=b2 : xx=s2 ' Variables que después toma el range en la sub Call Datos Else: Range("u50") = C:End IF If Range("S2") >= 1 Then 'Range("U2") = ("=U50+S51") xz=63 : zy=76 ' Variables que después toma el range en la sub Call Datos Else: Range("u51") = C: End IF Sub Datos() Worksheets("Hoja2").Unprotect Password:=PR Range("zz:xx") .Copy Sheets("H…

Pues resulta que hace tiempo hice un pequeño programa para hacer facturas con excel y vba, pero he descubierto que cuando escribo en la factura unas cantidades con decimales pues al guardarlas en el registro de vba no hace caso a dichos decimales, considerando que no son tales y me agrega dos decimales. Me explico , si yo pongo en cantidad 2, precio unitario 15,15, me da un total de 30,30, al que luego se le calcula su iva y el total, pues al grabar estos datos en el registro me guarda en Cantidad 2, en precio unitario 1.515,00 y en subtotal 3.030,00. El codigo con el que recogo estos datos es el siguiente: Call Abrir_Tb_Detalle_Facturas ActiveS…

Buenos días: Trabajo con dos libros uno Caja Jesús 2016 y otro Cuentas por cobrar, bueno en mi libro caja en la hoja BOLETOS en la celda F1 ingreso el nombre de una de las hojas de mi otro libro Cuentas por cobrar, para este ejemplo solo puse algunas hojas, pero la verdad tengo como 200 hojas que las utilizo. Mi consulta es de como ir a la hoja del libro Cuentas por cobrar según el valor de la celda F1 de mi libro Caja Jesús 2016. Muchas gracias por su atención, saludos cordiales Jesús Caja Jesus 2016.xlsx Cuentas por cobrar.xlsx

Buena Compañeros Deseo crear un macro que le lea un archivo en excel y me copia el rango de celdas hacia abajo la cantidad de veces como haya información en la columnas de al lado, espero haber sido claro, adjunto archivo con el ejemplo de la macro que necesito Gracias Fdotrujillo Libro1.xls

¿Alguien sabe si existe una manera de escribir una macro - por ejemplo en el libro de macros personal - que escriba código en los módulos de VBA de otros libros? El caso concreto en que esto podrías ser útil es el siguiente: tengo 20 archivos en uso por parte de los empleados de una empresa, cada uno de los cuales es exactamente igual a los demás y contiene las mismas macros, sólo que cada uno de los empleados usa su archivo para registrar sus propios datos. Tengo que hacer un cambio en las macros de todos los archivos, y si no hay manera de "escribir una macro que escriba macros" tendré que ingresar a los archivos uno por uno y cambiar los códigos manualmente. …

Buenos Días compañeros, Se me presenta un problema con la ejecucion de una macro que estaba armando para que los graficos me cambien de color, los graficos me cumplen la condicion si el relleno de cada barra lo dejo con el color que necesito , pero a la hora de cerrar y abrir el archivo y ejecutar la macro, las barras con porcentaje 0% cambian su relleno en automatico, dejando las barras de color azul.El codigo actual es el siguientePrivate Sub Mes_Click()' Datos a Mes Abril''Muestra Hojas Para Realizar CambiosSheets("Dashboard").SelectSheets("Tablas").Visible = TrueSheets("Dashboard").Select'Cambia Formulas de AcumuladosApplication.ScreenUpdating = FalseRange("B24:C25").…

Buenos Días: Trabajo con dos libros uno con el nombre Caja Jesus 2015 y otro con Cuentas por Cobrar, en mi libro Caja en la hoja BOLETOS celda D20851 tengo la siguiente función =SI.ERROR(HIPERVINCULO("[Cuentas por Cobrar.xlsm]MENU" & DIRECCION(COINCIDIR(F1|[MENU]MENU!$B:$B|0)|2|2|1|"MENU")| "VER NOTA")|"NO VER") Lo que quiero hacer es que según el valor de la celda F1 vaya al libro Cuentas por Cobrar y se sitúe en el mismo valor en la hoja MENU que en este caso seria en la celda C10, pero no me esta funcionando, ayuda por favor. Muchas gracias por su atención. Saludos cordiales Jesús

Hola Marco en pocas palabras mi problema es el siguiente: En una hoja de Excel que creé en el juego del bingo. Después de que el uso de una conexión de esquema para cada replicado de la Tabla de símbolos para cada célula de mi Tómbola. Después de eso: he creado una fórmula que simplemente dice, que a su vez sale el número Ejemplo (1) es el color del rojo del símbolo Número 1 de la Tabla etc ..! Ahora el problema es el siguiente: A medida que el juego! Funciona bien, pero si se mira de cerca, se da cuenta de que hay algo que está mal, ya que la carta de si es de color rojo el número (1) o el número (80) y luego extraiga el número (10) o (15) etc ...! Extraer el núm…

Estimados solicito de su ayuda para optimizar esta macro que he implementado pero se me esta quedando mucho y no tengo muchas bases en visual. Sobre todo mucha ayuda para el cargue de ventas ya que no he logrado como hacer para que me cree un archivo solo de los criterios que estén reportados ya que no todos los meses me reportan ventas en la misma agrupadora.ventas-Colsubsidio_V 1.2.xlsm ventas.zip

Hola Buenas a Todos; tengo esta macro, la cual al darle aceptar en el botón, me arroja los datos en las celdas respectivas, pero solo me arroja en la fila 7, obviamente porque así esta hecho, la idea es que me arroje todos estos datos en sus respectivas celdas, pero la indicación de la celda activa, estará indicada en las celdas de la columna "B"... Ej. me posiciono en la celda B8...que todos los demás datos también sean arrojados en esa misma fila en sus respectivas columnas...y así por delante, comenzando siempre por la celda B7 Este es la macro...desde ya muy agradecido Private Sub CommandButton3_Click() Range("f7").Value = Range("F7").Value & …

Hola me gustaria poder crear una cinta personalizada en el ribon (botones opciones etc etc) ahora desconosco totalmente como se hace, si mediante codigo (cosa que lo dudo) o con alguna herramienta especial tengo mi sospecha que es un xml pero bueno espero alguna orientacion de parte de ustedes. Saludos

Hola necesito su ayuda estoy necesitando una macro que me permita extraer la información de varios fichas y hojas de diferentes archivos para consolidar una sola base de datos

Saludos amigos del foro, La siguiente macro abre un archivo Word con formato de hoja en pagina vertical Private Sub CommandButton1_Click() Archivo = ThisWorkbook.Path & "\Microbiologia I.docx" With GetObject(Archivo) .Application.Visible = True .Application.Activate End With End Sub Me gustaría que me puedan colaborar con lo que falta para hacer que abra con las hojas en formato de pagina Horizontal Para probarlo por favor cambiar el nombre de este archivo word con uno que tengas junto a un excel y que al inicio haya estado de manera vertical para que la macro se encargue de hacer que se haga horizontal Agradezco anticipadamente su apo…

Buenos días a todos, Tengo Excel 2010, en Hoja1 hay unas 10 celdas (cuya posición nunca cambia) con información de debe ser enviada a celdas de la Hoja2. (Como un formulario de ingreso de datos) Abajo de estas celdas está el Botón de Comando con el nombre "Enviar datos" Mi duda es la siguiente: qué código tiene que tener el botón para enviar esos datos a celdas específicas de la hoja2 Fila1. Luego, tras pasar esos datos, borrar el contenido de esas celdas de Hoja1 y al escribir nueva información y presionar el Botón, se envíen a la Fila2 y así sucesivamente. Por ejemplo: en Hoja1 se carga: Nombre, Apellido, Edad, Localidad, etc..- Al presionar el …

Saludos amigos del foro,este código pega un rango de excel en Mi archivo Word que esta cerrado, luego lo abre y lo muestra. Alli verifico que ha pegado bien. Private Sub CommandButton1_Click() Hoja8.Range("A1:H32").Select Selection.CopyPicture xlScreen, xlPicture Archivo = ThisWorkbook.Path & "\Microbiologia I.docx" With CreateObject("word.application") Selection.CopyPicture xlScreen, xlPicture .Documents.Open Archivo .Selection.Paste .ActiveDocument.SaveAs (Archivo) .Visible = True .Activate End With End Sub Pero que tal si al querer pegar el archivo mencionado ya esta abierto??? El …

Buenas tardes Quisiera saber como podria agregar una columna en un listbox donde pueda digitar cantidades segun la lista de materiales que aparecen en el listbox... EL formulario aparece al hacer click en el botón "Liquidación de Materiales" Gracias por la ayuda. Sistema de Inventarios.xlsm

Estimados muy buenas tardes, tengo un problema y espero que me puedan ayudar Estoy haciendo un sistema de facturacion, y cuando busco un producto en el botón de "BUSCAR PRODUCTO", al costado sale una imagen si hacemos click la imagen me va abri un form con la imagen mas grande, el problema es que cuando lo cierro y pongo a buscar otro producto ya no se muestra la imagen de producto como que se quedo congelado con el primero que hice el click, espero que me puedan ayudar :(, los adjunto los archivos

hola muy buenas noches a todos quiero que me ayuden con la macro cuando comienza a recorrer cada fila también debe de aumentarse los datos y también el porcentaje Proceso 14 de 15 procesando al 93.00 % atte osca maron practica6.xlsm

Hola, aquí tengo un proyecto que estoy intentando terminar: Con su ayuda conseguí hacerlo pero necesito que también se pueda dejar el campo vacío. Si el campo lo dejas sin poner una fecha da un error y yo quiero dejar la opción de que se pueda poner o no la fecha en cada apartado de visita. Espero vuestra ayuda. Gracias!!!!

hola a todos. bueno mi consulta es la siguiente tengo 24 libros de Excel cada uno pertenece a cada quincena de mes es decir 1ra quincena de enero, 2da quincena de enero y así sucesivamente por mes, quisiera sumar celdas en especifico de cada libro en otro libro que se llama totales. cada libro tiene el mismo formato. en el libro totales, quiero sumar la celda D18, F18, H18, J18, L18, N18 de todos los libros correspondientes a cada quincena de mes, sin que se habrán estos libros, todos los libros están en una carpeta que se llama total, la ruta es la siguiente: C:\Users\sherrera\DOCS\REPORTES DE BITACORA\2016\TOTAL otra cosa, que cada vez que agregue un libro en…

Buenos días, ante todo y como en otras ocasiones gracias de antemano. Con ayuda de este foro he realizado una macro que copia ciertos datos de excel y los pega en un documento word. Estos datos de dividen en varias tablas que en algunos casos ocupan mas de 2 paginas. Lo que necesito es el código para que desde excel recorra todo el documento de word y en todas las tablas que existan repita las 4 primeras filas como encabezado. Llevo dos días buscando una solución pero no hay manera. Muchas gracias.

Hola que tal, un saludo a todos. Mi consulta creo que es muy sencilla (cuando se sabe claro), y es que tengo una hoja donde importo datos de otro libro pero que no conozco el nombre, ya que es un reporte del banco y cada vez me lo da de distinta forma. La cuestión es que necesito saber cual es la última fila de ese libro con datos para poder copiarlas todas y pegarlas en el libro de destino, que es el que tiene la macro. Por razones de "afinamiento" del código no quiero seleccionarlo, sinó que, quiero consultar simplemente, porque me he dado cuenta que aunque se tenga el "Application.ScreenUpdating = False" da un pequeño pantallazo. La línea que he puesto me da …

Hola muy buen dia, heme aqui de nuevo solicitando su valiosa colaboracion, para poder realizar ya sea una macro o una formula o si existe alguna manera facil que me pudieran proporcionar para lograr que dentro de una tabla la cual tiene encabezados de: ID | FOLIO | EXPEDIENTE | NOMBRE COMPLETO | FECHA DE NACIMIENTO | CELDADONDESEINSERTARANNOMBRES y como es de observarse deacuerdo al archivo muestra que un id + folio + expediente son por asi decirlo los "rubro unicos", mas sin embargo los nombres si son agregados de esos "rubros", pero cada nombre debe tener su id y a su vez todos los nombres de esos "rubros" deben estar en la ultima columna (celdadondeinsertaran…

Hola a Todos....espero una mano milagrosa... Tengo una planilla, en la cual tengo un Userform no modal, me ha ayudado el Maestro Macro Antonio, en esta tengo 2 Textbox, en los que hago búsquedas para filtrar los datos en mi listbox, que una ves encontrado hago doble click en este caso en el número de RUC, y me arroja en la celda activa..ahora bien, por necesidad tuve que incluir..2 TextBox y 3 ComboBox...La idea es que como ya me funciona al darle la búsqueda ya sea en el TextBox1 o 2 y al desplegarme en el ListBox1, le doy doble click y me arroja en celda activa de la columna "B"...También que al darle ese doble click en el RUC..me arroje los contenidos del TextBox3…